[PD-cvs] pd/src desire.tk,1.1.2.494,1.1.2.495
Mathieu Bouchard
matju at users.sourceforge.net
Thu Oct 12 17:53:04 CEST 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
}
More information about the Pd-cvs
mailing list