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
|
;;; Binding to the cross platform Japi GUI library from http://www.japi.de/
(eval-when (load eval)
(make-package :japi-primitives :nicknames '(jpr) :use '(lisp)))
(in-package :japi-primitives)
(clines "#include <japi.h>")
;; BOOLEAN
(defconstant J_TRUE 1)
(defconstant J_FALSE 0)
;; ALIGNMENT
(defconstant J_LEFT 0)
(defconstant J_CENTER 1)
(defconstant J_RIGHT 2)
(defconstant J_TOP 3)
(defconstant J_BOTTOM 4)
(defconstant J_TOPLEFT 5)
(defconstant J_TOPRIGHT 6)
(defconstant J_BOTTOMLEFT 7)
(defconstant J_BOTTOMRIGHT 8)
;; CURSOR
(defconstant J_DEFAULT_CURSOR 0)
(defconstant J_CROSSHAIR_CURSOR 1)
(defconstant J_TEXT_CURSOR 2)
(defconstant J_WAIT_CURSOR 3)
(defconstant J_SW_RESIZE_CURSOR 4)
(defconstant J_SE_RESIZE_CURSOR 5)
(defconstant J_NW_RESIZE_CURSOR 6)
(defconstant J_NE_RESIZE_CURSOR 7)
(defconstant J_N_RESIZE_CURSOR 8)
(defconstant J_S_RESIZE_CURSOR 9)
(defconstant J_W_RESIZE_CURSOR 10)
(defconstant J_E_RESIZE_CURSOR 11)
(defconstant J_HAND_CURSOR 12)
(defconstant J_MOVE_CURSOR 13)
;; ORIENTATION
(defconstant J_HORIZONTAL 0)
(defconstant J_VERTICAL 1)
;; FONTS
(defconstant J_PLAIN 0)
(defconstant J_BOLD 1)
(defconstant J_ITALIC 2)
(defconstant J_COURIER 1)
(defconstant J_HELVETIA 2)
(defconstant J_TIMES 3)
(defconstant J_DIALOGIN 4)
(defconstant J_DIALOGOUT 5)
;; COLORS
(defconstant J_BLACK 0)
(defconstant J_WHITE 1)
(defconstant J_RED 2)
(defconstant J_GREEN 3)
(defconstant J_BLUE 4)
(defconstant J_CYAN 5)
(defconstant J_MAGENTA 6)
(defconstant J_YELLOW 7)
(defconstant J_ORANGE 8)
(defconstant J_GREEN_YELLOW 9)
(defconstant J_GREEN_CYAN 10)
(defconstant J_BLUE_CYAN 11)
(defconstant J_BLUE_MAGENTA 12)
(defconstant J_RED_MAGENTA 13)
(defconstant J_DARK_GRAY 14)
(defconstant J_LIGHT_GRAY 15)
(defconstant J_GRAY 16)
;; BORDERSTYLE
(defconstant J_NONE 0)
(defconstant J_LINEDOWN 1)
(defconstant J_LINEUP 2)
(defconstant J_AREADOWN 3)
(defconstant J_AREAUP 4)
;; MOUSELISTENER
(defconstant J_MOVED 0)
(defconstant J_DRAGGED 1)
(defconstant J_PRESSED 2)
(defconstant J_RELEASED 3)
(defconstant J_ENTERERD 4)
(defconstant J_EXITED 5)
(defconstant J_DOUBLECLICK 6)
;; J_MOVED
(defconstant J_RESIZED 1)
(defconstant J_HIDDEN 2)
(defconstant J_SHOWN 3)
;; WINDOWLISTENER
(defconstant J_ACTIVATED 0)
(defconstant J_DEACTIVATED 1)
(defconstant J_OPENED 2)
(defconstant J_CLOSED 3)
(defconstant J_ICONIFIED 4)
(defconstant J_DEICONIFIED 5)
(defconstant J_CLOSING 6)
;; IMAGEFILEFORMAT
(defconstant J_GIF 0)
(defconstant J_JPG 1)
(defconstant J_PPM 2)
(defconstant J_BMP 3)
(defentry j_start () ( int "j_start" ))
(defentry j_connect ( string ) ( int "j_connect" ))
(defentry j_setdebug ( int ) ( void "j_setdebug" ))
(defentry j_frame ( string ) ( int "j_frame" ))
(defentry j_button ( int string ) ( int "j_button" ))
(defentry j_graphicbutton ( int string ) ( int "j_graphicbutton" ))
(defentry j_checkbox ( int string ) ( int "j_checkbox" ))
(defentry j_label ( int string ) ( int "j_label" ))
(defentry j_graphiclabel ( int string ) ( int "j_graphiclabel" ))
(defentry j_canvas ( int int int ) ( int "j_canvas" ))
(defentry j_panel ( int ) ( int "j_panel" ))
(defentry j_borderpanel ( int int ) ( int "j_borderpanel" ))
(defentry j_radiogroup ( int ) ( int "j_radiogroup" ))
(defentry j_radiobutton ( int string ) ( int "j_radiobutton" ))
(defentry j_list ( int int ) ( int "j_list" ))
(defentry j_choice ( int ) ( int "j_choice" ))
(defentry j_dialog ( int string ) ( int "j_dialog" ))
(defentry j_window ( int ) ( int "j_window" ))
(defentry j_popupmenu ( int string ) ( int "j_popupmenu" ))
(defentry j_scrollpane ( int ) ( int "j_scrollpane" ))
(defentry j_hscrollbar ( int ) ( int "j_hscrollbar" ))
(defentry j_vscrollbar ( int ) ( int "j_vscrollbar" ))
(defentry j_line ( int int int int ) ( int "j_line" ))
(defentry j_printer ( int ) ( int "j_printer" ))
(defentry j_image ( int int ) ( int "j_image" ))
(defentry j_filedialog ( int string string string ) ( string "j_filedialog" ))
(defentry j_fileselect ( int string string string ) ( string "j_fileselect" ))
(defentry j_messagebox ( int string string ) ( int "j_messagebox" ))
(defentry j_alertbox ( int string string string ) ( int "j_alertbox" ))
(defentry j_choicebox2 ( int string string string string ) ( int "j_choicebox2" ))
(defentry j_choicebox3 ( int string string string string string ) ( int "j_choicebox3" ))
(defentry j_additem ( int string ) ( void "j_additem" ))
(defentry j_textfield ( int int ) ( int "j_textfield" ))
(defentry j_textarea ( int int int ) ( int "j_textarea" ))
(defentry j_menubar ( int ) ( int "j_menubar" ))
(defentry j_menu ( int string ) ( int "j_menu" ))
(defentry j_helpmenu ( int string ) ( int "j_helpmenu" ))
(defentry j_menuitem ( int string ) ( int "j_menuitem" ))
(defentry j_checkmenuitem ( int string ) ( int "j_checkmenuitem" ))
(defentry j_pack ( int ) ( void "j_pack" ))
(defentry j_print ( int ) ( void "j_print" ))
(defentry j_playsoundfile ( string ) ( void "j_playsoundfile" ))
(defentry j_play ( int ) ( void "j_play" ))
(defentry j_sound ( string ) ( int "j_sound" ))
(defentry j_setfont ( int int int int ) ( void "j_setfont" ))
(defentry j_setfontname ( int int ) ( void "j_setfontname" ))
(defentry j_setfontsize ( int int ) ( void "j_setfontsize" ))
(defentry j_setfontstyle ( int int ) ( void "j_setfontstyle" ))
(defentry j_seperator ( int ) ( void "j_seperator" ))
(defentry j_disable ( int ) ( void "j_disable" ))
(defentry j_enable ( int ) ( void "j_enable" ))
(defentry j_getstate ( int ) ( int "j_getstate" ))
(defentry j_getrows ( int ) ( int "j_getrows" ))
(defentry j_getcolumns ( int ) ( int "j_getcolumns" ))
(defentry j_getselect ( int ) ( int "j_getselect" ))
(defentry j_isselect ( int int ) ( int "j_isselect" ))
(defentry j_isvisible ( int ) ( int "j_isvisible" ))
(defentry j_isparent ( int int ) ( int "j_isparent" ))
(defentry j_isresizable ( int ) ( int "j_isresizable" ))
(defentry j_select ( int int ) ( void "j_select" ))
(defentry j_deselect ( int int ) ( void "j_deselect" ))
(defentry j_multiplemode ( int int ) ( void "j_multiplemode" ))
(defentry j_insert ( int int string ) ( void "j_insert" ))
(defentry j_remove ( int int ) ( void "j_remove" ))
(defentry j_removeitem ( int string ) ( void "j_removeitem" ))
(defentry j_removeall ( int ) ( void "j_removeall" ))
(defentry j_setstate ( int int ) ( void "j_setstate" ))
(defentry j_setrows ( int int ) ( void "j_setrows" ))
(defentry j_setcolumns ( int int ) ( void "j_setcolumns" ))
(defentry j_seticon ( int int ) ( void "j_seticon" ))
(defentry j_setimage ( int int ) ( void "j_setimage" ))
(defentry j_setvalue ( int int ) ( void "j_setvalue" ))
(defentry j_setradiogroup ( int int ) ( void "j_setradiogroup" ))
(defentry j_setunitinc ( int int ) ( void "j_setunitinc" ))
(defentry j_setblockinc ( int int ) ( void "j_setblockinc" ))
(defentry j_setmin ( int int ) ( void "j_setmin" ))
(defentry j_setmax ( int int ) ( void "j_setmax" ))
(defentry j_setslidesize ( int int ) ( void "j_setslidesize" ))
(defentry j_setcursor ( int int ) ( void "j_setcursor" ))
(defentry j_setresizable ( int int ) ( void "j_setresizable" ))
(defentry j_getlength ( int ) ( int "j_getlength" ))
(defentry j_getvalue ( int ) ( int "j_getvalue" ))
(defentry j_getscreenheight () ( int "j_getscreenheight" ))
(defentry j_getscreenwidth () ( int "j_getscreenwidth" ))
(defentry j_getheight ( int ) ( int "j_getheight" ))
(defentry j_getwidth ( int ) ( int "j_getwidth" ))
(defentry j_getinsets ( int int ) ( int "j_getinsets" ))
(defentry j_getlayoutid ( int ) ( int "j_getlayoutid" ))
(defentry j_getinheight ( int ) ( int "j_getinheight" ))
(defentry j_getinwidth ( int ) ( int "j_getinwidth" ))
(defentry j_gettext ( int string ) ( string "j_gettext" ))
(defentry j_getitem ( int int string ) ( string "j_getitem" ))
(defentry j_getitemcount ( int ) ( int "j_getitemcount" ))
(defentry j_delete ( int int int ) ( void "j_delete" ))
(defentry j_replacetext ( int int int int ) ( void "j_replacetext" ))
(defentry j_appendtext ( int int ) ( void "j_appendtext" ))
(defentry j_inserttext ( int int int ) ( void "j_inserttext" ))
(defentry j_settext ( int string ) ( void "j_settext" ))
(defentry j_selectall ( int ) ( void "j_selectall" ))
(defentry j_selecttext ( int int int ) ( void "j_selecttext" ))
(defentry j_getselstart ( int ) ( int "j_getselstart" ))
(defentry j_getselend ( int ) ( int "j_getselend" ))
;(defentry j_getseltext ( int string ) ( string "j_getseltext" ))
(defentry j_getseltext ( int int ) ( int "j_getseltext" ))
(defentry j_getcurpos ( int ) ( int "j_getcurpos" ))
(defentry j_setcurpos ( int int ) ( void "j_setcurpos" ))
(defentry j_setechochar ( int char ) ( void "j_setechochar" ))
(defentry j_seteditable ( int int ) ( void "j_seteditable" ))
(defentry j_setshortcut ( int char ) ( void "j_setshortcut" ))
(defentry j_quit () ( void "j_quit" ))
(defentry j_kill () ( void "j_kill" ))
(defentry j_setsize ( int int int ) ( void "j_setsize" ))
(defentry j_getaction () ( int "j_getaction" ))
(defentry j_nextaction () ( int "j_nextaction" ))
(defentry j_show ( int ) ( void "j_show" ))
(defentry j_showpopup ( int int int ) ( void "j_showpopup" ))
(defentry j_add ( int int ) ( void "j_add" ))
(defentry j_release ( int ) ( void "j_release" ))
(defentry j_releaseall ( int ) ( void "j_releaseall" ))
(defentry j_hide ( int ) ( void "j_hide" ))
(defentry j_dispose ( int ) ( void "j_dispose" ))
(defentry j_setpos ( int int int ) ( void "j_setpos" ))
(defentry j_getviewportheight ( int ) ( int "j_getviewportheight" ))
(defentry j_getviewportwidth ( int ) ( int "j_getviewportwidth" ))
(defentry j_getxpos ( int ) ( int "j_getxpos" ))
(defentry j_getypos ( int ) ( int "j_getypos" ))
;(defentry j_getpos ( int int* int* ) ( void "j_getpos" ))
(defentry j_getpos ( int int int ) ( void "j_getpos" ))
(defentry j_getparentid ( int ) ( int "j_getparentid" ))
(defentry j_setfocus ( int ) ( void "j_setfocus" ))
(defentry j_hasfocus ( int ) ( int "j_hasfocus" ))
(defentry j_getstringwidth ( int string ) ( int "j_getstringwidth" ))
(defentry j_getfontheight ( int ) ( int "j_getfontheight" ))
(defentry j_getfontascent ( int ) ( int "j_getfontascent" ))
(defentry j_keylistener ( int ) ( int "j_keylistener" ))
(defentry j_getkeycode ( int ) ( int "j_getkeycode" ))
(defentry j_getkeychar ( int ) ( int "j_getkeychar" ))
(defentry j_mouselistener ( int int ) ( int "j_mouselistener" ))
(defentry j_getmousex ( int ) ( int "j_getmousex" ))
(defentry j_getmousey ( int ) ( int "j_getmousey" ))
;(defentry j_getmousepos ( int int* int* ) ( void "j_getmousepos" ))
(defentry j_getmousepos ( int int int ) ( void "j_getmousepos" ))
(defentry j_getmousebutton ( int ) ( int "j_getmousebutton" ))
(defentry j_focuslistener ( int ) ( int "j_focuslistener" ))
(defentry j_componentlistener ( int int ) ( int "j_componentlistener" ))
(defentry j_windowlistener ( int int ) ( int "j_windowlistener" ))
(defentry j_setflowlayout ( int int ) ( void "j_setflowlayout" ))
(defentry j_setborderlayout ( int ) ( void "j_setborderlayout" ))
(defentry j_setgridlayout ( int int int ) ( void "j_setgridlayout" ))
(defentry j_setfixlayout ( int ) ( void "j_setfixlayout" ))
(defentry j_setnolayout ( int ) ( void "j_setnolayout" ))
(defentry j_setborderpos ( int int ) ( void "j_setborderpos" ))
(defentry j_sethgap ( int int ) ( void "j_sethgap" ))
(defentry j_setvgap ( int int ) ( void "j_setvgap" ))
(defentry j_setinsets ( int int int int int ) ( void "j_setinsets" ))
(defentry j_setalign ( int int ) ( void "j_setalign" ))
(defentry j_setflowfill ( int int ) ( void "j_setflowfill" ))
(defentry j_translate ( int int int ) ( void "j_translate" ))
(defentry j_cliprect ( int int int int int ) ( void "j_cliprect" ))
(defentry j_drawrect ( int int int int int ) ( void "j_drawrect" ))
(defentry j_fillrect ( int int int int int ) ( void "j_fillrect" ))
(defentry j_drawroundrect ( int int int int int int int ) ( void "j_drawroundrect" ))
(defentry j_fillroundrect ( int int int int int int int ) ( void "j_fillroundrect" ))
(defentry j_drawoval ( int int int int int ) ( void "j_drawoval" ))
(defentry j_filloval ( int int int int int ) ( void "j_filloval" ))
(defentry j_drawcircle ( int int int int ) ( void "j_drawcircle" ))
(defentry j_fillcircle ( int int int int ) ( void "j_fillcircle" ))
(defentry j_drawarc ( int int int int int int int ) ( void "j_drawarc" ))
(defentry j_fillarc ( int int int int int int int ) ( void "j_fillarc" ))
(defentry j_drawline ( int int int int int ) ( void "j_drawline" ))
;(defentry j_drawpolyline ( int int int* int* ) ( void "j_drawpolyline" ))
;(defentry j_drawpolygon ( int int int* int* ) ( void "j_drawpolygon" ))
;(defentry j_fillpolygon ( int int int* int* ) ( void "j_fillpolygon" ))
(defentry j_drawpolyline ( int int int int ) ( void "j_drawpolyline" ))
(defentry j_drawpolygon ( int int int int ) ( void "j_drawpolygon" ))
(defentry j_fillpolygon ( int int int int ) ( void "j_fillpolygon" ))
(defentry j_drawpixel ( int int int ) ( void "j_drawpixel" ))
(defentry j_drawstring ( int int int string ) ( void "j_drawstring" ))
(defentry j_setxor ( int int ) ( void "j_setxor" ))
(defentry j_getimage ( int ) ( int "j_getimage" ))
;(defentry j_getimagesource ( int int int int int int* int* int* ) ( void "j_getimagesource" ))
;(defentry j_drawimagesource ( int int int int int int* int* int* ) ( void "j_drawimagesource" ))
(defentry j_getimagesource ( int int int int int int int int ) ( void "j_getimagesource" ))
(defentry j_drawimagesource ( int int int int int int int int ) ( void "j_drawimagesource" ))
(defentry j_getscaledimage ( int int int int int int int ) ( int "j_getscaledimage" ))
(defentry j_drawimage ( int int int int ) ( void "j_drawimage" ))
(defentry j_drawscaledimage ( int int int int int int int int int int ) ( void "j_drawscaledimage" ))
(defentry j_setcolor ( int int int int ) ( void "j_setcolor" ))
(defentry j_setcolorbg ( int int int int ) ( void "j_setcolorbg" ))
(defentry j_setnamedcolor ( int int ) ( void "j_setnamedcolor" ))
(defentry j_setnamedcolorbg ( int int ) ( void "j_setnamedcolorbg" ))
(defentry j_loadimage ( string ) ( int "j_loadimage" ))
(defentry j_saveimage ( int string int ) ( int "j_saveimage" ))
(defentry j_sync () ( void "j_sync" ))
(defentry j_beep () ( void "j_beep" ))
(defentry j_random () ( int "j_random" ))
(defentry j_sleep ( int ) ( void "j_sleep" ))
|
