Changeset 327

Timestamp:

Dec 4, 2009 5:04:12 PM (14 years ago)

Author:

toby

Message:

# on 2000/10/18 00:00:05, toby did:
move platform-specific runtime code from gsascmds.tcl to here so
that it gets run after the local config files are read
Switch tk_dialog to MyMessageBox? and add WWW references for soem error mgs
disable add histogram until after a phase has been added
add update idletasks to profile, so that something happens right away

File:

• trunk/expgui (modified) (5 diffs, 3 props)

trunk/expgui

@@ -31 +31 @@
 if {$tcl_version < 8.0} {
     tk_dialog .expFileErrorMsg "Version Error" \
-            "The program requires Tcl/Tk version 8.0 or higher" error 0 "Exit"
+            "EXPGUI requires Tcl/Tk version 8.0 or higher" error 0 "Exit"
     exit
 }
@@ -143 +143 @@
     source [file join ~ .gsas_config]
 }
+#---------------------------------------------------------------------------
+# platform-specific code
 if {$tcl_platform(platform) == "windows"} {
     set expgui(exptool) [file join $expgui(gsasexe) exptool.exe]
+    if [catch {package require winexec}] {
+        MyMessageBox -parent . -title "WINEXEC Error" \
+                -message "Error -- Unable to load the WINEXEC package. This is needed in Win95 machines" \
+                -icon error -type Quit -default quit \
+                -helplink "expgui_Win_readme.html Winexec"
+        destroy .
+    }
+    if ![file exists [file join $expgui(gsasdir) fonts grfont.dat]] {
+        MyMessageBox -parent . -title "PGPLOT Error" \
+                -message "Warning -- Unable to find file GRFONT.DAT. GSAS graphics will not work. Is GSAS correctly installed?" \
+                -icon warning -type {"Limp Ahead"} -default "Limp Ahead" \
+                -helplink "expguierr.html NoPGPLOT"
+    }
 } else {
     set expgui(exptool) [file join $expgui(gsasexe) exptool]
+    if ![file exists [file join $expgui(gsasdir) pgl grfont.dat]] {
+        MyMessageBox -parent . -title "PGPLOT Error" \
+                -message "Warning -- Unable to find file grfont.dat. GSAS graphics will not work. Is GSAS correctly installed?" \
+                -icon warning -type {"Limp Ahead"} -default "Limp Ahead" \
+                -helplink "expguierr.html NoPGPLOT"
+    }
+    if [catch {set env(GSASBACKSPACE)}] {set env(GSASBACKSPACE) 1}
 }
 #---------------------------------------------------------------------------
@@ -152 +174 @@
     if ![file exists $expgui(expfile)] {
         update
-        set ans [tk_dialog .expFileErrorMsg "File Open Error" \
-                "File [file tail $expgui(expfile)] does not exist in [file dirname $expgui(expfile)]" \
-                error 0 "Create" "Open other"]
-        if $ans {set expgui(expfile) {}}
+        set ans [
+        MyMessageBox -parent . -title "File Open Error" \
+                -message "File [file tail $expgui(expfile)] does not exist in [file dirname $expgui(expfile)]. OK to create?" \
+                -icon question -type {"Select other" "Create"} -default "select other" \
+                -helplink "expguierr.html OpenErr"
+        ]
+        if {[string tolower $ans] != "create"} {set expgui(expfile) {}}
     }
 }
@@ -1281 +1306 @@
     if {$expgui(globalmode) == 0 && [llength $expgui(curhist)] > 1} {
         set expgui(curhist) [lindex $expgui(curhist) 0] 
+    }
+
+    # disable the add histogram button if no phases are present
+    if {[llength $expmap(phaselist)] == 0} {
+        $expgui(histFrame).newh configure -state disabled
+    } else {
+        $expgui(histFrame).newh configure -state normal
     }
 
@@ -1860 +1892 @@
     # destroy the contents of the frame
     eval destroy [winfo children $expgui(ProfileBox).f]
+    # since the next steps can take a while, do a screen update
+    update idletasks
 
     if {$expgui(globalmode) == 0} {