From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Thu, 12 Feb 2004 17:34:09 +0000 (+0000)
Subject: 	* tkcon.tcl (::tkcon::InitUI): check existence of tcl_platform(os)
X-Git-Tag: tkcon-2-4~10
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=c0aac47d247d96ee5856bd13566cb816f2c78ef6;p=tkcon

	* tkcon.tcl (::tkcon::InitUI): check existence of tcl_platform(os)
	as it doesn't exist in the Tcl plugin.
---

diff --git a/ChangeLog b/ChangeLog
index 9b64043..8269fce 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-12  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (::tkcon::InitUI): check existence of tcl_platform(os)
+	as it doesn't exist in the Tcl plugin.
+
 2004-02-05  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* 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