diff options
Diffstat (limited to 'library/console.tcl')
| -rw-r--r-- | library/console.tcl | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/library/console.tcl b/library/console.tcl index b473dd4..0dc6f63 100644 --- a/library/console.tcl +++ b/library/console.tcl @@ -48,8 +48,7 @@ proc ::tk::ConsoleInit {} { wm withdraw . } - if {$tcl_platform(platform) eq "macintosh" - || [tk windowingsystem] eq "aqua"} { + if {[tk windowingsystem] eq "aqua"} { set mod "Cmd" } else { set mod "Ctrl" @@ -66,8 +65,7 @@ proc ::tk::ConsoleInit {} { -underline 0 -command {wm withdraw .} .menubar.file add command -label [mc "Clear Console"] \ -underline 0 -command {.console delete 1.0 "promptEnd linestart"} - if {$tcl_platform(platform) eq "macintosh" - || [tk windowingsystem] eq "aqua"} { + if {[tk windowingsystem] eq "aqua"} { .menubar.file add command -label [mc "Quit"] \ -command exit -accel Cmd-Q } else { @@ -103,9 +101,6 @@ proc ::tk::ConsoleInit {} { pack .sb -side right -fill both pack $con -fill both -expand 1 -side left switch -exact $tcl_platform(platform) { - "macintosh" { - $con configure -font {Monaco 10 normal} -highlightthickness 0 - } "windows" { $con configure -font systemfixed } @@ -467,13 +462,9 @@ proc ::tk::ConsoleBind {w} { } bind Console <F9> { eval destroy [winfo child .] - if {$tcl_platform(platform) eq "macintosh"} { - if {[catch {source [file join $tk_library console.tcl]}]} {source -rsrc console} - } else { - source [file join $tk_library console.tcl] - } + source [file join $tk_library console.tcl] } - if {$::tcl_platform(platform) eq "macintosh" || [tk windowingsystem] eq "aqua"} { + if {[tk windowingsystem] eq "aqua"} { bind Console <Command-q> { exit } |