Changeset 473


Ignore:
Timestamp:
Dec 4, 2009 5:06:45 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/excledt.tcl

    • Property rcs:date changed from 2001/09/25 23:28:58 to 2001/10/31 19:24:11
    • Property rcs:lines changed from +54 -21 to +20 -9
    • Property rcs:rev changed from 1.3 to 1.4
    r448 r473  
    2222} else {
    2323    set graph(legend) [lindex $argv 2]
    24 }
    25 
    26 if {$tcl_platform(platform) == "windows"} {
    27     set graph(printout) 1
    28 } else {
    29     set graph(printout) 0
    3024}
    3125
     
    15381532source [file join $expgui(scriptdir) gsascmds.tcl]
    15391533source [file join $expgui(scriptdir) readexp.tcl]
    1540 # do not need archiving here
     1534if {$tcl_platform(platform) == "windows"} {
     1535    # platform-specific code
     1536    if {$tcl_platform(os) == "Windows 95"} {
     1537        if [catch {package require winexec}] {
     1538            MyMessageBox -parent . -title "WINEXEC Error" \
     1539                    -message "Error -- Unable to load the WINEXEC package. This is needed in Win95 machines" \
     1540                    -icon error -type Quit -default quit \
     1541                    -helplink "expgui_Win_readme.html Winexec"
     1542            destroy .
     1543        }
     1544    }
     1545    set graph(printout) 1
     1546} else {
     1547    set graph(printout) 0
     1548}
     1549
     1550# do not need archiving or checking for changed files here
    15411551proc savearchiveexp {} {}
     1552proc whenidle {} {}
    15421553
    15431554source [file join $expgui(scriptdir) opts.tcl]
Note: See TracChangeset for help on using the changeset viewer.