pd/src desire.tk,1.1.2.494,1.1.2.495 - Pd-cvs

12 Oct 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19010
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
added auto-apply in PropertiesDialog.
fixed Canvas save (@file -> @name).
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.494
retrieving revision 1.1.2.495
diff -C2 -d -r1.1.2.494 -r1.1.2.495
*** desire.tk	9 Oct 2006 15:35:24 -0000	1.1.2.494
--- desire.tk	12 Oct 2006 15:53:01 -0000	1.1.2.495
***************
*** 559,562 ****
--- 559,565 ----
        }
      }
+     bind . <Motion> {
+       .debug configure -text "widget = %W"
+     }
  }
***************
*** 615,618 ****
--- 618,622 ----
      pack [button .controls.switches.dio -text [say io_errors] -command {pd pd audiostatus}]
      pack .controls.switches -side right
+     pack [label .debug -anchor w -text ""] -side bottom -fill x
      . configure -menu .mbar
      wm title . "DesireData"
***************
*** 1189,1193 ****
    if {$@subpatch} {return [$@canvas save]}
    $self checkgeometry
! 	if {$@file != ""} {
    	pd .$self savetofile $@name $@folder
    } else {
--- 1193,1197 ----
    if {$@subpatch} {return [$@canvas save]}
    $self checkgeometry
! 	if {$@name != ""} {
    	pd .$self savetofile $@name $@folder
    } else {
***************
*** 1995,1998 ****
--- 1999,2004 ----
#-----------------------------------------------------------------------------------#
+ def Canvas name {} {return $@name}
+ def Canvas folder {} {return $@folder}
  def Canvas name=   {name}    {if {!$@mapped} {return}; set @name   $name  ; $self update_title}
  def Canvas folder= {folder}  {if {!$@mapped} {return}; set @folder $folder; $self update_title}
***************
*** 2018,2022 ****
# UNIMPLEMENTED: this should indicate whether the patch in pd is different from the last saved patch
! def Canvas modified? {} {return 0}
def Canvas raise {} {
--- 2024,2028 ----
# UNIMPLEMENTED: this should indicate whether the patch in pd is different from the last saved patch
! def Canvas modified? {} {return 1}
def Canvas raise {} {
***************
*** 3690,3693 ****
--- 3696,3710 ----
    super cancel apply ok
    set @of $of
+ 	set f .$self
+ 	checkbutton $f.auto_apply -text [say auto_apply] -anchor w -variable @auto_apply
+ 	frame $f.buttonsep2 -height 2 -borderwidth 1 -relief sunken
+ 	pack $f.auto_apply $f.buttonsep2 -side bottom -fill x
+ 	bind $f <KeyPress> "$self do_auto_apply"
+ 	bind $f <Button>   "$self do_auto_apply"
+ 	set @auto_apply 0
+ }
+ 
+ def PropertiesDialog do_auto_apply {} {
+ 	if {$@auto_apply} {$self apply}
  }
***************
*** 4415,4418 ****
--- 4432,4436 ----
    set lfont [list [lindex {courier helvetica times} $@fstyle] $@fs bold]
    set lcolor [parse_color $@lcol]
+ 	puts "Labeled: lfont=[list $lfont] lcolor=$lcolor"
    $self item LABEL text [list $lx $ly] -text $label -anchor w -font $lfont -fill $lcolor
  }