Tk Library Source Code

The older patch was ignored and now there's more!


$OpenBSD: patch-examples_plotchart_testtable_tcl,v 1.1 2013/11/14 09:43:09 stu Exp $

Windowsism.

--- examples/plotchart/testtable.tcl.orig	Thu Apr  9 00:08:32 2015
+++ examples/plotchart/testtable.tcl	Thu Apr  9 23:46:53 2015
@@ -31,7 +31,7 @@ proc setColor {table widget row col value} {
 # Command must already exist ...
 $t formatcommand setColor
 
-console show
+catch { console show }
 $t title "Demonstration of table charts"
 $t separator
 

$OpenBSD$
--- modules/plotchart/plotaxis.tcl.orig	Fri Apr 10 00:10:46 2015
+++ modules/plotchart/plotaxis.tcl	Fri Apr 10 00:10:59 2015
@@ -1447,7 +1447,7 @@ proc ::Plotchart::AxisConfig { plottype w orient drawm
 
     worldCoordinates $w $xmin $ymin $xmax $ymax
 
-    console show
+    catch { console show }
     puts "$orient: $xmin $xmax $scaling($w,xdelt)"
 
     if { $orient == "x" } {

Solved. Also removed the [puts] statement.