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

[Brian Mastenbrook]

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

Modified Files:
	slidemacs-gui.lisp 
Log Message:
Kill the Set Colors For ... commands; they didn't add much and there's a lot of room for a rethink here

Date: Wed Jun 15 01:14:19 2005
Author: bmastenbrook

Index: climacs/slidemacs-gui.lisp
diff -u climacs/slidemacs-gui.lisp:1.6 climacs/slidemacs-gui.lisp:1.7
--- climacs/slidemacs-gui.lisp:1.6	Tue Jun 14 04:00:56 2005
+++ climacs/slidemacs-gui.lisp	Wed Jun 15 01:14:18 2005
@@ -198,12 +198,6 @@
 
 (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
-        *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 *slidemacs-gui-ink*)
     (with-slots (top bot point) pane
@@ -264,12 +258,6 @@
                      (< thing 16))
               collect thing
               else collect (if decrease-p (- thing 8) (+ thing 8)))))
-
-(climacs-gui::define-named-command com-set-colors-for-presentation ()
-  (set-pane-colors (climacs-gui::current-window) +blue+ +white+))
-
-(climacs-gui::define-named-command com-set-colors-for-editing ()
-  (set-pane-colors (climacs-gui::current-window) +white+ +black+))
 
 (climacs-gui::define-named-command com-decrease-presentation-font-sizes ()
   (adjust-font-sizes t)