Changeset 12149


Ignore:
Timestamp:
May 28, 2009, 5:19:08 AM (10 years ago)
Author:
rme
Message:

Don't embed the mode line into the horizontal scroller.

File:
1 edited

Legend:

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

    r12148 r12149  
    17651765  (let* ((scrollview (#/autorelease
    17661766                      (make-instance
    1767                        'modeline-scroll-view
     1767                       'ns:ns-scroll-view
    17681768                       :with-frame (ns:make-ns-rect x y width height)))))
    17691769    (#/setBorderType: scrollview #$NSNoBorder)
     
    18371837         color
    18381838         style)
    1839       (#/setContentView: pane scrollview)
     1839      (#/addSubview: pane scrollview)
     1840      (let* ((r (#/frame scrollview)))
     1841        (decf (ns:ns-rect-height r) 15)
     1842        (incf (ns:ns-rect-y r) 15)
     1843        (#/setFrame: scrollview r))
     1844      (#/setAutohidesScrollers: scrollview t)
    18401845      (setf (slot-value pane 'scroll-view) scrollview
    18411846            (slot-value pane 'text-view) tv
    18421847            (slot-value tv 'pane) pane
    1843             (slot-value scrollview 'pane) pane)
    1844       (let* ((modeline  (scroll-view-modeline scrollview)))
     1848            #|(slot-value scrollview 'pane) pane|#)
     1849      ;;(let* ((modeline  (scroll-view-modeline scrollview)))
     1850      (let* ((modeline  (make-instance 'modeline-view
     1851                          :with-frame (ns:make-ns-rect 0 0 (ns:ns-rect-width contentrect)
     1852                                                       15))))
     1853        (#/setAutoresizingMask: modeline #$NSViewWidthSizable)
     1854        (#/addSubview: pane modeline)
    18451855        (setf (slot-value pane 'mode-line) modeline
    18461856              (slot-value modeline 'pane) pane))
Note: See TracChangeset for help on using the changeset viewer.