diff options
Diffstat (limited to 'desiredata/src/desire.tk')
-rw-r--r-- | desiredata/src/desire.tk | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk index ff54bf5e..86efe50c 100644 --- a/desiredata/src/desire.tk +++ b/desiredata/src/desire.tk @@ -8764,59 +8764,6 @@ def Canvas blink_image {} { #----------------------------------------------------------------- -#lappend ::auto_path /usr/local/lib/graphviz -catch {package require Tcldot} -def Canvas graphviz_sort {} { - error "this code has to be rewritten to use the new containers" - set nodes {} - set gwidth 0; set gh 0 - #toplevel .graph -height 600 -width 800 - #set c [canvas .graph.c -height 600 -width 800] - #pack $c - set g [dotnew digraph] - $g setnodeattribute style filled color white - foreach child $@children { - lappend nodes [$g addnode $child label "[$child text]" shape "record" height "0.1"] - lappend nodes $child - } - puts "$nodes" - foreach wire $@wires { - mset {from outlet to inlet} [$wire report] - set n1 [lindex $nodes [expr [lsearch $nodes $from]-1]] - set n2 [lindex $nodes [expr [lsearch $nodes $to]-1]] - $n1 addedge $n2 - } - #$g layout - ;# see what render produces - #if {$debug} {puts [$g render]} - #eval [$g render] - set f {} - set fd [open graph.txt w] - $g write $fd plain - close $fd - - set fd [open graph.txt r] - set contents [read $fd] - close $fd - exec rm graph.txt - mset {x1 y1 x2 y2} [[$self widget] bbox all] - set width [expr $x2 - $x1] - set height [expr $y2 - $y1] - foreach line [split $contents "\n"] { - switch [lindex $line 0] { - graph {set gw [lindex $line 2]; set gh [lindex $line 3]} - node { - set w [expr $width/$gw] - set h [expr $height/$gh] - set id [lindex $line 1] - set x [lindex $line 2]; set y [lindex $line 3] - $id moveto [expr $x*$w] [expr ($gh-$y)*$h] - } - edge {break} - } - } -} - proc widget_tree {w {indent 0}} { foreach element [winfo children $w] { puts [format "%*s%s" [expr 2*$indent] "" $element] |