[PD-cvs] pd/src desire.tk,1.1.2.434,1.1.2.435

Mathieu Bouchard matju at users.sourceforge.net
Thu Aug 31 19:22:59 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
introducing def Canvas widget, for GOP


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.434
retrieving revision 1.1.2.435
diff -C2 -d -r1.1.2.434 -r1.1.2.435
*** desire.tk	31 Aug 2006 17:00:03 -0000	1.1.2.434
--- desire.tk	31 Aug 2006 17:22:56 -0000	1.1.2.435
***************
*** 38,42 ****
  package require objective
  
! #if {[catch {source profdd.tcl}]} {error_dump}
  if {[file exists debug.tcl]} {
  	source debug.tcl
--- 38,42 ----
  package require objective
  
! if {[catch {source profdd.tcl}]} {error_dump}
  if {[file exists debug.tcl]} {
[...996 lines suppressed...]
  	global tooltip
! 	set c [$self widget]
  	$c delete tooltip_bg tooltip_fg
  	set tooltip(visible) 0
***************
*** 4819,4824 ****
  def TextBox propose_completions {} {
  	global class_list
! 	set widget .$@canvas.c.${self}text
! 	set propose .$@canvas.c.${self}propose
  	#$propose configure -state normal
  	if {![info exists class_list]} {
--- 4821,4827 ----
  def TextBox propose_completions {} {
  	global class_list
! 	set c [$@canvas widget]
! 	set widget $c.${self}text
! 	set propose $c.${self}propose
  	#$propose configure -state normal
  	if {![info exists class_list]} {





More information about the Pd-cvs mailing list