Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1084
Modified Files: Tag: devel_0_39 desire.tk Log Message: 1. tidy up the code a bit, no ident larger than 2 tabs, deleted some junk codes 2. attempted to do proc class_new, don't know if its correct 3. left some questions for matju
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.23 retrieving revision 1.1.2.24 diff -C2 -d -r1.1.2.23 -r1.1.2.24 *** desire.tk 4 Sep 2005 08:31:17 -0000 1.1.2.23 --- desire.tk 4 Sep 2005 18:49:18 -0000 1.1.2.24 *************** *** 15,19 **** # This section is matju's object system
! proc class_new {name} { }
--- 15,22 ---- # This section is matju's object system
! proc class_new {name body} { ! [...1124 lines suppressed...] ! } ! } } *************** *** 2612,2617 **** if {$_($self:select_by) == "click"} { if {$_($self:obj_in_edit) == 0} { ! set _($self:obj_in_edit) 1 ! object_edit [lindex $_($self:selection) 0] $canvas } --- 2558,2563 ---- if {$_($self:select_by) == "click"} { if {$_($self:obj_in_edit) == 0} { ! set _($self:obj_in_edit) 1 ! object_edit [lindex $_($self:selection) 0] $canvas }