Changeset 13908

Timestamp:

Jul 1, 2010, 9:27:36 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

Avoid calling #_CGWindowLevel when #+cocotron (just use hardwired constant
instead).

File:

• trunk/source/examples/cocoa/easygui/views.lisp (modified) (1 diff)

trunk/source/examples/cocoa/easygui/views.lisp

@@ -371 +371 @@
       (closable-p :initarg :closable-p :initform t :reader window-closable-p)
       (level :initarg :window-level :accessor window-level
-             :initform (dcc (#_CGWindowLevelForKey #$kCGNormalWindowLevelKey)))
+             :initform #+cocotron 0
+                       #-cocotron (dcc (#_CGWindowLevelForKey #$kCGNormalWindowLevelKey)))
       (hidden :initarg :hidden :reader window-hidden :initform nil)
       (window-needs-display-on-show :initform t)