- Timestamp:
- Oct 20, 2009, 9:02:35 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/examples/cocoa/easygui/example/extended-demo.lisp
r11899 r13061 11 11 ; Tested only in images constructed using (require :cocoa-application). 12 12 13 (setf *debug-cocoa-calls* nil)13 (setf easygui::*debug-cocoa-calls* nil) 14 14 15 15 (defclass view-hierarchy-demo-window (window) … … 271 271 ("Flipping" "New windows are flipped" ,#'(lambda nil (setf *screen-flipped* t))) 272 272 ("Flipping" "New windows are not flipped" ,#'(lambda nil (setf *screen-flipped* nil))) 273 ("Tracing" "Cocoa Calls are traced" ,#'(lambda nil (setf *debug-cocoa-calls* t)))274 ("Tracing" "Cocoa Calls are not traced" ,#'(lambda nil (setf *debug-cocoa-calls* nil)))273 ("Tracing" "Cocoa Calls are traced" ,#'(lambda nil (setf easygui::*debug-cocoa-calls* t))) 274 ("Tracing" "Cocoa Calls are not traced" ,#'(lambda nil (setf easygui::*debug-cocoa-calls* nil))) 275 275 ("Color Picker" "Text" ,#'(lambda nil 276 276 (cl-user::process-run-function "Pick color for text in box"
Note: See TracChangeset
for help on using the changeset viewer.