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

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
FloatAtom,SymbolAtom renamed to FloatBox,SymbolBox.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.55
retrieving revision 1.1.2.600.2.56
diff -C2 -d -r1.1.2.600.2.55 -r1.1.2.600.2.56
*** desire.tk	10 Dec 2006 20:36:53 -0000	1.1.2.600.2.55
--- desire.tk	10 Dec 2006 20:39:15 -0000	1.1.2.600.2.56
***************
*** 4293,4298 ****
  classinfo obj        ObjectBox
  classinfo msg        MessageBox
! classinfo floatatom  FloatAtom
! classinfo symbolatom SymbolAtom
  classinfo text       Comment
  
--- 4293,4298 ----
  classinfo obj        ObjectBox
  classinfo msg        MessageBox
! classinfo floatatom  FloatBox
! classinfo symbolatom SymbolBox
  classinfo text       Comment
  
***************
*** 4785,4790 ****
  }
  
! class_new FloatAtom  {AtomBox}
! class_new SymbolAtom {AtomBox}
  
  def AtomBox init {mess} {
--- 4785,4790 ----
  }
  
! class_new FloatBox  {AtomBox}
! class_new SymbolBox {AtomBox}
  
  def AtomBox init {mess} {
***************
*** 4798,4803 ****
  }
  
! def FloatAtom  init {mess} {super $mess; set @text 0}
! def SymbolAtom init {mess} {super $mess; set @text "symbol"}
  
  def AtomBox set {val} {
--- 4798,4803 ----
  }
  
! def FloatBox  init {mess} {super $mess; set @text 0}
! def SymbolBox init {mess} {super $mess; set @text "symbol"}
  
  def AtomBox set {val} {
***************
*** 4807,4812 ****
  }
  
! def FloatAtom  apply_value {} {netsend [list .$self float  $@val]}
! def SymbolAtom apply_value {} {netsend [list .$self symbol $@val]}
  
  def AtomBox key {key shift} {
--- 4807,4812 ----
  }
  
! def FloatBox  apply_value {} {netsend [list .$self float  $@val]}
! def SymbolBox apply_value {} {netsend [list .$self symbol $@val]}
  
  def AtomBox key {key shift} {
***************
*** 4831,4835 ****
  }
  
! def FloatAtom key {key shift} {
  	global font
  	if {[super $key $shift]} {return}
--- 4831,4835 ----
  }
  
! def FloatBox key {key shift} {
  	global font
  	if {[super $key $shift]} {return}
***************
*** 4847,4851 ****
  }
  
! def SymbolAtom key {key shift} {
  	global font
  	if {[super $key $shift]} {return}
--- 4847,4851 ----
  }
  
! def SymbolBox key {key shift} {
  	global font
  	if {[super $key $shift]} {return}
***************
*** 4857,4861 ****
  }
  
! def FloatAtom ftoa {} {
  	set f $@val
  	set is_exp 0
--- 4857,4861 ----
  }
  
! def FloatBox ftoa {} {
  	set f $@val
  	set is_exp 0
***************
*** 4917,4921 ****
  }
  
! def FloatAtom motion {x y f target} {
  	if {!$@clicking || ![$self == [[$self get_canvas] focus]]} {return}
  	mset {ox oy} $@mouse
--- 4917,4921 ----
  }
  
! def FloatBox motion {x y f target} {
  	if {!$@clicking || ![$self == [[$self get_canvas] focus]]} {return}
  	mset {ox oy} $@mouse