CLIM mail archive
Accept + Mouse-Actions??
Howdy Mr. Cramer,
Try specializing read-frame-command. There is an example of this in
the puzzle.lisp file of the demo subdirectory.
(defmethod read-frame-command ((puzzle puzzle) &key (stream *query-io*))
(let ((abort-chars #+Genera '(#\Abort #\End)
(let ((command (read-command-using-keystrokes
(frame-command-table puzzle) abort-chars
(if (characterp command)
In this case, if a character is received the application is
terminated. Commands are just returned.
John S. Kern
Main Index |