Andy,
Please search on :motionnotify. I see an example in the gears demo. I know that is OpenGL but I am pretty sure all the code you see in there in re event handling is generic to Tk, nothing about OpenGl.
The nise thing about Tk via FFI is the control one gets from low-level access to the event stream. There are rare cases where I feel Tk did not expose enough via an API -- I remember vaguely something about key events, forcing me to code up a virtual event handler -- but as a rule the Tcl/Tk world is your oyster with an FFI based interface.
Gotta run or I would offer more deets.
kt
Andy Chambers wrote:
On Sat, Jul 11, 2009 at 4:35 PM, Kenneth Tiltonkentilton@gmail.com wrote:
Andy Chambers wrote:
Hi,
How would you get the currently focused window in celtk? (I'm trying to write a help bubble that pops up when someone pauses the mouse over a widget for a wee while).
I do a lot of that, but... you are using vanilla Celtk, including Tk widgets? By currently focused window you mean... what, the Tk idea of the current widget? Or the Celtk idea thereof? Or did you mean the toplevel window? Or...
Here's the context...
(defmd root (window) :kids (c? (the-kids (mk-stack (:packing (c?pack-self)) (mk-ui :aeyn) (mk-ui :aeterm) (mk-ui :aestdat)) (mk-canvas :height 200 :background "#ffff99" :kids (c? (the-kids (mk-text-item :coords (list 10 10) :text "Help Text"))) :parent-x 10 :parent-y 20))))
mk-ui is a little utility I have that goes off to look for a "field" definition and knows how to convert that field into celtk objects. Currently, the canvas slots are hard-coded but I'd like the position, size, and contents of this object to change based on where the mouse is. So to answer your question, I think it's Celtk's idea of the current widget that I need.
The way I thought of doing it originally was to add a tk <<Pause>> event and wait for that in the root window. The tcl attached below does this so maybe it's just a case of adding this when the window first starts up. I just wondered if there was a better way of doing it purely in celtk land.
#!/usr/bin/env wish -f
global items # For want of a better name
# I chose Circulate because this is never generated by Tk itself # and I only want to trigger these events myself because Tk doesn't # know when to do it. event add <<Pause>> <Circulate>
bind all <Enter> { global items set id [ after 500 { event generate "%W" <<Pause>> } ] set items("%W") $id }
bind all <Leave> { global items after cancel $items("%W") unset items("%W") }
bind . <<Pause>> { puts "A wee pause just happened on %W..." }
No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.375 / Virus Database: 270.13.10/2231 - Release Date: 07/11/09 05:57:00