Changeset 473 for trunk/excledt.tcl

Timestamp:

Dec 4, 2009 5:06:45 PM (14 years ago)

Author:

toby

Message:

# on 2001/10/31 19:24:11, toby did:
unsuccessful Win95 fixes

File:

• trunk/excledt.tcl (modified) (2 diffs, 3 props)

trunk/excledt.tcl

@@ -22 +22 @@
 } else {
     set graph(legend) [lindex $argv 2]
-}
-
-if {$tcl_platform(platform) == "windows"} {
-    set graph(printout) 1
-} else {
-    set graph(printout) 0
 }
 
@@ -1538 +1532 @@
 source [file join $expgui(scriptdir) gsascmds.tcl]
 source [file join $expgui(scriptdir) readexp.tcl]
-# do not need archiving here
+if {$tcl_platform(platform) == "windows"} {
+    # platform-specific code
+    if {$tcl_platform(os) == "Windows 95"} {
+        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 .
+        }
+    }
+    set graph(printout) 1
+} else {
+    set graph(printout) 0
+}
+
+# do not need archiving or checking for changed files here
 proc savearchiveexp {} {}
+proc whenidle {} {}
 
 source [file join $expgui(scriptdir) opts.tcl]