Changeset 797


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

# on 2004/05/13 23:48:46, toby did:
add open console
deal with starkit problems

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/widplt

    • Property rcs:date changed from 2003/11/21 00:46:52 to 2004/05/13 23:48:46
    • Property rcs:lines changed from +152 -28 to +23 -5
    • Property rcs:rev changed from 1.16 to 1.17
    r756 r797  
    1616    }
    1717}
     18# get name of script
     19set expgui(script) [info script]
     20# what are we running here?
    1821set program [file tail $argv0]
     22# fix up problem with starkit tcl
     23if {$program != "absplt" && $program != "widplt"} {
     24        set program [file tail $expgui(script)]
     25}
    1926
    2027if [catch {package require BLT} errmsg] {
     
    10861093
    10871094#----------------------------------------------------------------
    1088 # where are we?
    1089 set expgui(script) [info script]
    1090 # translate links -- go six levels deep
     1095# find location of other files relative to the current script
     1096# 1st, translate links -- go six levels deep
    10911097foreach i {1 2 3 4 5 6} {
    10921098    if {[file type $expgui(script)] == "link"} {
     
    12251231pack [menubutton .a.help -text Help -underline 0 -menu .a.help.menu] -side right
    12261232menu .a.help.menu -tearoff 0
     1233if {$program == "absplt"}  {
     1234    .a.help.menu add command -command "MakeWWWHelp expgui.html ABSPLT" \
     1235            -label "Web page"
     1236} else {
     1237    .a.help.menu add command -command "MakeWWWHelp expgui.html WIDPLT" \
     1238            -label "Web page"
     1239}
     1240if {![catch {package require tkcon} errmsg]} {
     1241    .a.help.menu add command -label "Open console" -command {tkcon show}
     1242} elseif {$tcl_platform(platform) == "windows"} {
     1243    .a.help.menu add command -label "Open console" -command {console show}
     1244}
    12271245.a.help.menu add command -command aboutwidplot -label About
    12281246
Note: See TracChangeset for help on using the changeset viewer.