Changeset 14311


Ignore:
Timestamp:
Sep 29, 2010, 10:44:36 PM (9 years ago)
Author:
gb
Message:

SET-VIEW-CONTAINER methods, :VIEW-CONTAINER arg to NSView INITIALIZE-INSTANCE
method.

File:
1 edited

Legend:

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

    r14266 r14311  
    439439                                       (min-y-margin nil minyp)
    440440                                       (resizes-subviews t rsp)
     441                                       view-container
    441442                                       &allow-other-keys)
    442443  (let* ((mask (#/autoresizingMask view))
     
    469470      (#/setAutoresizingMask: view newmask)))
    470471  (when rsp
    471     (#/setAutoresizesSubviews: view resizes-subviews)))
     472    (#/setAutoresizesSubviews: view resizes-subviews))
     473  (when view-container
     474    (install-view-in-container view view-container)))
    472475                             
    473476
     
    508511    (unless (%null-ptr-p w)
    509512      w)))
     513
     514(defmethod install-view-in-container ((view ns:ns-view) (container ns:ns-view))
     515  (#/addSubview: container view))
     516
     517(defmethod install-view-in-container ((view ns:ns-view) (container ns:ns-window))
     518  (#/addSubview: (#/contentView container) view))
Note: See TracChangeset for help on using the changeset viewer.