pd/src desire.tk,1.1.2.54,1.1.2.55 - Pd-cvs

14 Sep 2005


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv457
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
more stuff, like.
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.54
retrieving revision 1.1.2.55
diff -C2 -d -r1.1.2.54 -r1.1.2.55
*** desire.tk	14 Sep 2005 07:53:11 -0000	1.1.2.54
--- desire.tk	14 Sep 2005 09:49:17 -0000	1.1.2.55
***************
*** 52,61 ****
  }
! proc lookup_method {class selector listvar} {
    global _
! 	upvar $listvar lv
    set name ${class}_$selector
! 	if {[llength [info procs $name]]} {lappend lv $name}
! 	foreach super $_($class:_super) {lookup_method $super $selector lv}
  }
[...1526 lines suppressed...]
    	-fill "#ffffcc" -outline "#000000" -tags tooltip_bg
! 	$c lower tooltip_bg tooltip_fg
    set tooltip(mx) $current_x
    set tooltip(my) $current_y
***************
*** 3131,3136 ****
  }
! proc hide_canvas_tooltip {canvas} {
! 	$canvas delete tooltip_bg tooltip_fg
    global tooltip
    set tooltip(visible) 0
--- 3044,3050 ----
  }
! def canvas hide_tooltip {} {
! 	set c .x$self.c
! 	$c delete tooltip_bg tooltip_fg
    global tooltip
    set tooltip(visible) 0