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