From c0aac47d247d96ee5856bd13566cb816f2c78ef6 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Thu, 12 Feb 2004 17:34:09 +0000 Subject: [PATCH] * tkcon.tcl (::tkcon::InitUI): check existence of tcl_platform(os) as it doesn't exist in the Tcl plugin. --- ChangeLog | 5 +++++ tkcon.tcl | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 9b64043..8269fce 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-02-12 Jeff Hobbs + + * tkcon.tcl (::tkcon::InitUI): check existence of tcl_platform(os) + as it doesn't exist in the Tcl plugin. + 2004-02-05 Jeff Hobbs * tkcon.tcl: brought code back to 8.0 compatability. diff --git a/tkcon.tcl b/tkcon.tcl index 9f92eef..c76e7d4 100755 --- a/tkcon.tcl +++ b/tkcon.tcl @@ -571,7 +571,8 @@ proc ::tkcon::InitUI {title} { -textvariable ::tkcon::PRIV(StatusAttach) label $sbar.cursor -relief sunken -bd 1 -anchor w -width 6 \ -textvariable ::tkcon::PRIV(StatusCursor) - set padx [expr {![string match "Windows CE" $::tcl_platform(os)]}] + set padx [expr {![info exists ::tcl_platform(os)] + || ![string match "Windows CE" $::tcl_platform(os)]}] grid $sbar.tabs $sbar.attach $sbar.cursor -sticky news -padx $padx grid configure $sbar.tabs -sticky nsw grid columnconfigure $sbar 0 -weight 1 -- 2.23.0