Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25379
Modified Files: Tag: desiredata desire.tk Log Message: Labeled is correctly spelled Labelled
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.201 retrieving revision 1.1.2.600.2.202 diff -C2 -d -r1.1.2.600.2.201 -r1.1.2.600.2.202 *** desire.tk 2 Jul 2007 06:52:51 -0000 1.1.2.600.2.201 --- desire.tk 5 Jul 2007 02:08:48 -0000 1.1.2.600.2.202 *************** *** 5251,5256 **** return [$self class] } ! class_new BlueBox {Labeled IEMGUI Box} ! #class_new BlueBox {Box Labeledo}
def BlueBox draw_box {} { --- 5251,5256 ---- return [$self class] } ! class_new BlueBox {Labelled IEMGUI Box} ! #class_new BlueBox {Box Labelled}
def BlueBox draw_box {} { *************** *** 5630,5634 ****
def SymbolBox motion {x y f target} {} ! class_new NumBox {Labeled IEMGUI AtomBox}
def NumBox init {mess} { --- 5630,5634 ----
def SymbolBox motion {x y f target} {} ! class_new NumBox {Labelled IEMGUI AtomBox}
def NumBox init {mess} { *************** *** 5861,5867 **** def Slider unfocus {} {$self draw}
! class_new Labeled {}
! def Labeled draw {} { global leet super --- 5861,5867 ---- def Slider unfocus {} {$self draw}
! class_new Labelled {}
! def Labelled draw {} { global leet super *************** *** 6050,6054 **** def Dropper erase {} {destroy $@canvas.${self}DROP; super}
! class_new Cnv {Labeled IEMGUI Box}
def Cnv draw {} { --- 6050,6054 ---- def Dropper erase {} {destroy $@canvas.${self}DROP; super}
! class_new Cnv {Labelled IEMGUI Box}
def Cnv draw {} { *************** *** 6881,6885 **** set v $_($self:$name) ;# bug in objtcl frame $f.a ! listbox $f.a.list -width 32 -height 10 -yscrollcommand "$f.a.yscroll set" \ -activestyle none -xscrollcommand "$f.a.xscroll set" #foreach line $@$name {$f.a.list insert end $line} --- 6881,6885 ---- set v $_($self:$name) ;# bug in objtcl frame $f.a ! listbox $f.a.list -width 32 -height 16 -yscrollcommand "$f.a.yscroll set" \ -activestyle none -xscrollcommand "$f.a.xscroll set" #foreach line $@$name {$f.a.list insert end $line}