[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	core-commands.lisp drei.lisp packages.lisp views.lisp 
Log Message:
Added new command table, `view-table', that contains generic commands used for all views.

Currently this is limited to page-up/page-down commands, and it's not
likely it will ever get anything but very high-level
movement/scrolling commands (I want to add generic
end-of-view/beginning-of-view commands too), because we can make so
few assumptions about views.


--- /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp	2008/01/20 19:50:20	1.14
+++ /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp	2008/01/21 17:08:28	1.15
@@ -295,26 +295,26 @@
 	 'movement-table
 	 '((:home :control)))
 
-(define-command (com-page-down :name t :command-table movement-table) ()
+(define-command (com-page-down :name t :command-table view-table) ()
   (page-down (editor-pane (drei-instance)) (current-view)))
 
 (set-key 'com-page-down
-	 'movement-table
+	 'view-table
 	 '((#\v :control)))
 
 (set-key 'com-page-down
-	 'movement-table
+	 'view-table
 	 '((:next)))
 
-(define-command (com-page-up :name t :command-table movement-table) ()
+(define-command (com-page-up :name t :command-table view-table) ()
   (page-up (editor-pane (drei-instance)) (current-view)))
 
 (set-key 'com-page-up
-	 'movement-table
+	 'view-table
 	 '((#\v :meta)))
 
 (set-key 'com-page-up
-	 'movement-table
+	 'view-table
 	 '((:prior)))
 
 (define-command (com-end-of-buffer :name t :command-table movement-table) ()
--- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2008/01/19 10:24:19	1.29
+++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2008/01/21 17:08:28	1.30
@@ -162,6 +162,8 @@
 (make-command-table 'info-table :errorp nil)
 ;;; Self-insertion.
 (make-command-table 'self-insert-table :errorp nil)
+;;; View stuff (scrolling, etc)
+(make-command-table 'view-table :errorp nil)
 
 ;;; Command table for concrete editor stuff.
 (define-syntax-command-table editor-table
--- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp	2008/01/20 19:50:20	1.44
+++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp	2008/01/21 17:08:28	1.45
@@ -244,6 +244,7 @@
            #:comment-table #:deletion-table #:editing-table
            #:fill-table #:indent-table #:marking-table #:case-table
            #:movement-table #:search-table #:info-table #:self-insert-table
+           #:view-table
            #:editor-table #:exclusive-gadget-table #:exclusive-input-editor-table
 
            #:minibuffer
--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/01/20 19:50:20	1.24
+++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/01/21 17:08:28	1.25
@@ -472,7 +472,7 @@
 commands relevant for `view'.")
   (:method-combination append)
   (:method append ((view drei-view))
-    '()))
+    '(view-table)))
 
 (defgeneric create-view-cursors (output-stream view)
   (:documentation "Create cursors for `view' that are to be