* 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 9b640438a37d05941c253bc650c3d0522ceaf460..8269fce6b7081374db5f89ac578be4992c299abf 100644 (file)
--- 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 9f92eef2f53602405d8c69d0f32e2412e6dcea67..c76e7d45d2305b430951d84e614646bc00f365e4 100755 (executable)
--- 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