[climacs-cvs] CVS update: climacs/prolog-syntax.lisp

[Christophe Rhodes]

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))))
+|#