From 52d399c80f992905c2da70ca92bae1ebafbb008d Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Tue, 8 Apr 2003 18:07:36 +0000 Subject: [PATCH] more tightening of display for WinCE --- tkcon.tcl | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) 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 -- 2.23.0