[PD-cvs] pd/src desire.tk,1.1.2.600.2.300,1.1.2.600.2.301

[Mathieu Bouchard]

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, at selection, at wires, at selection_wire become Hashes, respectively @objects, at objectsel, at wires, at 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