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)
		     #-Genera nil))
    (let ((command (read-command-using-keystrokes
		     (frame-command-table puzzle) abort-chars
		     :stream stream)))
      (if (characterp command)
	  (frame-exit puzzle)

In this case, if a character is received the application is
terminated. Commands are just returned.


John S. Kern
Lucid, Inc.
Customer Support

Main Index | Thread Index