[PD-cvs] pd/src desire.tk,1.1.2.600.2.259,1.1.2.600.2.260

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21147

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
slider automatically swap width and height when changing orientation


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.259
retrieving revision 1.1.2.600.2.260
diff -C2 -d -r1.1.2.600.2.259 -r1.1.2.600.2.260
*** desire.tk	1 Aug 2007 04:42:50 -0000	1.1.2.600.2.259
--- desire.tk	1 Aug 2007 05:15:48 -0000	1.1.2.600.2.260
***************
*** 5360,5363 ****
--- 5360,5367 ----
  def IEMPropertiesDialog dropmenu_open {f name} {super $f}
  def IEMPropertiesDialog dropmenu_set {frame var part val} {
+ 	switch $var {
+ 		orient {if {[$@of class] == "Slider"} {set tmp $@h; set @h $@w; set @w $tmp}}
+ 		default {}
+ 	}
  	set tmp ${var}choices
  	set textvar ${var}2