Changeset 119 for trunk/gsascmds.tcl

Timestamp:

Dec 4, 2009 5:00:43 PM (14 years ago)

Author:

toby

Message:

# on 1999/11/17 22:02:36, toby did:
Add routine to delete history records
fix composition bug for multiphase refinements

File:

• trunk/gsascmds.tcl (modified) (2 diffs, 3 props)

trunk/gsascmds.tcl

@@ -269 +269 @@
             if {$mult > $Z} {set Z $mult}
         }
-    }
-    
-    append text "Unit cell contents\n"
-    foreach phase $expmap(phaselist) {
-        append text "  Phase $phase\t"
+        append text "\nPhase $phase\n"
+        append text "  Unit cell contents\n"
         foreach type [lsort [array names total]] {
             append text "   $type[format %8.3f $total($type)]"
         }
-        append text "\n"
-    }
+        append text "\n\n"
     
-    append text "\n\nAsymmetric Unit contents\n"
-    foreach phase $expmap(phaselist) {
-        append text "  Phase $phase (Z=$Z)\t"
+        append text "  Asymmetric Unit contents (Z=$Z)\n"
         foreach type [lsort [array names total]] {
             append text "   $type[format %8.3f [expr $total($type)/$Z]]"
@@ -1279 +1273 @@
     return $makenew(result)
 }
+
+#------------------------------------------------------------------------------
+# Delete History Records
+proc DeleteHistoryRecords {{msg ""}} {
+    global expgui
+    set frm .history
+    catch {destroy $frm}
+    toplevel $frm
+    if {[string trim $msg] == ""} {
+        set msg "There are [CountHistory] history records"
+    }
+    pack [frame $frm.1 -bd 2 -relief groove] -padx 3 -pady 3 -side left
+    pack [label $frm.1.0 -text $msg] -side top
+    pack [frame $frm.1.1] -side top
+    pack [label $frm.1.1.1 -text "Number of entries to keep"] -side left
+    pack [entry $frm.1.1.2 -width 3 -textvariable expgui(historyKeep)\
+            ] -side left
+    set expgui(historyKeep) 10
+    pack [checkbutton $frm.1.2 -text renumber -variable expgui(renumber)] -side top
+    set expgui(renumber) 1
+    pack [frame $frm.2] -padx 3 -pady 3 -side left
+    pack [button $frm.2.3 -text OK \
+            -command { 
+        if ![catch {expr $expgui(historyKeep)}] {
+            DeleteHistory $expgui(historyKeep) $expgui(renumber)
+            set expgui(changed) 1
+            destroy .history
+        }
+    }] -side top
+    pack [button $frm.2.4 -text Quit \
+            -command {destroy .history}] -side top
+    bind $frm <Return> "$frm.2.3 invoke"
+    
+    # force the window to stay on top
+    putontop $frm 
+    focus $frm.2.3
+    tkwait window $frm
+    afterputontop
+}