[PD-cvs] pd/src desire.tk,1.1.2.600.2.54,1.1.2.600.2.55

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix for properties apply for floatatom and symbolatom.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.54
retrieving revision 1.1.2.600.2.55
diff -C2 -d -r1.1.2.600.2.54 -r1.1.2.600.2.55
*** desire.tk	9 Dec 2006 17:09:38 -0000	1.1.2.600.2.54
--- desire.tk	10 Dec 2006 20:36:53 -0000	1.1.2.600.2.55
***************
*** 1975,1979 ****
  	set @y1 [lindex $mess 3]
  	set textstr [join [lrange $mess 4 end]]
- 
  	# this hack is to remove the "\" in the text
  	regsub -all {\\} $textstr "" text
--- 1975,1978 ----
***************
*** 4698,4702 ****
  
  def GAtomPropertiesDialog apply {} {
! 	pd .$@of param $@w $@min $@max [gatom_escape $@lab] $@pos [gatom_escape $@rcv] [gatom_escape $@snd]
  }
  
--- 4697,4701 ----
  
  def GAtomPropertiesDialog apply {} {
! 	netsend [list .$@of reload $@w $@min $@max $@pos [gatom_escape $@lab] [gatom_escape $@rcv] [gatom_escape $@snd]]
  }
  
***************
*** 4724,4728 ****
  
  def GraphPropertiesDialog apply {} {
! 	pd .$@of dialog $@x1 $@y1 $@x2 $@y2 $@xpix $@ypix
  }
  
--- 4723,4727 ----
  
  def GraphPropertiesDialog apply {} {
! 	netsend [list .$@of dialog $@x1 $@y1 $@x2 $@y2 $@xpix $@ypix]
  }
  
***************
*** 4749,4756 ****
  
  def ArrayPropertiesDialog apply {} {
! 	set mofo $@name
! 	if {[string index $mofo 0] == "$"} {
! 		set mofo [string replace $mofo 0 0 #] }
! 	pd .$@apply arraydialog $mofo $@n $@saveit $@otherflag
  }
  
--- 4748,4753 ----
  
  def ArrayPropertiesDialog apply {} {
! 	regsub {^\$} $@name "#" name
! 	netsend [list .$@apply arraydialog $name $@n $@saveit $@otherflag]
  }
  
***************
*** 4801,4808 ****
  }
  
! def FloatAtom init {mess} {super $mess; set @text 0}
  def SymbolAtom init {mess} {super $mess; set @text "symbol"}
- def AtomBox   canonize {x} {return x}
- def FloatAtom canonize {x} {return [expr $x]}
  
  def AtomBox set {val} {
--- 4798,4803 ----
  }
  
! def FloatAtom  init {mess} {super $mess; set @text 0}
  def SymbolAtom init {mess} {super $mess; set @text "symbol"}
  
  def AtomBox set {val} {
***************
*** 4812,4815 ****
--- 4807,4813 ----
  }
  
+ def FloatAtom  apply_value {} {netsend [list .$self float  $@val]}
+ def SymbolAtom apply_value {} {netsend [list .$self symbol $@val]}
+ 
  def AtomBox key {key shift} {
  	set @clicking 0
***************
*** 4817,4822 ****
  		Return {
  			$@canvas focus= ""
! 			pd .$self set [$self canonize $@val]
! 			pd .$self bang
  			set @text $@val
  			set @clicking 0
--- 4815,4819 ----
  		Return {
  			$@canvas focus= ""
! 			$self apply_value
  			set @text $@val
  			set @clicking 0