Changeset 545 for trunk/dumpexp.tcl


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dumpexp.tcl

    • Property rcs:date changed from 2001/10/14 05:37:32 to 2002/01/22 23:12:36
    • Property rcs:rev changed from 1.1 to 1.2
    • Property rcs:lines set to +31 -15
    r459 r545  
    7676}
    7777if {[llength $expmap(phaselist)] > 1} {
    78     # need to select a phase
    79     .l config -text "Select a phase"
    80     foreach p $expmap(phaselist) {
    81         set n [phaseinfo $p name]
    82         pack [radiobutton .p$p -text "Phase $p: $n" -variable phase \
    83                 -value $p] -anchor w
     78    # count non-mm phases
     79    set i 0
     80    foreach p $expmap(phaselist) type $expmap(phasetype) {
     81        if {$type != 4} {incr i; set phase $p}
    8482    }
    85     wm withdraw .
    86     update idletasks
    87     set x [expr {[winfo screenwidth .]/2 - [winfo reqwidth .]/2}]
    88     set y [expr {[winfo screenheight .]/2 - [winfo reqheight .]/2}]
    89     wm geom . +$x+$y
    90     wm deiconify .
    91     grab .
    92     focus .
    93     tkwait variable phase
     83    if {$i > 1} {
     84        # need to select a phase
     85        .l config -text "Select a phase"
     86        foreach p $expmap(phaselist) type $expmap(phasetype) {
     87            set n [phaseinfo $p name]
     88            pack [radiobutton .p$p -text "Phase $p: $n" -variable phase \
     89                    -value $p] -anchor w
     90            if {$type == 4} {
     91                .p$p config -state disabled
     92            }
     93        }
     94        wm withdraw .
     95        update idletasks
     96        set x [expr {[winfo screenwidth .]/2 - [winfo reqwidth .]/2}]
     97        set y [expr {[winfo screenheight .]/2 - [winfo reqheight .]/2}]
     98        wm geom . +$x+$y
     99        wm deiconify .
     100        grab .
     101        focus .
     102        tkwait variable phase
     103    }
    94104} else {
    95105    set phase $expmap(phaselist)
     106    if {$expmap(phasetype) == 4} {
     107        tk_dialog .err {Only mm phase} \
     108                "$argv0: unable to read from $argv\nOnly a macromolecular phase is present." \
     109                error 0 Continue
     110        exit
     111    }
    96112}
    97113foreach v {a b c alpha beta gamma} {
Note: See TracChangeset for help on using the changeset viewer.