/[mcclim]/mcclim/ESA/packages.lisp
ViewVC logotype

Contents of /mcclim/ESA/packages.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.21 - (show annotations)
Sun Jun 15 09:01:33 2008 UTC (5 years, 10 months ago) by thenriksen
Branch: MAIN
CVS Tags: HEAD
Changes since 1.20: +1 -0 lines
Added FORMAT-SYM function from Maciej Katafiasz to ESA-UTILS.
1 ;;; -*- Mode: Lisp; Package: COMMON-LISP-USER -*-
2
3 ;;; (c) copyright 2004-2006 by
4 ;;; Robert Strandh (strandh@labri.fr)
5 ;;; (c) copyright 2006-2008 by
6 ;;; Troels Henriksen (athas@sigkill.dk)
7
8 ;;; This library is free software; you can redistribute it and/or
9 ;;; modify it under the terms of the GNU Library General Public
10 ;;; License as published by the Free Software Foundation; either
11 ;;; version 2 of the License, or (at your option) any later version.
12 ;;;
13 ;;; This library is distributed in the hope that it will be useful,
14 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 ;;; Library General Public License for more details.
17 ;;;
18 ;;; You should have received a copy of the GNU Library General Public
19 ;;; License along with this library; if not, write to the
20 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 ;;; Boston, MA 02111-1307 USA.
22
23 ;;; Package definitions for ESA.
24
25 (defpackage :esa-utils
26 (:use :clim-lisp :clim-mop :clim)
27 (:shadowing-import-from :clim-lisp #:describe-object)
28 (:export #:with-gensyms
29 #:once-only
30 #:unlisted
31 #:fully-unlisted
32 #:listed
33 #:list-aref
34 #:letf
35 #:letf*
36 #:display-string
37 #:object-equal
38 #:object=
39 #:no-upper-p
40 #:case-relevant-test
41 #:with-keywords-removed
42 #:invoke-with-dynamic-bindings-1
43 #:invoke-with-dynamic-bindings
44 #:maptree
45 #:subtype-compatible-p
46 #:capitalize
47 #:ensure-array-size
48 #:values-max-min
49 #:retaining-value
50 #:format-sym
51 #:build-menu #:define-menu-table
52 #:observable-mixin
53 #:add-observer #:remove-observer
54 #:observer-notified #:notify-observers
55 #:name-mixin #:name
56 #:subscriptable-name-mixin #:subscripted-name #:subscript #:subscript-generator
57 #:mode #:modual-class
58 #:available-modes
59 #:mode-directly-applicable-p #:mode-applicable-p
60 #:mode-enabled-p
61 #:enabled-modes
62 #:nonapplicable-mode
63 #:change-class-for-enabled-mode
64 #:change-class-for-disabled-mode
65 #:enable-mode #:disable-mode
66 #:add-default-modes #:remove-default-modes))
67
68 (defpackage :esa
69 (:use :clim-lisp :clim :esa-utils :clim-extensions)
70 (:export #:*esa-instance*
71 #:buffers #:esa-current-buffer #:current-buffer
72 #:windows #:esa-current-window #:current-window
73 #:*previous-command*
74 #:*minibuffer* #:minibuffer #:minibuffer-pane #:display-message
75 #:with-minibuffer-stream
76 #:esa-pane-mixin #:previous-command
77 #:info-pane #:master-pane
78 #:esa-frame-mixin #:recordingp #:executingp
79 #:*esa-abort-gestures* #:*current-gesture* #:*command-processor*
80 #:unbound-gesture-sequence #:gestures
81 #:command-processor #:instant-macro-execution-mixin
82 #:asynchronous-command-processor #:command-loop-command-processor
83 #:dead-key-merging-command-processor
84 #:overriding-handler #:directly-processing-p #:process-gesture #:process-gestures-or-command
85 #:command-for-unbound-gestures
86 #:*extended-command-prompt*
87 #:define-esa-top-level #:esa-top-level #:simple-command-loop
88 #:convert-to-gesture #:gesture-name
89 #:invoke-with-help-stream #:with-help-stream
90 #:set-key
91 #:find-applicable-command-table
92 #:esa-command-parser
93 #:esa-partial-command-parser
94
95 #:gesture-matches-gesture-name-p #:meta-digit
96 #:proper-gesture-p
97 #:universal-argument #:meta-minus
98
99 ;; General commands
100 #:global-esa-table
101 #:com-quit #:com-extended-command
102
103 ;; Help commands
104 #:help-table #:help-menu-table
105 #:com-describe-key-briefly #:com-where-is
106 #:com-describe-bindings
107 #:com-describe-key #:com-describe-command
108 #:com-apropos-command
109
110 ;; Keyboard macro commands
111 #:keyboard-macro-table #:keyboard-macro-menu-table
112 #:com-start-macro #:com-end-macro
113 #:com-call-last-macro))
114
115 (defpackage :esa-buffer
116 (:use :clim-lisp :clim :esa :esa-utils)
117 (:export #:frame-make-buffer-from-stream #:make-buffer-from-stream
118 #:frame-save-buffer-to-stream #:save-buffer-to-stream
119 #:filepath #:name #:needs-saving #:file-write-time #:file-saved-p
120 #:esa-buffer-mixin
121 #:frame-make-new-buffer #:make-new-buffer
122 #:read-only-p))
123
124 (defpackage :esa-io
125 (:use :clim-lisp :clim :esa :esa-buffer :esa-utils)
126 (:export #:frame-find-file #:find-file
127 #:frame-find-file-read-only #:find-file-read-only
128 #:frame-set-visited-file-name #:set-visited-filename
129 #:check-buffer-writability
130 #:frame-save-buffer #:save-buffer
131 #:frame-write-buffer #:write-buffer
132 #:buffer-writing-error #:buffer #:filepath
133 #:filepath-is-directory
134 #:esa-io-table #:esa-io-menu-table
135 #:com-find-file #:com-find-file-read-only
136 #:com-read-only #:com-set-visited-file-name
137 #:com-save-buffer #:com-write-buffer))
138
139 #-(or mcclim building-mcclim)
140 (defpackage :clim-extensions
141 (:use :clim-lisp :clim)
142 (:export
143 #:+blue-violet+
144 #:+dark-blue+
145 #:+dark-green+
146 #:+dark-violet+
147 #:+gray50+
148 #:+gray85+
149 #:+maroon+
150 #:+purple+))

  ViewVC Help
Powered by ViewVC 1.1.5