Tk Library Source Code

View Ticket
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.
Ticket UUID: f0edc6c7bebd5abc59309d22fc36c94636fa0ed4
Title: Unprotected [console show]s.
Type: Bug Version: current
Submitter: stwo Created on: 2015-04-11 16:00:42
Subsystem: tklib :: plotchart Assigned To: arjenmarkus
Priority: 5 Medium Severity: Minor
Status: Closed Last Modified: 2015-04-13 06:47:01
Resolution: None Closed By: arjenmarkus
    Closed on: 2015-04-13 06:47:01
Description:
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" } {
User Comments: arjenmarkus added on 2015-04-13 06:46:37:
Solved. Also removed the [puts] statement.