Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30506
Modified Files: Tag: devel_0_39 desire.tk Log Message: .
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.181 retrieving revision 1.1.2.182 diff -C2 -d -r1.1.2.181 -r1.1.2.182 *** desire.tk 22 Apr 2006 16:39:11 -0000 1.1.2.181 --- desire.tk 22 Apr 2006 17:01:03 -0000 1.1.2.182 *************** *** 1037,1042 **** set @selection_wire {} set @focus "" ! set @current_x 30 ! set @current_y 30 set @editmode $editable set @select_by "" --- 1037,1041 ---- set @selection_wire {} set @focus "" ! set @curpos {30 30} set @editmode $editable set @select_by "" *************** *** 1586,1590 **** set y [$c canvasy $y] if {$tooltip(visible)} { ! if {[expr [distance [list $tooltip(mx) $tooltip(my)] [list $x $y]] > 10]} { $tooltip(canvas) hide_tooltip } --- 1585,1589 ---- set y [$c canvasy $y] if {$tooltip(visible)} { ! if {[expr [distance $tooltip(curpos) [list $x $y]] > 10]} { $tooltip(canvas) hide_tooltip } *************** *** 1593,1598 **** set @dehighlight {} # backup values ! set ox $@current_x; set @current_x $x ! set oy $@current_y; set @current_y $y if {[llength [$c gettags lnew]]} { mset {ox1 oy1 ox2 oy2} [lrange [$c coords lnew] end-3 end] --- 1592,1597 ---- set @dehighlight {} # backup values ! set oldpos $@curpos ! set @curpos [list $x $y] if {[llength [$c gettags lnew]]} { mset {ox1 oy1 ox2 oy2} [lrange [$c coords lnew] end-3 end] *************** *** 3165,3170 **** ############ tooltips
! set tooltip(mx) -1000 ! set tooltip(my) -1000 set tooltip(canvas) "" set tooltip(visible) 0 --- 3164,3168 ---- ############ tooltips
! set tooltip(curpos) {-1000 -1000} set tooltip(canvas) "" set tooltip(visible) 0 *************** *** 3188,3193 **** -fill "#ffffcc" -outline "#000000" -tags tooltip_bg $c lower tooltip_bg tooltip_fg ! set tooltip(mx) $@current_x ! set tooltip(my) $@current_y set tooltip(canvas) $self set tooltip(visible) 1 --- 3186,3190 ---- -fill "#ffffcc" -outline "#000000" -tags tooltip_bg $c lower tooltip_bg tooltip_fg ! set tooltip(curpos) $@curpos set tooltip(canvas) $self set tooltip(visible) 1 *************** *** 3209,3213 **** def ClassBrowser init {name} { set @name $name ! pd "pd update-path ; pd update-class-list $self list_callback" }
--- 3206,3211 ---- def ClassBrowser init {name} { set @name $name ! pd pd update-path ! pd pd update-class-list $self list_callback }
*************** *** 3243,3246 **** --- 3241,3251 ---- }
+ def ClassBrowser info {} { + set f .$self.cl + set i [$f.1 curselection] + set class [$f.1 get $i] + pd pd update-class-info $class $self info_callback + } + def ClassBrowser list_callback {} { global class_list *************** *** 3251,3257 **** pack [frame $f] -side top -fill both -expand yes pack [label .browser.title -text ""] -side top ! listbox $f.1 -width 30 -height 10 -yscrollcommand "$f.2 set" scrollbar $f.2 -command "$f.1 yview" ! text $f.3 -width 30 -height 10 -yscrollcommand "$f.4 set" scrollbar $f.4 -command "$f.3 yview"
--- 3256,3262 ---- pack [frame $f] -side top -fill both -expand yes pack [label .browser.title -text ""] -side top ! listbox $f.1 -width 40 -height 20 -yscrollcommand "$f.2 set" scrollbar $f.2 -command "$f.1 yview" ! text $f.3 -width 40 -height 20 -yscrollcommand "$f.4 set" scrollbar $f.4 -command "$f.3 yview"
*************** *** 3272,3284 **** pack $b -side bottom -fill x -expand no $self fill_box "" ! bind $f.1 <Button-1> { ! after 1 { ! set self browser ! set f .$self.cl ! set i [$f.1 curselection] ! set class [$f.1 get $i] ! pd pd update-class-info $class $self info_callback ! } ! } #bind $b.2 <KeyPress> {after 1 " $self fill_box [.browser.butt.2 get]"} bind $b.2 <KeyPress> {after 1 "browser fill_box [.browser.butt.2 get]"} --- 3277,3281 ---- pack $b -side bottom -fill x -expand no $self fill_box "" ! bind $f.1 <Button-1> "after 1 "$self info"" #bind $b.2 <KeyPress> {after 1 " $self fill_box [.browser.butt.2 get]"} bind $b.2 <KeyPress> {after 1 "browser fill_box [.browser.butt.2 get]"}