[PD-dev] Keyboard shortcuts for "done editing"

[Marvin Humphrey]

(moving to pd-dev...) 

On Wed, Sep 28, 2011 at 01:38:54AM -0400, Mathieu Bouchard wrote:
>> So, if I understand correctly, you are suggesting that these key bindings
>> would only take effect while actively editing the text of an Object, Message,
>> or Comment.  If that's the case, +1 -- I agree.
>
> Yes, that's it.

Fortunately, Object, Message and Comment all share the same underlying text
entry box implementation, with controls in src/pdtk_text.tcl.

This patch below seems like it ought to at least do something.  The "bind"
call succeeds, because I've checked and the script fires at each <Return>, and
I've looked at other invocations of pdtk_text_editing and these arguments seem
correct.

It doesn't work yet, though, and I'm not sure why not -- pdtk_text_editing
runs to completion, but running it doesn't seem to accomplish anything.

I'll try again later.

Marvin Humphrey


--- a/tcl/pdtk_text.tcl
+++ b/tcl/pdtk_text.tcl
@@ -11,6 +11,7 @@ proc pdtk_text_new {tkcanvas tags x y text font_size color} {
     set mytag [lindex $tags 0]
     $tkcanvas bind $mytag <Home> "$tkcanvas icursor $mytag 0"
     $tkcanvas bind $mytag <End>  "$tkcanvas icursor $mytag end"
+    $tkcanvas bind $mytag <Return> "pdtk_text_editing [winfo toplevel $tkcanvas] $mytag 0"
     # select all
     $tkcanvas bind $mytag <Triple-ButtonRelease-1>  \
         "pdtk_text_selectall $tkcanvas $mytag"