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}