[climacs-cvs] CVS climacs

[thenriksen]

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