[pal-cvs] CVS pal

[tneste]

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