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

Modified Files: drei-clim.lisp packages.lisp Log Message: Moved with-output-as-presentation to presentations.lisp, so it can be available when input-editing.lisp is compiled.

--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2008/01/30 15:56:42 1.37 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2008/01/31 12:14:05 1.38 @@ -387,14 +387,14 @@ (defmethod output-record-position ((record drei-area)) (values-list (area-position record)))

-(defmethod (setf output-record-position) ((new-x number) (new-y number) - (record drei-area)) +(defmethod* (setf output-record-position) ((new-x number) (new-y number) + (record drei-area)) (setf (area-position record) (list new-x new-y)))

(defmethod output-record-start-cursor-position ((record drei-area)) (output-record-position record))

-(defmethod (setf output-record-start-cursor-position) ((new-x number) (new-y number) +(defmethod* (setf output-record-start-cursor-position) ((new-x number) (new-y number) (record drei-area)) (setf (output-record-position record) (list new-x new-y)))

--- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2008/01/30 11:48:40 1.49 +++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2008/01/31 12:14:05 1.50 @@ -184,7 +184,7 @@ contents."))

(defpackage :drei - (:use :clim-lisp :clim :drei-buffer :drei-base :drei-abbrev + (:use :clim-lisp :clim-sys :clim :drei-buffer :drei-base :drei-abbrev :drei-syntax :flexichain :drei-undo :esa-buffer :esa-io :esa :esa-utils :drei-kill-ring) (:export #:drei-buffer #:needs-saving