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