Changeset 705


Ignore:
Timestamp:
Mar 22, 2004, 9:39:18 AM (21 years ago)
Author:
Gary Byers
Message:

Initialize UI object here.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/examples/cocoa-window.lisp

    r653 r705  
    265265               (send *NSApp* :set-application-icon-image
    266266                     (send (@class ns-image) :image-Named #@"NSApplicationIcon"))
     267               (setf (application-ui-object *application*) *NSApp*)
    267268
    268269               (when application-proxy-class-name
Note: See TracChangeset for help on using the changeset viewer.