Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26812
Modified Files: Tag: desiredata desire.tk TODO Log Message: shrunk ClientPregsDialog stage1
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.93 retrieving revision 1.1.2.600.2.94 diff -C2 -d -r1.1.2.600.2.93 -r1.1.2.600.2.94 *** desire.tk 15 Dec 2006 14:49:05 -0000 1.1.2.600.2.93 --- desire.tk 15 Dec 2006 15:59:38 -0000 1.1.2.600.2.94 *************** *** 5980,5984 **** def Dialog add_color {f name label} { $self add_stuff $f $name $label ! set v $_($self:$name) ;# bug in poetcl set text_color [complement $v] button $f.color -text $v -font {Courier 10} -width 10 -pady 2 -fg $text_color \ --- 5980,5984 ---- def Dialog add_color {f name label} { $self add_stuff $f $name $label ! set v $@$name set text_color [complement $v] button $f.color -text $v -font {Courier 10} -width 10 -pady 2 -fg $text_color \ *************** *** 6021,6028 **** set v $_($self:$item) ;# bug in objtcl set item_lower [string tolower $item] ! entry $f.$item_lower -width 15 ! $f.$item_lower insert 0 $v pack $f.$item_lower -side left - #bind $f.$item <Return> "" } } --- 6021,6026 ---- set v $_($self:$item) ;# bug in objtcl set item_lower [string tolower $item] ! entry $f.$item_lower -width 15 -textvariable @$name pack $f.$item_lower -side left } } *************** *** 6453,6456 **** --- 6451,6455 ---- set @$var $color set col [format #%6.6x $color] + if {$self == "ddrc"} {set @$var $col} $frame.color configure -background $col -foreground [complement $col] -text $col if {$self != "ddrc"} {$self do_auto_apply} *************** *** 6914,6918 **** #this retrives the values set in the editor def ClientPrefsDialog get_val {} { ! global ddrc_options look key set check_key {} foreach {type class name} $ddrc_options { --- 6913,6917 ---- #this retrives the values set in the editor def ClientPrefsDialog get_val {} { ! global ddrc_options look key accels set check_key {} foreach {type class name} $ddrc_options { *************** *** 6920,6932 **** color { set str [string tolower $class$name] ! set str2 ${str}path ! set new_color [$@$str2 cget -background] set look($class:$name) $new_color } key { foreach item $name { ! set str [string tolower $class$item] ! set str2 ${str}path ! set new_key [$@$str2 get] set old_key $key($class:$item) if {$key($class:$item) != $new_key} { --- 6919,6928 ---- color { set str [string tolower $class$name] ! set new_color $@$str set look($class:$name) $new_color } key { foreach item $name { ! set new_key $@$item set old_key $key($class:$item) if {$key($class:$item) != $new_key} { *************** *** 6944,6951 **** } ! toggle { ! set var [string tolower $class$name] ! set look($class:$name) $_($self:$var) ! } font {set look(View:font) $@str} integer {set look($class:$name) $@$name} --- 6940,6944 ---- } ! toggle {set look($class:$name) $@$name} font {set look(View:font) $@str} integer {set look($class:$name) $@$name} *************** *** 6998,7001 **** --- 6991,6995 ---- choice { if {$name == "lang"} { + set @$name $look(Client:lang) set _($self:${name}2) $look(Client:lang); # textvariable for the button set ops $langoptions *************** *** 7005,7036 **** color { set str [string tolower $class$name] - set str2 ${str}path - set @$str2 $which_section.$str.color set @$str $look($class:$name) $self add $which_section [list $str color] } key { - set l {} foreach item $name { ! set str0 [string tolower [lindex $name 0]] ! set str0 [string tolower $class$str0] ! set str [string tolower $class$item] ! set str2 ${str}path ! set @$str $key($class:$item) ! set @$str2 $which_section.$str0.[string tolower $str] ! lappend l $str } ! $self add $which_section [list $l $type] } toggle { ! set str [string tolower $class$name] ! set str2 ${str}path ! set @$str2 $which_section.$name.color ! set @$str $look($class:$name) ! $self add $which_section [list [lindex $str 0] toggle] } font { - set str "[string tolower $class$name]path" - set @$str $which_section $self add_font $which_section } --- 6999,7016 ---- color { set str [string tolower $class$name] set @$str $look($class:$name) $self add $which_section [list $str color] } key { foreach item $name { ! set @$item $key($class:$item) } ! $self add $which_section [list $name $type] } toggle { ! set @$name $look($class:$name) ! $self add $which_section [list $name toggle] } font { $self add_font $which_section }
Index: TODO =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v retrieving revision 1.1.2.28.2.10 retrieving revision 1.1.2.28.2.11 diff -C2 -d -r1.1.2.28.2.10 -r1.1.2.28.2.11 *** TODO 15 Dec 2006 01:28:50 -0000 1.1.2.28.2.10 --- TODO 15 Dec 2006 15:59:40 -0000 1.1.2.28.2.11 *************** *** 2,8 ****
---------------------------------------------------------------- 0.40.pre5 ! [ ] all_guis_and_gop.pd freezes on close. ! [ ] move -lang to ddrc [x] move -console to ddrc [ ] zoom borks horribly with an open gop. --- 2,8 ----
---------------------------------------------------------------- 0.40.pre5 ! [ ] all_guis_and_gop.pd freezes on close. ! [x] move -lang to ddrc [x] move -console to ddrc [ ] zoom borks horribly with an open gop.