Class

Summary

A cocoa-view-pane allows an arbitrary Cocoa view class to be used on the Macintosh.

Package

capi

Superclasses

simple-pane
titled-object

Initargs

:view-class

A string naming the view class to use.

:init-function

A function that initializes the view class.

Accessors

cocoa-view-pane-view-class
cocoa-view-pane-init-function

Description

The cocoa-view-pane class allows an instance of an arbitrary Cocoa view class to be displayed within a CAPI interface.

Note: cocoa-view-pane is implemented only in LispWorks for Macintosh with the Cocoa IDE.

When the pane becomes visible, the CAPI allocates and initialize a Cocoa view object using the initargs as follows:

• If view-class is specified, then it should be a string naming the Cocoa view class to allocate. Otherwise the class NSView is allocated.
• If init-function is not nil , then it should be a function which is called with of two arguments, the pane and a foreign pointer to the newly allocated Cocoa view object. The function should initialize the Cocoa view object in whatever way is required, including invoking the appropriate Objective-C initialization method, and return the initialized view. If init-function is nil then the Objective-C method init is called and the result is returned.

After the Cocoa view has been initialized, the function cocoa-view-pane-view can be used the retrieve it.

You can use the functions (setf cocoa-view-pane-view-class) and (setf cocoa-view-pane-init-function) to modify the view-class and init-function , but the values will be ignored if this is done after the pane becomes visible.

See the LispWorks Objective-C and Cocoa Interface User Guide and Reference Manual for details on using Cocoa.

Example

The following code uses cocoa-view-pane to display an NSMovieView displaying an existing movie.

(defun show-movie (movie)

  (capi:contain

   (make-instance

    'cocoa-view-pane

    :view-class "NSMovieView"

    :init-function

    #'(lambda (pane view)

        (setq view

              (objc:invoke view "init"))

        (objc:invoke view "setMovie:" movie)

        view))))

See also

cocoa-view-pane-view