Changeset main,30 for main/input.lisp

Timestamp:

11/05/2007 08:05:04 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071105200504-5bhs0eg2z8eyjpj7

Message:

READ-KEY now a generic function, to work with panels.

File:

• main/input.lisp (modified) (1 diff)

main/input.lisp

@@ -146 +146 @@
         (t (error "Should not be here."))))))
 
-(defun read-key (window)
-  (%wget-wch (window-pointer window)))
+(defgeneric read-key (window)
+  (:method ((window window))
+    (%wget-wch (window-pointer window))))