Changeset 1277 for trunk/gui/scripts/visviewer.tcl

Timestamp:

Feb 19, 2009 3:13:35 PM (15 years ago)

Author:

gah

Message:

scripts/xyresult.tcl:

Changed buttons to use new icons (reset and wrench for legend).

scripts/nanovisviewer.tcl:

Changed buttons to use new icons (reset, zoom-in, and zoom-out).

scripts/visviewer.tcl:

Added drawer (pandedwindow) to base class so derived classes
could use it if so desired.

scripts/scroller.tcl:

Added scrollwheel binds for vertical scrolling.

scripts/images/atom-label.gif, scripts/images/reset-view.gif,
scripts/images/wrench.gif, scripts/images/zoom-in.gif,
scripts/images/zoom-out.gif, scripts/images/rock-view.gif:

Added new icons.

scripts/molvisviewer.tcl:

Added projection button to change between orthoscopic and perspective
projects.
Changed settings button into icon.
Moved settings menu into settings drawer.
Added scale to adjust atom scale.
Fixed representation method to not call rebuild when setting
"ballnstick", "lines", or "spheres" representations.
Requires new pymolproxy.

(gah@…)

File:

• trunk/gui/scripts/visviewer.tcl (modified) (4 diffs)

trunk/gui/scripts/visviewer.tcl

@@ -88 +88 @@
 }
 
+itk::usual Panedwindow {
+    keep -background -cursor
+}
+
 # ----------------------------------------------------------------------
 # CONSTRUCTOR
@@ -128 +132 @@
     # RENDERING AREA
     #
+    itk_component add drawer {
+        panedwindow $itk_interior.drawer \
+            -orient horizontal -opaqueresize 1 -handlepad 0 \
+            -handlesize 1 -sashwidth 2     
+    }
+    pack $itk_component(drawer) -expand yes -fill both
+
     itk_component add area {
         frame $itk_interior.area
     }
-    pack $itk_component(area) -expand yes -fill both
+    $itk_component(drawer) add $itk_component(area) -sticky nsew
 
     set _image(plot) [image create photo]
@@ -273 +284 @@
 itcl::body Rappture::VisViewer::Disconnect {} {
     $_dispatcher cancel !timeout
-    if { [IsConnected] } {
-        catch {close $sid_} 
-        set sid_ ""
-    }
+    catch {close $sid_} 
+    set sid_ ""
     set buffer_(in) ""
 }
@@ -450 +459 @@
         return 0
     }
-    if { [gets $sid_ line] < 0 } {
+    set n [gets $sid_ line]
+    
+    if { $n < 0 } {
         Disconnect
+        return 0
     }
     set line [string trim $line]