Changeset 6725

Timestamp:

Jun 14, 2007, 12:37:27 AM (17 years ago)

Author:

Gary Byers

Message:

New preferences panel.

File:

• branches/ide-1.0/ccl/examples/cocoa-window.lisp (modified) (2 diffs)

branches/ide-1.0/ccl/examples/cocoa-window.lisp

@@ -37 +37 @@
 (defun init-cocoa-application ()
   (with-autorelease-pool
+      (#/standardUserDefaults ns:ns-user-defaults)
       (let* ((bundle (open-main-bundle))
              (dict (#/infoDictionary  bundle))
@@ -169 +170 @@
 (objc:defmethod (#/showPreferences: :void) ((self lisp-application) sender)
   (declare (ignore sender))
-  (#/show (#/sharedPanel preferences-panel)))
+  (#/show (#/sharedPanel lisp-preferences-panel)))
 
 (objc:defmethod (#/toggleTypeout: :void) ((self lisp-application) sender)