From 651e5e403310f5bfad6cf93bf666a21dad55c9d2 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Mon, 1 Mar 2004 21:56:11 +0000 Subject: [PATCH] * tkcon.tcl: correct 'exit' in extra tabs. make tkconfixed font Courier -12 (was Courier 10), use it on unix. Add extra space for OS X/Aqua in statusbar (for resize handle). Only use -overrelief in 8.4 --- ChangeLog | 7 +++++++ tkcon.tcl | 15 +++++++++++---- 2 files changed, 18 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 120c391..f4ede6d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2004-03-01 Jeff Hobbs + + * tkcon.tcl: correct 'exit' in extra tabs. + make tkconfixed font Courier -12 (was Courier 10), use it on unix. + Add extra space for OS X/Aqua in statusbar (for resize handle). + Only use -overrelief in 8.4 + 2004-02-12 Jeff Hobbs * tkcon.tcl (::tkcon::InitUI): check existence of tcl_platform(os) diff --git a/tkcon.tcl b/tkcon.tcl index 84bb200..c670512 100755 --- a/tkcon.tcl +++ b/tkcon.tcl @@ -562,7 +562,7 @@ proc ::tkcon::InitUI {title} { } set PRIV(base) $w - catch {font create tkconfixed -family Courier -size 10} + catch {font create tkconfixed -family Courier -size -12} set PRIV(statusbar) [set sbar [frame $w.fstatus]] set PRIV(tabframe) [frame $sbar.tabs] @@ -573,6 +573,10 @@ proc ::tkcon::InitUI {title} { grid $sbar.tabs $sbar.cursor -sticky ew -padx $padx grid configure $sbar.tabs -sticky nsw grid columnconfigure $sbar 0 -weight 1 + if {$::tcl_version >= 8.4 && [tk windowingsystem] == "aqua"} { + # give space for the corner resize handle + grid columnconfigure $sbar 2 -minsize 20 + } ## Create console tab set con [InitTab $w] @@ -648,7 +652,7 @@ proc ::tkcon::InitTab {w} { $con configure -font tkconfixed } } else { - $con configure -font fixed + $con configure -font tkconfixed } set OPT(font) [$con cget -font] bindtags $con [list $con TkConsole TkConsolePost $PRIV(root) all] @@ -711,7 +715,7 @@ proc ::tkcon::GotoTab {con} { variable ATTACH set numtabs [llength $PRIV(tabs)] - if {$numtabs == 1} { return } + #if {$numtabs == 1} { return } if {[regexp {^[0-9]+$} $con]} { set curtab [lsearch -exact $PRIV(tabs) $PRIV(console)] @@ -1579,8 +1583,11 @@ proc ::tkcon::InterpPkgs {app type} { -yscrollcommand [list $t.lrsy set] scrollbar $t.llsy -bd 1 -command [list $t.loadable yview] scrollbar $t.lrsy -bd 1 -command [list $t.loaded yview] - button $t.load -bd 1 -text ">>" -relief flat -overrelief raised \ + button $t.load -bd 1 -text ">>" \ -command [list ::tkcon::InterpPkgLoad $app $type $t.loadable] + if {$::tcl_version >= 8.4} { + $t.load configure -relief flat -overrelief raised + } set f [frame $t.btns] button $f.refresh -width 8 -text "Refresh" -command [info level 0] -- 2.23.0