/[cmucl]/src/motif/lisp/initial.lisp
ViewVC logotype

Contents of /src/motif/lisp/initial.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (show annotations)
Wed Jun 18 09:23:09 2003 UTC (10 years, 10 months ago) by gerd
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, double-double-array-base, post-merge-intl-branch, release-19b-pre1, release-19b-pre2, merged-unicode-utf16-extfmt-2009-06-11, double-double-init-sparc-2, unicode-utf16-extfmt-2009-03-27, double-double-base, snapshot-2007-09, snapshot-2007-08, snapshot-2008-08, snapshot-2008-09, ppc_gencgc_snap_2006-01-06, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2007-05, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, intl-branch-working-2010-02-19-1000, snapshot-2006-11, snapshot-2006-10, double-double-init-sparc, snapshot-2006-12, unicode-string-buffer-impl-base, sse2-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sse2-packed-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, snapshot-2003-10, snapshot-2004-10, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, intl-2-branch-base, snapshot-2004-08, snapshot-2004-09, snapshot-2007-01, snapshot-2007-02, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, release-19e, release-19d, GIT-CONVERSION, double-double-init-ppc, release-19c, dynamic-extent-base, unicode-utf16-sync-2008-12, release-19c-base, cross-sol-x86-merged, label-2009-03-16, release-19f-base, merge-sse2-packed, mod-arith-base, sparc_gencgc_merge, merge-with-19f, snapshot-2004-12, snapshot-2004-11, intl-branch-working-2010-02-11-1000, unicode-snapshot-2009-05, unicode-snapshot-2009-06, amd64-merge-start, ppc_gencgc_snap_2005-12-17, double-double-init-%make-sparc, unicode-utf16-sync-2008-07, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, prm-before-macosx-merge-tag, RELEASE_20b, snapshot-2008-04, snapshot-2003-11, snapshot-2005-07, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, snapshot-2007-03, release-20a-base, cross-sol-x86-base, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, release-19a-base, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, sparc_gencgc, snapshot-2007-04, snapshot-2010-12, snapshot-2010-11, unicode-utf16-sync-2008-11, snapshot-2007-07, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2007-06, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2003-12, release-19a-pre1, release-19a-pre3, release-19a-pre2, pre-merge-intl-branch, release-19a, double-double-array-checkpoint, double-double-reader-checkpoint-1, release-19d-base, release-19e-pre1, double-double-irrat-end, release-19e-pre2, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, release-19d-pre2, release-19d-pre1, snapshot-2010-08, double-double-init-checkpoint-1, double-double-reader-base, label-2009-03-25, snapshot-2005-03, release-19b-base, cross-sol-x86-2010-12-20, double-double-init-x86, sse2-checkpoint-2008-10-01, intl-branch-2010-03-18-1300, snapshot-2005-11, double-double-sparc-checkpoint-1, snapshot-2004-04, sse2-merge-with-2008-11, sse2-merge-with-2008-10, snapshot-2005-10, RELEASE_20a, snapshot-2005-12, release-20a-pre1, snapshot-2005-01, snapshot-2009-11, snapshot-2009-12, unicode-utf16-extfmt-2009-06-11, portable-clx-import-2009-06-16, unicode-utf16-string-support, release-19c-pre1, cross-sparc-branch-base, release-19e-base, intl-branch-base, double-double-irrat-start, snapshot-2005-06, snapshot-2005-05, snapshot-2005-04, ppc_gencgc_snap_2005-05-14, snapshot-2005-02, unicode-utf16-base, portable-clx-base, snapshot-2005-09, snapshot-2005-08, lisp-executable-base, snapshot-2009-08, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, snapshot-2006-02, snapshot-2006-03, snapshot-2006-01, snapshot-2006-06, snapshot-2006-07, snapshot-2006-04, snapshot-2006-05, pre-telent-clx, snapshot-2006-08, snapshot-2006-09, HEAD
Branch point for: release-19b-branch, double-double-reader-branch, double-double-array-branch, mod-arith-branch, RELEASE-19F-BRANCH, portable-clx-branch, sparc_gencgc_branch, cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, dynamic-extent, release-19d-branch, ppc_gencgc_branch, sse2-packed-branch, lisp-executable, RELEASE-20A-BRANCH, amd64-dd-branch, double-double-branch, unicode-string-buffer-impl-branch, intl-branch, unicode-utf16-branch, cross-sol-x86-branch, release-19e-branch, sse2-branch, release-19a-branch, release-19c-branch, intl-2-branch, unicode-utf16-extfmt-branch
Changes since 1.7: +2 -2 lines
	Remove package nicknames USER from COMMON-LISP-USER.  Add a new
	package COMMON-LISP which LISP uses, so that COMMON-LISP no longer
	has the non-ANSI nickname LISP.

	To bootstrap, use boot13.lisp as target:bootstrap.lisp with pmai's
	build scripts, and do a full compile.

	* src/bootfiles/18e/boot13.lisp: Change for all the package
	changes.

	* src/code/exports.lisp: New package common-lisp,
	which lisp uses.

	* src/tools/worldload.lisp:
	* src/tools/setup.lisp: Use cl-user instead of user.
	Use lisp:: instead of cl::.

	* src/tools/worldcom.lisp:
	* src/tools/snapshot-update.lisp:
	* src/tools/pclcom.lisp:
	* src/tools/mk-lisp:
	* src/tools/hemcom.lisp:
	* src/tools/config.lisp:
	* src/tools/comcom.lisp:
	* src/tools/clxcom.lisp:
	* src/tools/clmcom.lisp:
	* src/pcl/defsys.lisp:
	* src/motif/lisp/initial.lisp:
	* src/interface/initial.lisp:
	* src/hemlock/lispmode.lisp (setup-lisp-mode):
	Use cl-user instead of user.

	* src/code/save.lisp (assert-user-package):
	* src/code/print.lisp (%with-standard-io-syntax): Find
	cl-user package instead of user.

	* src/code/package.lisp (package-locks-init): Add lisp.
	(package-init): Don't add user nickname to cl-user.

	* src/code/ntrace.lisp (*trace-encapsulate-package-names*):
	Add common-lisp.

	* src/code/hash.lisp (toplevel):
	* src/code/hash-new.lisp (toplevel): Use in-package :lisp
	instead of :common-lisp.

	* src/code/float-trap.lisp (sigfpe-handler): Don't
	qualify floating-point-inexact with ext:.

	* src/pcl/simple-streams/strategy.lisp (sc):
	* src/pcl/simple-streams/null.lisp (null-read-char):
	* src/pcl/simple-streams/internal.lisp (allocate-buffer)
	(free-buffer):
	* src/pcl/simple-streams/impl.lisp (%check, %read-line)
	(%peek-char, %read-byte):
	* src/pcl/simple-streams/file.lisp (open-file-stream)
	(device-close):
	* src/pcl/simple-streams/classes.lisp (simple-stream)
	(device-close):
	* src/pcl/macros.lisp (toplevel):
	* src/pcl/braid.lisp (lisp::sxhash-instance):
	* src/pcl/env.lisp (toplevel):
	* src/compiler/generic/objdef.lisp (symbol-hash):
	* src/code/stream.lisp (read-sequence, write-sequence):
	* src/code/macros.lisp (defmacro, deftype):
	* src/code/eval.lisp (interpreted-function):
	* src/code/defstruct.lisp (defstruct):
	* src/code/debug.lisp (debug-eval-print): Use lisp:: instead
	of cl::.
1 ;;;; -*- Mode: Lisp ; Package: User -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the CMU Common Lisp project at
5 ;;; Carnegie Mellon University, and has been placed in the public domain.
6 ;;;
7 (ext:file-comment
8 "$Header: /tiger/var/lib/cvsroots/cmucl/src/motif/lisp/initial.lisp,v 1.8 2003/06/18 09:23:09 gerd Rel $")
9 ;;;
10 ;;; **********************************************************************
11 ;;;
12 ;;; Written by Michael Garland
13 ;;;
14 ;;; This file is the initial startup code for the Motif Toolkit
15 ;;;
16
17 (in-package "CL-USER")
18
19
20
21 (require :clx)
22
23 ;;;; Set up Lisp for the loading of the Motif toolkit
24
25 (defpackage "TOOLKIT-INTERNALS"
26 (:nicknames "XTI")
27 (:use "COMMON-LISP" "EXTENSIONS" "ALIEN" "C-CALL")
28 (:export "*MOTIF-CONNECTION*" "*X-DISPLAY*" "MOTIF-CONNECTION"
29 "MAKE-MOTIF-CONNECTION" "MOTIF-CONNECTION-FD"
30 "MOTIF-CONNECTION-DISPLAY-NAME" "MOTIF-CONNECTION-DISPLAY"
31 "MOTIF-CONNECTION-SERIAL" "MOTIF-CONNECTION-WIDGET-TABLE"
32 "MOTIF-CONNECTION-FUNCTION-TABLE"
33 "MOTIF-CONNECTION-CALLBACK-TABLE" "MOTIF-CONNECTION-CLOSE-HOOK"
34 "MOTIF-CONNECTION-PROTOCOL-TABLE" "MOTIF-CONNECTION-TERMINATED"
35 "MOTIF-CONNECTION-EVENT-TABLE" "TOOLKIT-ERROR"
36 "TOOLKIT-CERROR" "TOOLKIT-EOF-ERROR" "CONNECT-TO-HOST"
37 "WAIT-FOR-INPUT" "WAIT-FOR-INPUT-OR-TIMEOUT" "WIDGET"
38 "MAKE-WIDGET" "WIDGET-ID" "WIDGET-TYPE" "WIDGET-PARENT"
39 "WIDGET-CHILDREN" "WIDGET-CALLBACKS" "WIDGET-PROTOCOLS"
40 "WIDGET-EVENTS" "WIDGET-USER-DATA" "MOTIF-OBJECT" "FONT-LIST"
41 "XMSTRING" "TRANSLATIONS" "ACCELERATORS" "SYMBOL-RESOURCE"
42 "SYMBOL-CLASS" "SYMBOL-ATOM" "WIDGET-ADD-CHILD" "CREATE-MESSAGE"
43 "DESTROY-MESSAGE" "TRANSMIT-MESSAGE" "RECEIVE-MESSAGE"
44 "CREATE-NEXT-MESSAGE" "PREPARE-REQUEST" "*TYPE-TABLE*"
45 "*ENUM-TABLE*" "TOOLKIT-READ-VALUE" "TOOLKIT-WRITE-VALUE"
46 "TOOLKIT-EVENT" "EVENT-HANDLE" "EVENT-SERIAL" "EVENT-SEND-EVENT"
47 "EVENT-WINDOW" "EVENT-TYPE" "BUTTON-EVENT-ROOT"
48 "BUTTON-EVENT-SUBWINDOW" "BUTTON-EVENT-TIME" "BUTTON-EVENT-X"
49 "BUTTON-EVENT-Y" "BUTTON-EVENT-X-ROOT" "BUTTON-EVENT-Y-ROOT"
50 "BUTTON-EVENT-STATE" "BUTTON-EVENT-SAME-SCREEN"
51 "BUTTON-EVENT-BUTTON" "KEY-EVENT-ROOT" "KEY-EVENT-SUBWINDOW"
52 "KEY-EVENT-TIME" "KEY-EVENT-X" "KEY-EVENT-Y" "KEY-EVENT-X-ROOT"
53 "KEY-EVENT-Y-ROOT" "KEY-EVENT-STATE" "KEY-EVENT-KEYCODE"
54 "KEY-EVENT-SAME-SCREEN" "MOTION-EVENT-ROOT"
55 "MOTION-EVENT-SUBWINDOW" "MOTION-EVENT-TIME" "MOTION-EVENT-X"
56 "MOTION-EVENT-Y" "MOTION-EVENT-X-ROOT" "MOTION-EVENT-Y-ROOT"
57 "MOTION-EVENT-STATE" "MOTION-EVENT-IS-HINT"
58 "MOTION-EVENT-SAME-SCREEN" "CROSSING-EVENT-ROOT"
59 "CROSSING-EVENT-SUBWINDOW" "CROSSING-EVENT-TIME"
60 "CROSSING-EVENT-X" "CROSSING-EVENT-Y" "CROSSING-EVENT-X-ROOT"
61 "CROSSING-EVENT-Y-ROOT" "CROSSING-EVENT-MODE"
62 "CROSSING-EVENT-DETAIL" "CROSSING-EVENT-FOCUS"
63 "CROSSING-EVENT-SAME-SCREEN" "CROSSING-EVENT-STATE"
64 "FOCUS-CHANGE-EVENT-MODE" "FOCUS-CHANGE-EVENT-DETAIL"
65 "EXPOSE-EVENT-X" "EXPOSE-EVENT-Y" "EXPOSE-EVENT-WIDTH"
66 "EXPOSE-EVENT-HEIGHT" "EXPOSE-EVENT-COUNT"
67 "GRAPHICS-EXPOSE-EVENT-X" "GRAPHICS-EXPOSE-EVENT-DRAWABLE"
68 "GRAPHICS-EXPOSE-EVENT-Y" "GRAPHICS-EXPOSE-EVENT-WIDTH"
69 "GRAPHICS-EXPOSE-EVENT-HEIGHT" "GRAPHICS-EXPOSE-EVENT-COUNT"
70 "GRAPHICS-EXPOSE-EVENT-MAJOR-CODE"
71 "GRAPHICS-EXPOSE-EVENT-MINOR-CODE" "NO-EXPOSE-EVENT-MINOR-CODE"
72 "NO-EXPOSE-EVENT-DRAWABLE" "NO-EXPOSE-EVENT-MAJOR-CODE"
73 "VISIBILITY-EVENT-STATE" "CREATE-WINDOW-EVENT-PARENT"
74 "CREATE-WINDOW-EVENT-WINDOW" "CREATE-WINDOW-EVENT-X"
75 "CREATE-WINDOW-EVENT-Y" "CREATE-WINDOW-EVENT-WIDTH"
76 "CREATE-WINDOW-EVENT-HEIGHT"
77 "CREATE-WINDOW-EVENT-OVERRIDE-REDIRECT"
78 "DESTROY-WINDOW-EVENT-EVENT" "DESTROY-WINDOW-EVENT-WINDOW"
79 "UNMAP-EVENT-EVENT" "UNMAP-EVENT-WINDOW"
80 "UNMAP-EVENT-FROM-CONFIGURE" "MAP-REQUEST-EVENT-PARENT"
81 "MAP-REQUEST-EVENT-WINDOW" "REPARENT-EVENT-EVENT"
82 "REPARENT-EVENT-PARENT" "REPARENT-EVENT-X" "REPARENT-EVENT-Y"
83 "REPARENT-EVENT-OVERRIDE-REDIRECT" "CONFIGURE-EVENT-EVENT"
84 "CONFIGURE-EVENT-WINDOW" "CONFIGURE-EVENT-X" "CONFIGURE-EVENT-Y"
85 "CONFIGURE-EVENT-WIDTH" "CONFIGURE-EVENT-HEIGHT"
86 "CONFIGURE-EVENT-BORDER-WIDTH" "CONFIGURE-EVENT-ABOVE"
87 "CONFIGURE-EVENT-OVERRIDE-REDIRECT" "GRAVITY-EVENT-EVENT"
88 "GRAVITY-EVENT-WINDOW" "GRAVITY-EVENT-X" "GRAVITY-EVENT-Y"
89 "RESIZE-REQUEST-EVENT-WIDTH" "RESIZE-REQUEST-EVENT-HEIGHT"
90 "CONFIGURE-REQUEST-EVENT-PARENT"
91 "CONFIGURE-REQUEST-EVENT-WINDOW" "CONFIGURE-REQUEST-EVENT-X"
92 "CONFIGURE-REQUEST-EVENT-Y" "CONFIGURE-REQUEST-EVENT-WIDTH"
93 "CONFIGURE-REQUEST-EVENT-HEIGHT" "CONFIGURE-REQUEST-EVENT-ABOVE"
94 "CONFIGURE-REQUEST-EVENT-BORDER-WIDTH"
95 "CONFIGURE-REQUEST-EVENT-DETAIL"
96 "CONFIGURE-REQUEST-EVENT-VALUE-MASK" "CIRCULATE-EVENT-EVENT"
97 "CIRCULATE-EVENT-WINDOW" "CIRCULATE-EVENT-PLACE"
98 "CIRCULATE-REQUEST-EVENT-EVENT" "CIRCULATE-REQUEST-EVENT-WINDOW"
99 "CIRCULATE-REQUEST-EVENT-PLACE" "PROPERTY-EVENT-ATOM"
100 "PROPERTY-EVENT-TIME" "PROPERTY-EVENT-STATE"
101 "SELECTION-CLEAR-EVENT-SELECTION" "SELECTION-CLEAR-EVENT-TIME"
102 "SELECTION-REQUEST-EVENT-OWNER"
103 "SELECTION-REQUEST-EVENT-REQUESTOR"
104 "SELECTION-REQUEST-EVENT-SELECTION"
105 "SELECTION-REQUEST-EVENT-TARGET"
106 "SELECTION-REQUEST-EVENT-PROPERTY"
107 "SELECTION-REQUEST-EVENT-TIME" "SELECTION-EVENT-REQUESTOR"
108 "SELECTION-EVENT-SELECTION" "SELECTION-EVENT-TARGET"
109 "SELECTION-EVENT-PROPERTY" "SELECTION-EVENT-TIME"
110 "COLORMAP-EVENT-COLORMAP" "COLORMAP-EVENT-NEW"
111 "COLORMAP-EVENT-STATE" "MAPPING-EVENT-REQUEST"
112 "MAPPING-EVENT-FIRST-KEYCODE" "MAPPING-EVENT-COUNT"))
113
114 (defpackage "TOOLKIT"
115 (:nicknames "XT")
116 (:use "COMMON-LISP" "EXTENSIONS" "TOOLKIT-INTERNALS")
117 (:export "ADD-CALLBACK" "REMOVE-CALLBACK" "REMOVE-ALL-CALLBACKS"
118 "ADD-PROTOCOL-CALLBACK" "REMOVE-PROTOCOL-CALLBACK"
119 "ADD-WM-PROTOCOL-CALLBACK" "REMOVE-WM-PROTOCOL-CALLBACK"
120 "WITH-CALLBACK-EVENT" "WITH-ACTION-EVENT" "ADD-EVENT-HANDLER"
121 "REMOVE-EVENT-HANDLER" "ANY-CALLBACK" "ANY-CALLBACK-REASON"
122 "ANY-CALLBACK-EVENT" "BUTTON-CALLBACK" "DRAWING-AREA-CALLBACK"
123 "BUTTON-CALLBACK-CLICK-COUNT" "DRAWING-AREA-CALLBACK-WINDOW"
124 "DRAWN-BUTTON-CALLBACK" "DRAWN-BUTTON-CALLBACK-WINDOW"
125 "DRAWN-BUTTON-CALLBACK-CLICK-COUNT" "SCROLL-BAR-CALLBACK"
126 "SCROLL-BAR-CALLBACK-VALUE" "SCROLL-BAR-CALLBACK-PIXEL"
127 "TOGGLE-BUTTON-CALLBACK" "TOGGLE-BUTTON-CALLBACK-SET"
128 "LIST-CALLBACK" "LIST-CALLBACK-ITEM"
129 "LIST-CALLBACK-ITEM-POSITION" "LIST-CALLBACK-SELECTED-ITEMS"
130 "LIST-CALLBACK-SELECTED-ITEM-POSITIONS"
131 "LIST-CALLBACK-SELECTION-TYPE" "SELECTION-CALLBACK"
132 "SELECTION-CALLBACK-VALUE" "FILE-SELECTION-CALLBACK"
133 "FILE-SELECTION-CALLBACK-VALUE" "FILE-SELECTION-CALLBACK-MASK"
134 "FILE-SELECTION-CALLBACK-DIR" "FILE-SELECTION-CALLBACK-PATTERN"
135 "SCALE-CALLBACK" "SCALE-CALLBACK-VALUE" "TEXT-CALLBACK"
136 "TEXT-CALLBACK-DOIT" "TEXT-CALLBACK-CURR-INSERT"
137 "TEXT-CALLBACK-NEW-INSERT" "TEXT-CALLBACK-START-POS"
138 "TEXT-CALLBACK-END-POS" "TEXT-CALLBACK-TEXT" "WITH-ACTION-EVENT"
139 "TEXT-CALLBACK-FORMAT" "*DEBUG-MODE*" "*DEFAULT-SERVER-HOST*"
140 "*CLM-BINARY-DIRECTORY*" "*CLM-BINARY-NAME*"
141 "*DEFAULT-DISPLAY*" "QUIT-APPLICATION" "WITH-MOTIF-CONNECTION"
142 "RUN-MOTIF-APPLICATION" "WITH-CLX-REQUESTS"
143 "BUILD-SIMPLE-FONT-LIST" "BUILD-FONT-LIST" "*MOTIF-CONNECTION*"
144 "*X-DISPLAY*" "WIDGET" "XMSTRING" "FONT-LIST" "SET-VALUES"
145 "GET-VALUES" "CREATE-MANAGED-WIDGET" "CREATE-WIDGET"
146 "CREATE-POPUP-SHELL" "CREATE-APPLICATION-SHELL" "DESTROY-WIDGET"
147 "*CONVENIENCE-AUTO-MANAGE*" "MANAGE-CHILDREN"
148 "UNMANAGE-CHILDREN" "WITH-RESOURCE-VALUES" "MENU-POSITION"
149 "CREATE-ARROW-BUTTON" "CREATE-ARROW-BUTTON-GADGET"
150 "CREATE-BULLETIN-BOARD" "CREATE-CASCADE-BUTTON"
151 "CREATE-CASCADE-BUTTON-GADGET" "CREATE-COMMAND"
152 "CREATE-DIALOG-SHELL" "CREATE-DRAWING-AREA"
153 "CREATE-DRAWN-BUTTON" "CREATE-FILE-SELECTION-BOX" "CREATE-FORM"
154 "CREATE-FRAME" "CREATE-LABEL" "CREATE-LABEL-GADGET"
155 "CREATE-LIST" "CREATE-MAIN-WINDOW" "CREATE-MENU-SHELL"
156 "CREATE-MESSAGE-BOX" "CREATE-PANED-WINDOW" "CREATE-PUSH-BUTTON"
157 "CREATE-PUSH-BUTTON-GADGET" "CREATE-ROW-COLUMN" "CREATE-SCALE"
158 "CREATE-SCROLL-BAR" "CREATE-SCROLLED-WINDOW"
159 "CREATE-SELECTION-BOX" "CREATE-SEPARATOR"
160 "CREATE-SEPARATOR-GADGET" "CREATE-TEXT" "CREATE-TEXT-FIELD"
161 "CREATE-TOGGLE-BUTTON"
162 "CREATE-TOGGLE-BUTTON-GADGET" "CREATE-MENU-BAR"
163 "CREATE-OPTION-MENU" "CREATE-RADIO-BOX" "CREATE-WARNING-DIALOG"
164 "CREATE-BULLETIN-BOARD-DIALOG" "CREATE-ERROR-DIALOG"
165 "CREATE-FILE-SELECTION-DIALOG" "CREATE-FORM-DIALOG"
166 "CREATE-INFORMATION-DIALOG" "CREATE-MESSAGE-DIALOG"
167 "CREATE-POPUP-MENU" "CREATE-PROMPT-DIALOG"
168 "CREATE-PULLDOWN-MENU" "CREATE-QUESTION-DIALOG"
169 "CREATE-SCROLLED-LIST" "CREATE-SCROLLED-TEXT"
170 "CREATE-SELECTION-DIALOG" "CREATE-WORKING-DIALOG"
171 "REALIZE-WIDGET" "UNREALIZE-WIDGET" "MAP-WIDGET" "UNMAP-WIDGET"
172 "SET-SENSITIVE" "POPUP" "POPDOWN" "MANAGE-CHILD"
173 "UNMANAGE-CHILD" "PARSE-TRANSLATION-TABLE"
174 "AUGMENT-TRANSLATIONS" "OVERRIDE-TRANSLATIONS"
175 "UNINSTALL-TRANSLATIONS" "PARSE-ACCELERATOR-TABLE"
176 "INSTALL-ACCELERATORS" "INSTALL-ALL-ACCELERATORS" "IS-MANAGED"
177 "POPUP-SPRING-LOADED" "IS-REALIZED" "WIDGET-WINDOW" "WIDGET-NAME"
178 "IS-SENSITIVE" "COMMAND-APPEND-VALUE" "COMMAND-ERROR"
179 "COMMAND-SET-VALUE" "SCALE-GET-VALUE" "SCALE-SET-VALUE"
180 "TOGGLE-BUTTON-GET-STATE" "TOGGLE-BUTTON-SET-STATE"
181 "LIST-ADD-ITEM" "LIST-ADD-ITEM-UNSELECTED" "LIST-DELETE-ITEM"
182 "LIST-DELETE-POS" "LIST-DESELECT-ALL-ITEMS" "LIST-DESELECT-ITEM"
183 "LIST-DESELECT-POS" "LIST-SELECT-ITEM" "LIST-SELECT-POS"
184 "LIST-SET-BOTTOM-ITEM" "LIST-SET-BOTTOM-POS"
185 "LIST-SET-HORIZ-POS" "LIST-SET-ITEM" "LIST-SET-POS"
186 "ADD-TAB-GROUP" "REMOVE-TAB-GROUP" "PROCESS-TRAVERSAL"
187 "FONT-LIST-ADD" "FONT-LIST-CREATE" "FONT-LIST-FREE"
188 "COMPOUND-STRING-BASELINE" "COMPOUND-STRING-BYTE-COMPARE"
189 "COMPOUND-STRING-COMPARE" "COMPOUND-STRING-CONCAT"
190 "COMPOUND-STRING-COPY" "COMPOUND-STRING-CREATE"
191 "COMPOUND-STRING-CREATE-LTOR" "COMPOUND-STRING-CREATE-SIMPLE"
192 "COMPOUND-STRING-CREATE-EMPTY" "COMPOUND-STRING-EXTENT"
193 "COMPOUND-STRING-FREE" "COMPOUND-STRING-HAS-SUBSTRING"
194 "COMPOUND-STRING-HEIGHT" "COMPOUND-STRING-LENGTH"
195 "COMPOUND-LINE-COUNT" "COMPOUND-STRING-NCONCAT"
196 "COMPOUND-STRING-NCOPY" "COMPOUND-STRING-SEPARATOR-CREATE"
197 "COMPOUND-STRING-WIDTH" "TEXT-CLEAR-SELECTION" "TEXT-COPY"
198 "TEXT-CUT" "TEXT-GET-BASELINE" "TEXT-GET-EDITABLE"
199 "TEXT-GET-INSERTION-POSITION" "TEXT-GET-LAST-POSITION"
200 "TEXT-GET-MAX-LENGTH" "TEXT-GET-SELECTION"
201 "TEXT-GET-SELECTION-POSITION" "TEXT-GET-STRING"
202 "TEXT-GET-TOP-CHARACTER" "TEXT-INSERT" "TEXT-PASTE"
203 "TEXT-POS-TO-XY" "TEXT-REMOVE" "TEXT-REPLACE" "TEXT-SCROLL"
204 "TEXT-SET-ADD-MODE" "TEXT-SET-EDITABLE" "TEXT-SET-HIGHLIGHT"
205 "TEXT-SET-INSERTION-POSITION" "TEXT-SET-MAX-LENGTH"
206 "TEXT-SET-SELECTION" "TEXT-SET-STRING" "TEXT-SET-TOP-CHARACTER"
207 "TEXT-SHOW-POSITION" "TEXT-XY-TO-POS" "MESSAGE-BOX-GET-CHILD"
208 "SELECTION-BOX-GET-CHILD" "FILE-SELECTION-BOX-GET-CHILD"
209 "COMMAND-GET-CHILD" "UPDATE-DISPLAY" "IS-MOTIF-WM-RUNNING"
210 "LIST-ADD-ITEMS" "LIST-DELETE-ALL-ITEMS" "LIST-DELETE-ITEMS"
211 "LIST-DELETE-ITEMS-POS" "LIST-ITEM-EXISTS" "LIST-ITEM-POS"
212 "LIST-REPLACE-ITEMS" "LIST-REPLACE-ITEMS-POS"
213 "LIST-SET-ADD-MODE" "TRANSLATE-COORDS" "SCROLL-BAR-GET-VALUES"
214 "SCROLL-BAR-SET-VALUES" "COMPOUND-STRING-GET-LTOR"
215 "TRACKING-LOCATE" "SCROLLED-WINDOW-SET-AREAS" "CREATE-FONT-CURSOR"
216 "LIST-GET-SELECTED-POS" "QUIT-APPLICATION-CALLBACK"
217 "DESTROY-CALLBACK" "MANAGE-CALLBACK" "UNMANAGE-CALLBACK"
218 "POPUP-CALLBACK" "POPDOWN-CALLBACK" "SET-ITEMS" "GET-ITEMS"
219 "WITH-CALLBACK-DEFERRED-ACTIONS" "NAME-TO-WIDGET"
220 "IS-APPLICATION-SHELL" "IS-COMPOSITE" "IS-CONSTRAINT" "IS-OBJECT"
221 "IS-OVERRIDE-SHELL" "IS-RECT-OBJ" "IS-SHELL" "IS-TOP-LEVEL-SHELL"
222 "IS-TRANSIENT-SHELL" "IS-VENDOR-SHELL" "IS-W-M-SHELL"
223 "XT-WIDGET-PARENT"))
224
225
226
227 ;;;; These variables are built at compile time and used to build C header
228 ;;;; files. We retain the values at run-time just so that we can built the
229 ;;;; interface files at any time.
230
231 (in-package "TOOLKIT")
232
233 (declaim (special *request-table* *class-table* next-type-tag))
234

  ViewVC Help
Powered by ViewVC 1.1.5