Changeset 1022 for branches/sandbox


Ignore:
Timestamp:
Oct 12, 2010 2:56:36 PM (10 years ago)
Author:
chlake
Message:

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

Location:
branches/sandbox
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/Geo_Viewer.tcl

    r1021 r1022  
    173173     wm title $mcb "Viewer for Bond Distances and Angles"
    174174
     175     raise $mcb
    175176     set sc $mcb.sortcon
    176177     set as $mcb.atomselect
  • branches/sandbox/disagledit.tcl

    r1021 r1022  
    103103     if {$launchdisagl} {
    104104       wm title $dcb "DISAGL Control Panel"
     105       grab release $dcb
    105106       checkbutton $dasave.option -text "DISAGL output in separate window" \
    106107                   -variable ::expgui(disaglSeparateBox)
     
    110111     } else {
    111112       wm title $dcb "Distance Search Parameters"
     113       grab release $dcb
    112114       button $dasave.sexit -text "Save and Exit" -command DA_Save
    113115       grid $dasave.sexit -row 0 -column 0
Note: See TracChangeset for help on using the changeset viewer.