Changeset 8204

Timestamp:

Jan 17, 2008, 10:46:12 AM (17 years ago)

Author:

Gary Byers

Message:

Indentation in PROCESS-INTERRUPT method.

File:

• trunk/source/cocoa-ide/cocoa-window.lisp (modified) (1 diff)

trunk/source/cocoa-ide/cocoa-window.lisp

@@ -83 +83 @@
     (if (or (not *NSApp*) (not (#/isRunning *NSApp*)))
       (call-next-method)
-        (let* ((e (#/otherEventWithType:location:modifierFlags:timestamp:windowNumber:context:subtype:data1:data2:
-                   ns:ns-event
-                   #$NSApplicationDefined
-                   (ns:make-ns-point 0 0)
-                   0
-                   0.0d0
-                   0
-                   +null-ptr+
-                   process-interrupt-event-subtype
-                   (register-appkit-process-interrupt
-                    #'(lambda () (apply function args))) 0)))
+      (let* ((e (#/otherEventWithType:location:modifierFlags:timestamp:windowNumber:context:subtype:data1:data2:
+                 ns:ns-event
+                 #$NSApplicationDefined
+                 (ns:make-ns-point 0 0)
+                 0
+                 0.0d0
+                 0
+                 +null-ptr+
+                 process-interrupt-event-subtype
+                 (register-appkit-process-interrupt
+                  #'(lambda () (apply function args))) 0)))
         (#/retain e)
         (#/performSelectorOnMainThread:withObject:waitUntilDone: