Try this:<br><br>&nbsp;&nbsp;&nbsp;&nbsp; (mk-entry :id :my-entry<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :md-value (c-in nil)) ;; instead of (c-in &quot;abc&quot;)<br><br>Have not investigated why, but with (c-in &quot;abc&quot;) I did not get many keystrokes either, but changing to (c-in nil) seems to have done the trick.
<br><br>Next task would be to figure out how to initialize an entry widget to something other than nil, which is a requirement of such widgets.<br><br>First let's find out if (c-in nil) gets the keystrokes recognized.<br>
<br>kt<br><br><br><br><div><span class="gmail_quote">On 9/3/06, <b class="gmail_sendername"><a href="mailto:franks-muc@web.de">franks-muc@web.de</a></b> &lt;<a href="mailto:franks-muc@web.de">franks-muc@web.de</a>&gt; wrote:
</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br>&gt;<br>&gt; Anyway, it will be interesting to see if your entry field (and your ltktest-ci execution) work given the new code in Cells and Celtk. If not or if the problem comes back I think a question to the Tcl/Tk list will be in order as to when keyevents can happen but not get seen by the widget as evidenced by the widget text and (reasonably enough) &quot;trace write&quot;s.
<br>&gt;<br>&gt;<br><br>I downloaded the new tarball, deleted all binaries, started fresh.<br><br>The behaviour of&nbsp;&nbsp;ltktest-ci is unchanged. May be the success rate of 1/5 was too optimistic in my<br>first post, but it is better than 1/20. It appears to be completely random. Sometimes two
<br>successive key strokes get through.<br><br>My sample model as attched here has a success rate which is much less than 1/20.<br><br>(defmodel my-test (window)<br>&nbsp;&nbsp;((my-mode :accessor my-mode :initform (c? (evenp (selection (fm! :my-selector))))))
<br>&nbsp;&nbsp;(:default-initargs<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:id :my-test-id<br>&nbsp;&nbsp;&nbsp;&nbsp;:kids (c? (the-kids<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-stack (&quot;stack&quot;&nbsp;&nbsp;:packing (c?pack-self &quot;-side bottom&quot;) :relief 'ridge)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-entry :id :my-entry
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :md-value (c-in &quot;abc&quot;))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-row ( &quot;row&quot;&nbsp;&nbsp;#| :packing (c?pack-self &quot;-side bottom&quot;) |# :relief 'ridge)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-label :text (c? (format nil &quot;selection: ~a&quot;&nbsp;&nbsp;(selection (fm^ :my-selector)))))
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-label :text &quot;Labeltext&quot;)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-button-ex (&quot;Reset&quot; (setf (selection (fm^ :my-selector)) 1)))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-stack ((c? (format nil &quot;current selection: ~a&quot; (^selection))) :id :my-selector :selection (c-in 1) :relief 'ridge)
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-radiobutton-ex (&quot;selection 1&quot; 1))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-radiobutton-ex (&quot;selection 2&quot; 2))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-radiobutton-ex (&quot;selection 3&quot; 3))
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-radiobutton-ex (&quot;selection 4&quot; 4)))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (mk-label :text (c? (format nil &quot;selection: ~a&quot;&nbsp;&nbsp;(selection (fm^ :my-selector)))))<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))))))<br><br>(defobserver my-mode ((self my-test) new-value old-value old-value-bound-p)<br>&nbsp;&nbsp;(format t &quot;~% mode changed from ~a to ~a&quot; old-value new-value))<br><br>(run-window 'my-test)
<br><br><br><br>_______________________________________________________________________<br>Viren-Scan für Ihren PC! Jetzt für jeden. Sofort, online und kostenlos.<br>Gleich testen! <a href="http://www.pc-sicherheit.web.de/freescan/?mc=022222">
http://www.pc-sicherheit.web.de/freescan/?mc=022222</a><br><br></blockquote></div><br>