/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.80 by rstrandh, Tue Jan 18 05:58:24 2005 UTC revision 1.81 by rstrandh, Tue Jan 18 06:55:47 2005 UTC
# Line 39  Line 39 
39     (dabbrev-expansion-mark :initform nil)     (dabbrev-expansion-mark :initform nil)
40     (overwrite-mode :initform nil)))     (overwrite-mode :initform nil)))
41    
42    (defclass info-pane (application-pane)
43      ((climacs-pane :initarg :climacs-pane)))
44    
45  (defclass minibuffer-pane (application-pane) ())  (defclass minibuffer-pane (application-pane) ())
46    
47  (defmethod stream-accept :before ((pane minibuffer-pane) type &rest args)  (defmethod stream-accept :before ((pane minibuffer-pane) type &rest args)
# Line 49  Line 52 
52    ((win :reader win)    ((win :reader win)
53     (buffers :initform '() :accessor buffers))     (buffers :initform '() :accessor buffers))
54    (:panes    (:panes
55     (win (vertically ()     (win (let* ((extended-pane
56            (scrolling ()                  (make-pane 'extended-pane
57              (make-pane 'extended-pane                             :width 900 :height 400
58                         :width 900 :height 400                             :name 'bla
59                         :name 'bla                             :incremental-redisplay t
60                         :incremental-redisplay t                             :display-function 'display-win))
61                         :display-function 'display-win))                 (info-pane
62            (make-pane 'application-pane                  (make-pane 'info-pane
63                       :width 900 :height 20 :max-height 20 :min-height 20                             :climacs-pane extended-pane
64                       ::background +gray85+                             :width 900 :height 20 :max-height 20 :min-height 20
65                       :scroll-bars nil                             ::background +gray85+
66                       :borders nil                             :scroll-bars nil
67                       :incremental-redisplay t                             :borders nil
68                       :display-function 'display-info)))                             :incremental-redisplay t
69                               :display-function 'display-info)))
70              (vertically ()
71                (scrolling ()
72                  extended-pane)
73                info-pane)))
74     (int (make-pane 'minibuffer-pane     (int (make-pane 'minibuffer-pane
75                     :width 900 :height 20 :max-height 20 :min-height 20                     :width 900 :height 20 :max-height 20 :min-height 20
76                     :scroll-bars nil)))                     :scroll-bars nil)))
# Line 92  Line 100 
100    (apply #'format *standard-input* format-string format-args))    (apply #'format *standard-input* format-string format-args))
101    
102  (defun display-info (frame pane)  (defun display-info (frame pane)
103    (let* ((win (win frame))    (declare (ignore frame))
104           (buf (buffer win))    (with-slots (climacs-pane) pane
105           (name-info (format nil "   ~a   ~a   Syntax: ~a ~a"       (let* ((buf (buffer climacs-pane))
106                              (if (needs-saving buf) "**" "--")              (name-info (format nil "   ~a   ~a   Syntax: ~a ~a"
107                              (name buf)                                 (if (needs-saving buf) "**" "--")
108                              (name (syntax buf))                                 (name buf)
109                              (if (slot-value win 'overwrite-mode)                                 (name (syntax buf))
110                                  "Ovwrt"                                 (if (slot-value climacs-pane 'overwrite-mode)
111                                  ""))))                                     "Ovwrt"
112      (princ name-info pane)))                                     ""))))
113           (princ name-info pane))))
114    
115  (defun display-win (frame pane)  (defun display-win (frame pane)
116    "The display function used by the climacs application frame."    "The display function used by the climacs application frame."
# Line 678  Line 687 
687        (sheet-adopt-child parent        (sheet-adopt-child parent
688                           (vertically ()                           (vertically ()
689                             (scrolling () new-pane)                             (scrolling () new-pane)
690                             (make-pane 'application-pane                             (make-pane 'info-pane
691                                          :climacs-pane new-pane
692                                        :width 900 :height 20                                        :width 900 :height 20
693                                        :max-height 20 :min-height 20                                        :max-height 20 :min-height 20
694                                        ::background +gray85+                                        ::background +gray85+

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

  ViewVC Help
Powered by ViewVC 1.1.5