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