Changeset 742 for trunk/gsascmds.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:11:15 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2003/08/11 19:28:54 to 2003/11/05 22:16:55
    • Property rcs:lines changed from +11 -11 to +10 -4
    • Property rcs:rev changed from 1.51 to 1.52
    r731 r742  
    852852#------------------------------------------------------------------------------
    853853# browse a WWW page with URL. The URL may contain a #anchor
    854 # On UNIX assume netscape is in the path or env(BROWSER) is loaded.
     854# On UNIX assume netscape or mozilla is in the path or env(BROWSER) is loaded.
    855855# On Windows search the registry for a browser. Mac branch not tested.
    856856# This is taken from http://mini.net/cgi-bin/wikit/557.html with many thanks
     
    866866                }
    867867            }
     868            if {![info exists env(BROWSER)]} {
     869                set progs [auto_execok mozilla]
     870                if {[llength $progs]} {
     871                    set env(BROWSER) [list $progs]
     872                }
     873            }
    868874            if {[info exists env(BROWSER)]} {
    869875                if {[catch {exec $env(BROWSER) -remote openURL($url)}]} {
     
    876882                MyMessageBox -parent . -title "No Browser" \
    877883                        -message "Could not find a browser. Netscape is not in path. Define environment variable BROWSER to be full path name of browser." \
    878                         -icon warn
     884                        -icon warning
    879885            }
    880886        }
     
    12411247    if {$expgui(archive)} archiveexp
    12421248    # add a history record
    1243     exphistory add " EXPGUI [lindex $expgui(Revision) 1] [lindex $expmap(Revision) 1] ($expgui(changed) changes) -- [clock format [clock seconds]]"
     1249    exphistory add " EXPGUI [lindex $expgui(Revision) 1] [lindex $expmap(Revision) 1] ($expgui(changed) changes) -- [clock format [clock seconds] -format {%D %T}]"
    12441250    # now save the file
    12451251    expwrite $expgui(expfile)
Note: See TracChangeset for help on using the changeset viewer.