[PD-cvs] pd/src desire.tk,1.1.2.600.2.283,1.1.2.600.2.284

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fixed dialog resizable


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.283
retrieving revision 1.1.2.600.2.284
diff -C2 -d -r1.1.2.600.2.283 -r1.1.2.600.2.284
*** desire.tk	4 Aug 2007 20:12:31 -0000	1.1.2.600.2.283
--- desire.tk	4 Aug 2007 22:24:37 -0000	1.1.2.600.2.284
***************
*** 1606,1610 ****
  
  def Canvas init {mess} {
-     lappend ::window_list $self ;# wrong - should go in init_window
      set @mapped 0
      set @gop 0
--- 1606,1609 ----
***************
*** 1746,1749 ****
--- 1745,1749 ----
  # should be called once and only from init
  def Canvas init_window {} {
+     lappend ::window_list $self ;# wrong - should go in init_window
      set win .$self
      set c [$self widget]
***************
*** 1756,1760 ****
      set butts [[ButtonBar new $self] widget]
      # turn buttonbar on/off
-     puts "buttonbar: [$self look buttonbar]"
      if {[$self look buttonbar]} {
  	if {[catch {pack $butts -side top -fill x -expand no}]} {
--- 1756,1759 ----
***************
*** 5372,5375 ****
--- 5371,5375 ----
  	bind $f <Button>   "after 1 $self do_auto_apply"
  	set @auto_apply 0
+ 	$self none_resizable
  }
  
***************
*** 7255,7258 ****
--- 7255,7259 ----
  	pack $f.preview -side top -pady 10
  	focus $f.list.box
+ 	$self none_resizable
  }
  
***************
*** 7379,7385 ****
  	bind .$self         <Tab> "$self traversal %K %W forward"
  	bind .$self <Control-Tab> "$self traversal %K %W back"
! 	wm resizable .$self 0 0
  }
  
  def Dialog traversal {k w direction} {
  	switch $direction {
--- 7380,7388 ----
  	bind .$self         <Tab> "$self traversal %K %W forward"
  	bind .$self <Control-Tab> "$self traversal %K %W back"
! 	
  }
  
+ def Dialog none_resizable {} {wm resizable .$self 0 0}
+ 
  def Dialog traversal {k w direction} {
  	switch $direction {
***************
*** 7440,7443 ****
--- 7443,7447 ----
  	set @nbs $@nb
  	pack .$@nb -expand 1 -fill both
+ 	$self none_resizeable
  }
  def Notebook delete {} {super}