source: branches/working-0711/ccl/examples/cocoa/easygui/easygui.asd @ 7620

Last change on this file since 7620 was 7499, checked in by af, 13 years ago

Implement mouse event methods for drawing views.

  • Print method for points
  • redisplay method
  • Update tiny.lisp to provide mouse handler example: drag up to increase Number of points, down to decrease it.
File size: 948 bytes
Line 
1;;; -*- lisp -*-
2
3#+openmcl
4(eval-when (:compile-toplevel :load-toplevel :execute)
5  (require :asdf))
6
7#-openmcl
8(error "Requires OpenMCL")
9
10
11(cl:defpackage :easygui-system (:use :cl :asdf))
12
13(in-package :easygui-system)
14
15(defsystem cocoa.asd)
16
17(defmethod perform :after ((o compile-op) (sys (eql (find-system :cocoa.asd))))
18  (require :cocoa))
19
20(defmethod operation-done-p ((o compile-op) (sys (eql (find-system :cocoa.asd))))
21  nil)
22
23(defsystem easygui
24    :depends-on (cocoa.asd)
25    :components ((:file "package")
26                 (:file "new-cocoa-bindings" :depends-on ("package"))
27                 (:file "events" :depends-on ("new-cocoa-bindings"))
28                 (:file "views" :depends-on ("events"))
29                 (:file "action-targets" :depends-on ("views"))
30                 ;;; example:
31                 (:file "tiny" :depends-on ("action-targets"))
32                 (:file "currency-converter" :depends-on ("action-targets"))))
Note: See TracBrowser for help on using the repository browser.