[PD-cvs] pd/src objective.tcl, 1.1.2.5, 1.1.2.6 desire.tk, 1.1.2.155, 1.1.2.156

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	objective.tcl desire.tk 
Log Message:
thing -> Thing


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.155
retrieving revision 1.1.2.156
diff -C2 -d -r1.1.2.155 -r1.1.2.156
*** desire.tk	16 Apr 2006 06:15:33 -0000	1.1.2.155
--- desire.tk	16 Apr 2006 06:18:04 -0000	1.1.2.156
***************
*** 73,77 ****
  array unset poolset foo
  
! class_new Manager {thing}
  
  def* Manager init {} {
--- 73,77 ----
  array unset poolset foo
  
! class_new Manager {Thing}
  
  def* Manager init {} {
***************
*** 757,761 ****
  
  #-----------------------------------------------------------------------------------#
! class_new view {Observable thing}
  
  # normally ninlets/noutlets should be in class "box", but server-side isn't smart enough
--- 757,761 ----
  
  #-----------------------------------------------------------------------------------#
! class_new view {Observable Thing}
  
  # normally ninlets/noutlets should be in class "box", but server-side isn't smart enough
***************
*** 2482,2486 ****
  }
  
! def thing == {other} {return [expr ![string compare $self $other]]}
  
  def* numbox draw {} {
--- 2482,2486 ----
  }
  
! def Thing == {other} {return [expr ![string compare $self $other]]}
  
  def* numbox draw {} {
***************
*** 3146,3150 ****
  
  set buttons_loaded 0
! class_new button_bar {thing}
  
  def button_bar init {canvas} {
--- 3146,3150 ----
  
  set buttons_loaded 0
! class_new button_bar {Thing}
  
  def button_bar init {canvas} {
***************
*** 3649,3653 ****
  }
  
! post_hierarchy thing
  
  
--- 3649,3653 ----
  }
  
! post_hierarchy Thing
  
  

Index: objective.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -C2 -d -r1.1.2.5 -r1.1.2.6
*** objective.tcl	5 Dec 2005 01:08:11 -0000	1.1.2.5
--- objective.tcl	16 Apr 2006 06:18:04 -0000	1.1.2.6
***************
*** 15,19 ****
  set nextid 0
  set _(class:_class) class
! set _(class:_super) {thing}
  
  proc proc* {name args body} {
--- 15,19 ----
  set nextid 0
  set _(class:_class) class
! set _(class:_super) {Thing}
  
  proc proc* {name args body} {
***************
*** 43,47 ****
  }
  
! proc class_new {self {super {thing}}} {
  	global _
  	set _($self:_class) class
--- 43,47 ----
  }
  
! proc class_new {self {super {Thing}}} {
  	global _
  	set _($self:_class) class
***************
*** 106,115 ****
  }
  
! class_new thing
! set _(thing:_super) {}
! def* thing init {} {}
  
  # virtual destructor
! def* thing _delete {} {}
  
  #-----------------------------------------------------------------------------------#
--- 106,117 ----
  }
  
! class_new Thing {}
! #set _(Thing:_super) {}
! def* Thing init {} {}
  
  # virtual destructor
! def* Thing _delete {} {}
! 
! class_new Class
  
  #-----------------------------------------------------------------------------------#