Changeset 12282


Ignore:
Timestamp:
Jun 23, 2009, 6:56:46 PM (10 years ago)
Author:
rme
Message:

Little hack to make the echo area height correspond to the size of
the default font.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-editor.lisp

    r12237 r12282  
    18791879(defun make-echo-area-for-window (w main-buffer color)
    18801880  (let* ((content-view (#/contentView w))
    1881          (bounds (#/bounds content-view)))
     1881         (bounds (#/bounds content-view))
     1882         (height (+ 1 (size-of-char-in-font *editor-font*))))
    18821883    (multiple-value-bind (echo-area box)
    18831884                         (make-echo-area w
     
    18851886                                         0.0f0
    18861887                                         (- (ns:ns-rect-width bounds) 16.0f0)
    1887                                          20.0f0
     1888                                         height
    18881889                                         main-buffer
    18891890                                         color)
     
    19601961(defun new-hemlock-document-window (class)
    19611962  (let* ((w (new-cocoa-window :class class
    1962                               :activate nil)))
    1963       (values w (add-pane-to-window w :reserve-below 20.0))))
     1963                              :activate nil))
     1964         (modeline-height (+ 1 (size-of-char-in-font *editor-font*))))
     1965      (values w (add-pane-to-window w :reserve-below modeline-height))))
    19641966
    19651967
Note: See TracChangeset for help on using the changeset viewer.