From 8dbec761cf858ea65900c8a094599857208d8c3a Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Tue, 5 Jan 2010 22:49:36 +0000
Subject: svn path=/trunk/; revision=12907

---
 desiredata/src/unused.tcl | 78 -----------------------------------------------
 1 file changed, 78 deletions(-)
 delete mode 100644 desiredata/src/unused.tcl

(limited to 'desiredata/src/unused.tcl')

diff --git a/desiredata/src/unused.tcl b/desiredata/src/unused.tcl
deleted file mode 100644
index 98601545..00000000
--- a/desiredata/src/unused.tcl
+++ /dev/null
@@ -1,78 +0,0 @@
-if {$tk} {
-	set main [Client new]
-	set window_list [list $main]
-} else {
-	set cmdline(console) 0
-	#foreach dir $auto_path {
-	#	set file $dir/libtclreadline[info sharedlibextension]
-	#	puts "trying $file"
-	#	if {![catch {load $file}]} {puts "found tclreadline !"}
-	#}
-	package require tclreadline
-	proc ::tclreadline::prompt1 {} {return "desire> "}
-	::tclreadline::Loop
-	#while {1} {
-	#	#set line [::tclreadline::readline read]
-	#	puts -nonewline "desire> "
-	#	flush stdout
-	#	set line [gets stdin]
-	#	if {[catch {puts [eval $line]}]} {
-	#		puts "error: $::errorInfo"
-	#	}
-	#}
-	#vwait foo
-}
-
-
-#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}
-		}
-	}
-}
-- 
cgit v1.2.1