Changeset 13061 for trunk/source/examples/cocoa/easygui/example/extended-demo.lisp

Timestamp:

Oct 20, 2009, 9:02:35 PM (10 years ago)

Author:

rme

Message:

Qualify access to *debug-cocoa-calls*. In DEFINE-TOOLTIP-ACCESSOR,
correct lambda list for #/view:stringForToolTip:point:userData:.

File:

• trunk/source/examples/cocoa/easygui/example/extended-demo.lisp (modified) (2 diffs)

trunk/source/examples/cocoa/easygui/example/extended-demo.lisp

@@ -11 +11 @@
 ; Tested only in images constructed using (require :cocoa-application).
 
-(setf *debug-cocoa-calls* nil)
+(setf easygui::*debug-cocoa-calls* nil)
 
 (defclass view-hierarchy-demo-window (window)
@@ -271 +271 @@
                     ("Flipping" "New windows are flipped"      ,#'(lambda nil (setf *screen-flipped* t)))
                     ("Flipping" "New windows are not flipped"  ,#'(lambda nil (setf *screen-flipped* nil)))
-                    ("Tracing" "Cocoa Calls are traced"        ,#'(lambda nil (setf *debug-cocoa-calls* t)))
-                    ("Tracing" "Cocoa Calls are not traced"    ,#'(lambda nil (setf *debug-cocoa-calls* nil)))
+                    ("Tracing" "Cocoa Calls are traced"        ,#'(lambda nil (setf easygui::*debug-cocoa-calls* t)))
+                    ("Tracing" "Cocoa Calls are not traced"    ,#'(lambda nil (setf easygui::*debug-cocoa-calls* nil)))
                     ("Color Picker" "Text"                     ,#'(lambda nil
                                                                     (cl-user::process-run-function "Pick color for text in box"