Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv29067

Modified Files: gui.lisp java-syntax-commands.lisp Log Message: Update in response to *drei-instance* changes.

--- /project/climacs/cvsroot/climacs/gui.lisp 2008/01/12 11:49:35 1.252 +++ /project/climacs/cvsroot/climacs/gui.lisp 2008/01/17 11:30:47 1.253 @@ -302,8 +302,7 @@ partial-command-parser prompt) :bindings ((*default-target-creator* *climacs-target-creator*) - (*drei-instance* (esa-current-window frame)) - (*previous-command* (previous-command *drei-instance*)) + (*previous-command* (previous-command (drei-instance))) (*standard-output* (or (output-stream frame) *terminal-io*))))

@@ -326,6 +325,9 @@ (setf (buffer (current-view (esa-current-window application-frame))) new-buffer))

+(defmethod drei-instance-of ((frame climacs)) + (esa-current-window frame)) + (defmethod (setf windows) :after (new-val (climacs climacs)) ;; Ensures that we don't end up with two views that both believe ;; they are active. --- /project/climacs/cvsroot/climacs/java-syntax-commands.lisp 2007/12/21 11:22:50 1.4 +++ /project/climacs/cvsroot/climacs/java-syntax-commands.lisp 2008/01/17 11:30:49 1.5 @@ -79,7 +79,7 @@ (if (plusp count) (loop repeat count do (forward-expression mark (current-syntax))) (loop repeat (- count) do (backward-expression mark (current-syntax)))) - (indent-region *drei-instance* (point) mark))) + (indent-region (current-view) (point) mark)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;