Changeset 797

Timestamp:

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

Author:

toby

Message:

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

File:

• trunk/widplt (modified) (3 diffs, 3 props)

trunk/widplt

@@ -16 +16 @@
     }
 }
+# get name of script
+set expgui(script) [info script]
+# what are we running here?
 set program [file tail $argv0]
+# fix up problem with starkit tcl
+if {$program != "absplt" && $program != "widplt"} {
+        set program [file tail $expgui(script)]
+}
 
 if [catch {package require BLT} errmsg] {
@@ -1086 +1093 @@
 
 #----------------------------------------------------------------
-# where are we?
-set expgui(script) [info script]
-# translate links -- go six levels deep
+# find location of other files relative to the current script
+# 1st, translate links -- go six levels deep
 foreach i {1 2 3 4 5 6} {
     if {[file type $expgui(script)] == "link"} {
@@ -1225 +1231 @@
 pack [menubutton .a.help -text Help -underline 0 -menu .a.help.menu] -side right
 menu .a.help.menu -tearoff 0
+if {$program == "absplt"}  {
+    .a.help.menu add command -command "MakeWWWHelp expgui.html ABSPLT" \
+            -label "Web page"
+} else {
+    .a.help.menu add command -command "MakeWWWHelp expgui.html WIDPLT" \
+            -label "Web page"
+}
+if {![catch {package require tkcon} errmsg]} {
+    .a.help.menu add command -label "Open console" -command {tkcon show}
+} elseif {$tcl_platform(platform) == "windows"} {
+    .a.help.menu add command -label "Open console" -command {console show}
+}
 .a.help.menu add command -command aboutwidplot -label About