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

Modified Files: Tag: devel_0_39 desire.tk Log Message: removing most pdtk_ prefixes. more cleanup.

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.45 retrieving revision 1.1.2.46 diff -C2 -d -r1.1.2.45 -r1.1.2.46 *** desire.tk 13 Sep 2005 11:19:46 -0000 1.1.2.45 --- desire.tk 13 Sep 2005 19:42:38 -0000 1.1.2.46 *************** *** 197,201 **** menu .mbar.file -tearoff $pd_tearoff; .mbar add cascade -label "File" -menu .mbar.file menu .mbar.find -tearoff $pd_tearoff; .mbar add cascade -label "Find" -menu .mbar.find ! menu .mbar.windows -postcommand pdtk_fixwindowmenu -tearoff $pd_tearoff menu .mbar.media -tearoff $pd_tearoff # Mac HIG want "Window Help" as the last menus --- 197,201 ---- menu .mbar.file -tearoff $pd_tearoff; .mbar add cascade -label "File" -menu .mbar.file menu .mbar.find -tearoff $pd_tearoff; .mbar add cascade -label "Find" -menu .mbar.find ! menu .mbar.windows -postcommand fixwindowmenu -tearoff $pd_tearoff menu .mbar.media -tearoff $pd_tearoff [...1051 lines suppressed...] *** 3112,3116 **** canvas $canvas.${self}DROP -width $xs -height $xs -bg $colour -highlightbackground $lcolour -highlightcolor $colour $canvas create window [expr $x1 + 7] [expr $y1 - 2] -window $canvas.${self}DROP -anchor nw -tags $canvas.${self}window ! dnd bindtarget $canvas.${self}DROP text/uri-list <Drop> "pd "x[list ${self}] symbol [ pdtk_enquote %D ] ;"" } { $canvas coords $canvas.${self}window [expr $x1 + 7] [expr $y1 - 2] --- 3097,3101 ---- canvas $canvas.${self}DROP -width $xs -height $xs -bg $colour -highlightbackground $lcolour -highlightcolor $colour $canvas create window [expr $x1 + 7] [expr $y1 - 2] -window $canvas.${self}DROP -anchor nw -tags $canvas.${self}window ! dnd bindtarget $canvas.${self}DROP text/uri-list <Drop> "pd "x[list ${self}] symbol [ enquote %D ] ;"" } { $canvas coords $canvas.${self}window [expr $x1 + 7] [expr $y1 - 2] *************** *** 3130,3134 **** set xs $@w set ys $@h - set isnew [expr [llength [$canvas gettags ${self}BASE]] == 0] item $self $canvas BASE rectangle $x1 $y1 [expr $x1+$xs] [expr $y1+$ys] \ -fill [parse_color $@bcol] --- 3115,3118 ----