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