Commit 416b8ed8 authored by Troels Henriksen's avatar Troels Henriksen

Added *climacs-text-style* variable for customisation.

parent aca9ce5b
......@@ -44,6 +44,9 @@ files.")
"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 @@ contents.")))
: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))
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment