Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15422
Modified Files: Tag: desiredata desire.tk Log Message: added class_new Notebook {Thing}, so that notebook gets deleted
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.90 retrieving revision 1.1.2.600.2.91 diff -C2 -d -r1.1.2.600.2.90 -r1.1.2.600.2.91 *** desire.tk 14 Dec 2006 23:05:34 -0000 1.1.2.600.2.90 --- desire.tk 15 Dec 2006 00:26:23 -0000 1.1.2.600.2.91 *************** *** 4510,4514 ****
class_new BlueBox {Labeled Box} ! #class_new BlueBox {Box Labeled}
def BlueBox draw_box {} { --- 4510,4514 ----
class_new BlueBox {Labeled Box} ! #class_new BlueBox {Box Labeledo}
def BlueBox draw_box {} { *************** *** 6405,6409 **** $self cancel } ! def Dialog cancel {} {$self delete} def Dialog close {} {$self delete} def Dialog apply {} {} --- 6405,6409 ---- $self cancel } ! def Dialog cancel {} {foreach x $@nbs {$x delete}; $self delete} def Dialog close {} {$self delete} def Dialog apply {} {} *************** *** 6485,6496 ****
class_new PagedDialog {Dialog} ! class_new Notebook {}
def PagedDialog init {args} { eval [concat [list super] $args] set @nb [Notebook new_as $self.1] pack .$@nb -expand 1 -fill both } ! def Notebook init {{width 590} {height 350}} { set f .$self --- 6485,6497 ----
class_new PagedDialog {Dialog} ! class_new Notebook {Thing}
def PagedDialog init {args} { eval [concat [list super] $args] set @nb [Notebook new_as $self.1] + set @nbs $@nb pack .$@nb -expand 1 -fill both } ! def Notebook delete {} {super} def Notebook init {{width 590} {height 350}} { set f .$self *************** *** 6989,6993 **** set subself $self.1.main.$section.subsections if {!$subsection} { ! Notebook new_as $subself 590 300 pack .$subself } --- 6990,6994 ---- set subself $self.1.main.$section.subsections if {!$subsection} { ! lappend @nbs [Notebook new_as $subself 590 300] pack .$subself }