[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