[PD-cvs] pd/src desire.tk,1.1.2.362,1.1.2.363

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
IEMPropertiesDialog fix


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.362
retrieving revision 1.1.2.363
diff -C2 -d -r1.1.2.362 -r1.1.2.363
*** desire.tk	18 Aug 2006 00:37:24 -0000	1.1.2.362
--- desire.tk	18 Aug 2006 01:16:33 -0000	1.1.2.363
***************
*** 2182,2186 ****
      $id   populate_menu $p {popup_properties popup_open popup_help}
    }
!   tk_popup $p $x $y
  }
  
--- 2182,2186 ----
      $id   populate_menu $p {popup_properties popup_open popup_help}
    }
!   tk_popup $p [expr $x-5] [expr $y-5]
  }
  
***************
*** 3206,3214 ****
  	  lappend orig $_($@of:$var)
  	  lappend props2 $@$var ;# does $@$ really work or not? if not, fix objective.tcl ...
  	  switch $var {
! 	    is_log {set val [expr $@$var == "linear"]}
! 	    isa    {set val [expr $@$var == "yes"   ]}
! 	    steady {set val [expr $@$var == "jump"  ]}
! 	    fstyle {set val [expr $@$var == "yes"   ]}
  	    default {set val $@$var}
  	  }
--- 3206,3215 ----
  	  lappend orig $_($@of:$var)
  	  lappend props2 $@$var ;# does $@$ really work or not? if not, fix objective.tcl ...
+ 	  set v $@$var
  	  switch $var {
! 	    is_log {set val [lsearch {linear logarithmic} $v]}
! 	    isa    {set val [lsearch {no yes} $v]}
! 	    steady {set val [lsearch {steady jump} $v]}
! 	    fstyle {set val [lsearch {no yes} $v]}
  	    default {set val $@$var}
  	  }
***************
*** 3228,3236 ****
  	if {![info exists fields($class)]} {set class obj}
  	foreach var $fields($class) {
  		switch $var {
! 			is_log  {if {$_($of:$var)} {set val "linear"} else {set val "logarithmic"}}
! 			isa     {if {$_($of:$var)} {set val "yes"   } else {set val "no"}}
! 			steady  {if {$_($of:$var)} {set val "jump"  } else {set val "steady"}}
! 			fstyle  {if {$_($of:$var)} {set val "yes"   } else {set val "no"}}
  			default {set val $_($of:$var)}
  		}
--- 3229,3238 ----
  	if {![info exists fields($class)]} {set class obj}
  	foreach var $fields($class) {
+ 		set v $_($of:$var)
  		switch $var {
! 			is_log  {set val [say [lindex {linear logarithmic} $v]]}
! 			isa     {set val [say [lindex {no yes} $v]]}
! 			steady  {set val [say [lindex {steady jump} $v]]}
! 			fstyle  {set val [say [lindex {no yes} $v]]}
  			default {set val $_($of:$var)}
  		}
***************
*** 3257,3266 ****
  		}
  		isa {
! 			set options [list [say $prop] [say 1] [say 0]]
  			set d [list $prop $options choice {}]
  		}
  		n {set d [list $prop [say $prop] integer {-width 4}]}
  		steady {
! 			set options [list [say $prop] "jump" "steady"]
  			set d [list $prop $options choice {}]
  		}
--- 3259,3268 ----
  		}
  		isa {
! 			set options [list [say $prop] 1 0]
  			set d [list $prop $options choice {}]
  		}
  		n {set d [list $prop [say $prop] integer {-width 4}]}
  		steady {
! 			set options [list [say $prop] [say jump] [say steady]]
  			set d [list $prop $options choice {}]
  		}