Ignore:
Timestamp:
Feb 27, 2009, 11:12:38 PM (11 years ago)
Author:
gz
Message:

Propagate r11796-r11800 to trunk (easygui fixes and extensions)

Location:
trunk/source/examples/cocoa/easygui
Files:
3 edited
1 copied

Legend:

Unmodified
Added
Removed
  • trunk/source/examples/cocoa/easygui/easygui.asd

    r7802 r11801  
    2828               (:file "views" :depends-on ("events"))
    2929               (:file "action-targets" :depends-on ("views"))
     30               (:file "dialogs" :depends-on ("new-cocoa-bindings"))
    3031               (:module "example"
    3132                        :depends-on ("action-targets")
  • trunk/source/examples/cocoa/easygui/events.lisp

    r11306 r11801  
    11(in-package :easygui)
     2
     3;;; Changed by AWSC Feb 2009:
     4;;; Modified define-chaining-responder-method to allow subclasses of easygui
     5;;; views to inherit mouse handling behaviour.
     6;;; Original work by an unknown author.
     7;;; Permission to use the change is granted.
    28
    39;;; Event handling basics
     
    915  `(objc:defmethod (,objc-name :void) ((,self-arg ,class-name)
    1016                                       ,event-arg)
    11      (let ((ev-class (class-name
    12                       (class-of (easygui-view-of ,self-arg)))))
    13        (if (find-method #',lisp-name nil `(,ev-class) nil) ; TODO: doesn't consider subclasses.
     17     (let ((superclasses (ccl:class-precedence-list (class-of (easygui-view-of ,self-arg)))))
     18       (if (some #'(lambda (super)
     19                     (find-method #',lisp-name nil (list (class-name super)) nil))
     20                 superclasses)
    1421           (,lisp-name (easygui-view-of ,self-arg)
    1522                     ,@arg-compute-forms)
  • trunk/source/examples/cocoa/easygui/package.lisp

    r7802 r11801  
    2222           #:entry-text #:cell-count #:nth-cell #:selection #:redisplay
    2323           #:string-value-of #:integer-value-of #:float-value-of
    24            #:double-value-of))
     24           #:double-value-of
     25           #:y-or-n-dialog
     26           #:choose-file-dialog #:choose-new-file-dialog
     27           #:user-pick-color))
    2528
    2629(cl:defpackage :easygui-demo
Note: See TracChangeset for help on using the changeset viewer.