Changeset 1342 for trunk/gui/scripts/panes.tcl

Timestamp:

Mar 18, 2009, 2:59:21 PM (16 years ago)

Author:

gah

Message:

preliminary HQ output from molvisviewer; unexpand tabs; all jpeg generation at 100%

File:

• trunk/gui/scripts/panes.tcl (modified) (13 diffs)

trunk/gui/scripts/panes.tcl

@@ -73 +73 @@
     set pname "pane[incr _counter]"
     itk_component add $pname {
-        frame $itk_interior.$pname
+        frame $itk_interior.$pname
     }
 
@@ -93 +93 @@
 itcl::body Rappture::Panes::insert {pos args} {
     Rappture::getopts args params {
-        value -fraction 0.5
+        value -fraction 0.5
     }
     if {[llength $args] > 0} {
-        error "wrong # args: should be \"insert pos ?-fraction f?\""
+        error "wrong # args: should be \"insert pos ?-fraction f?\""
     }
 
@@ -102 +102 @@
     set sash "${pname}sash"
     itk_component add $sash {
-        frame $itk_interior.$sash
+        frame $itk_interior.$sash
     } {
-        usual
-        rename -cursor -sashcursor sashCursor SashCursor
+        usual
+        rename -cursor -sashcursor sashCursor SashCursor
     }
     bind $itk_component($sash) <Enter> [itcl::code $this hilite on $sash]
@@ -111 +111 @@
 
     itk_component add ${sash}ridge {
-        frame $itk_component($sash).ridge
+        frame $itk_component($sash).ridge
     } {
-        usual
-        rename -cursor -sashcursor sashCursor SashCursor
-        rename -relief -sashrelief sashRelief SashRelief
-        ignore -borderwidth
+        usual
+        rename -cursor -sashcursor sashCursor SashCursor
+        rename -relief -sashrelief sashRelief SashRelief
+        ignore -borderwidth
     }
     pack $itk_component(${sash}ridge) -fill x
 
     foreach comp [list $sash ${sash}ridge] {
-        bind $itk_component($comp) <ButtonPress-1> \
-            [itcl::code $this _grab $pname %X %Y]
-        bind $itk_component($comp) <B1-Motion> \
-            [itcl::code $this _drag $pname %X %Y]
-        bind $itk_component($comp) <ButtonRelease-1> \
-            [itcl::code $this _drop $pname %X %Y]
+        bind $itk_component($comp) <ButtonPress-1> \
+            [itcl::code $this _grab $pname %X %Y]
+        bind $itk_component($comp) <B1-Motion> \
+            [itcl::code $this _drag $pname %X %Y]
+        bind $itk_component($comp) <ButtonRelease-1> \
+            [itcl::code $this _drop $pname %X %Y]
     }
 
 
     itk_component add $pname {
-        frame $itk_interior.$pname
+        frame $itk_interior.$pname
     }
     set _panes [linsert $_panes $pos $pname]
@@ -154 +154 @@
     set pname [lindex $_panes $pos]
     if {[info exists itk_component($pname)]} {
-        return $itk_component($pname)
+        return $itk_component($pname)
     }
     return ""
@@ -167 +167 @@
 itcl::body Rappture::Panes::visibility {pos {newval ""}} {
     if {"" == $newval} {
-        return [lindex $_visibility $pos]
+        return [lindex $_visibility $pos]
     }
     if {![string is boolean $newval]} {
-        error "bad value \"$newval\": should be boolean"
+        error "bad value \"$newval\": should be boolean"
     }
     if {$pos == "end" || ($pos >= 0 && $pos < [llength $_visibility])} {
-        set _visibility [lreplace $_visibility $pos $pos [expr {$newval}]]
-        $_dispatcher event -idle !layout
+        set _visibility [lreplace $_visibility $pos $pos [expr {$newval}]]
+        $_dispatcher event -idle !layout
     } else {
-        error "bad index \"$pos\": out of range"
+        error "bad index \"$pos\": out of range"
     }
 }
@@ -188 +188 @@
 itcl::body Rappture::Panes::fraction {pos {newval ""}} {
     if {"" == $newval} {
-        return [lindex $_frac $pos]
+        return [lindex $_frac $pos]
     }
     if {![string is double $newval]} {
-        error "bad value \"$newval\": should be fraction 0-1"
+        error "bad value \"$newval\": should be fraction 0-1"
     }
     if {$pos == "end" || ($pos >= 0 && $pos < [llength $_frac])} {
-        set len [llength $_frac]
-        set _frac [lreplace $_frac $pos $pos xxx]
-        set total 0
-        foreach f $_frac {
-            if {"xxx" != $f} {
-                set total [expr {$total+$f}]
-            }
-        }
-        for {set i 0} {$i < $len} {incr i} {
-            set f [lindex $_frac $i]
-            if {"xxx" == $f} {
-                set f $newval
-            } else {
-                set f [expr {$f/$total - $newval/double($len-1)}]
-            }
-            set _frac [lreplace $_frac $i $i $f]
-        }
-        $_dispatcher event -idle !layout
+        set len [llength $_frac]
+        set _frac [lreplace $_frac $pos $pos xxx]
+        set total 0
+        foreach f $_frac {
+            if {"xxx" != $f} {
+                set total [expr {$total+$f}]
+            }
+        }
+        for {set i 0} {$i < $len} {incr i} {
+            set f [lindex $_frac $i]
+            if {"xxx" == $f} {
+                set f $newval
+            } else {
+                set f [expr {$f/$total - $newval/double($len-1)}]
+            }
+            set _frac [lreplace $_frac $i $i $f]
+        }
+        $_dispatcher event -idle !layout
     } else {
-        error "bad index \"$pos\": out of range"
+        error "bad index \"$pos\": out of range"
     }
 }
@@ -226 +226 @@
     switch -- $itk_option(-sashrelief) {
       sunken {
-        if {$state} {
-            $itk_component(${sash}ridge) configure -relief raised
-        } else {
-            $itk_component(${sash}ridge) configure -relief sunken
-        }
+        if {$state} {
+            $itk_component(${sash}ridge) configure -relief raised
+        } else {
+            $itk_component(${sash}ridge) configure -relief sunken
+        }
       }
       raised {
-        if {$state} {
-            $itk_component(${sash}ridge) configure -relief sunken
-        } else {
-            $itk_component(${sash}ridge) configure -relief raised
-        }
+        if {$state} {
+            $itk_component(${sash}ridge) configure -relief sunken
+        } else {
+            $itk_component(${sash}ridge) configure -relief raised
+        }
       }
       solid {
-        if {$state} {
-            $itk_component($sash) configure -background black
-        } else {
-            $itk_component($sash) configure \
-                -background $itk_option(-background)
-        }
+        if {$state} {
+            $itk_component($sash) configure -background black
+        } else {
+            $itk_component($sash) configure \
+                -background $itk_option(-background)
+        }
       }
     }
@@ -269 +269 @@
     set frac [expr double($realY)/$Ymax]
     if {$frac < 0.05} {
-        set frac 0.05
+        set frac 0.05
     }
     if {$frac > 0.95} {
-        set frac 0.95
+        set frac 0.95
     }
     if {[llength $_frac] == 2} {
-        set _frac [list $frac [expr {1-$frac}]]
+        set _frac [list $frac [expr {1-$frac}]]
     } else {
-        set i [expr {[lsearch $_panes $pname]-1}]
-        if {$i >= 0} {
-            set _frac [lreplace $_frac $i $i $frac]
-        }
+        set i [expr {[lsearch $_panes $pname]-1}]
+        if {$i >= 0} {
+            set _frac [lreplace $_frac $i $i $frac]
+        }
     }
     _fixLayout
@@ -308 +308 @@
     set flist ""
     foreach p $_panes f $_frac v $_visibility {
-        set sash ${p}sash
-        if {$v} {
-            # this pane is visible -- make room for it
-            lappend plist $p
-            lappend flist $f
-            if {[info exists itk_component($sash)]} {
-                set h [expr {$h - [winfo height $itk_component($sash)]}]
-            }
-        } else {
-            # this pane is not visible -- remove sash
-            if {[info exists itk_component($sash)]} {
-                place forget $itk_component($sash)
-            }
-            place forget $itk_component($p)
-        }
+        set sash ${p}sash
+        if {$v} {
+            # this pane is visible -- make room for it
+            lappend plist $p
+            lappend flist $f
+            if {[info exists itk_component($sash)]} {
+                set h [expr {$h - [winfo height $itk_component($sash)]}]
+            }
+        } else {
+            # this pane is not visible -- remove sash
+            if {[info exists itk_component($sash)]} {
+                place forget $itk_component($sash)
+            }
+            place forget $itk_component($p)
+        }
     }
 
@@ -330 +330 @@
     set newflist ""
     foreach f $flist {
-        lappend newflist [expr {double($f)/$total}]
+        lappend newflist [expr {double($f)/$total}]
     }
     set flist $newflist
@@ -337 +337 @@
     set y 0
     foreach p $plist f $flist {
-        set sash ${p}sash
-        if {[info exists itk_component($sash)]} {
-            set sh [winfo reqheight $itk_component($sash)]
-            place $itk_component($sash) -y $y -relx 0.5 -anchor n \
-                -relwidth 1.0 -height $sh
-            set y [expr {$y + $sh}]
-        }
-
-        set ph [expr {$h*$f}]
-        place $itk_component($p) -y $y -relx 0.5 -anchor n \
-            -relwidth 1.0 -height $ph
-        set y [expr {$y + $ph}]
+        set sash ${p}sash
+        if {[info exists itk_component($sash)]} {
+            set sh [winfo reqheight $itk_component($sash)]
+            place $itk_component($sash) -y $y -relx 0.5 -anchor n \
+                -relwidth 1.0 -height $sh
+            set y [expr {$y + $sh}]
+        }
+
+        set ph [expr {$h*$f}]
+        place $itk_component($p) -y $y -relx 0.5 -anchor n \
+            -relwidth 1.0 -height $ph
+        set y [expr {$y + $ph}]
     }
 }
@@ -362 +362 @@
     set bd [expr {$ht/2}]
     foreach pane $_panes {
-        set sash "${pane}sashridge"
-        if {[info exists itk_component($sash)]} {
-            $itk_component($sash) configure -height $ht -borderwidth $bd
-            if {$itk_option(-sashrelief) == "solid"} {
-                $itk_component($sash) configure -background black
-            } else {
-                $itk_component($sash) configure \
-                    -background $itk_option(-background)
-            }
-            pack $itk_component($sash) -pady $itk_option(-sashpadding)
-        }
+        set sash "${pane}sashridge"
+        if {[info exists itk_component($sash)]} {
+            $itk_component($sash) configure -height $ht -borderwidth $bd
+            if {$itk_option(-sashrelief) == "solid"} {
+                $itk_component($sash) configure -background black
+            } else {
+                $itk_component($sash) configure \
+                    -background $itk_option(-background)
+            }
+            pack $itk_component($sash) -pady $itk_option(-sashpadding)
+        }
     }
 }