[Tcl/Tk Utilities] render no longer produces vaild tk tags.
Ported Issue from Mantis Original ID: 2277 Reported By: AndrewStein
SEVERITY: CRITICAL Submitted: 2013-04-17 22:23:05
OS: MACOSX
OS BUILD: MTN LION
DESCRIPTION
According to the tcldot man page, the tags produced by render "take one of two forms: text items are tagged with 0 and shapes and lines are rendered with 1." This was the case in 2.28, but is no longer the case in 2.30.1.
In 2.30.1 (see below) the handles are in the form graph0xHHHHHHHHHHHH, but the tags are in the form 0graphN, where H is a hex digit and N is a number.
STEPS TO REPRODUCE
> tclsh
% lappend auto_path /usr/local/lib/graphviz/tcl
/System/Library/Frameworks/Tcl.framework/Versions/8.5/Resources/Scripts /System/Library/Frameworks/Tcl.framework/Versions/8.5/Resources /usr/lib ~/Library/Tcl /Library/Tcl /System/Library/Tcl /System/Library/Tcl/8.5 ~/Library/Frameworks /Library/Frameworks /System/Library/Frameworks /usr/local/lib/graphviz/tcl
% package require Tcldot
2.30.1
% set g [dotnew digraph label Graph]
graph0x7fca43906520
% set sg [$g addsubgraph clusterX label SubGraph]
graph0x7fca41e0e630
% set n [$sg addnode label Node]
node0x7fca43907370
% $g render
# Generated by graphviz version 2.30.1 (20130221.2233)
# Pages: 1
$c create text 69.33 144.3 -text {Graph} -fill black -font {"Times" 14} -tags {0graph label-1}
$c create polygon 16 117.33 16 16 122.67 16 122.67 117.33 -fill "" -width 1 -outline black -tags {1graph1}
$c create text 69.33 32.3 -text {SubGraph} -fill black -font {"Times" 14} -tags {0graph1}
$c create oval 27.43 106.67 111.24 58.67 -fill white -width 1 -outline black -tags {1node1}
$c create text 69.33 82.43 -text {Node} -fill black -font {"Times" 14} -tags {0node1}
My code expects tags named 0graph0x7fca43906520, 1graph0x7fca41e0e630, 1node0x7fca43907370. The actual tags are named 0graph, 1graph1, 1node1.
ADDITIONAL INFORMATION
As far as I can see there is no way for me to retrive the tag from the handle. This is the reason I have marked the severity as "critical"