(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" _______________________________________________ Pd-dev mailing list Pd-dev@iem.at http://lists.puredata.info/listinfo/pd-dev