Changeset 545

Timestamp:

Dec 4, 2009 5:07:58 PM (11 years ago)

Author:

toby

Message:

# on 2002/01/22 23:12:36, toby did:
don't dump mm phases

File:

• trunk/dumpexp.tcl (modified) (1 diff, 3 props)

trunk/dumpexp.tcl

@@ -76 +76 @@
 }
 if {[llength $expmap(phaselist)] > 1} {
-    # need to select a phase
-    .l config -text "Select a phase"
-    foreach p $expmap(phaselist) {
-        set n [phaseinfo $p name]
-        pack [radiobutton .p$p -text "Phase $p: $n" -variable phase \
-                -value $p] -anchor w
+    # count non-mm phases
+    set i 0
+    foreach p $expmap(phaselist) type $expmap(phasetype) {
+        if {$type != 4} {incr i; set phase $p}
     }
-    wm withdraw .
-    update idletasks
-    set x [expr {[winfo screenwidth .]/2 - [winfo reqwidth .]/2}]
-    set y [expr {[winfo screenheight .]/2 - [winfo reqheight .]/2}]
-    wm geom . +$x+$y
-    wm deiconify .
-    grab .
-    focus .
-    tkwait variable phase
+    if {$i > 1} {
+        # need to select a phase
+        .l config -text "Select a phase"
+        foreach p $expmap(phaselist) type $expmap(phasetype) {
+            set n [phaseinfo $p name]
+            pack [radiobutton .p$p -text "Phase $p: $n" -variable phase \
+                    -value $p] -anchor w
+            if {$type == 4} {
+                .p$p config -state disabled
+            }
+        }
+        wm withdraw .
+        update idletasks
+        set x [expr {[winfo screenwidth .]/2 - [winfo reqwidth .]/2}]
+        set y [expr {[winfo screenheight .]/2 - [winfo reqheight .]/2}]
+        wm geom . +$x+$y
+        wm deiconify .
+        grab .
+        focus .
+        tkwait variable phase
+    }
 } else {
     set phase $expmap(phaselist)
+    if {$expmap(phasetype) == 4} {
+        tk_dialog .err {Only mm phase} \
+                "$argv0: unable to read from $argv\nOnly a macromolecular phase is present." \
+                error 0 Continue
+        exit
+    }
 }
 foreach v {a b c alpha beta gamma} {