Update of /project/pal/cvsroot/pal In directory cl-net:/tmp/cvs-serv5791
Modified Files: pal.lisp Log Message: Committed patch by Quentin Stievenart. Added the Bermuda example project.
--- /project/pal/cvsroot/pal/pal.lisp 2007/12/29 14:45:53 1.43 +++ /project/pal/cvsroot/pal/pal.lisp 2009/08/17 12:43:01 1.44 @@ -8,7 +8,7 @@ :host (pathname-host *load-pathname*) :device (pathname-device *load-pathname*)))
-(defvar *messages* nil "List of messages draw on screen with MESSAGE.") +(defvar *messages* nil "List of messages drawn on screen with MESSAGE.") (defvar *pal-running* nil "T if PAL is already running.") (defvar *title* "" "PAL windows title. Also used for creating the path to applications data directory.") (defvar *ticks* 0) @@ -18,7 +18,7 @@ (defvar *delay* 0) (defvar *max-fps* 0) (defvar *data-paths* nil) -(defvar *pressed-keys* nil) +(defvar *pressed-keys* (make-hash-table)) (defvar *width* 0) (defvar *height* 0) (defvar *cursor* nil) @@ -906,4 +906,4 @@ (defun message (&rest messages) (setf *messages* (append *messages* (list (format nil "~{~S ~}" messages)))) (when (> (length *messages*) (- (truncate (get-screen-height) (get-font-height)) 1)) - (pop *messages*))) \ No newline at end of file + (pop *messages*)))