Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv13392

Modified Files: prolog-syntax.lisp Log Message: Whoops. Unsaved change, which logically belongs to the previous commit. (uncomment out :around method on display-parse-tree to prevent display of off-the-screen stuff)

Date: Mon Apr 4 15:39:40 2005 Author: crhodes

Index: climacs/prolog-syntax.lisp diff -u climacs/prolog-syntax.lisp:1.6 climacs/prolog-syntax.lisp:1.7 --- climacs/prolog-syntax.lisp:1.6 Sun Apr 3 00:13:26 2005 +++ climacs/prolog-syntax.lisp Mon Apr 4 15:39:40 2005 @@ -926,7 +926,6 @@ pane (- tab-width (mod x tab-width)) 0)))) (incf start))))

-#+nil (defmethod display-parse-tree :around ((entity prolog-parse-tree) syntax pane) (with-slots (top bot) pane (when (and (end-offset entity) (mark> (end-offset entity) top)) @@ -1024,3 +1023,17 @@ (1- cursor-x) (- cursor-y (* 0.2 height)) (+ cursor-x 2) (+ cursor-y (* 0.8 height)) :ink (if current-p +red+ +blue+)))))) + +#| +(climacs-gui::define-named-command com-inspect-lex () + (with-slots (lexer) (slot-value (buffer (climacs-gui::current-window)) 'climacs-syntax::syntax) + (let ((*standard-input* *query-io*) + (*standard-output* *query-io*)) + (inspect lexer)))) + +(climacs-gui::define-named-command com-inspect-parse () + (with-slots (parser) (slot-value (buffer (climacs-gui::current-window)) 'climacs-syntax::syntax) + (let ((*standard-input* *query-io*) + (*standard-output* *query-io*)) + (inspect parser)))) +|#