From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Tue, 8 Apr 2003 18:07:36 +0000 (+0000)
Subject: more tightening of display for WinCE
X-Git-Tag: tkcon-2-4~18
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=52d399c80f992905c2da70ca92bae1ebafbb008d;p=tkcon

more tightening of display for WinCE
---

diff --git a/tkcon.tcl b/tkcon.tcl
index dceaa36..d3e82c4 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -582,11 +582,15 @@ proc ::tkcon::InitUI {title} {
 	$con configure -font fixed
     }
     set OPT(font) [$con cget -font]
+    ## Scrollbar
+    set PRIV(scrolly) [scrollbar $w.sy -takefocus 0 -bd 1 \
+	    -command [list $con yview]]
     if {!$PRIV(WWW)} {
 	if {[string match "Windows CE" $::tcl_platform(os)]} {
-	    $con configure -bd 0
+	    $w.sy configure -width 10
 	    catch {font create tkconfixed}
-	    font configure tkconfixed -family Courier -size 8
+	    font configure tkconfixed -family Tahoma -size 8
+	    $con configure -font tkconfixed -bd 0 -padx 0 -pady 0
 	    set cw [font measure tkconfixed "0"]
 	    set ch [font metrics tkconfixed -linespace]
 	    set sw [winfo screenwidth $con]
@@ -610,9 +614,6 @@ proc ::tkcon::InitUI {title} {
     if {[catch {menu $w.mbar} PRIV(menubar)]} {
 	set PRIV(menubar) [frame $w.mbar -relief raised -bd 1]
     }
-    ## Scrollbar
-    set PRIV(scrolly) [scrollbar $w.sy -takefocus 0 -bd 1 \
-	    -command [list $con yview]]
 
     InitMenus $PRIV(menubar) $title
     Bindings
@@ -630,7 +631,8 @@ proc ::tkcon::InitUI {title} {
 	    -textvariable ::tkcon::PRIV(StatusMode)
     label $sbar.cursor -relief sunken -bd 1 -anchor w -width 6 \
 	    -textvariable ::tkcon::PRIV(StatusCursor)
-    grid $sbar.attach $sbar.mode $sbar.cursor -sticky news -padx 1
+    set padx [expr {![string match "Windows CE" $::tcl_platform(os)]}]
+    grid $sbar.attach $sbar.mode $sbar.cursor -sticky news -padx $padx
     grid columnconfigure $sbar 0 -weight 1
     grid columnconfigure $sbar 1 -weight 1
     grid columnconfigure $sbar 2 -weight 0