Changeset 14266


Ignore:
Timestamp:
Sep 17, 2010, 3:32:22 AM (9 years ago)
Author:
gb
Message:

NEW-COCOA-WINDOW: pass the defaulted args (not the provided initargs)
to MAKE-INSTANCE. SEND-INIT-MESSAGE-FOR-CLASS: learn to program, or
at least to write simple loops. (This wasn't correctly selecting the
init message that matched the greatest number of initargs when multiple
messages matched.)

Location:
trunk/source
Files:
2 edited

Legend:

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

    r14264 r14266  
    472472                             
    473473
    474 (defun new-cocoa-window (&rest
    475                          initargs
    476                          &key
     474(defun new-cocoa-window (&key
    477475                         (class (find-class 'ns:ns-window))
    478476                         (title nil)
     
    490488                         (auto-display t)
    491489                         (activate t))
    492   (declare (ignore title x y width height closable iconifyable metal
    493                    expandable backing defer accepts-mouse-moved-events
    494                    auto-display activate))
    495   (apply #'make-instance class initargs))
     490  (make-instance class
     491                 :title title
     492                 :x x
     493                 :y y
     494                 :height height
     495                 :width width
     496                 :closable closable
     497                 :iconifyable iconifyable
     498                 :metal metal
     499                 :expandable expandable
     500                 :backing backing
     501                 :defer defer
     502                 :accepts-mouse-moved-events accepts-mouse-moved-events
     503                 :auto-display auto-display
     504                 :activate activate))
    496505
    497506(defmethod view-window ((view ns:ns-view))
  • trunk/source/objc-bridge/objc-support.lisp

    r14265 r14266  
    176176                      (declare (fixnum n))
    177177                      (if (> n maxlen)
    178                         (setq n maxlen
     178                        (setq maxlen n
    179179                              duplicate-match nil
    180180                              maxargs arglist
Note: See TracChangeset for help on using the changeset viewer.