[PD-cvs] pd/src desire.tk,1.1.2.600.2.90,1.1.2.600.2.91

[chunlee]

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
  				}