Changeset 1406 for trunk

Timestamp:

Apr 20, 2009 12:59:17 PM (15 years ago)

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• imageresult.tcl (modified) (1 diff)
• molvisviewer.tcl (modified) (7 diffs)
• nanovisviewer.tcl (modified) (1 diff)

trunk/gui/scripts/imageresult.tcl

@@ -313 +313 @@
             # to the BLT picture image it won't be necessary to decode the
             # image data.
-            set bytes [$top data $tmpfile -format "jpeg -quality 100"]
+            set bytes [$top data -format "jpeg -quality 100"]
             set bytes [Rappture::encoding::decode -as b64 $bytes]
             return [list .jpg $bytes]

trunk/gui/scripts/molvisviewer.tcl

@@ -86 +86 @@
     private method WaitIcon { option widget }
     private variable icon_ 0
-    private variable _inrebuild 0
 
     private variable _mevent       ;# info used for mouse event operations
@@ -261 +260 @@
     bind $itk_component(ortho) <ButtonPress> \
         [itcl::code $this projection toggle]
-    $this projection perspective
 
     _BuildViewTab
@@ -623 +621 @@
     #debug "success: reading $size bytes from proxy\n"
     if { $cacheid == "print" } {
-        puts stderr "got hardcopy token"
         # $frame is the token that we sent to the proxy.
         set hardcopy_($this-$frame) $data
@@ -643 +640 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::MolvisViewer::_rebuild {} {
-    if { $_inrebuild } {
-        # don't allow overlapping rebuild calls
-        return
-    }
     debug "in rebuild"
-    #set _inrebuild 1
     set changed 0
 
@@ -803 +795 @@
     representation update
 
-    set _inrebuild 0
     $itk_component(3dview) configure -cursor ""
     debug "exiting rebuild"
@@ -904 +895 @@
     if { $_image(id) != "$tag" } {
         if { [info exists _imagecache($tag)] } {
-            #puts stderr "DISPLAYING CACHED IMAGE"
             $_image(plot) configure -data $_imagecache($tag)
             set _image(id) "$tag"
@@ -1063 +1053 @@
 itcl::body Rappture::MolvisViewer::_rotate {option x y} {
     set now  [clock clicks -milliseconds]
-    update idletasks
+    #update idletasks
     # cancel any pending delayed dragging events
     if { [info exists _mevent(afterid)] } {

trunk/gui/scripts/nanovisviewer.tcl

@@ -107 +107 @@
     private method BuildCameraTab {}
     private method PanCamera {}
-
 
     private variable outbuf_       ;# buffer for outgoing commands