Changeset 809

Timestamp:

Dec 4, 2009 5:12:25 PM (13 years ago)

Author:

toby

Message:

# on 2004/09/28 22:31:01, toby did:
use winutils or winexec
catch expgui when called with .Oxx (archived .EXP) files

to eventually offer rename choices

catch Mac Reload EXP? bug

File:

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

trunk/expgui

@@ -58 +58 @@
         set expgui(expfile) [lindex $argv 0]
     }
-    if {[string toupper [file extension $expgui(expfile)]] != ".EXP"} {
+    if {[string match -nocase {.o[0-9a-f][0-9a-f]} \
+             [file extension $expgui(expfile)]]} {
+        # this is an archived file -- need to handle this later
+        tk_dialog .expFileErrorMsg "No archived files yet" \
+            "At present you must use open (expnam) to open archived files" warning 0 "Continue"
+        set expgui(expfile) {}
+    } elseif {[string toupper [file extension $expgui(expfile)]] != ".EXP"} {
         append expgui(expfile) ".EXP"
     }
@@ -177 +183 @@
 if {$tcl_platform(platform) == "windows" \
         && $tcl_platform(os) == "Windows 95"} {
-    if [catch {package require winexec}] {
+    if {[catch {package require winexec}] && \
+            [catch {package require winutils}]} {
         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"
+            -message "Error -- Unable to load the WINEXEC or the WINUTILS package. This is needed in Win-95/-98/-me machines" \
+            -icon error -type Quit -default quit \
+            -helplink "expgui_Win_readme.html Winexec"
         destroy .
     }
@@ -854 +861 @@
     #} else {
 
+    # compute widths with a catch, since this has been showing an error
+    # at least for one Mac user
+    set askwid 40
+    catch {set askwid [winfo reqwidth $w]}
+    set askhgt 80
+    catch {set askhgt [winfo reqheight $w]}
         # for now, always center the message over the main window
         # center the new window in the middle of the parent
         set x [expr [winfo x .] + [winfo width .]/2 - \
-                [winfo reqwidth $w]/2 - [winfo vrootx .]]
+                $askwid/2 - [winfo vrootx .]]
         set y [expr [winfo y .] + [winfo height .]/2 - \
-                [winfo reqheight $w]/2 - [winfo vrooty .]]
+                $askhgt/2 - [winfo vrooty .]]
         wm geom $w +$x+$y
     #}