[PD-cvs] pd/src desire.tk,1.1.2.556,1.1.2.557

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixing previous commits


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.556
retrieving revision 1.1.2.557
diff -C2 -d -r1.1.2.556 -r1.1.2.557
*** desire.tk	17 Nov 2006 06:55:46 -0000	1.1.2.556
--- desire.tk	17 Nov 2006 07:20:58 -0000	1.1.2.557
***************
*** 6207,6211 ****
  def Dialog add_folders {f name label} {
  	set v $_($self:$name) ;# bug in poetcl
- 	set no_max_label 1
  	frame $f
  	frame $f.a
--- 6207,6210 ----
***************
*** 6231,6235 ****
  def Dialog add_libraries {f name label} {
  	set v $_($self:$name) ;# bug in objtcl
- 	set no_max_label 1
  	frame $f
  	frame $f.a
--- 6230,6233 ----
***************
*** 6296,6305 ****
  }
  
! def Dialog listbox_up {listbox} {
  	set sel [$listbox curselection]
! 	if {$sel == 0} {return}
  	set line [$listbox get $sel]
  	$listbox delete $sel
! 	incr sel -1
  	$listbox insert $sel $line
  	$listbox selection set $sel
--- 6294,6304 ----
  }
  
! def Dialog listbox_swap {listbox dir} {
  	set sel [$listbox curselection]
! 	if {$sel == ""} {return}
! 	if {![inside [expr $sel+$dir] 0 [expr [$listbox size] - 1]]} {return}
  	set line [$listbox get $sel]
  	$listbox delete $sel
! 	incr sel $dir
  	$listbox insert $sel $line
  	$listbox selection set $sel
***************
*** 6307,6320 ****
  }
  
! def Dialog listbox_down {listbox} {
! 	set sel [$listbox curselection]
! 	if {$sel == "" || $sel == [expr [$listbox size] - 1]} {return}
! 	set line [$listbox get $sel]
! 	$listbox delete $sel
! 	incr sel
! 	$listbox insert $sel $line
! 	$listbox selection set $sel
! 	$listbox see $sel
! }
  
  def Dialog add {w args} {
--- 6306,6311 ----
  }
  
! def Dialog listbox_up   {listbox} {$self listbox_swap $listbox -1}
! def Dialog listbox_down {listbox} {$self listbox_swap $listbox +1}
  
  def Dialog add {w args} {
***************
*** 6340,6345 ****
  			key       {set f $w.[string tolower [lindex $name 0]]
  				   $self add_key       $f $name $label}
! 			folders   {$self add_folders   $f $name $label}
! 			libraries {$self add_libraries $f $name $label}
  			section    {label $f -text $label -bg "#0000aa" -fg "#ffff55" -font {helvetica -10 bold}}
  			subsection {label $f -text $label -bg "#0000aa" -fg "#ffff55" -font {helvetica -10 bold}}
--- 6331,6336 ----
  			key       {set f $w.[string tolower [lindex $name 0]]
  				   $self add_key       $f $name $label}
! 			folders   {$self add_folders   $f $name $label; set no_max_label 1}
! 			libraries {$self add_libraries $f $name $label;	set no_max_label 1}
  			section    {label $f -text $label -bg "#0000aa" -fg "#ffff55" -font {helvetica -10 bold}}
  			subsection {label $f -text $label -bg "#0000aa" -fg "#ffff55" -font {helvetica -10 bold}}
***************
*** 6378,6382 ****
  		pack $f -side top -fill x
  		if {!$no_max_label} {
! 			catch {$f.label configure -width $_($self:max_label) -anchor e}
  		}
  	}
--- 6369,6373 ----
  		pack $f -side top -fill x
  		if {!$no_max_label} {
! 			catch {$f.label configure -width $@max_label -anchor e}
  		}
  	}