source: trunk/source/examples/addressbook.lisp @ 9793

Last change on this file since 9793 was 6233, checked in by gb, 13 years ago

Use new syntax: OBJC:DEFMETHOD, #/, MAKE-INSTANCE.

Use OBJC:LOAD-FRAMEWORK.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.0 KB
Line 
1;;; This code is adapted from the webkit example and with help
2;;; from Richard Cook and Gary Byers on the OpenMCL list.
3;;; Things have changed since then, and it's hopefully easier
4;;; to use add-on Cocoa frameworks than it once was.
5;;; All this does is to try to make it possible to use AddressBook
6
7(in-package ccl)
8
9;;; We need to be able to point the CoreFoundation and Cocoa libraries
10;;; at some bundle very early in the process.  If you want to use some
11;;; other bundle path, you may need to change the call to FAKE-CFBUNDLE-PATH
12;;; below.
13
14#+darwin-target
15(progn
16  (require "FAKE-CFBUNDLE-PATH")
17  (fake-cfbundle-path "ccl:OpenMCL.app;Contents;MacOS;dppccl"))
18
19
20(eval-when (:compile-toplevel :load-toplevel :execute)
21  (require "OBJC-SUPPORT"))
22
23(eval-when (:compile-toplevel :load-toplevel :execute)
24  (objc:load-framework "AddressBook" :addressbook))
25
26;;; Now, someone should write some code which tries to
27;;; actually -use- AddessBook, perhaps via Bosco.  It's
28;;; probably easier to experiment with AddressBook if
29;;; the demo IDE is loaded.
30
Note: See TracBrowser for help on using the repository browser.