Changeset 794

Timestamp:

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

Author:

toby

Message:

# on 2004/05/13 23:42:30, toby did:
open console

File:

• trunk/lstview (modified) (1 diff, 3 props)

trunk/lstview

@@ -697 +697 @@
 pack [menubutton .a.help -text Help -underline 0 -menu .a.help.menu] -side right
 menu .a.help.menu
+.a.help.menu add command -command "MakeWWWHelp expgui.html LSTVIEW" \
+    -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 aboutgsas -label "About"