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

16 Apr 2006


      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
#-----------------------------------------------------------------------------------#