[PD-cvs] pd/src desire.tk,1.1.2.54,1.1.2.55

[Mathieu Bouchard]

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