[PD-cvs] pd/src desire.tk,1.1.2.600.2.338,1.1.2.600.2.339

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
more on getting the auto test ready


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.338
retrieving revision 1.1.2.600.2.339
diff -C2 -d -r1.1.2.600.2.338 -r1.1.2.600.2.339
*** desire.tk	10 Aug 2007 03:32:13 -0000	1.1.2.600.2.338
--- desire.tk	10 Aug 2007 22:43:58 -0000	1.1.2.600.2.339
***************
*** 2013,2020 ****
  
  def Canvas configure {h w} {
! 	if {[$self look gridstate]} {
! 		$@grid update $h $w
! 		if {$@editmode} {$@grid draw} else {$@grid erase}
! 	}
  }
  
--- 2013,2017 ----
  
  def Canvas configure {h w} {
! 	if {[$self look gridstate]} {$@grid update $h $w}
  }
  
***************
*** 2305,2308 ****
--- 2302,2306 ----
  	set @state 0
  	set @list {}
+ 	set @ref_list {}
  	set @delay 200
  	set @offset_x 0
***************
*** 2310,2314 ****
  	set @rect [Macro_Rect new]
  }
! def Macro state= {val} {set @state $val; if {$val} {set @list {}; post %s "start recording macro..."} {post %s "end..."}}
  def Macro state {} {return $@state}
  def Macro dump {} {set i 0; foreach step $@list {post %s "step $i -> $step"; incr i}}
--- 2308,2321 ----
  	set @rect [Macro_Rect new]
  }
! def Macro state= {val} {
! 	set @state $val
! 	if {$val} {
! 		set @ref_list {}
! 		set @list {}
! 		post %s "start recording macro..."
! 	} else {
! 		post %s "end..."
! 	}
! }
  def Macro state {} {return $@state}
  def Macro dump {} {set i 0; foreach step $@list {post %s "step $i -> $step"; incr i}}
***************
*** 2316,2319 ****
--- 2323,2328 ----
  def Macro idx {} {return $@idx}
  def Macro delay {} {return $@delay}
+ def Macro append_ref {mess} {lappend @ref_list $mess}
+ def Macro ref_list {} {puts "$@ref_list";return $@ref_list}
  
  def Macro notice {args} {
***************
*** 2437,2447 ****
  }
  
- 
  set ::macro [Macro new]
  set ::macro_state 0
  
- 
- 
- 
  def Canvas macro_toggle {} {if {![$::macro state]} {set ::macro_state 1} {$::macro state= 0; $::macro dump}}
  #def Canvas macro_play {} {puts ">> $@click_at <<"; $::macro idx= 0; $::macro play [$::macro delay]}
--- 2446,2452 ----
***************
*** 2458,2462 ****
  def Canvas macro_copy {} {$::macro copy}
  
- 
  #-----------------------------------------------------------------------------------#
  class_new TextBox {Box}
--- 2463,2466 ----
***************
*** 4839,4842 ****
--- 4843,4847 ----
  def Box reinit {mess} {
      global classinfo fields
+ 	if {[$::macro state] && [llength $mess] > 4} {$::macro append_ref $mess}
      if {![llength $mess]} {return} ;# what?
      if {[lindex $mess 1] == "obj"} {set i 4} else {set i 1}
***************
*** 5033,5037 ****
  	foreach char [split $content ""] {
  		if {$i == $last_newline} {break}
! 		if {$char == ";"} {set s ${s}${space}list} {set s ${s}$char}
  		incr i
  	}
--- 5038,5049 ----
  	foreach char [split $content ""] {
  		if {$i == $last_newline} {break}
! 		#if {$char == ";"} {set s ${s}${space}list} {set s ${s}$char}
! 		if {$char != ";"} {
! 			if {$char == "\n"} {
! 				set s ${s}${space}$char
! 			} else {
! 				set s ${s}$char
! 			}
! 		}
  		incr i
  	}
***************
*** 5092,5095 ****
--- 5104,5108 ----
  
  def Wire reinit {mess} {
+ 	if {[$::macro state]} {$::macro append_ref $mess}
  	mset {x msg from outlet to inlet canvas} $mess
  	set @connects [list $from $outlet $to $inlet]
***************
*** 6626,6629 ****
--- 6639,6644 ----
  
  def Grid draw {} {
+ 	#set sw [winfo screenwidth [$@canvas widget]]
+ 	#anset sh [winfo screenheight [$@canvas widget]]
  	set c [$@canvas widget]
  	set lowest [$@canvas lowest_item]