[Openmcl-cvs-notifications] r13908 - /trunk/source/examples/cocoa/easygui/views.lisp

[rme at clozure.com]

Author: rme
Date: Thu Jul  1 11:27:36 2010
New Revision: 13908

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

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

Modified: trunk/source/examples/cocoa/easygui/views.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/examples/cocoa/easygui/views.lisp (original)
+++ trunk/source/examples/cocoa/easygui/views.lisp Thu Jul  1 11:27:36 2010
@@ -370,7 +370,8 @@
                    :reader window-resizable-p)
       (closable-p :initarg :closable-p :initform t :reader window-closable=
-p)
       (level :initarg :window-level :accessor window-level
-             :initform (dcc (#_CGWindowLevelForKey #$kCGNormalWindowLevelK=
ey)))
+             :initform #+cocotron 0
+	               #-cocotron (dcc (#_CGWindowLevelForKey #$kCGNormalWindowLe=
velKey)))
       (hidden :initarg :hidden :reader window-hidden :initform nil)
       (window-needs-display-on-show :initform t)
       (optimized :initarg :optimized :initform t) ; Set to NIL if you anti=
cipate overlapping views in this window