[climacs-cvs] CVS update: climacs/slidemacs-gui.lisp

[Brian Mastenbrook]

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

Modified Files:
	slidemacs-gui.lisp 
Log Message:
Black on white by default

Date: Mon Jun  6 01:26:18 2005
Author: bmastenbrook

Index: climacs/slidemacs-gui.lisp
diff -u climacs/slidemacs-gui.lisp:1.2 climacs/slidemacs-gui.lisp:1.3
--- climacs/slidemacs-gui.lisp:1.2	Sun Jun  5 23:11:18 2005
+++ climacs/slidemacs-gui.lisp	Mon Jun  6 01:26:18 2005
@@ -73,6 +73,7 @@
           (call-next-method)))))
 
 (defmethod display-parse-tree ((entity bullet) (syntax slidemacs-gui-syntax) pane)
+  (stream-increment-cursor-position pane (space-width pane) 0)
   (present (lexeme-string entity) 'string :stream pane)
   (stream-increment-cursor-position pane (space-width pane) 0))
 
@@ -95,13 +96,16 @@
              'string
              :stream pane)))
 
+(defparameter *slidemacs-gui-ink* +black+)
+
 (defun set-pane-colors (pane c1 c2)
   (setf (medium-background (sheet-medium pane)) c1
-        (medium-ink (sheet-medium pane)) c2)
+        (medium-ink (sheet-medium pane)) c2
+        *slidemacs-gui-ink* c2)
   (window-refresh pane))
 
 (defmethod redisplay-pane-with-syntax ((pane climacs-pane) (syntax slidemacs-gui-syntax) current-p)
-  (with-drawing-options (pane :ink +white+)
+  (with-drawing-options (pane :ink *slidemacs-gui-ink*)
     (with-slots (top bot point) pane
       (with-slots (lexer) syntax
         ;; display the parse tree if any