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} } }