Changeset 5886

Timestamp:

Feb 10, 2007, 9:34:57 PM (18 years ago)

Author:

Gary Byers

Message:

Some indentation changes and slight reorganization of the code; shouldn't
be any functional/semantic changes.

File:

• trunk/ccl/examples/cocoa-window.lisp (modified) (1 diff)

trunk/ccl/examples/cocoa-window.lisp

@@ -197 +197 @@
                                  #'(lambda ()
                                      (loop
-                                         (%nanosleep *periodic-task-seconds*
-                                                     *periodic-task-nanoseconds*)
-                                         (housekeeping))))
+                                       (%nanosleep *periodic-task-seconds*
+                                                   *periodic-task-nanoseconds*)
+                                       (housekeeping))))
            
            (with-autorelease-pool
-               (enable-foreground)
-               (or *NSApp* (setq *NSApp* (init-cocoa-application)))
-               (send *NSApp* :set-application-icon-image
-                     (send (@class ns-image) :image-Named #@"NSApplicationIcon"))
-               (setf (application-ui-object *application*) *NSApp*)
-
-               (when application-proxy-class-name
-                 (let* ((classptr (%objc-class-classptr
-                                   (load-objc-class-descriptor application-proxy-class-name))))
-                   (send *NSApp* :set-delegate
-                         (send (send classptr 'alloc) 'init)))))
+             (enable-foreground)
+             (or *NSApp* (setq *NSApp* (init-cocoa-application)))
+             (let* ((icon (send (@class ns-image) :image-named #@"NSApplicationIcon")))
+               (unless (%null-ptr-p icon)
+                 (send *NSApp* :set-application-icon-image icon)))
+             (setf (application-ui-object *application*) *NSApp*)
+             (when application-proxy-class-name
+               (let* ((classptr (%objc-class-classptr
+                                 (load-objc-class-descriptor application-proxy-class-name)))
+                      (instance (send (send classptr 'alloc) 'init)))
+
+                 (send *NSApp* :set-delegate instance))))
            (run-event-loop)))
     (process-interrupt *cocoa-event-process* #'(lambda ()