pd/src desire.tk,1.1.2.600.2.400,1.1.2.600.2.401 - Pd-cvs

20 Aug 2007


      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  {} {}