[PD-cvs] pd/src desire.tk,1.1.2.248,1.1.2.249

[Mathieu Bouchard]

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