Changeset 953 for trunk/expgui
- Timestamp:
- Mar 11, 2010 2:00:14 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/expgui
r952 r953 80 80 81 81 # location for web pages, if not found locally 82 set expgui(website) www.ncnr.nist.gov/xtal/software/expgui82 set expgui(website) 11bm.xor.aps.anl.gov/expguidoc/ 83 83 # default for archive mode = on 84 84 set expgui(archive) 1 … … 695 695 \n\n\ 696 696 Generalized Structure Analysis System\n(GSAS)\n\ 697 A. C. Larson and\n R. B. Von Dreele,\n LANSCE, Los Alamos\n\n\ 697 R. B. Von Dreele,\n 698 APS, Argonne National Laboratory\n 699 and A. C. Larson, Los Alamos (retired)\n\n\ 698 700 " \ 699 701 info 0 OK … … 4165 4167 $expgui(fm).help.menu add command -command "MakeWWWHelp menu" \ 4166 4168 -label "Help on menu" 4167 if {![catch {package require tkcon} errmsg]} { 4168 $expgui(fm).help.menu add command -label "Open console" \ 4169 -command {tkcon show} 4170 } elseif {$tcl_platform(platform) == "windows"} { 4169 if {$tcl_platform(platform) == "windows"} { 4171 4170 $expgui(fm).help.menu add command -label "Open console" \ 4172 4171 -command {console show} 4173 4172 } 4173 if {![catch {package require tkcon} errmsg]} { 4174 $expgui(fm).help.menu add command -label "Open tkcon console" \ 4175 -command {tkcon show} 4176 } 4174 4177 # add update commands to buffer 4175 4178 if [CheckUpdateImplemented $expgui(gsasdir)] { 4176 $expgui(fm). help.menu add command -command CheckAndDoUpdate -label "Update GSAS/EXPGUI"4177 # $expgui(fm). help.menu add cascade -menu $expgui(fm).help.menu.track \4179 $expgui(fm).file.menu add command -command CheckAndDoUpdate -label "Update GSAS/EXPGUI" 4180 # $expgui(fm).file.menu add cascade -menu $expgui(fm).file.menu.track \ 4178 4181 # -label "Select EXPGUI version" 4179 # menu $expgui(fm). help.menu.track4180 # $expgui(fm). help.menu.track add radiobutton -command {SetSVNbranch trunk} -label Development -value trunk \4182 # menu $expgui(fm).file.menu.track 4183 # $expgui(fm).file.menu.track add radiobutton -command {SetSVNbranch trunk} -label Development -value trunk \ 4181 4184 # -variable expgui(SVNversion) 4182 # $expgui(fm). help.menu.track add radiobutton -command {SetSVNbranch stable} -label Standard -value stable \4185 # $expgui(fm).file.menu.track add radiobutton -command {SetSVNbranch stable} -label Standard -value stable \ 4183 4186 # -variable expgui(SVNversion) 4184 4187 # get info about the current CMPR version on the server. Someday we might want to compare this … … 4195 4198 } 4196 4199 } else { 4197 $expgui(fm). help.menu add command -label "Show update problem" -command {4200 $expgui(fm).file.menu add command -label "Show update problem" -command { 4198 4201 if {! [file exists [file join $expgui(gsasdir) .svn]]} { 4199 4202 MyMessageBox -parent . -title "No .svn" \
Note: See TracChangeset
for help on using the changeset viewer.