Changeset 13061


Ignore:
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:.

Location:
trunk/source/examples/cocoa/easygui
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/examples/cocoa/easygui/example/extended-demo.lisp

    r11899 r13061  
    1111; Tested only in images constructed using (require :cocoa-application).
    1212
    13 (setf *debug-cocoa-calls* nil)
     13(setf easygui::*debug-cocoa-calls* nil)
    1414
    1515(defclass view-hierarchy-demo-window (window)
     
    271271                    ("Flipping" "New windows are flipped"      ,#'(lambda nil (setf *screen-flipped* t)))
    272272                    ("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)))
    275275                    ("Color Picker" "Text"                     ,#'(lambda nil
    276276                                                                    (cl-user::process-run-function "Pick color for text in box"
  • trunk/source/examples/cocoa/easygui/views.lisp

    r12721 r13061  
    502502  `(progn
    503503     (objc:defmethod #/view:stringForToolTip:point:userData:
    504                      ((view ,cocoa-class)
     504                     ((self ,cocoa-class)
     505                      view
    505506                      (tag :<NST>ool<T>ip<T>ag)
    506507                      (point :<NSP>oint)
    507                       (userdata :id))
     508                      (userdata :address))
    508509       (declare (ignorable tag point userdata))
    509510       (ccl::%make-nsstring (or (calculate-ns-tooltip view) "")))
Note: See TracChangeset for help on using the changeset viewer.