[PD-cvs] pd/src desire.tk,1.1.2.45,1.1.2.46
Mathieu Bouchard
matju at users.sourceforge.net
Tue Sep 13 21:42:40 CEST 2005
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 ----
More information about the Pd-cvs
mailing list