* 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

diff --git a/ChangeLog b/ChangeLog
index 120c3910eae2933f9ce6113ec0b769ad15def87f..f4ede6dcf39a517eff34323b4038611f8d345207 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2004-03-01  Jeff Hobbs  <jeffh@ActiveState.com>
+
+       * 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  <jeffh@ActiveState.com>
 
        * tkcon.tcl (::tkcon::InitUI): check existence of tcl_platform(os)

diff --git a/tkcon.tcl b/tkcon.tcl
index 84bb2004cf8f5055801626b8a0fbc172c9ace3c9..c670512f7aad654a3a75c1f28d9713a5e802ff6d 100755 (executable)
--- 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]