Changeset 63 for trunk

Timestamp:

Dec 4, 2009 4:59:47 PM (14 years ago)

Author:

toby

Message:

# on 1999/02/22 20:03:00, toby did:
save the selected atom list and move the scroll restore so it is done correctly

File:

• trunk/expgui (modified) (6 diffs, 3 props)

trunk/expgui

@@ -135 +135 @@
 # you've been warned this .EXP does not exist!
 if ![file exists $expgui(expfile)] {
-    puts "creating $expgui(expfile)"
     # create an "empty" exp file
     createexp $expgui(expfile) \
@@ -620 +619 @@
     set expgui(noreenterDisplayAllAtoms) 1
     if {$mode != "reset"} {
-        set selectlist [$expgui(atomlistbox) curselection]
+        # save the scrolled position
         set pos [lindex [$expgui(atomlistbox) yview] 0]
+    } else {
+        # this is a reset -- clear the selected atoms list
+        set expgui(selectedatomlist) {}
     }
     $expgui(atomlistbox) delete 0 end
@@ -714 +716 @@
     }
     if {$mode != "reset"} {
-        foreach i $selectlist {
+        # restore the selected items
+        foreach i $expgui(selectedatomlist) {
             $expgui(atomlistbox) selection set $i
-            $expgui(atomlistbox) yview moveto $pos
-        }
+        }
+        # restore the last scrolled position
+        $expgui(atomlistbox) yview moveto $pos
     }
     set expgui(noreenterDisplayAllAtoms) 0
@@ -726 +730 @@
     global expgui 
     $expgui(atomlistbox) selection set 0 end
-    # just in case this was called at the wrong time:
+    # call editRecord in case trace was called before the selection was made
     editRecord
 }
@@ -733 +737 @@
 proc editRecord { args } {
     global entrycmd expgui
-    set selectIndex [$expgui(atomlistbox) curselection]
+    set expgui(selectedatomlist) [$expgui(atomlistbox) curselection]
     # disable traces on entryvar for right now
     set entrycmd(trace) 0
 
-    if {[llength $selectIndex] == 0} {
+    if {[llength $expgui(selectedatomlist)] == 0} {
         puts  "How did this happen: [$expgui(atomlistbox) curselection]"
-    } elseif {[llength $selectIndex] == 1} {
-        editOneRecord $selectIndex
+    } elseif {[llength $expgui(selectedatomlist)] == 1} {
+        editOneRecord $expgui(selectedatomlist)
     } else {
-        editMultipleRecords $selectIndex
+        editMultipleRecords $expgui(selectedatomlist)
     }
     # reenable traces on entryvar
     set entrycmd(trace) 1
     # repaint the atoms box in case anything was changed
-#    DisplayAllAtoms noreset
+    #    DisplayAllAtoms noreset
 }
 
@@ -2988 +2992 @@
 set expgui(pagenow) ""
 set expgui(curhist) {}
+set expgui(selectedatomlist) {}
 
 loadexp $expgui(expfile)