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

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
shrunk IEMPropertiesDialog's init.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.247
retrieving revision 1.1.2.248
diff -C2 -d -r1.1.2.247 -r1.1.2.248
*** desire.tk	15 Jun 2006 11:15:22 -0000	1.1.2.247
--- desire.tk	19 Jun 2006 05:21:26 -0000	1.1.2.248
***************
*** 3037,3081 ****
  	set @class $_($of:class)
  	# the longest label is...
! 	foreach propertie $fields($class) {
! 	set label [say $propertie]
  	if {[string length $label] > $@max_label} {set @max_label [string length $label]}
  	}
  	
! 	foreach propertie $fields($class) {
! 		#puts "propertie ::: $propertie"
! 	switch $propertie {
! 		w {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] integer {-width 7}]}
! 		h {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] integer {-width 7}]}
! 		hold {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] float {-width 9}]}
! 		break {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] float {-width 9}]}
! 		min {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] float {-width 9}]}
! 		max {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] float {-width 9}]}
  		is_log {
! 			set options [list [say $propertie] [say linear] [say logarithmic]]
! 			properties_dialog $self .$self iemgui_ok [list $propertie $options choice {}]
! 			}
  		isa {
! 			set options [list [say $propertie] [say 1] [say 0]]
! 			properties_dialog $self .$self iemgui_ok [list $propertie $options choice {}]
! 			}
! 		n {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] integer {-width 4}]}
  		steady {
! 			set options [list [say $propertie] "jump" "steady"]
! 			properties_dialog $self .$self iemgui_ok [list $propertie $options choice {}]
! 			}
! 		snd {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 20}]}
! 		rcv {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 20}]}
! 		lab {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width 20}]}
! 		ldx {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width  5}]}
! 		ldy {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] entry {-width  5}]}
  		fstyle {
! 		set options [list  [say $propertie] "courier" "helvetica" "times"]
! 		properties_dialog $self .$self iemgui_ok [list $propertie $options choice {}]
  		}
! 		fs {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] fontsize {-width 5}]}
! 		bcol {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] color {}]}
! 		fcol {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] color {}]}
! 		lcol {properties_dialog $self .$self iemgui_ok [list $propertie [say $propertie] color {}]}
! 	 }
  	}
  	
--- 3037,3083 ----
  	set @class $_($of:class)
  	# the longest label is...
! 	foreach prop $fields($class) {
! 	set label [say $prop]
  	if {[string length $label] > $@max_label} {set @max_label [string length $label]}
  	}
  	
! 	foreach prop [lrange $fields($class) 5 end] {
! 	    #puts "prop ::: $prop"
! 	    switch $prop {
! 		w     {set d [list $prop [say $prop] integer {-width 7}]}
! 		h     {set d [list $prop [say $prop] integer {-width 7}]}
! 		hold  {set d [list $prop [say $prop] float {-width 9}]}
! 		break {set d [list $prop [say $prop] float {-width 9}]}
! 		min   {set d [list $prop [say $prop] float {-width 9}]}
! 		max   {set d [list $prop [say $prop] float {-width 9}]}
  		is_log {
! 			set options [list [say $prop] [say linear] [say logarithmic]]
! 			set d [list $prop $options choice {}]
! 		}
  		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 {}]
! 		}
! 		snd {set d [list $prop [say $prop] entry  {-width 20}]}
! 		rcv {set d [list $prop [say $prop] entry  {-width 20}]}
! 		lab {set d [list $prop [say $prop] entry  {-width 20}]}
! 		ldx {set d [list $prop [say $prop] integer {-width 5}]}
! 		ldy {set d [list $prop [say $prop] integer {-width 5}]}
  		fstyle {
! 			set options [list  [say $prop] "courier" "helvetica" "times"]
! 			set d [list $prop $options choice {}]
  		}
! 		fs   {set d [list $prop [say $prop] fontsize {-width 5}]}
! 		bcol {set d [list $prop [say $prop] color {}]}
! 		fcol {set d [list $prop [say $prop] color {}]}
! 		lcol {set d [list $prop [say $prop] color {}]}
! 		default {set d [list $prop "huh, [say $prop]" integer {}]}
! 	    }
! 	    properties_dialog $self .$self iemgui_ok $d
  	}
  	
***************
*** 4204,4208 ****
      global _ look key
      foreach {name label type options} $struct {
! 		set f $w.$name
          switch -- $type {
  	    side {
--- 4206,4211 ----
      global _ look key
      foreach {name label type options} $struct {
! 	set f $w.$name
! 	if {$label == ""} {set label [say $label]}
          switch -- $type {
  	    side {
***************
*** 4369,4375 ****
  proc balloon {w help} {
      bind $w <Any-Enter> "after 500 [list balloon:show %W [list $help]]"
!     bind $w <Any-Leave> "destroy %W.balloon; puts \"destroy balloon\" "
!   }
!   
  proc balloon:show {w arg} {
      if {[eval winfo containing  [winfo pointerxy .]]!=$w} {return}
--- 4372,4379 ----
  proc balloon {w help} {
      bind $w <Any-Enter> "after 500 [list balloon:show %W [list $help]]"
!     #bind $w <Any-Leave> "destroy %W.balloon; puts \"destroy balloon\" "
!     bind $w <Any-Leave> "destroy %W.balloon"
! }
! 
  proc balloon:show {w arg} {
      if {[eval winfo containing  [winfo pointerxy .]]!=$w} {return}