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

Last change on this file since 11975 was 11969, checked in by gb, 10 years ago

Still doesn't do anything; just (REQUIRE "COCOA") to set up environment.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 703 bytes
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
10(eval-when (:compile-toplevel :load-toplevel :execute)
11  (require "COCOA"))
12
13(eval-when (:compile-toplevel :load-toplevel :execute)
14  (objc:load-framework "AddressBook" :addressbook))
15
16;;; Now, someone should write some code which tries to
17;;; actually -use- AddessBook, perhaps via Bosco.  It's
18;;; probably easier to experiment with AddressBook if
19;;; the demo IDE is loaded.
20
Note: See TracBrowser for help on using the repository browser.