[PD-cvs] pd/src desire.tk,1.1.2.376,1.1.2.377

[Mathieu Bouchard]

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