[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