[PD-cvs] pd/src desire.tk,1.1.2.600.2.201,1.1.2.600.2.202

Mathieu Bouchard matju at users.sourceforge.net
Thu Jul 5 04:08:52 CEST 2007


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}





More information about the Pd-cvs mailing list