[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv3732

Modified Files:
	dead-keys.lisp mcclim.asd stream-input.lisp 
Log Message:
Fix compile dependencies.


--- /project/mcclim/cvsroot/mcclim/dead-keys.lisp	2008/05/01 07:48:45	1.3
+++ /project/mcclim/cvsroot/mcclim/dead-keys.lisp	2008/05/01 21:45:23	1.4
@@ -23,6 +23,10 @@
 
 (in-package :clim-internals)
 
+(defvar *dead-key-table* (make-hash-table :test 'equal)
+  "A hash table mapping keyboard event names and characters to
+either a similar hash table or characters.")
+
 (defun set-dead-key-combination (character gestures table)
   "Set `gestures' to result in `character' in the hash table
 `table' (see `*dead-key-table*' for the format of the hash
--- /project/mcclim/cvsroot/mcclim/mcclim.asd	2008/04/30 21:27:48	1.82
+++ /project/mcclim/cvsroot/mcclim/mcclim.asd	2008/05/01 21:45:23	1.83
@@ -140,6 +140,7 @@
                  (:file "coordinates" :depends-on ("decls" "protocol-classes" "Lisp-Dep"))
                  (:file "setf-star" :depends-on ("decls" "Lisp-Dep"))
                  (:file "transforms" :depends-on ("decls" "protocol-classes" "Lisp-Dep" "coordinates" "utils"))
+                 (:file "dead-keys" :depends-on ("decls"))
                  (:file "regions" :depends-on ("decls" "protocol-classes" "Lisp-Dep" "coordinates" "utils" "transforms" "setf-star" "design"))
                  (:file "sheets" :depends-on ("decls" "protocol-classes" "Lisp-Dep" "utils" "transforms" "regions"))
                  (:file "pixmap" :depends-on ("decls" "protocol-classes" "Lisp-Dep" "sheets" "transforms" "regions"))
@@ -163,8 +164,7 @@
                  (:file "encapsulate" :depends-on ("decls" "protocol-classes" "Lisp-Dep" "sheets" "graphics" "utils" "medium" "input"
                                                             "stream-output" "recording"))
                  (:file "stream-input" :depends-on ("decls" "protocol-classes" "Lisp-Dep" "input" "ports" "sheets" "events"
-                                                            "encapsulate" "transforms" "utils"))
-                 (:file "dead-keys" :depends-on ("stream-input"))
+                                                            "encapsulate" "transforms" "utils" "dead-keys"))
                  (:file "text-selection" :depends-on ("decls" "protocol-classes" "Lisp-Dep" "X11-colors" "medium" "output"
                                                                    "transforms" "sheets" "stream-output"
                                                                    "ports" "recording" "regions"
--- /project/mcclim/cvsroot/mcclim/stream-input.lisp	2008/05/01 07:48:45	1.53
+++ /project/mcclim/cvsroot/mcclim/stream-input.lisp	2008/05/01 21:45:23	1.54
@@ -122,10 +122,6 @@
 	do (handle-event (event-sheet event) event))
   nil)
 
-(defvar *dead-key-table* (make-hash-table :test 'equal)
-  "A hash table mapping keyboard event names and characters to
-either a similar hash table or characters.")
-
 (defclass dead-key-merging-mixin ()
   ((state :initform *dead-key-table*)
    (last-deadie-gesture) ; For avoiding name clash with standard-extended-input-stream