Accept + Mouse-Actions??

• To: ncramer@BBN.COM
• Subject: Accept + Mouse-Actions??
• From: John Kern <kern%kuwait@lucid.com>
• Date: Wed, 17 Jun 92 08:50:13 PDT
• Cc: clim@BBN.COM
• In-Reply-To: Nichael Cramer's message of Mon, 15 Jun 92 7:05:43 EDT <9206151148.AA03947@lucid.com>
• Reply-To: kern@lucid.com

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)
	  command))))

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

Sincerely,

John S. Kern
Lucid, Inc.
Customer Support

• Prev: Scroll-Bar on Right?
• Next: archive or FAQ list
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)