1 | (cl:defpackage :easygui |
---|
2 | (:use :cl) |
---|
3 | (:import-from :ccl with-autorelease-pool @selector lisp-string-from-nsstring +null-ptr+) |
---|
4 | (:export #:point #:ns-point-from-point #:range #:rectangle #:window |
---|
5 | #:point-x #:point-y #:rectangle-x #:rectangle-y #:rectangle-width |
---|
6 | #:rectangle-height |
---|
7 | ;; cocoa stuff |
---|
8 | #:retain-object #:release-object #:retaining-objects |
---|
9 | ;; view classes |
---|
10 | #:view #:static-text-view #:text-input-view #:password-input-view |
---|
11 | #:push-button-view |
---|
12 | #:form-view #:form-cell-view #:box-view #:drawing-view #:slider-view |
---|
13 | #:check-box-view #:radio-button-view |
---|
14 | #:menu-item-view #:pop-up-menu #:pull-down-menu #:contextual-menu |
---|
15 | ;; event methods |
---|
16 | #:mouse-down #:mouse-dragged #:mouse-up #:view-key-event-handler |
---|
17 | ;; operators |
---|
18 | #:cocoa-ref |
---|
19 | #:add-subviews #:remove-subviews #:view-subviews |
---|
20 | #:window-show #:set-window-title |
---|
21 | #:content-view #:view-container |
---|
22 | #:initialize-view #:action #:view-text |
---|
23 | #:add-entry #:add-entries #:editable-p |
---|
24 | #:draw-view-rectangle |
---|
25 | #:entry-text #:cell-count #:nth-cell #:selection #:redisplay |
---|
26 | #:string-value-of #:integer-value-of #:float-value-of |
---|
27 | #:double-value-of |
---|
28 | #:view-named #:view-nick-name |
---|
29 | #:view-size view-position |
---|
30 | #:view-mouse-position |
---|
31 | #:view-font #:with-focused-view |
---|
32 | #:clear-page |
---|
33 | #:check-box-check #:check-box-uncheck #:check-box-checked-p |
---|
34 | #:radio-button-selected-p #:radio-button-select #:radio-button-deselect |
---|
35 | #:dialog-item-enabled-p #:set-dialog-item-enabled-p |
---|
36 | #:shift-key-p #:control-key-p #:alt-key-p #:command-key-p |
---|
37 | #:get-fore-color #:get-back-color #:set-fore-color #:set-back-color |
---|
38 | #:invalidate-view |
---|
39 | #:menu-selection #:menu-items #:set-menu-item-title #:add-contextual-menu |
---|
40 | #:application-main-menu |
---|
41 | #:navigate-menu #:navigate-topbar #:add-topbar-item |
---|
42 | #:make-rgb #:rgb-red #:rgb-green #:rgb-blue #:rgb-opacity |
---|
43 | ;; canned dialogs |
---|
44 | #:y-or-n-dialog #:user-pick-color |
---|
45 | #:choose-file-dialog #:choose-new-file-dialog |
---|
46 | |
---|
47 | |
---|
48 | #:dcc |
---|
49 | #:perform-close #:window-may-close |
---|
50 | ;; variables |
---|
51 | #:*debug-cocoa-calls* |
---|
52 | #:*screen-flipped* |
---|
53 | #:*cocoa-event* |
---|
54 | #:*suppress-window-flushing*)) |
---|
55 | |
---|
56 | (cl:defpackage :easygui-demo |
---|
57 | (:use :cl :easygui) |
---|
58 | (:export #:converter-window #:tiny-demo-window)) |
---|
59 | |
---|
60 | (cl:defpackage :easygui-user |
---|
61 | (:use :cl :easygui)) |
---|