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]