Changeset 1022 for branches

Timestamp:

Oct 12, 2010 2:56:36 PM (13 years ago)

Author:

chlake

Message:

Raised window for geo viewer and added Grab release commands to disagledit

Location:

branches/sandbox

Files:

• Geo_Viewer.tcl (modified) (1 diff)
• disagledit.tcl (modified) (2 diffs)

branches/sandbox/Geo_Viewer.tcl

@@ -173 +173 @@
      wm title $mcb "Viewer for Bond Distances and Angles"
 
+     raise $mcb
      set sc $mcb.sortcon
      set as $mcb.atomselect

branches/sandbox/disagledit.tcl

@@ -103 +103 @@
      if {$launchdisagl} {
        wm title $dcb "DISAGL Control Panel"
+       grab release $dcb
        checkbutton $dasave.option -text "DISAGL output in separate window" \
                    -variable ::expgui(disaglSeparateBox)
@@ -110 +111 @@
      } else {
        wm title $dcb "Distance Search Parameters"
+       grab release $dcb
        button $dasave.sexit -text "Save and Exit" -command DA_Save
        grid $dasave.sexit -row 0 -column 0