Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27061
Modified Files: Tag: devel_0_39 desire.tk Log Message: fix typo hairstate
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.376 retrieving revision 1.1.2.377 diff -C2 -d -r1.1.2.376 -r1.1.2.377 *** desire.tk 19 Aug 2006 16:26:37 -0000 1.1.2.376 --- desire.tk 19 Aug 2006 18:42:27 -0000 1.1.2.377 *************** *** 966,971 **** set look(minobjwidth) 21 set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400] ! set crosshair(hairstaste) 1 set crosshair(hairsnap) 1 #-----------------------------------------------------------------------------------# proc read_ddrc {} { --- 966,972 ---- set look(minobjwidth) 21 set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400] ! set crosshair(hairstate) 1 set crosshair(hairsnap) 1 + #-----------------------------------------------------------------------------------# proc read_ddrc {} { *************** *** 1424,1427 **** --- 1425,1429 ---- $c [list $axis]view scroll $diff units if {$crosshair(hairstate) && $@editmode} { + # this should be changed so that we don't need to recompute x,y here. set c .$self.c set x [expr [$c canvasx [expr [winfo pointerx $c] - [winfo rootx $c]]]/$@scale] *************** *** 3269,3273 **** global fields set orig [list $self properties_apply] ! foreach var [lrange $fields($@class) 5 end] {lappend orig $@$var} [$@canvas history] add $orig set tosend {} --- 3271,3275 ---- global fields set orig [list $self properties_apply] ! foreach var [lrange $fields($@class) 5 end] {lappend orig $@$var} [$@canvas history] add $orig set tosend {} *************** *** 3280,3285 **** set class $_($@of:class) set props {} ! foreach var [lrange $fields($class) 5 end] { ! set v $@$var ;# does $@$ really work or not? if not, fix objective.tcl ... if {[regexp -nocase {^[bfl]col$} $var]} {set v [unparse_color $v]} lappend props $v --- 3282,3287 ---- set class $_($@of:class) set props {} ! foreach var [lrange $fields($class) 5 end] { ! set v $@$var if {[regexp -nocase {^[bfl]col$} $var]} {set v [unparse_color $v]} lappend props $v