Changeset 742 for trunk/gsascmds.tcl

Timestamp:

Dec 4, 2009 5:11:15 PM (14 years ago)

Author:

toby

Message:

# on 2003/11/05 22:16:55, toby did:
add mozilla to browser list
fix missing browser error msg
fix bug in Chinese Windows where history record gets corrupted

File:

• trunk/gsascmds.tcl (modified) (4 diffs, 3 props)

trunk/gsascmds.tcl

@@ -852 +852 @@
 #------------------------------------------------------------------------------
 # browse a WWW page with URL. The URL may contain a #anchor
-# On UNIX assume netscape is in the path or env(BROWSER) is loaded. 
+# On UNIX assume netscape or mozilla is in the path or env(BROWSER) is loaded. 
 # On Windows search the registry for a browser. Mac branch not tested.
 # This is taken from http://mini.net/cgi-bin/wikit/557.html with many thanks
@@ -866 +866 @@
                 }
             }
+            if {![info exists env(BROWSER)]} {
+                set progs [auto_execok mozilla]
+                if {[llength $progs]} {
+                    set env(BROWSER) [list $progs]
+                }
+            }
             if {[info exists env(BROWSER)]} {
                 if {[catch {exec $env(BROWSER) -remote openURL($url)}]} {
@@ -876 +882 @@
                 MyMessageBox -parent . -title "No Browser" \
                         -message "Could not find a browser. Netscape is not in path. Define environment variable BROWSER to be full path name of browser." \
-                        -icon warn
+                        -icon warning
             }
         }
@@ -1241 +1247 @@
     if {$expgui(archive)} archiveexp
     # add a history record
-    exphistory add " EXPGUI [lindex $expgui(Revision) 1] [lindex $expmap(Revision) 1] ($expgui(changed) changes) -- [clock format [clock seconds]]"
+    exphistory add " EXPGUI [lindex $expgui(Revision) 1] [lindex $expmap(Revision) 1] ($expgui(changed) changes) -- [clock format [clock seconds] -format {%D %T}]"
     # now save the file
     expwrite $expgui(expfile)