Changeset 182 for trunk/gsascmds.tcl


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

# on 2000/06/01 02:55:03, toby did:
add concurrent arg to runGSASwEXP (for RUNPLOT in histogram addition)
(NB this is incorrect, change should be to runGSASprog)
add coments, fix creation with lowercase .EXP filenames
fix expansion of disagl box

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2000/05/17 18:38:55 to 2000/06/01 02:55:03
    • Property rcs:lines changed from +114 -3 to +14 -6
    • Property rcs:rev changed from 1.17 to 1.18
    r138 r182  
    163163
    164164# run a GSAS program that requires an experiment file for input/output
    165 proc runGSASwEXP {proglist} {
     165proc runGSASwEXP {proglist "concurrent 0"} {
    166166    global expgui tcl_platform
    167167    # Save the current exp file
     
    183183        }
    184184    }
    185     forknewterm "$prog -- $expnam" $cmd 0 1 1
     185    forknewterm "$prog -- $expnam" $cmd $concurrent 1 1
    186186    # load the changed .EXP file automatically?
    187187    if {$expgui(autoexpload)} {
     
    189189        loadexp $expgui(expfile)
    190190    }
    191 #    wm deiconify .
    192191}
    193192
     
    979978        return
    980979    }
    981     #set expgui(FileMenuEXPNAM) [string toupper $expgui(FileMenuEXPNAM)]
     980    # append a .EXP if not present
    982981    if {[file extension $expgui(FileMenuEXPNAM)] == ""} {
    983982        append expgui(FileMenuEXPNAM) ".EXP"
    984983    }
     984    # flag files that end in something other than .EXP .exp or .Exp...
    985985    if {[string toupper [file extension $expgui(FileMenuEXPNAM)]] != ".EXP"} {
    986986        tk_dialog .expFileErrorMsg "File Open Error" \
     
    989989        return
    990990    }
     991    # check on the file status
    991992    set file [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
    992993    if {$mode == "new" && [file exists $file]} {
     
    996997        if $ans {destroy .file}
    997998        return
     999    }
     1000    # if file does not exist in case provided, set the name to all
     1001    # upper case letters, since that is the best choice.
     1002    # if it does exist, read from it as is. For UNIX we will force uppercase later.
     1003    if {![file exists $file]} {
     1004        set expgui(FileMenuEXPNAM) [string toupper $expgui(FileMenuEXPNAM)]
     1005        set file [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
    9981006    }
    9991007    if {$mode == "old" && ![file exists $file]} {
     
    16561664        }
    16571665       
    1658         grid columnconfigure .disagl 1 -weight 1
     1666        grid columnconfigure .disagl 0 -weight 1
    16591667        grid rowconfigure .disagl 1 -weight 1
    16601668        wm title .disagl "DISAGL results $expgui(expfile)"
Note: See TracChangeset for help on using the changeset viewer.