[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	basic-commands.lisp core-commands.lisp misc-commands.lisp 
	search-commands.lisp unicode-commands.lisp 
Log Message:
Filter shift modifier state in CLX backend.

Also updated a bunch of key bindings to not specify :SHIFT anymore.


--- /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp	2008/02/03 08:55:01	1.13
+++ /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp	2008/04/28 20:48:55	1.14
@@ -242,7 +242,7 @@
 
 (set-key `(com-backward-paragraph ,*numeric-argument-marker*)
 	 'movement-table
-	 '((#\{ :shift :meta)))
+	 '((#\{ :meta)))
 
 (set-key `(com-backward-paragraph ,*numeric-argument-marker*)
 	 'movement-table
@@ -250,7 +250,7 @@
 
 (set-key `(com-forward-paragraph ,*numeric-argument-marker*)
 	 'movement-table
-	 '((#\} :shift :meta)))
+	 '((#\} :meta)))
 
 (set-key `(com-forward-paragraph ,*numeric-argument-marker*)
 	 'movement-table
--- /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp	2008/02/03 07:16:49	1.17
+++ /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp	2008/04/28 20:48:55	1.18
@@ -156,7 +156,7 @@
 
 (set-key `(com-mark-word ,*numeric-argument-marker*)
 	 'marking-table
-	 '((#\@ :meta :shift)))
+	 '((#\@ :meta)))
 
 (set-key `(com-mark-paragraph ,*numeric-argument-marker*)
 	 'marking-table
@@ -264,7 +264,7 @@
 
 (set-key 'com-delete-indentation
 	 'indent-table
-	 '((#\^ :shift :meta)))
+	 '((#\^ :meta)))
 
 (define-command (com-auto-fill-mode :name t :command-table fill-table) ()
   (let ((view (current-view)))
@@ -297,7 +297,7 @@
 
 (set-key 'com-beginning-of-buffer
 	 'movement-table
-	 '((#\< :shift :meta)))
+	 '((#\< :meta)))
 
 (set-key 'com-beginning-of-buffer
 	 'movement-table
@@ -331,7 +331,7 @@
 
 (set-key 'com-end-of-buffer
 	 'movement-table
-	 '((#\> :shift :meta)))
+	 '((#\> :meta)))
 
 (set-key 'com-end-of-buffer
 	 'movement-table
@@ -510,7 +510,7 @@
 
 (set-key 'com-undo
 	 'editing-table
-	 '((#\_ :shift :control)))
+	 '((#\_ :control)))
 
 (set-key 'com-undo
 	 'editing-table
@@ -522,7 +522,7 @@
 
 (set-key 'com-redo
 	 'editing-table
-	 '((#\_ :shift :meta)))
+	 '((#\_ :meta)))
 
 (set-key 'com-redo
 	 'editing-table
--- /project/mcclim/cvsroot/mcclim/Drei/misc-commands.lisp	2007/12/19 11:02:01	1.4
+++ /project/mcclim/cvsroot/mcclim/Drei/misc-commands.lisp	2008/04/28 20:48:55	1.5
@@ -68,7 +68,7 @@
 
 (set-key `(com-eval-expression ,*unsupplied-argument-marker* ,*numeric-argument-marker*)
 	 'editor-table
-	 '((#\: :shift :meta)))
+	 '((#\: :meta)))
 
 (set-key 'com-count-lines-page
 	 'info-table
--- /project/mcclim/cvsroot/mcclim/Drei/search-commands.lisp	2008/04/18 11:22:29	1.9
+++ /project/mcclim/cvsroot/mcclim/Drei/search-commands.lisp	2008/04/28 20:48:55	1.10
@@ -393,7 +393,7 @@
 
 (set-key 'com-query-replace
 	 'search-table
-	 '((#\% :shift :meta)))
+	 '((#\% :meta)))
 
 (define-command (com-query-replace-replace :name t :command-table query-replace-drei-table) ()
   (let ((state (query-replace-state (drei-instance))))
--- /project/mcclim/cvsroot/mcclim/Drei/unicode-commands.lisp	2007/12/19 11:02:01	1.2
+++ /project/mcclim/cvsroot/mcclim/Drei/unicode-commands.lisp	2008/04/28 20:48:55	1.3
@@ -49,11 +49,11 @@
      (set-dead-grave-key (code &rest sequence)
        `(set-charcode-key ,code ((:dead-grave) , at sequence)))
      (set-dead-diaresis-key (code &rest sequence)
-       `(set-charcode-key ,code ((:dead-diaresis :shift) , at sequence)))
+       `(set-charcode-key ,code ((:dead-diaeresis) , at sequence)))
      (set-dead-tilde-key (code &rest sequence)
-       `(set-charcode-key ,code ((:dead-tilde :shift) , at sequence)))
+       `(set-charcode-key ,code ((:dead-tilde) , at sequence)))
      (set-dead-circumflex-key (code &rest sequence)
-       `(set-charcode-key ,code ((:dead-circumflex :shift) , at sequence))))
+       `(set-charcode-key ,code ((:dead-circumflex) , at sequence))))
   (set-dead-acute-key 193 (#\A))
   (set-dead-acute-key 201 (#\E)) 
   (set-dead-acute-key 205 (#\I))