Try this:      (mk-entry :id :my-entry             :md-value (c-in nil)) ;; instead of (c-in "abc") Have not investigated why, but with (c-in "abc") 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> <<a href="mailto:franks-muc@web.de">franks-muc@web.de</a>> wrote:

<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> > > 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) "trace write"s.

<br>><br>><br><br>I downloaded the new tarball, deleted all binaries, started fresh.<br><br>The behaviour of  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>  ((my-mode :accessor my-mode :initform (c? (evenp (selection (fm! :my-selector))))))

<br>  (:default-initargs<br>      :id :my-test-id<br>    :kids (c? (the-kids<br>               (mk-stack ("stack"  :packing (c?pack-self "-side bottom") :relief 'ridge)<br>                         (mk-entry :id :my-entry

<br>                                   :md-value (c-in "abc"))<br>                         (mk-row ( "row"  #| :packing (c?pack-self "-side bottom") |# :relief 'ridge)<br>                                 (mk-label :text (c? (format nil "selection: ~a"  (selection (fm^ :my-selector)))))

<br>                               (mk-label :text "Labeltext")<br>                               (mk-button-ex ("Reset" (setf (selection (fm^ :my-selector)) 1)))<br>                               (mk-stack ((c? (format nil "current selection: ~a" (^selection))) :id :my-selector :selection (c-in 1) :relief 'ridge)

<br>                                         (mk-radiobutton-ex ("selection 1" 1))<br>                                         (mk-radiobutton-ex ("selection 2" 2))<br>                                         (mk-radiobutton-ex ("selection 3" 3))

<br>                                         (mk-radiobutton-ex ("selection 4" 4)))<br>                               (mk-label :text (c? (format nil "selection: ~a"  (selection (fm^ :my-selector)))))<br>

                               ))))))<br><br>(defobserver my-mode ((self my-test) new-value old-value old-value-bound-p)<br>  (format t "~% mode changed from ~a to ~a" 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>