Changeset 201 for trunk/gsascmds.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:02:05 PM (14 years ago)
Author:
toby
Message:

# on 2000/06/09 03:52:16, toby did:
Add warning when PGPLOT font file is not found

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2000/06/01 02:55:03 to 2000/06/09 03:52:16
    • Property rcs:lines changed from +14 -6 to +7 -1
    • Property rcs:rev changed from 1.18 to 1.19
    r182 r201  
    88        destroy .
    99    }
     10    if ![file exists [file join $expgui(gsasdir) fonts grfont.dat]] {
     11        tk_dialog .err "PGPLOT Error" \
     12                "Warning -- Unable to find file GRFONT.DAT. GSAS graphics will not work. Is GSAS correctly installed?" \
     13                warning 0 "Limp Ahead"
     14    }
     15
    1016    if {$tcl_platform(os) == "Windows 95" || $tcl_platform(os) == "Windows 98" } {
    1117        # this creates a DOS box to run a program in
Note: See TracChangeset for help on using the changeset viewer.