[PD-cvs] pd/src desire.tk,1.1.2.600.2.400,1.1.2.600.2.401

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix for auto_apply


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.400
retrieving revision 1.1.2.600.2.401
diff -C2 -d -r1.1.2.600.2.400 -r1.1.2.600.2.401
*** desire.tk	19 Aug 2007 21:02:59 -0000	1.1.2.600.2.400
--- desire.tk	20 Aug 2007 03:15:52 -0000	1.1.2.600.2.401
***************
*** 5662,5667 ****
  	pack $f.auto_apply $f.buttonsep2 -side bottom -fill x
  	bind $f <KeyPress-Return> "break";#so that Return don't call do_auto_apply after Dialog ok
! 	bind $f <KeyPress> "after 1 $self do_auto_apply"
! 	bind $f <Button>   "after 1 $self do_auto_apply"
  	set @auto_apply 0
  	$self none_resizable
--- 5662,5667 ----
  	pack $f.auto_apply $f.buttonsep2 -side bottom -fill x
  	bind $f <KeyPress-Return> "break";#so that Return don't call do_auto_apply after Dialog ok
! 	bind $f <KeyPress>        [list $self do_auto_apply]
! 	bind $f <ButtonRelease>   [list $self do_auto_apply]
  	set @auto_apply 0
  	$self none_resizable
***************
*** 7226,7230 ****
  #	place [message $f.label.1 -text $label        -width $@label_width] -x 0 -y 0
  #	puts [$f.label.1 cget -height]
! 	pack [label $f.label -text $label -width [expr $@label_width/7] -wraplength $@label_width] -side left
  	balloon $f.label $name
  }
--- 7226,7230 ----
  #	place [message $f.label.1 -text $label        -width $@label_width] -x 0 -y 0
  #	puts [$f.label.1 cget -height]
! 	pack [label $f.label -text $label -width [expr $@label_width/7] -wraplength $@label_width -anchor e] -side left
  	balloon $f.label $name
  }
***************
*** 7455,7459 ****
  			libraries {$self add_libraries $f $name $label}
  			devlist   {$self add_devlist $f $name $label}
! 			spins   {$self add_spins $f $name $label $options}
  			section    {label $f -text $label -bg "#0000aa" -fg "#ffff55" -font {helvetica -10 bold}}
  			subsection {label $f -text $label -bg "#0000aa" -fg "#ffff55" -font {helvetica -10 bold}}
--- 7455,7459 ----
  			libraries {$self add_libraries $f $name $label}
  			devlist   {$self add_devlist $f $name $label}
! 			spins     {$self add_spins $f $name $label $options}
  			section    {label $f -text $label -bg "#0000aa" -fg "#ffff55" -font {helvetica -10 bold}}
  			subsection {label $f -text $label -bg "#0000aa" -fg "#ffff55" -font {helvetica -10 bold}}
***************
*** 7673,7677 ****
  
  def Dialog ok     {} {$self apply; $self cancel}
! def Dialog cancel {} {if {[info exists @nbs]} {foreach x $@nbs {$x delete}}; $self delete}
  def Dialog close  {} {$self delete}
  def Dialog apply  {} {}
--- 7673,7677 ----
  
  def Dialog ok     {} {$self apply; $self cancel}
! def Dialog cancel {} {if {[info exists @nbs]} {foreach x $@nbs {$x delete}}; after 1 [list $self delete]}
  def Dialog close  {} {$self delete}
  def Dialog apply  {} {}