Changeset 931 for trunk/addcmds.tcl


Ignore:
Timestamp:
Dec 4, 2009 7:39:46 PM (11 years ago)
Author:
toby
Message:

include rest of files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/addcmds.tcl

    r930 r931  
    880880    if {$expgui(showexptool) || $errmsg != ""} {
    881881        if {$errmsg != ""} {
    882             set err 1
     882            set errcode 1
    883883            append errmsg "\n" $expgui(exptoolout)
     884            set err "error"
    884885        } else {
    885             set err 0
     886            set errcode 0
    886887            set errmsg $expgui(exptoolout)
    887888        }
    888889        set msg "Please review the result from adding the histogram"
    889890        if {$errmsg != ""} {append msg "\nIt appears an error occurred!"}
    890         ShowBigMessage $np $msg $errmsg OK "" $err
    891     }
    892     # set the powpref warning (2 = required)
    893     set expgui(needpowpref) 2
    894     set msg "A histogram was added"
    895     if {[string first $msg $expgui(needpowpref_why)] == -1} {
    896         append expgui(needpowpref_why) "\t$msg\n"
     891        ShowBigMessage $np $msg $errmsg OK "" $errcode
    897892    }
    898893    # select the most recently added histogram
    899     if {!$err != ""} {
     894    if {$err != ""} {
     895        # set the powpref warning (2 = required)
     896        set expgui(needpowpref) 2
     897        set msg "A histogram was added"
     898        if {[string first $msg $expgui(needpowpref_why)] == -1} {
     899            append expgui(needpowpref_why) "\t$msg\n"
     900        }
    900901        set i [llength $expmap(histlistboxcontents)]
    901902        if {$i > 0} {
Note: See TracChangeset for help on using the changeset viewer.