Changeset 7534


Ignore:
Timestamp:
Oct 28, 2007, 2:59:30 AM (14 years ago)
Author:
rme
Message:

Make echo area and window resize handle area white.

Location:
trunk/ccl/cocoa-ide
Files:
2 edited

Legend:

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

    r7533 r7534  
    16231623
    16241624(defun make-echo-area (the-hemlock-frame x y width height gap-context color)
    1625   (let* ((color-list (#/colorListNamed: ns:ns-color-list #@"System"))
    1626          (color (#/colorWithKey: color-list #@"windowBackgroundColor"))
     1625  (let* ((color (#/whiteColor ns:ns-color))
    16271626         (box (make-instance 'ns:ns-view :with-frame (ns:make-ns-rect x y width height))))
    16281627    (#/setAutoresizingMask: box #$NSViewWidthSizable)
  • trunk/ccl/cocoa-ide/cocoa-window.lisp

    r6982 r7534  
    388388            (get-cocoa-window-flag w :auto-display)
    389389            auto-display)
     390      (#/setBackgroundColor: w (#/whiteColor ns:ns-color))
    390391      (when activate (activate-window w))
    391392      (when title (set-window-title w title))
Note: See TracChangeset for help on using the changeset viewer.