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