Changeset 796 for trunk/expgui


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

# on 2004/05/13 23:48:09, toby did:
add open console

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 2004/04/27 15:46:48 to 2004/05/13 23:48:09
    • Property rcs:lines changed from +2 -2 to +9 -2
    • Property rcs:rev changed from 1.71 to 1.72
    r788 r796  
    41064106$expgui(fm).help.menu add command -command "MakeWWWHelp menu" \
    41074107        -label "Help on menu"
     4108if {![catch {package require tkcon} errmsg]} {
     4109    $expgui(fm).help.menu add command -label "Open console" \
     4110        -command {tkcon show}
     4111} elseif {$tcl_platform(platform) == "windows"} {
     4112    $expgui(fm).help.menu add command -label "Open console" \
     4113        -command {console show}
     4114}
    41084115foreach c {h H} {bind . <Alt-$c> [list showhelp]}
    41094116# define help actions
Note: See TracChangeset for help on using the changeset viewer.