File: InitialiseCore.ML

package info (click to toggle)
polyml 5.7.1-5
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid
  • size: 40,616 kB
  • sloc: cpp: 44,142; ansic: 26,963; sh: 22,002; asm: 13,486; makefile: 602; exp: 525; python: 253; awk: 91
file content (328 lines) | stat: -rw-r--r-- 17,938 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
(*
    Copyright (c) 2000
        Cambridge University Technical Services Limited

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.
    
    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.
    
    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
*)

structure InitialiseCore = struct
local open MotifTypes XmTypes MotifCore in
val U = XtSetExceptionType XmNaccelerator XmRString ;
val U = XtSetExceptionType XmNacceleratorText XmRXmString ;
val U = XtSetExceptionType XmNaccelerators XmRAcceleratorTable ;
val U = XtSetExceptionType XmNadjustLast XmRBool ;
val U = XtSetExceptionType XmNadjustMargin XmRBool ;
val U = XtSetExceptionType XmNalignment XmRAlignment ;
val U = XtSetExceptionType XmNallowOverlap XmRBool ;
val U = XtSetExceptionType XmNallowResize XmRBool ;
val U = XtSetExceptionType XmNallowShellResize XmRBool ;
val U = XtSetExceptionType XmNancestorSensitive XmRBool ;
val U = XtSetExceptionType XmNapplyLabelString XmRXmString ;
val U = XtSetExceptionType XmNargc XmRInt ;
val U = XtSetExceptionType XmNargv XmRStringTable ;
val U = XtSetExceptionType XmNarmColor XmRPixel ;
val U = XtSetExceptionType XmNarmPixmap XmRPixmap ;
val U = XtSetExceptionType XmNarrowDirection XmRArrowDirection ;
val U = XtSetExceptionType XmNautoShowCursorPosition XmRBool ;
val U = XtSetExceptionType XmNautoUnmanage XmRBool ;
val U = XtSetExceptionType XmNautomaticSelection XmRBool ;
val U = XtSetExceptionType XmNbackground XmRPixel ;
val U = XtSetExceptionType XmNbackgroundPixmap XmRPixmap ;
val U = XtSetExceptionType XmNbaseHeight XmRInt ;
val U = XtSetExceptionType XmNbaseWidth XmRInt ;
val U = XtSetExceptionType XmNblinkRate XmRInt ;
val U = XtSetExceptionType XmNborderColor XmRPixel ;
val U = XtSetExceptionType XmNborderPixmap XmRPixmap ;
val U = XtSetExceptionType XmNborderWidth XmRDimension ;
val U = XtSetExceptionType XmNbottomAttachment XmRAttachment ;
val U = XtSetExceptionType XmNbottomOffset XmRInt ;
val U = XtSetExceptionType XmNbottomPosition XmRInt ;
val U = XtSetExceptionType XmNbottomShadowColor XmRPixel ;
val U = XtSetExceptionType XmNbottomShadowPixmap XmRPixmap ;
val U = XtSetExceptionType XmNbottomWidget XmRWidget ;
val U = XtSetExceptionType XmNbuttonAcceleratorText XmRXmStringTable ;
val U = XtSetExceptionType XmNbuttonAccelerators XmRStringTable ;
val U = XtSetExceptionType XmNbuttonCount XmRInt ;
val U = XtSetExceptionType XmNbuttonFontList XmRFontList ;
val U = XtSetExceptionType XmNbuttonMnemonicCharSets XmRXmStringTable ;
val U = XtSetExceptionType XmNbuttonMnemonics XmRKeySymTable ;
val U = XtSetExceptionType XmNbuttonSet XmRInt ;
val U = XtSetExceptionType XmNbuttonType XmRButtonTypeTable ;
val U = XtSetExceptionType XmNbuttons XmRXmStringTable ;
val U = XtSetExceptionType XmNcancelButton XmRWidget ;
val U = XtSetExceptionType XmNcancelLabelString XmRXmString ;
val U = XtSetExceptionType XmNcascadePixmap XmRPixmap ;
val U = XtSetExceptionType XmNchildren XmRWidgetList ;
val U = XtSetExceptionType XmNclipWindow XmRWidget ;
val U = XtSetExceptionType XmNcolormap XmRColormap ;
val U = XtSetExceptionType XmNcolumns XmRShort ;
val U = XtSetExceptionType XmNcommand XmRXmString ;
val U = XtSetExceptionType XmNcommandWindow XmRWidget ;
val U = XtSetExceptionType XmNcommandWindowLocation XmRCommandWindowLocation ;
val U = XtSetExceptionType XmNcursorPosition XmRInt ;
val U = XtSetExceptionType XmNcursorPositionVisible XmRBool ;
val U = XtSetExceptionType XmNdecimalPoints XmRShort ;
val U = XtSetExceptionType XmNdefaultButton XmRWidget ;
val U = XtSetExceptionType XmNdefaultButtonShadowThickness XmRDimension ;
val U = XtSetExceptionType XmNdefaultButtonType XmRDefaultButtonType ;
val U = XtSetExceptionType XmNdefaultFontList XmRFontList ;
val U = XtSetExceptionType XmNdefaultPosition XmRBool ;
val U = XtSetExceptionType XmNdeleteResponse XmRDeleteResponse ;
val U = XtSetExceptionType XmNdepth XmRInt ;
val U = XtSetExceptionType XmNdialogStyle XmRDialogStyle ;
val U = XtSetExceptionType XmNdialogTitle XmRXmString ;
val U = XtSetExceptionType XmNdialogType XmRDialogType ;
val U = XtSetExceptionType XmNdirListItemCount XmRInt ;
val U = XtSetExceptionType XmNdirListItems XmRXmStringTable ;
val U = XtSetExceptionType XmNdirListLabelString XmRXmString ;
val U = XtSetExceptionType XmNdirMask XmRXmString ;
val U = XtSetExceptionType XmNdirSpec XmRXmString ;
val U = XtSetExceptionType XmNdirectory XmRXmString ;
val U = XtSetExceptionType XmNdirectoryValid XmRBool ;
val U = XtSetExceptionType XmNdoubleClickInterval XmRInt ;
val U = XtSetExceptionType XmNeditMode XmREditMode ;
val U = XtSetExceptionType XmNeditable XmRBool ;
val U = XtSetExceptionType XmNentryAlignment XmRAlignment ;
val U = XtSetExceptionType XmNentryBorder XmRDimension ;
val U = XtSetExceptionType XmNfileListItemCount XmRInt ;
val U = XtSetExceptionType XmNfileListItems XmRXmStringTable ;
val U = XtSetExceptionType XmNfileListLabelString XmRXmString ;
val U = XtSetExceptionType XmNfileTypeMask XmRFileTypeMask ;
val U = XtSetExceptionType XmNfillOnArm XmRBool ;
val U = XtSetExceptionType XmNfillOnSelect XmRBool ;
val U = XtSetExceptionType XmNfilterLabelString XmRXmString ;
val U = XtSetExceptionType XmNfontList XmRFontList ;
val U = XtSetExceptionType XmNforeground XmRPixel ;
val U = XtSetExceptionType XmNfractionBase XmRInt ;
val U = XtSetExceptionType XmNgeometry XmRString ;
val U = XtSetExceptionType XmNheight XmRDimension ;
val U = XtSetExceptionType XmNheightInc XmRInt ;
val U = XtSetExceptionType XmNhelpLabelString XmRXmString ;
val U = XtSetExceptionType XmNhighlightColor XmRPixel ;
val U = XtSetExceptionType XmNhighlightOnEnter XmRBool ;
val U = XtSetExceptionType XmNhighlightPixmap XmRPixmap ;
val U = XtSetExceptionType XmNhighlightThickness XmRDimension ;
val U = XtSetExceptionType XmNhistoryItemCount XmRInt ;
val U = XtSetExceptionType XmNhistoryItems XmRXmStringTable ;
val U = XtSetExceptionType XmNhistoryMaxItems XmRInt ;
val U = XtSetExceptionType XmNhistoryVisibleItemCount XmRInt ;
val U = XtSetExceptionType XmNhorizontalScrollBar XmRWidget ;
val U = XtSetExceptionType XmNhorizontalSpacing XmRDimension ;
val U = XtSetExceptionType XmNiconMask XmRPixmap ;
val U = XtSetExceptionType XmNiconName XmRString ;
val U = XtSetExceptionType XmNiconNameEncoding XmRAtom ;
val U = XtSetExceptionType XmNiconPixmap XmRPixmap ;
val U = XtSetExceptionType XmNiconWindow XmRPixmap ;
val U = XtSetExceptionType XmNiconX XmRInt ;
val U = XtSetExceptionType XmNiconY XmRInt ;
val U = XtSetExceptionType XmNiconic XmRBool ;
val U = XtSetExceptionType XmNincrement XmRInt ;
val U = XtSetExceptionType XmNindicatorOn XmRBool ;
val U = XtSetExceptionType XmNindicatorSize XmRDimension ;
val U = XtSetExceptionType XmNindicatorType XmRIndicatorType ;
val U = XtSetExceptionType XmNinitialDelay XmRInt ;
val U = XtSetExceptionType XmNinitialResourcesPersistent XmRBool ;
val U = XtSetExceptionType XmNinitialState XmRInitialState ;
val U = XtSetExceptionType XmNinput XmRBool ;
val U = XtSetExceptionType XmNisAligned XmRBool ;
val U = XtSetExceptionType XmNisHomogeneous XmRBool ;
val U = XtSetExceptionType XmNitemCount XmRInt ;
val U = XtSetExceptionType XmNitems XmRXmStringTable ;
val U = XtSetExceptionType XmNkeyboardFocusPolicy XmRKeyboardFocusPolicy ;
val U = XtSetExceptionType XmNlabelFontList XmRFontList ;
val U = XtSetExceptionType XmNlabelInsensitivePixmap XmRPixmap ;
val U = XtSetExceptionType XmNlabelPixmap XmRPixmap ;
val U = XtSetExceptionType XmNlabelString XmRXmString ;
val U = XtSetExceptionType XmNlabelType XmRLabelType ;
val U = XtSetExceptionType XmNleftAttachment XmRAttachment ;
val U = XtSetExceptionType XmNleftOffset XmRInt ;
val U = XtSetExceptionType XmNleftPosition XmRInt ;
val U = XtSetExceptionType XmNleftWidget XmRWidget ;
val U = XtSetExceptionType XmNlistItemCount XmRInt ;
val U = XtSetExceptionType XmNlistItems XmRXmStringTable ;
val U = XtSetExceptionType XmNlistLabelString XmRXmString ;
val U = XtSetExceptionType XmNlistMarginHeight XmRDimension ;
val U = XtSetExceptionType XmNlistMarginWidth XmRDimension ;
val U = XtSetExceptionType XmNlistSizePolicy XmRVisualPolicy ;
val U = XtSetExceptionType XmNlistSpacing XmRDimension ;
val U = XtSetExceptionType XmNlistUpdated XmRBool ;
val U = XtSetExceptionType XmNlistVisibleItemCount XmRInt ;
val U = XtSetExceptionType XmNmainWindowMarginHeight XmRDimension ;
val U = XtSetExceptionType XmNmainWindowMarginWidth XmRDimension ;
val U = XtSetExceptionType XmNmappedWhenManaged XmRBool ;
val U = XtSetExceptionType XmNmappingDelay XmRInt ;
val U = XtSetExceptionType XmNmargin XmRDimension ;
val U = XtSetExceptionType XmNmarginBottom XmRDimension ;
val U = XtSetExceptionType XmNmarginHeight XmRDimension ;
val U = XtSetExceptionType XmNmarginLeft XmRDimension ;
val U = XtSetExceptionType XmNmarginRight XmRDimension ;
val U = XtSetExceptionType XmNmarginTop XmRDimension ;
val U = XtSetExceptionType XmNmarginWidth XmRDimension ;
val U = XtSetExceptionType XmNmaxAspectX XmRInt ;
val U = XtSetExceptionType XmNmaxAspectY XmRInt ;
val U = XtSetExceptionType XmNmaxHeight XmRInt ;
val U = XtSetExceptionType XmNmaxLength XmRInt ;
val U = XtSetExceptionType XmNmaxWidth XmRInt ;
val U = XtSetExceptionType XmNmaximum XmRInt ;
val U = XtSetExceptionType XmNmenuAccelerator XmRString ;
val U = XtSetExceptionType XmNmenuBar XmRWidget ;
val U = XtSetExceptionType XmNmenuCursor XmRCursor ;
val U = XtSetExceptionType XmNmenuHelpWidget XmRWidget ;
val U = XtSetExceptionType XmNmenuHistory XmRWidget ;
val U = XtSetExceptionType XmNmenuPost XmRString ;
val U = XtSetExceptionType XmNmessageAlignment XmRAlignment ;
val U = XtSetExceptionType XmNmessageString XmRXmString ;
val U = XtSetExceptionType XmNmessageWindow XmRWidget ;
val U = XtSetExceptionType XmNminAspectX XmRInt ;
val U = XtSetExceptionType XmNminAspectY XmRInt ;
val U = XtSetExceptionType XmNminHeight XmRInt ;
val U = XtSetExceptionType XmNminWidth XmRInt ;
val U = XtSetExceptionType XmNminimizeButtons XmRBool ;
val U = XtSetExceptionType XmNminimum XmRInt ;
val U = XtSetExceptionType XmNmnemonic XmRKeySym ;
val U = XtSetExceptionType XmNmnemonicCharSet XmRString ;
val U = XtSetExceptionType XmNmultiClick XmRMultiClick ;
val U = XtSetExceptionType XmNmustMatch XmRBool ;
val U = XtSetExceptionType XmNmwmDecorations XmRInt ;
val U = XtSetExceptionType XmNmwmFunctions XmRInt ;
val U = XtSetExceptionType XmNmwmInputMode XmRInt ;
val U = XtSetExceptionType XmNmwmMenu XmRString ;
val U = XtSetExceptionType XmNnavigationType XmRNavigationType ;
val U = XtSetExceptionType XmNnoMatchString XmRXmString ;
val U = XtSetExceptionType XmNnoResize XmRBool ;
val U = XtSetExceptionType XmNnumChildren XmRCardinal ;
val U = XtSetExceptionType XmNnumColumns XmRShort ;
val U = XtSetExceptionType XmNokLabelString XmRXmString ;
val U = XtSetExceptionType XmNoptionLabel XmRXmString ;
val U = XtSetExceptionType XmNoptionMnemonic XmRKeySym ;
val U = XtSetExceptionType XmNorientation XmROrientation ;
val U = XtSetExceptionType XmNoverrideRedirect XmRBool ;
val U = XtSetExceptionType XmNpacking XmRPacking ;
val U = XtSetExceptionType XmNpageIncrement XmRInt ;
val U = XtSetExceptionType XmNpaneMaximum XmRDimension ;
val U = XtSetExceptionType XmNpaneMinimum XmRDimension ;
val U = XtSetExceptionType XmNpattern XmRXmString ;
val U = XtSetExceptionType XmNpendingDelete XmRBool ;
val U = XtSetExceptionType XmNpopupEnabled XmRBool ;
val U = XtSetExceptionType XmNpostFromButton XmRInt ;
val U = XtSetExceptionType XmNprocessingDirection XmRProcessingDirection ;
val U = XtSetExceptionType XmNpromptString XmRXmString ;
val U = XtSetExceptionType XmNpushButtonEnabled XmRBool ;
val U = XtSetExceptionType XmNradioAlwaysOne XmRBool ;
val U = XtSetExceptionType XmNradioBehavior XmRBool ;
val U = XtSetExceptionType XmNrecomputeSize XmRBool ;
val U = XtSetExceptionType XmNrefigureMode XmRBool ;
val U = XtSetExceptionType XmNrepeatDelay XmRInt ;
val U = XtSetExceptionType XmNresizable XmRBool ;
val U = XtSetExceptionType XmNresizeHeight XmRBool ;
val U = XtSetExceptionType XmNresizePolicy XmRResizePolicy ;
val U = XtSetExceptionType XmNresizeWidth XmRBool ;
val U = XtSetExceptionType XmNrightAttachment XmRAttachment ;
val U = XtSetExceptionType XmNrightOffset XmRInt ;
val U = XtSetExceptionType XmNrightPosition XmRInt ;
val U = XtSetExceptionType XmNrightWidget XmRWidget ;
val U = XtSetExceptionType XmNrowColumnType XmRRowColumnType ;
val U = XtSetExceptionType XmNrows XmRShort ;
val U = XtSetExceptionType XmNrubberPositioning XmRBool ;
val U = XtSetExceptionType XmNsashHeight XmRDimension ;
val U = XtSetExceptionType XmNsashIndent XmRPosition ;
val U = XtSetExceptionType XmNsashShadowThickness XmRDimension ;
val U = XtSetExceptionType XmNsashWidth XmRDimension ;
val U = XtSetExceptionType XmNsaveUnder XmRBool ;
val U = XtSetExceptionType XmNscaleHeight XmRDimension ;
val U = XtSetExceptionType XmNscaleMultiple XmRInt ;
val U = XtSetExceptionType XmNscaleWidth XmRDimension ;
val U = XtSetExceptionType XmNscrollBarDisplayPolicy XmRScrollBarDisplayPolicy ;
val U = XtSetExceptionType XmNscrollBarPlacement XmRScrollBarPlacement ;
val U = XtSetExceptionType XmNscrollHorizontal XmRBool ;
val U = XtSetExceptionType XmNscrollLeftSide XmRBool ;
val U = XtSetExceptionType XmNscrollTopSide XmRBool ;
val U = XtSetExceptionType XmNscrollVertical XmRBool ;
val U = XtSetExceptionType XmNscrolledWindowMarginHeight XmRDimension ;
val U = XtSetExceptionType XmNscrolledWindowMarginWidth XmRDimension ;
val U = XtSetExceptionType XmNscrollingPolicy XmRScrollingPolicy ;
val U = XtSetExceptionType XmNselectColor XmRPixel ;
val U = XtSetExceptionType XmNselectInsensitivePixmap XmRPixmap ;
val U = XtSetExceptionType XmNselectPixmap XmRPixmap ;
val U = XtSetExceptionType XmNselectThreshold XmRInt ;
val U = XtSetExceptionType XmNselectedItemCount XmRInt ;
val U = XtSetExceptionType XmNselectedItems XmRXmStringTable ;
val U = XtSetExceptionType XmNselectionArray XmRTextScanTypeTable ;
val U = XtSetExceptionType XmNselectionArrayCount XmRInt ;
val U = XtSetExceptionType XmNselectionLabelString XmRXmString ;
val U = XtSetExceptionType XmNselectionPolicy XmRSelectionPolicy ;
val U = XtSetExceptionType XmNsensitive XmRBool ;
val U = XtSetExceptionType XmNseparatorOn XmRBool ;
val U = XtSetExceptionType XmNseparatorType XmRShadowType ;
val U = XtSetExceptionType XmNset XmRBool ;
val U = XtSetExceptionType XmNshadowThickness XmRDimension ;
val U = XtSetExceptionType XmNshadowType XmRShadowType ;
val U = XtSetExceptionType XmNshellUnitType XmRUnitType ;
val U = XtSetExceptionType XmNshowArrows XmRBool ;
val U = XtSetExceptionType XmNshowAsDefault XmRDimension ;
val U = XtSetExceptionType XmNshowSeparator XmRBool ;
val U = XtSetExceptionType XmNshowValue XmRBool ;
val U = XtSetExceptionType XmNskipAdjust XmRBool ;
val U = XtSetExceptionType XmNsliderSize XmRInt ;
val U = XtSetExceptionType XmNspacing XmRDimension ;
val U = XtSetExceptionType XmNstringDirection XmRStringDirection ;
val U = XtSetExceptionType XmNsubMenuId XmRWidget ;
val U = XtSetExceptionType XmNsymbolPixmap XmRPixmap ;
val U = XtSetExceptionType XmNtextAccelerators XmRAcceleratorTable ;
val U = XtSetExceptionType XmNtextColumns XmRShort ;
val U = XtSetExceptionType XmNtextFontList XmRFontList ;
val U = XtSetExceptionType XmNtextString XmRXmString ;
val U = XtSetExceptionType XmNtextTranslations XmRTranslationTable ;
val U = XtSetExceptionType XmNtitle XmRString ;
val U = XtSetExceptionType XmNtitleEncoding XmRAtom ;
val U = XtSetExceptionType XmNtitleString XmRXmString ;
val U = XtSetExceptionType XmNtopAttachment XmRAttachment ;
val U = XtSetExceptionType XmNtopCharacter XmRInt ;
val U = XtSetExceptionType XmNtopItemPosition XmRInt ;
val U = XtSetExceptionType XmNtopOffset XmRInt ;
val U = XtSetExceptionType XmNtopPosition XmRInt ;
val U = XtSetExceptionType XmNtopShadowColor XmRPixel ;
val U = XtSetExceptionType XmNtopShadowPixmap XmRPixmap ;
val U = XtSetExceptionType XmNtopWidget XmRWidget ;
val U = XtSetExceptionType XmNtransient XmRBool ;
val U = XtSetExceptionType XmNtransientFor XmRWidget ;
val U = XtSetExceptionType XmNtranslations XmRTranslationTable ;
val U = XtSetExceptionType XmNtraversalOn XmRBool ;
val U = XtSetExceptionType XmNtroughColor XmRPixel ;
val U = XtSetExceptionType XmNunitType XmRUnitType ;
val U = XtSetExceptionType XmNuseAsyncGeometry XmRBool ;
val U = XtSetExceptionType XmNvalue XmRInt ;
val U = XtSetExceptionType XmNverifyBell XmRBool ;
val U = XtSetExceptionType XmNverticalScrollBar XmRWidget ;
val U = XtSetExceptionType XmNverticalSpacing XmRDimension ;

(* The O'Reilly book says this resource is a short - it's wrong! *)
val U = XtSetExceptionType XmNvisibleItemCount XmRInt;

val U = XtSetExceptionType XmNvisibleWhenOff XmRBool ;
val U = XtSetExceptionType XmNvisual XmRVisual ;
val U = XtSetExceptionType XmNvisualPolicy XmRVisualPolicy ;
val U = XtSetExceptionType XmNwaitForWm XmRBool ;
val U = XtSetExceptionType XmNwidth XmRDimension ;
val U = XtSetExceptionType XmNwidthInc XmRInt ;
val U = XtSetExceptionType XmNwinGravity XmRInt ;
val U = XtSetExceptionType XmNwindowGroup XmRPixmap ;
val U = XtSetExceptionType XmNwmTimeout XmRInt ;
val U = XtSetExceptionType XmNwordWrap XmRBool ;
val U = XtSetExceptionType XmNworkWindow XmRWidget ;
val U = XtSetExceptionType XmNx XmRPosition ;
val U = XtSetExceptionType XmNy XmRPosition ;
end (* local *) ;
end (* struct *) ;