![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to CLUlib.doc CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / X / CLUlib|
Return to CLUlib.doc CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / X / CLUlib |
1.1 root 1: x_display = cluster
2:
3: init = proc (display: string) signals (error(string))
4: % open connection to given display or $DISPLAY if string is empty
5:
6: root = proc () returns (x_window)
7: % returns root window
8:
9: width = proc () returns (int)
10: % returns root window width
11:
12: height = proc () returns (int)
13: % returns root window height
14:
15: device = proc () returns (int)
16: % returns device type
17:
18: protocol = proc () returns (int)
19: % returns protocol version
20:
21: planes = proc () returns (int)
22: % returns number of bit planes
23:
24: cells = proc () returns (int)
25: % returns number of color map cells
26:
27: grab = proc ()
28: % grabs sole control of server
29:
30: ungrab = proc ()
31: % ungrabs sole control of server
32:
33: alloc_color = proc (red, green, blue: int) returns (int)
34: signals (error(string))
35: % allocates a (shared) read-only color
36:
37: alloc_cell = proc () returns (int) signals (error(string))
38: % allocates a writable color map entry
39:
40: alloc_cells = proc (ncolors, nplanes: int, contig: bool)
41: returns (pixellist, int) signals (error(string))
42: % allocates writable color map entries
43:
44: free_color = proc (pixel: int)
45: % free a color/cell
46:
47: free_colors = proc (pixels: pixellist, mask: int)
48: % free colors/cells
49:
50: store_color = proc (pixel, red, green, blue: int)
51: % change/initialize a color map entry
52:
53: store_colors = proc (defs: colordeflist)
54: % change/initialize color map entries
55:
56: query_color = proc (pixel: int) returns (int, int, int)
57: signals (error(string))
58: % returns (red, green, blue)
59:
60: lookup_color = proc (name: string) returns (int, int, int, int, int, int)
61: signals (error(string))
62: % returns (red, green, blue, h/w red, h/w green, h/w blue)
63:
64: black = proc () returns (x_pixmap)
65: % returns tile of BlackPixel
66:
67: white = proc () returns (x_pixmap)
68: % returns tile of WhitePixel
69:
70: x_bitmap = cluster
71:
72: none = proc () returns (cvt)
73: % returns placeholder
74:
75: create = proc (width, height: int, bits: _wordvec) returns (cvt)
76: signals (error(string))
77: % _wordvec can be larger than needed
78:
79: destroy = proc (bit: cvt)
80:
81: c2b = proc (font: x_font, c: char) returns (cvt) signals (error(string))
82: % returns bitmap of char
83:
84: get_id = proc (bit: cvt) returns (int)
85:
86: equal = proc (bit1, bit2: cvt) returns (bool)
87:
88: similar = proc (bit1, bit2: cvt) returns (bool)
89:
90: copy = proc (bit: cvt) returns (cvt)
91:
92: x_cursor = cluster
93:
94: none = proc () returns (cvt)
95: % returns placeholder
96:
97: create = proc (image, mask: x_bitmap, fore, back, xoff, yoff, func: int)
98: returns (cvt) signals (error(string))
99:
100: cons = proc (width, height: int, image, mask: _wordvec, fore, back: int,
101: xoff, yoff, func: int) returns (x_cursor)
102: signals (error(string))
103: % _wordvecs can be larger than needed
104:
105: destroy = proc (cursor: cvt)
106:
107: shape = proc (width, height: int) returns (int, int)
108: signals (error(string))
109: % returns (supported width, supported height)
110:
111: get_id = proc (cursor: cvt) returns (int)
112:
113: equal = proc (cursor1, cursor2: cvt) returns (bool)
114:
115: similar = proc (cursor1, cursor2: cvt) returns (bool)
116:
117: copy = proc (cursor: cvt) returns (cvt)
118:
119: x_font = cluster
120:
121: create = proc (name: string) returns (cvt) signals (error(string))
122:
123: destroy = proc (font: cvt)
124:
125: query = proc (font: cvt) returns (int, int, char, char, int, bool)
126: signals (error(string))
127: % returns (avg_width, height, first_char, last_char, baseline, fixedwidth)
128:
129: widths = iter (font: cvt, s: string) yields (char, int)
130: signals (error(string))
131:
132: width = proc (font: cvt, s: string) returns (int) signals (error(string))
133:
134: all_widths = proc (font: cvt) returns (_wordvec) signals (error(string))
135: % returns widths for first_char thru last_char, each width is 16 bits
136:
137: get_id = proc (font: cvt) returns (int)
138:
139: equal = proc (font1, font2: cvt) returns (bool)
140:
141: similar = proc (font1, font2: cvt) returns (bool)
142:
143: copy = proc (font: cvt) returns (cvt)
144:
145: x_pixmap = cluster
146:
147: none = proc () returns (cvt)
148: % returns placeholder
149:
150: create = proc (mask: x_bitmap, fore, back: int) returns (cvt)
151: signals (error(string))
152:
153: create_xy = proc (width, height: int, bits: _wordvec) returns (cvt)
154: signals (error(string))
155: % _wordvec can be larger than needed
156:
157: create_z = proc (width, height: int, bits: _wordvec) returns (cvt)
158: signals (error(string))
159: % _wordvec can be larger than needed
160:
161: tile = proc (pixel: int) returns (cvt) signals (error(string))
162:
163: destroy = proc (pix: cvt)
164:
165: shape = proc (width, height: int) returns (int, int)
166: signals (error(string))
167: returns (supported width, supported height)
168:
169: get_id = proc (pix: cvt) returns (int)
170:
171: equal = proc (pix1, pix2: cvt) returns (bool)
172:
173: similar = proc (pix1, pix2: cvt) returns (bool)
174:
175: copy = proc (pix: cvt) returns (cvt)
176:
177: x_window = cluster
178:
179: none = proc () returns (cvt)
180: % returns placeholder
181:
182: create = proc (x, y, width, height: int, background: x_pixmap, parent: cvt,
183: borderwidth: int, border: x_pixmap) returns (cvt)
184: signals (error(string))
185: % (x, y) for outer left, (width, height) exclude border
186:
187: create_transparency = proc (x, y, width, height: int, parent: cvt)
188: returns (cvt) signals (error(string))
189:
190: destroy = proc (w: cvt)
191:
192: destroy_subwindows = proc (w: cvt)
193:
194: map = proc (w: cvt)
195:
196: map_subwindows = proc (w: cvt)
197:
198: unmap = proc (w: cvt)
199:
200: unmap_subwindows = proc (w: cvt)
201:
202: unmap_transparent = proc (w: cvt)
203:
204: raise = proc (w: cvt)
205:
206: lower = proc (w: cvt)
207:
208: circulate_up = proc (w: cvt)
209:
210: circulate_down = proc (w: cvt)
211:
212: move = proc (w: cvt, x, y: int)
213: % (x, y) for outer left
214:
215: change = proc (w: cvt, width, height: int)
216: % (width, height) exclude border
217:
218: configure = proc (w: cvt, x, y, width, height: int)
219: % (x, y) for outer left, (width, height) exclude border
220:
221: set_background = proc (w: cvt, background: x_pixmap)
222: % does not cause redisplay
223:
224: set_border = proc (w: cvt, border: x_pixmap)
225:
226: set_tilemode = proc (w: cvt, relative: bool)
227:
228: set_clipmode = proc (w: cvt, drawthru: bool)
229:
230: query = proc (w: cvt) returns (int, int, int, int, int, int, int, cvt)
231: signals (error(string))
232: % returns (x, y, width, height, border, map, kind, icon)
233:
234: query_tree = proc (w: cvt) returns (cvt, wlist) signals (error(string))
235: wlist = array[x_window]
236: % returns (parent, children in bottom->top order)
237:
238: get_name = proc (w: cvt) returns (string) signals (error(string))
239:
240: set_name = proc (w: cvt, n: string)
241:
242: set_icon = proc (w, icon: cvt)
243:
244: get_resize = proc (w: cvt) returns (int, int, int, int)
245: signals (error(string))
246: % returns (base width, width increment, base height, height increment)
247:
248: set_resize = proc (w: cvt, width0, widthinc, height0, heightinc: int)
249:
250: set_cursor = proc (w: cvt, cursor: x_cursor)
251:
252: set_input = proc (w: cvt, mask: int)
253:
254: grab_mouse = proc (w: cvt, mask: int, cursor: x_cursor)
255: signals (error(string))
256:
257: ungrab_mouse = proc ()
258:
259: grab_button = proc (w: cvt, button, mask: int, cursor: x_cursor)
260: signals (error(string))
261:
262: ungrab_button = proc (button: int)
263:
264: query_mouse = proc (w: cvt) returns (int, int, cvt) signals (error(string))
265: % returns (x, y, sub window)
266:
267: interpret_locator = proc (w: cvt, x, y: int) returns (int, int, cvt)
268: signals (error(string))
269: % returns (x, y, sub window)
270:
271: warp_mouse = proc (w: cvt, x, y: int)
272:
273: cond_warp_mouse = proc (dstw: cvt, dstx, dsty: int, srcw: cvt,
274: srcx, srcy, srcwidth, srcheight: int)
275:
276: focus_keyboard = proc (w: cvt)
277:
278: clear = proc (w: cvt)
279:
280: pix_set = proc (w: cvt, pixel, x, y, width, height: int)
281: % GXcopy to all planes
282:
283: pix_fill = proc (w: cvt, pixel: int, mask: x_bitmap,
284: x, y, width, height, func, planes: int)
285:
286: tile_set = proc (w: cvt, tile: x_pixmap, x, y, width, height: int)
287: % GXcopy to all planes
288:
289: tile_fill = proc (w: cvt, tile: x_pixmap, mask: x_bitmap,
290: x, y, width, height, func, planes: int)
291:
292: pixmap_put = proc (w: cvt, pix: x_pixmap,
293: srcx, srcy, width, height, dstx, dsty, func, planes: int)
294:
295: pixmap_zbitsput = proc (w: cvt, width, height: int, bits: _wordvec,
296: mask: x_bitmap, x, y, func, planes: int)
297: % _wordvec can be larger than needed
298:
299: pixmap_xybitsput = proc (w: cvt, width, height: int, bits: _wordvec,
300: mask: x_bitmap, x, y, func, planes: int)
301: % _wordvec can be larger than needed
302:
303: bitmap_bitsput = proc (w: cvt, width, height: int, bits: _wordvec,
304: fore, back: int, mask: x_bitmap, x, y, func, planes: int)
305: % _wordvec can be larger than needed
306:
307: move_area = proc (w: cvt, srcx, srcy, width, height, dstx, dsty: int)
308: % GXcopy to all planes
309:
310: copy_area = proc (w: cvt, srcx, srcy, width, height, dstx, dsty: int,
311: func, planes: int)
312:
313: text = proc (w: cvt, s: string, font: x_font, fore, back, x, y: int)
314: % GXcopy to all planes
315:
316: textv = proc (w: cvt, b: _bytevec, start, z: int, font: x_font,
317: fore, back, x, y: int)
318: % GXcopy to all planes
319:
320: texta = proc (w: cvt, a: array[char], start, z: int, font: x_font,
321: fore, back, x, y: int)
322: % GXcopy to all planes
323:
324: text_pad = proc (w: cvt, s: string, font: x_font,
325: fore, back, cpad, spad, x, y: int, func, planes: int)
326:
327: textv_pad = proc (w: cvt, b: _bytevec, start, z: int, font: x_font,
328: fore, back, cpad, spad: int, x, y: int, func, planes: int)
329:
330: texta_pad = proc (w: cvt, a: array[char], start, z: int, font: x_font,
331: fore, back, cpad, spad: int, x, y: int, func, planes: int)
332:
333: text_mask = proc (w: cvt, s: string, font: x_font, pixel, x, y: int)
334: % GXcopy to all planes
335:
336: textv_mask = proc (w: cvt, b: _bytevec, start, z: int, font: x_font,
337: pixel, x, y: int)
338: % GXcopy to all planes
339:
340: texta_mask = proc (w: cvt, a: array[char], start, z: int, font: x_font,
341: pixel, x, y: int)
342: % GXcopy to all planes
343:
344: text_mask_pad = proc (w: cvt, s: string, font: x_font,
345: pixel, cpad, spad, x, y: int, func, planes: int)
346:
347: textv_mask_pad = proc (w: cvt, b: _bytevec, start, z: int, font: x_font,
348: pixel, cpad, spad: int, x, y: int, func, planes: int)
349:
350: texta_mask_pad = proc (w: cvt, a: array[char], start, z: int, font: x_font,
351: pixel, cpad, spad: int, x, y: int, func, planes: int)
352:
353: line = proc (w: cvt, pixel, width, height, x1, y1, x2, y2, func, planes: int)
354:
355: draw = proc (w: cvt, verts: x_vlist, z, pixel, width, height, func, planes: int)
356:
357: draw_dashed = proc (w: cvt, verts: x_vlist, z, pixel, width, height: int,
358: pattern, patlen, patmul, func, planes: int)
359:
360: draw_patterned = proc (w: cvt, verts: x_vlist, z, pixel, altpix: int,
361: width, height, pattern, patlen, patmul, func, planes: int)
362:
363: draw_filled = proc (w: cvt, verts: x_vlist, z, pixel, func, planes: int)
364:
365: draw_tiled = proc (w: cvt, verts: x_vlist, z: int, tile: x_pixmap,
366: func, planes: int)
367:
368: save_region = proc (w: cvt, x, y, width, height: int) returns (x_pixmap)
369: signals (error(string))
370:
371: read_xyregion = proc (w: cvt, x, y, width, height: int) returns (_wordvec)
372: signals (error(string))
373:
374: read_zregion = proc (w: cvt, x, y, width, height: int) returns (_wordvec)
375: signals (error(string))
376:
377: get_id = proc (w: cvt) returns (int)
378:
379: equal = proc (w1, w2: cvt) returns (bool)
380:
381: similar = proc (w1, w2: cvt) returns (bool)
382:
383: copy = proc (w: cvt) returns (cvt)
384:
385: x_input = cluster
386:
387: init = proc ()
388: % called automatically by x_display$init
389:
390: set_squish = proc (flag: bool)
391: % control mouse motion event compaction
392:
393: enq = proc (e: event)
394: % copy of event will be made
395:
396: deq = proc (e: event)
397: % wait for next event, stores results in argument
398:
399: edeq = proc (kind: int, e: event)
400: % wait for single kind of event, stores results in argument
401:
402: mdeq = proc (kinds: int, e: event)
403: % wait for any event in kinds, stores results in argument
404:
405: wdeq = proc (w: x_window, kinds: int, e: event)
406: % wait for any event on w in kinds, stores results in argument
407:
408: pending = proc () returns (bool)
409: % if any event pending
410:
411: epending = proc (kind: int) returns (bool)
412: % if any event of single kind pending
413:
414: mpending = proc (kinds: int) returns (bool)
415: % if any event of kinds pending
416:
417: wpending = proc (w: x_window, kinds: int) returns (bool)
418: % if any event on w of kinds pending
419:
420: empty_event = proc () returns (event)
421: % returns empty event suitable for calling deq
422:
423: x_keymap = cluster
424:
425: load = proc (fs: string)
426: % load keymap file (if empty string, load ~/.Xkeymap)
427:
428: getc = proc (key, mask: int) returns (char) signals (none, multi(string))
429: % map to assumed single character
430:
431: gets = proc (key, mask: int) returns (string) signals (none)
432: % map to assumed character string
433:
434: x_cons = proc (name: string, back, border: x_pixmap, spec, defspec: string,
435: minwidth, minheight, bwidth: int) returns (x_window, int, int)
436: % create a top-level window
437: % spec is usual =spec from command line, defspec is default
438:
439: x_tcons = proc (name: string, back, border: x_pixmap, spec, defspec: string,
440: f: x_font, fwidth, fheight: int,
441: add, minwidth, minheight, bwidth: int)
442: returns (x_window, int, int)
443: % create a top-level (text) window
444: % spec is usual =spec from command line, defspec is default
445: % width (height) be 2*add plus multiple of fwidth (fheight)
446:
447: x_default = proc (prog, option: string) returns (string) signals (not_found)
448: % return option value from .Xdefaults file
449:
450: x_parse_color = proc (spec: string) returns (int, int, int)
451: signals (bad_format, undefined)
452: % returns (red, green, blue)
453:
454: x_flush = proc ()
455: % flush buffered output
456:
457: x_feep = proc (volume: int)
458:
459: x_store_cut = proc (buf: int, s: string)
460:
461: x_fetch_cut = proc (buf: int) returns (string) signals (error(string))
462:
463: x_rotate_cuts = proc (buf: int)
464:
465: x_mouse_control = proc (accel, thresh: int)
466:
467: x_feep_control = proc (volume: int)
468:
469: x_shift_lock = proc (toggle: bool)
470:
471: x_key_click = proc (volume: int)
472:
473: x_auto_repeat = proc (on: bool)
474:
475: x_screen_saver = proc (video: bool, timeout, shift: int)
476:
477: x_error = proc (why: string)
478: % routine called on internal X error
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.