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

[Brian Mastenbrook]

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

Modified Files:
	slidemacs-gui.lisp 
Log Message:
Kill the C-1 and C-2 key shortcuts

Date: Sun Jun  5 23:11:18 2005
Author: bmastenbrook

Index: climacs/slidemacs-gui.lisp
diff -u climacs/slidemacs-gui.lisp:1.1 climacs/slidemacs-gui.lisp:1.2
--- climacs/slidemacs-gui.lisp:1.1	Sun Jun  5 03:59:52 2005
+++ climacs/slidemacs-gui.lisp	Sun Jun  5 23:11:18 2005
@@ -54,7 +54,7 @@
                   (display-parse-tree nonempty-list-of-bullets syntax pane)))))
 
 (defmethod display-parse-tree ((entity slidemacs-slide-name) (syntax slidemacs-gui-syntax) pane)
-  (with-text-style (pane '(:serif :bold :huge))
+  (with-text-style (pane '(:serif :bold 64))
     (present (coerce (buffer-sequence (buffer syntax)
                                       (1+ (start-offset entity))
                                       (1- (end-offset entity)))
@@ -64,7 +64,7 @@
     (loop repeat 2 do (terpri pane))))
 
 (defmethod display-parse-tree ((entity slidemacs-bullet) (syntax slidemacs-gui-syntax) pane)
-  (with-text-style (pane '(:serif :roman :very-large))
+  (with-text-style (pane '(:serif :roman 48))
     (with-slots (point) pane
       (if (and (mark>= point (start-offset entity))
                (mark<= point (end-offset entity)))
@@ -156,5 +156,3 @@
 
 (climacs-gui::global-set-key '(#\= :control) 'com-next-talking-point)
 (climacs-gui::global-set-key '(#\- :control) 'com-previous-talking-point)
-(climacs-gui::global-set-key '(#\1 :control) 'com-set-colors-for-presentation)
-(climacs-gui::global-set-key '(#\2 :control) 'com-set-colors-for-editing)
\ No newline at end of file