Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28236

Modified Files: Tag: desiredata desire.tk Log Message: breaking everything: lists @children,@selection,@wires,@selection_wire become Hashes, respectively @objects,@objectsel,@wires,@wiresel

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.300 retrieving revision 1.1.2.600.2.301 diff -C2 -d -r1.1.2.600.2.300 -r1.1.2.600.2.301 *** desire.tk 7 Aug 2007 05:51:22 -0000 1.1.2.600.2.300 --- desire.tk 7 Aug 2007 05:58:13 -0000 1.1.2.600.2.301 *************** *** 292,296 **** class_new Hash {Thing}

! def Hash init {args} {foreach {k v} $args {$self set $k $v}} def Hash set {k v} {set ::hash($self:$k) $v} def Hash get {k} {set ::hash($self:$k)} --- 292,297 ---- class_new Hash {Thing}

! def Hash init {args} { super; foreach {k v} $args {$self set $k $v}} ! def Hash reinit {args} {$self clear; foreach {k v} $args {$self set $k $v}} [...1239 lines suppressed...] $stream << "[philtre $r];\n" ! foreach child $@children {eval [concat [list $child deconstruct_to $stream]]} ! foreach wire $@wires {eval [concat [list $wire deconstruct_to $stream]]} $stream << [philtre [eval [concat [list $self deconstruct] $args]]] $stream << ";\n" --- 8379,8384 ---- if {$@subpatch || $@abs} {lappend r $@name $@mapped} else {lappend r $@fontsize} $stream << "[philtre $r];\n" ! foreach i [lsort [$@objects keys]] {eval [concat [list [$@objects get $i] deconstruct_to $stream]]} ! foreach i [lsort [ $@wires keys]] {eval [concat [list [ $@wires get $i] deconstruct_to $stream]]} $stream << [philtre [eval [concat [list $self deconstruct] $args]]] $stream << ";\n" *************** *** 8571,8574 **** --- 8472,8476 ---- 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