[PD-cvs] pd/src desire.tk, 1.1.2.600.2.93, 1.1.2.600.2.94 TODO, 1.1.2.28.2.10, 1.1.2.28.2.11

[chunlee]

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.