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

24 Jan 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> -	bind $mytoplevel <$modifier-Key-2> -	bind $mytoplevel <$modifier-Key-3> -	bind $mytoplevel <$modifier-Key-4> -	bind $mytoplevel <$modifier-Key-5> -	bind $mytoplevel <$modifier-Key-a> -	bind $mytoplevel <$modifier-Key-c> -	bind $mytoplevel <$modifier-Key-d> -	bind $mytoplevel <$modifier-Key-e> -	bind $mytoplevel <$modifier-Key-g> -	bind $mytoplevel <$modifier-Key-s> -	bind $mytoplevel <$modifier-Key-v> -	bind $mytoplevel <$modifier-Key-w> -	bind $mytoplevel <$modifier-Key-x> +	bind $mytoplevel <$modifier-Key-1> +	bind $mytoplevel <$modifier-Key-2> +	bind $mytoplevel <$modifier-Key-3> +	bind $mytoplevel <$modifier-Key-4> +	bind $mytoplevel <$modifier-Key-5> +	bind $mytoplevel <$modifier-Key-a> +	bind $mytoplevel <$modifier-Key-c> +	bind $mytoplevel <$modifier-Key-d> +	bind $mytoplevel <$modifier-Key-e> +	bind $mytoplevel <$modifier-Key-g> +	bind $mytoplevel <$modifier-Key-s> +	bind $mytoplevel <$modifier-Key-v> +	bind $mytoplevel <$modifier-Key-w> +	bind $mytoplevel <$modifier-Key-x> bind $mytoplevel <$modifier-Key-z> -	bind $mytoplevel <$modifier-Key-slash> -	bind $mytoplevel <$modifier-Key-period> +	bind $mytoplevel <$modifier-Key-slash> +	bind $mytoplevel <$modifier-Key-period>

---------------------------------- "pdsend "$mytoplevel obj ;"" "pdsend "$mytoplevel msg ;"" "pdsend "$mytoplevel floatatom ;"" "pdsend "$mytoplevel symbolatom ;"" "pdsend "$mytoplevel text ;"" "pdsend "$mytoplevel selectall ;"" "pdsend "$mytoplevel copy ;"" "pdsend "$mytoplevel duplicate ;"" "pdsend "$mytoplevel editmode 0 ;"" "pdsend "$mytoplevel findagain ;"" "pdsend "$mytoplevel menusave ;"" "pdsend "$mytoplevel paste ;"" "pdsend "$mytoplevel menuclose 0 ;"" "pdsend "$mytoplevel cut ;"" "pdsend "$mytoplevel obj"" "pdsend "$mytoplevel msg"" "pdsend "$mytoplevel floatatom"" "pdsend "$mytoplevel symbolatom"" "pdsend "$mytoplevel text"" "pdsend "$mytoplevel selectall"" "pdsend "$mytoplevel copy"" "pdsend "$mytoplevel duplicate"" "pdsend "$mytoplevel editmode 0"" "pdsend "$mytoplevel findagain"" "pdsend "$mytoplevel menusave"" "pdsend "$mytoplevel paste"" "pdsend "$mytoplevel menuclose 0"" "pdsend "$mytoplevel cut"" "menu_undo $mytoplevel" "pdsend "pd dsp 1 ;"" "pdsend "pd dsp 0 ;"" "pdsend "pd dsp 1"" "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.

    