Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv9398

Modified Files: gui.lisp packages.lisp Log Message: Added *climacs-text-style* variable for customisation.

--- /project/climacs/cvsroot/climacs/gui.lisp 2008/01/11 04:08:15 1.251 +++ /project/climacs/cvsroot/climacs/gui.lisp 2008/01/12 11:49:35 1.252 @@ -44,6 +44,9 @@ "A function for creating targets for commands potentially acting over multiple views.")

+(defvar *climacs-text-style* (make-text-style nil nil nil) + "The default CLIM text style used in Climacs panes.") + (defclass climacs-buffer (drei-buffer) ((%external-format :initform *default-external-format* :accessor external-format @@ -58,6 +61,7 @@ :view (make-instance 'textual-drei-syntax-view :buffer (make-instance 'climacs-buffer)) :display-time :command-loop + :text-style *climacs-text-style* :width 900 :height 400))

(defmethod command-table ((pane climacs-pane)) --- /project/climacs/cvsroot/climacs/packages.lisp 2008/01/11 02:15:08 1.130 +++ /project/climacs/cvsroot/climacs/packages.lisp 2008/01/12 11:49:35 1.131 @@ -34,6 +34,7 @@ :esa-buffer :esa-io :esa-utils) ;;(:import-from :lisp-string) (:export #:climacs ; Frame. + #:*climacs-text-style*

#:climacs-buffer #:external-format #:climacs-pane