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