[PD-cvs] pd/src desire.tk,1.1.2.248,1.1.2.249
Mathieu Bouchard
matju at users.sourceforge.net
Mon Jun 19 07:43:16 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28261
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
added a non-working CanvasProperties
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.248
retrieving revision 1.1.2.249
diff -C2 -d -r1.1.2.248 -r1.1.2.249
*** desire.tk 19 Jun 2006 05:21:26 -0000 1.1.2.248
--- desire.tk 19 Jun 2006 05:43:14 -0000 1.1.2.249
***************
*** 3011,3016 ****
global classinfo fields
super $of
!
set class $_($of:class)
if {![info exists fields($class)]} {set class obj}
puts "this is a $_($of:class) class"
--- 3011,3017 ----
global classinfo fields
super $of
!
set class $_($of:class)
+ wm title .$self "\[$class\] [say popup_properties]"
if {![info exists fields($class)]} {set class obj}
puts "this is a $_($of:class) class"
***************
*** 3091,3096 ****
--- 3092,3118 ----
super $of
#X coords 0 0 1 1 100 100 1 100 200;
+ foreach var {xscale yscale graphme} {set @$var $_($of:$var)}
+ wm title .$self "[say canvas] [say popup_properties]"
+ #wm protocol $id WM_DELETE_WINDOW "canvas_cancel $id"
+ set props {
+ xscale "X units/px: " entry {-width 10}
+ yscale "Y units/px: " entry {-width 10}
+ }
+ properties_dialog $self .$self canvas_ok $props
+ pack [checkbutton .$self.graphme -text "graph on parent" \
+ -variable _($self:graphme) -anchor w] -side top
+ #bind .$self.xscale.entry <KeyPress-Return> "canvas_ok $id"
+ #bind .$self.yscale.entry <KeyPress-Return> "canvas_ok $id"
+ .$self.xscale.entry select from 0
+ .$self.xscale.entry select adjust end
+ focus .$self.xscale.entry
}
+ def* CanvasPropertiesDialog apply {} {
+ pd ".$self donecanvasdialog $@xscale $@yscale $@graphme ;"
+ }
+
+ def* CanvasPropertiesDialog cancel {id} {pd ".$self cancel ;"}
+
class_new NumBox {Labeled Box}
def* NumBox init {args} {
More information about the Pd-cvs
mailing list