[PD-cvs] SF.net SVN: pure-data:[10615] branches/pd-devel/0.41.4/src

eighthave at users.sourceforge.net eighthave at users.sourceforge.net
Sat Jan 24 07:42:45 CET 2009


Revision: 10615
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10615&view=rev
Author:   eighthave
Date:     2009-01-24 06:42:44 +0000 (Sat, 24 Jan 2009)

Log Message:
-----------
moved the terminating semi-colon to pd_connect::pdsend for sending messages from pd-gui to pd

Modified Paths:
--------------
    branches/pd-devel/0.41.4/src/apple_events.tcl
    branches/pd-devel/0.41.4/src/pd.tk
    branches/pd-devel/0.41.4/src/pd_bindings.tcl
    branches/pd-devel/0.41.4/src/pd_connect.tcl
    branches/pd-devel/0.41.4/src/pd_iemgui.tcl
    branches/pd-devel/0.41.4/src/pd_menucommands.tcl
    branches/pd-devel/0.41.4/src/pd_menus.tcl
    branches/pd-devel/0.41.4/src/pdtk_canvas.tcl
    branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl

Modified: branches/pd-devel/0.41.4/src/apple_events.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/apple_events.tcl	2009-01-24 05:50:16 UTC (rev 10614)
+++ branches/pd-devel/0.41.4/src/apple_events.tcl	2009-01-24 06:42:44 UTC (rev 10615)
@@ -34,7 +34,7 @@
 #proc ::tk::mac::Quit {} {
 #	# TODO sort this out... how to quit pd-gui after sending the message
 #	puts stderr "Custom exit proc"
-#	pdsend "pd verifyquit;"
+#	pdsend "pd verifyquit"
 #}
 
 # these I gleaned by reading the source (tkMacOSXHLEvents.c)

Modified: branches/pd-devel/0.41.4/src/pd.tk
===================================================================
--- branches/pd-devel/0.41.4/src/pd.tk	2009-01-24 05:50:16 UTC (rev 10614)
+++ branches/pd-devel/0.41.4/src/pd.tk	2009-01-24 06:42:44 UTC (rev 10615)
@@ -138,7 +138,7 @@
 	pdtk_post "args: $args"
 	set oldtclversion 0
 	set fontlist "8 5 10 9 6 11 10 6 13 12 7 15 14 8 17 16 10 20 18 11 22 24 14 30 30 18 37 36 22 45"
-	pdsend "pd init [pdtk_enquote [pwd]] $oldtclversion $fontlist ;"
+	pdsend "pd init [pdtk_enquote [pwd]] $oldtclversion $fontlist"
 	# TODO what else is needed from the original?
 }
 

Modified: branches/pd-devel/0.41.4/src/pd_bindings.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_bindings.tcl	2009-01-24 05:50:16 UTC (rev 10614)
+++ branches/pd-devel/0.41.4/src/pd_bindings.tcl	2009-01-24 06:42:44 UTC (rev 10615)
@@ -28,15 +28,15 @@
 	bind $mytoplevel <$modifier-Key-n>        "menu_new"
 	bind $mytoplevel <$modifier-Key-o>        "menu_open"
 	bind $mytoplevel <$modifier-Key-p>        "menu_print $mytoplevel"
-	bind $mytoplevel <$modifier-Key-q>        "pdsend \"pd verifyquit ;\""
+	bind $mytoplevel <$modifier-Key-q>        "pdsend \"pd verifyquit\""
 	bind $mytoplevel <$modifier-Key-r>        "menu_raise_pdwindow"
 	bind $mytoplevel <$modifier-Shift-Key-L>  "menu_clear_console"
-	bind $mytoplevel <$modifier-Shift-Key-Q>  "pdsend \"pd quit ;\""
+	bind $mytoplevel <$modifier-Shift-Key-Q>  "pdsend \"pd quit\""
 	bind $mytoplevel <$modifier-Shift-Key-R>  "menu_toggle_console"
 
 	# DSP control
-	bind $mytoplevel <$modifier-Key-slash>    "pdsend \"pd dsp 1 ;\""
-	bind $mytoplevel <$modifier-Key-period>   "pdsend \"pd dsp 0 ;\""
+	bind $mytoplevel <$modifier-Key-slash>    "pdsend \"pd dsp 1\""
+	bind $mytoplevel <$modifier-Key-period>   "pdsend \"pd dsp 0\""
 }
 
 proc ::pd_bindings::pdwindow_bindings {mytoplevel} {
@@ -54,7 +54,7 @@
 	}
 
 	# Tcl event bindings
-	wm protocol $mytoplevel WM_DELETE_WINDOW "pdsend \"pd verifyquit ;\""
+	wm protocol $mytoplevel WM_DELETE_WINDOW "pdsend \"pd verifyquit\""
 
 	# do window maintenance when entering the Pd window (Window menu, scrollbars, etc)
 	#bind $mytoplevel <FocusIn> {pdtk_pdwindowmaintenance}
@@ -79,36 +79,36 @@
 	window_bindings $mytoplevel
 
 	# key bindings -------------------------------------------------------------
-	bind $mytoplevel <$modifier-Key-1>        "pdsend \"$mytoplevel obj ;\""
-	bind $mytoplevel <$modifier-Key-2>        "pdsend \"$mytoplevel msg ;\""
-	bind $mytoplevel <$modifier-Key-3>        "pdsend \"$mytoplevel floatatom ;\""
-	bind $mytoplevel <$modifier-Key-4>        "pdsend \"$mytoplevel symbolatom ;\""
-	bind $mytoplevel <$modifier-Key-5>        "pdsend \"$mytoplevel text ;\""
-	bind $mytoplevel <$modifier-Key-a>        "pdsend \"$mytoplevel selectall ;\""
-	bind $mytoplevel <$modifier-Key-c>        "pdsend \"$mytoplevel copy ;\""
-	bind $mytoplevel <$modifier-Key-d>        "pdsend \"$mytoplevel duplicate ;\""
-	bind $mytoplevel <$modifier-Key-e>        "pdsend \"$mytoplevel editmode 0 ;\""
-	bind $mytoplevel <$modifier-Key-g>        "pdsend \"$mytoplevel findagain ;\""
-	bind $mytoplevel <$modifier-Key-s>        "pdsend \"$mytoplevel menusave ;\""
-	bind $mytoplevel <$modifier-Key-v>        "pdsend \"$mytoplevel paste ;\""
-	bind $mytoplevel <$modifier-Key-w>        "pdsend \"$mytoplevel menuclose 0 ;\""
-	bind $mytoplevel <$modifier-Key-x>        "pdsend \"$mytoplevel cut ;\""
+	bind $mytoplevel <$modifier-Key-1>        "pdsend \"$mytoplevel obj\""
+	bind $mytoplevel <$modifier-Key-2>        "pdsend \"$mytoplevel msg\""
+	bind $mytoplevel <$modifier-Key-3>        "pdsend \"$mytoplevel floatatom\""
+	bind $mytoplevel <$modifier-Key-4>        "pdsend \"$mytoplevel symbolatom\""
+	bind $mytoplevel <$modifier-Key-5>        "pdsend \"$mytoplevel text\""
+	bind $mytoplevel <$modifier-Key-a>        "pdsend \"$mytoplevel selectall\""
+	bind $mytoplevel <$modifier-Key-c>        "pdsend \"$mytoplevel copy\""
+	bind $mytoplevel <$modifier-Key-d>        "pdsend \"$mytoplevel duplicate\""
+	bind $mytoplevel <$modifier-Key-e>        "pdsend \"$mytoplevel editmode 0\""
+	bind $mytoplevel <$modifier-Key-g>        "pdsend \"$mytoplevel findagain\""
+	bind $mytoplevel <$modifier-Key-s>        "pdsend \"$mytoplevel menusave\""
+	bind $mytoplevel <$modifier-Key-v>        "pdsend \"$mytoplevel paste\""
+	bind $mytoplevel <$modifier-Key-w>        "pdsend \"$mytoplevel menuclose 0\""
+	bind $mytoplevel <$modifier-Key-x>        "pdsend \"$mytoplevel cut\""
 	bind $mytoplevel <$modifier-Key-z>        "menu_undo $mytoplevel"
-	bind $mytoplevel <$modifier-Key-slash>    "pdsend \"pd dsp 1 ;\""
-	bind $mytoplevel <$modifier-Key-period>   "pdsend \"pd dsp 0 ;\""
+	bind $mytoplevel <$modifier-Key-slash>    "pdsend \"pd dsp 1\""
+	bind $mytoplevel <$modifier-Key-period>   "pdsend \"pd dsp 0\""
 
 	# annoying, but Tk's bind needs uppercase letter to get the Shift
-	bind $mytoplevel <$modifier-Shift-Key-B> "pdsend \"$mytoplevel bng 1 ;\""
-	bind $mytoplevel <$modifier-Shift-Key-C> "pdsend \"$mytoplevel mycnv 1 ;\""
-	bind $mytoplevel <$modifier-Shift-Key-D> "pdsend \"$mytoplevel vradio 1 ;\""
-	bind $mytoplevel <$modifier-Shift-Key-H> "pdsend \"$mytoplevel hslider 1 ;\""
-	bind $mytoplevel <$modifier-Shift-Key-I> "pdsend \"$mytoplevel hradio 1 ;\""
-	bind $mytoplevel <$modifier-Shift-Key-N> "pdsend \"$mytoplevel numbox 1 ;\""
-	bind $mytoplevel <$modifier-Shift-Key-S> "pdsend \"$mytoplevel menusaveas ;\""
-	bind $mytoplevel <$modifier-Shift-Key-T> "pdsend \"$mytoplevel toggle 1 ;\""
-	bind $mytoplevel <$modifier-Shift-Key-U> "pdsend \"$mytoplevel vumeter 1 ;\""
-	bind $mytoplevel <$modifier-Shift-Key-V> "pdsend \"$mytoplevel vslider 1 ;\""
-	bind $mytoplevel <$modifier-Shift-Key-W> "pdsend \"$mytoplevel menuclose 1 ;\""
+	bind $mytoplevel <$modifier-Shift-Key-B> "pdsend \"$mytoplevel bng 1\""
+	bind $mytoplevel <$modifier-Shift-Key-C> "pdsend \"$mytoplevel mycnv 1\""
+	bind $mytoplevel <$modifier-Shift-Key-D> "pdsend \"$mytoplevel vradio 1\""
+	bind $mytoplevel <$modifier-Shift-Key-H> "pdsend \"$mytoplevel hslider 1\""
+	bind $mytoplevel <$modifier-Shift-Key-I> "pdsend \"$mytoplevel hradio 1\""
+	bind $mytoplevel <$modifier-Shift-Key-N> "pdsend \"$mytoplevel numbox 1\""
+	bind $mytoplevel <$modifier-Shift-Key-S> "pdsend \"$mytoplevel menusaveas\""
+	bind $mytoplevel <$modifier-Shift-Key-T> "pdsend \"$mytoplevel toggle 1\""
+	bind $mytoplevel <$modifier-Shift-Key-U> "pdsend \"$mytoplevel vumeter 1\""
+	bind $mytoplevel <$modifier-Shift-Key-V> "pdsend \"$mytoplevel vslider 1\""
+	bind $mytoplevel <$modifier-Shift-Key-W> "pdsend \"$mytoplevel menuclose 1\""
 	bind $mytoplevel <$modifier-Shift-Key-Z> "menu_redo $mytoplevel"
 	
 	if {$::windowingsystem eq "aqua"} {
@@ -161,6 +161,6 @@
 	#bind $mytoplevel <FocusIn> {pdtk_canvaswindowmaintenance}
 
 	# window protocol bindings
-    wm protocol $mytoplevel WM_DELETE_WINDOW "pdsend \"$mytoplevel menuclose 0 ;\""
+    wm protocol $mytoplevel WM_DELETE_WINDOW "pdsend \"$mytoplevel menuclose 0\""
 }
 

Modified: branches/pd-devel/0.41.4/src/pd_connect.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_connect.tcl	2009-01-24 05:50:16 UTC (rev 10614)
+++ branches/pd-devel/0.41.4/src/pd_connect.tcl	2009-01-24 06:42:44 UTC (rev 10615)
@@ -50,6 +50,7 @@
 # [send] in Pd, except the first argument is the name to send to.
 proc ::pd_connect::pdsend {message} { # 'args' is special, it gets everything
 	variable pd_socket
+	append message \;
 	if {[catch {puts $pd_socket $message} errorname]} {
 		puts stderr "pdsend errorname: >>$errorname<<"
 		error "Not connected to 'pd' process"

Modified: branches/pd-devel/0.41.4/src/pd_iemgui.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_iemgui.tcl	2009-01-24 05:50:16 UTC (rev 10614)
+++ branches/pd-devel/0.41.4/src/pd_iemgui.tcl	2009-01-24 06:42:44 UTC (rev 10615)
@@ -382,11 +382,10 @@
 			[eval concat $$var_iemgui_bcol] \
 			[eval concat $$var_iemgui_fcol] \
 			[eval concat $$var_iemgui_lcol] \
-			[eval concat $$var_iemgui_steady] \
-			\;]
+			[eval concat $$var_iemgui_steady]]
 }
 
-proc ::pd_iemgui::cancel {id} {pdsend "$id cancel ;"}
+proc ::pd_iemgui::cancel {id} {pdsend "$id cancel"}
 
 proc ::pd_iemgui::ok {id} {
     ::pd_iemgui::apply $id

Modified: branches/pd-devel/0.41.4/src/pd_menucommands.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_menucommands.tcl	2009-01-24 05:50:16 UTC (rev 10614)
+++ branches/pd-devel/0.41.4/src/pd_menucommands.tcl	2009-01-24 06:42:44 UTC (rev 10615)
@@ -17,9 +17,9 @@
 proc ::pd_menucommands::menu_new {} {
     variable untitled_number
     variable untitled_directory
-    pdsend "pd filename Untitled-$untitled_number $untitled_directory ;"
-    pdsend "#N canvas ;"
-	pdsend "#X pop 1 ;"
+    pdsend "pd filename Untitled-$untitled_number $untitled_directory"
+    pdsend "#N canvas"
+	pdsend "#X pop 1"
     set untitled_number [expr $untitled_number + 1]
 }
 

Modified: branches/pd-devel/0.41.4/src/pd_menus.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_menus.tcl	2009-01-24 05:50:16 UTC (rev 10614)
+++ branches/pd-devel/0.41.4/src/pd_menus.tcl	2009-01-24 06:42:44 UTC (rev 10615)
@@ -80,10 +80,10 @@
 	[format build_file_menu_%s $::windowingsystem] $mymenu
 	$mymenu entryconfigure [say "new_file"]   -command "menu_new"
 	$mymenu entryconfigure [say "Open"]       -command "menu_open"
-	$mymenu entryconfigure [say "Save"]       -command "pdsend \"$mytoplevel menusave ;\""
-	$mymenu entryconfigure [say "Save As..."] -command "pdsend \"$mytoplevel menusaveas ;\""
+	$mymenu entryconfigure [say "Save"]       -command "pdsend \"$mytoplevel menusave\""
+	$mymenu entryconfigure [say "Save As..."] -command "pdsend \"$mytoplevel menusaveas\""
 	#	$mymenu entryconfigure "Revert*"    -command "menu_revert $mytoplevel"
-	$mymenu entryconfigure [say "Close"]      -command "pdsend \"$mytoplevel menuclose 0 ;\""
+	$mymenu entryconfigure [say "Close"]      -command "pdsend \"$mytoplevel menuclose 0\""
 	$mymenu entryconfigure [say "Message"]    -command "menu_message_panel"
 	$mymenu entryconfigure [say "Print..."]   -command "menu_print $mytoplevel"
 }
@@ -96,15 +96,15 @@
 		-command "menu_redo $mytoplevel"
 	$mymenu add  separator
 	$mymenu add command -label [say "Cut"]        -accelerator "$accelerator+X" \
-		-command "pdsend \"$mytoplevel cut ;\""
+		-command "pdsend \"$mytoplevel cut\""
 	$mymenu add command -label [say "Copy"]       -accelerator "$accelerator+C" \
-		-command "pdsend \"$mytoplevel copy ;\""
+		-command "pdsend \"$mytoplevel copy\""
 	$mymenu add command -label [say "Paste"]      -accelerator "$accelerator+V" \
-		-command "pdsend \"$mytoplevel paste ;\""
+		-command "pdsend \"$mytoplevel paste\""
 	$mymenu add command -label [say "Duplicate"]  -accelerator "$accelerator+D" \
-		-command "pdsend \"$mytoplevel duplicate ;\""
+		-command "pdsend \"$mytoplevel duplicate\""
 	$mymenu add command -label [say "Select All"] -accelerator "$accelerator+A" \
-		-command "pdsend \"$mytoplevel selectall ;\""
+		-command "pdsend \"$mytoplevel selectall\""
 	$mymenu add  separator
 	if {$::windowingsystem eq "aqua"} {
 		$mymenu add command -label [say "Text Editor"] \
@@ -118,7 +118,7 @@
 			-command "menu_font $mytoplevel"
 	}
 	$mymenu add command -label [say "Tidy Up"] \
-		-command "pdsend \"$mytoplevel tidy ;\""
+		-command "pdsend \"$mytoplevel tidy\""
 	$mymenu add command -label [say "Toggle Console"] -accelerator "Shift+$accelerator+R" \
 		-command {.controls.switches.console invoke}
 	$mymenu add command -label [say "Clear Console"] -accelerator "Shift+$accelerator+L" \
@@ -126,7 +126,7 @@
 	$mymenu add  separator
 	$mymenu add radiobutton -label [say "Edit Mode"] -accelerator "$accelerator+E" \
 		-indicatoron true -selectcolor grey85 \
-		-command "pdsend \"$mytoplevel editmode 0 ;\""
+		-command "pdsend \"$mytoplevel editmode 0\""
 	#    if { $editable == 0 } {
 	#        $mymenu entryconfigure "Edit Mode" -indicatoron false 
 	#    }
@@ -145,37 +145,37 @@
 proc ::pd_menus::build_put_menu {mymenu mytoplevel} {
 	variable accelerator
 	$mymenu add command -label [say "Object"] -accelerator "$accelerator+1" \
-		-command "pdsend \"$mytoplevel obj 0;\"" 
+		-command "pdsend \"$mytoplevel obj 0\"" 
 	$mymenu add command -label [say "Message"] -accelerator "$accelerator+2" \
-		-command "pdsend \"$mytoplevel msg 0;\""
+		-command "pdsend \"$mytoplevel msg 0\""
 	$mymenu add command -label [say "Number"] -accelerator "$accelerator+3" \
-		-command "pdsend \"$mytoplevel floatatom  0;\""
+		-command "pdsend \"$mytoplevel floatatom  0\""
 	$mymenu add command -label [say "Symbol"] -accelerator "$accelerator+4" \
-		-command "pdsend \"$mytoplevel symbolatom  0;\""
+		-command "pdsend \"$mytoplevel symbolatom  0\""
 	$mymenu add command -label [say "Comment"] -accelerator "$accelerator+5" \
-		-command "pdsend \"$mytoplevel text  0;\""
+		-command "pdsend \"$mytoplevel text  0\""
 	$mymenu add  separator
 	$mymenu add command -label [say "Bang"]    -accelerator "Shift+$accelerator+B" \
-		-command "pdsend \"$mytoplevel bng  0;\""
+		-command "pdsend \"$mytoplevel bng  0\""
 	$mymenu add command -label [say "Toggle"]  -accelerator "Shift+$accelerator+T" \
-		-command "pdsend \"$mytoplevel toggle  0;\""
+		-command "pdsend \"$mytoplevel toggle  0\""
 	$mymenu add command -label [say "Number2"] -accelerator "Shift+$accelerator+N" \
-		-command "pdsend \"$mytoplevel numbox  0;\""
+		-command "pdsend \"$mytoplevel numbox  0\""
 	$mymenu add command -label [say "Vslider"] -accelerator "Shift+$accelerator+V" \
-		-command "pdsend \"$mytoplevel vslider  0;\""
+		-command "pdsend \"$mytoplevel vslider  0\""
 	$mymenu add command -label [say "Hslider"] -accelerator "Shift+$accelerator+H" \
-		-command "pdsend \"$mytoplevel hslider  0;\""
+		-command "pdsend \"$mytoplevel hslider  0\""
 	$mymenu add command -label [say "Vradio"]  -accelerator "Shift+$accelerator+D" \
-		-command "pdsend \"$mytoplevel vradio  0;\""
+		-command "pdsend \"$mytoplevel vradio  0\""
 	$mymenu add command -label [say "Hradio"]  -accelerator "Shift+$accelerator+I" \
-		-command "pdsend \"$mytoplevel hradio  0;\""
+		-command "pdsend \"$mytoplevel hradio  0\""
 	$mymenu add command -label [say "VU Meter"] -accelerator "Shift+$accelerator+U"\
-		-command "pdsend \"$mytoplevel vumeter  0;\""
+		-command "pdsend \"$mytoplevel vumeter  0\""
 	$mymenu add command -label [say "Canvas"]  -accelerator "Shift+$accelerator+C" \
-		-command "pdsend \"$mytoplevel mycnv  0;\""
+		-command "pdsend \"$mytoplevel mycnv  0\""
 	$mymenu add  separator
-	$mymenu add command -label Graph -command "pdsend \"$mytoplevel graph ;\"" 
-	$mymenu add command -label Array -command "pdsend \"$mytoplevel menuarray ;\""
+	$mymenu add command -label Graph -command "pdsend \"$mytoplevel graph\"" 
+	$mymenu add command -label Array -command "pdsend \"$mytoplevel menuarray\""
 }
 
 proc ::pd_menus::build_find_menu {mymenu mytoplevel} {
@@ -183,17 +183,17 @@
 	$mymenu add command -label [say "Find..."]    -accelerator "$accelerator+F" \
 		-command "menu_find_panel $mytoplevel"
 	$mymenu add command -label [say "Find Again"] -accelerator "$accelerator+G" \
-		-command "pdsend \"$mytoplevel findagain ;\""
+		-command "pdsend \"$mytoplevel findagain\""
 	$mymenu add command -label [say "Find last error"] \
-		-command "pdsend \"$mytoplevel finderror ;\"" 
+		-command "pdsend \"$mytoplevel finderror\"" 
 }
 
 proc ::pd_menus::build_media_menu {mymenu mytoplevel} {
 	variable accelerator
 	$mymenu add radiobutton -label [say "Compute Audio On"] -accelerator "$accelerator+/" \
-		-command "pdsend \"pd dsp 1 ;\""
+		-command "pdsend \"pd dsp 1\""
 	$mymenu add radiobutton -label [say "Compute Audio Off"] -accelerator "$accelerator+." \
-		-command "pdsend \"pd dsp 0 ;\"" -indicatoron true 
+		-command "pdsend \"pd dsp 0\"" -indicatoron true 
 	$mymenu add  separator    
 	$mymenu add command -label [say "Test Audio and MIDI"] \
 		-command "menu_doc_open doc/7.stuff/tools testtone.pd" 
@@ -210,7 +210,7 @@
 		$mymenu add  separator
 	}
 	$mymenu add command -label [say "Parent Window"] \
-		-command "pdsend \"$mytoplevel findparent ;\""
+		-command "pdsend \"$mytoplevel findparent\""
 	$mymenu add command -label [say "Pd window"] -command "menu_raise_pdwindow" \
 		-accelerator "$accelerator+R"
 	$mymenu add  separator
@@ -290,7 +290,7 @@
 	$mymenu add  separator
 	$mymenu add command -label [say "Close"]      -accelerator "$accelerator+W"
 	$mymenu add command -label [say "Quit"]       -accelerator "$accelerator+Q" \
-		-command "pdsend \"pd verifyquit ;\""
+		-command "pdsend \"pd verifyquit\""
 }
 
 # the "Edit", "Put", and "Find" menus do not have cross-platform differences
@@ -327,7 +327,7 @@
 	$mymenu add  separator
 	$mymenu add command -label [say "Close"]    -accelerator "$accelerator+W"
 	$mymenu add command -label [say "Quit"]     -accelerator "$accelerator+Q"\
-		-command "pdsend \"pd verifyquit ;\""
+		-command "pdsend \"pd verifyquit\""
 }
 
 # the "Edit", "Put", and "Find" menus do not have cross-platform differences

Modified: branches/pd-devel/0.41.4/src/pdtk_canvas.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pdtk_canvas.tcl	2009-01-24 05:50:16 UTC (rev 10614)
+++ branches/pd-devel/0.41.4/src/pdtk_canvas.tcl	2009-01-24 06:42:44 UTC (rev 10615)
@@ -62,7 +62,7 @@
 	}
 	set dirname [file dirname $filename]
 	set basename [file tail $filename]
-	pdsend "$name savetofile [pdtk_enquote $basename] [pdtk_enquote $dirname] ;"
+	pdsend "$name savetofile [pdtk_enquote $basename] [pdtk_enquote $dirname]"
 	set ::untitled_directory $dirname
 }
 
@@ -71,24 +71,24 @@
 
 proc pdtk_canvas_motion {mycanvas x y mods} {
 	set mytoplevel [winfo toplevel $mycanvas]
-    pdsend "$mytoplevel motion [$mycanvas canvasx $x] [$mycanvas canvasy $y] $mods;"
+    pdsend "$mytoplevel motion [$mycanvas canvasx $x] [$mycanvas canvasy $y] $mods"
 }
 
 proc pdtk_canvas_mouse {mycanvas x y b f} {
 	# TODO perhaps the Tcl/C function names should match "mouse" message
 	# rather than "mousedown" function
 	set mytoplevel [winfo toplevel $mycanvas]
-    pdsend "$mytoplevel mouse [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b $f;"
+    pdsend "$mytoplevel mouse [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b $f"
 }
 
 proc pdtk_canvas_mouseup {mycanvas x y b} {
 	set mytoplevel [winfo toplevel $mycanvas]
-    pdsend "$mytoplevel mouseup [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b;"
+    pdsend "$mytoplevel mouseup [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b"
 }
 
 proc pdtk_canvas_rightclick {mycanvas x y b} {
 	set mytoplevel [winfo toplevel $mycanvas]
-    pdsend "$mytoplevel mouse [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b 8;"
+    pdsend "$mytoplevel mouse [$mycanvas canvasx $x] [$mycanvas canvasy $y] $b 8"
 }
 
 # on X11, button 2 pastes from X11 clipboard, so simulate normal paste actions
@@ -105,11 +105,11 @@
 # invisible (arg is "").  Invisibility means the Window Manager has minimized
 # us.  We don't get a final "unmap" event when we destroy the window.
 proc pdtk_canvas_map {mytoplevel} {
-    pdsend "$mytoplevel map 1 ;"
+    pdsend "$mytoplevel map 1"
 }
 
 proc pdtk_canvas_unmap {mytoplevel} {
-    pdsend "$mytoplevel map 0 ;"
+    pdsend "$mytoplevel map 0"
 }
 
 # check or uncheck the "edit" menu item

Modified: branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl	2009-01-24 05:50:16 UTC (rev 10614)
+++ branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl	2009-01-24 06:42:44 UTC (rev 10615)
@@ -26,7 +26,7 @@
     set ::pd_opendir $directory
     set basename [string range $filename [expr [string last / $filename] + 1] end]
     if {[regexp -nocase -- "\.(pd|pat|mxt)$" $filename]} {
-        pdsend "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;"
+        pdsend "pd open [pdtk_enquote $basename] [pdtk_enquote $directory]"
     }
 }
 
@@ -47,7 +47,7 @@
 	if {$iso != ""} {
 		scan $iso %c key
 	}
-	pdsend "[winfo toplevel $mycanvas] key $state $key $shift ;"
+	pdsend "[winfo toplevel $mycanvas] key $state $key $shift"
 }
 
 #array set cmd_ops {}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




More information about the Pd-cvs mailing list