![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to x_window.clu 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 / vax|
Return to x_window.clu CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / X / CLUlib / vax |
1.1 root 1: % Copyright Barbara Liskov 1985
2:
3: x_window = cluster is none, create, create_transparency,
4: destroy, destroy_subwindows, map, map_subwindows,
5: unmap, unmap_subwindows, unmap_transparent, raise, lower,
6: circulate_up, circulate_down, move, change, configure,
7: set_background, set_border, set_tilemode, set_clipmode,
8: query, query_tree, get_name, set_name, set_icon,
9: get_resize, set_resize, set_cursor, set_input,
10: grab_mouse, ungrab_mouse, grab_button, ungrab_button,
11: query_mouse, interpret_locator,
12: warp_mouse, cond_warp_mouse,
13: focus_keyboard, clear, pix_set, pix_fill, tile_set,
14: tile_fill, pixmap_put, pixmap_xybitsput, pixmap_zbitsput,
15: bitmap_bitsput, move_area, copy_area,
16: text, textv, texta, text_pad, textv_pad, texta_pad,
17: text_mask, textv_mask, texta_mask,
18: text_mask_pad, textv_mask_pad, texta_mask_pad,
19: line, draw,
20: draw_dashed, draw_patterned, draw_filled, draw_tiled,
21: save_region, read_xyregion, read_zregion,
22: get_id, equal, similar, copy
23:
24: rep = int
25:
26: none = proc () returns (cvt)
27: return(0)
28: end none
29:
30: create = proc (x, y, width, height: int, background: x_pixmap, parent: cvt,
31: borderwidth: int, border: x_pixmap) returns (cvt)
32: signals (error(string))
33: or: oreq, er: ereq := x_buf$get()
34: er.code := x_createwindow + (borderwidth * 2**8)
35: er.ewin := parent
36: er.s0 := height
37: or.s1 := width
38: er.s2 := x
39: or.s3 := y
40: lr(er).l2 := border.id
41: lr(er).l3 := background.id
42: x_buf$receive()
43: resignal error
44: return(x_buf$get_lp0())
45: end create
46:
47: create_transparency = proc (x, y, width, height: int, parent: cvt) returns (cvt)
48: signals (error(string))
49: or: oreq, er: ereq := x_buf$get()
50: er.code := x_createtransparency
51: er.ewin := parent
52: er.s0 := height
53: or.s1 := width
54: er.s2 := x
55: or.s3 := y
56: x_buf$receive()
57: resignal error
58: return(x_buf$get_lp0())
59: end create_transparency
60:
61: destroy = proc (w: cvt)
62: or: oreq, er: ereq := x_buf$get()
63: er.code := x_destroywindow
64: er.ewin := w
65: end destroy
66:
67: destroy_subwindows = proc (w: cvt)
68: or: oreq, er: ereq := x_buf$get()
69: er.code := x_destroysubwindows
70: er.ewin := w
71: end destroy_subwindows
72:
73: map = proc (w: cvt)
74: or: oreq, er: ereq := x_buf$get()
75: er.code := x_mapwindow
76: er.ewin := w
77: end map
78:
79: map_subwindows = proc (w: cvt)
80: or: oreq, er: ereq := x_buf$get()
81: er.code := x_mapsubwindows
82: er.ewin := w
83: end map_subwindows
84:
85: unmap = proc (w: cvt)
86: or: oreq, er: ereq := x_buf$get()
87: er.code := x_unmapwindow
88: er.ewin := w
89: end unmap
90:
91: unmap_subwindows = proc (w: cvt)
92: or: oreq, er: ereq := x_buf$get()
93: er.code := x_unmapsubwindows
94: er.ewin := w
95: end unmap_subwindows
96:
97: unmap_transparent = proc (w: cvt)
98: or: oreq, er: ereq := x_buf$get()
99: er.code := x_unmaptransparent
100: er.ewin := w
101: end unmap_transparent
102:
103: raise = proc (w: cvt)
104: or: oreq, er: ereq := x_buf$get()
105: er.code := x_raisewindow
106: er.ewin := w
107: end raise
108:
109: lower = proc (w: cvt)
110: or: oreq, er: ereq := x_buf$get()
111: er.code := x_lowerwindow
112: er.ewin := w
113: end lower
114:
115: circulate_up = proc (w: cvt)
116: or: oreq, er: ereq := x_buf$get()
117: er.code := x_circwindowup
118: er.ewin := w
119: end circulate_up
120:
121: circulate_down = proc (w: cvt)
122: or: oreq, er: ereq := x_buf$get()
123: er.code := x_circwindowdown
124: er.ewin := w
125: end circulate_down
126:
127: move = proc (w: cvt, x, y: int)
128: or: oreq, er: ereq := x_buf$get()
129: er.code := x_movewindow
130: er.ewin := w
131: er.s0 := x
132: or.s1 := y
133: end move
134:
135: change = proc (w: cvt, width, height: int)
136: or: oreq, er: ereq := x_buf$get()
137: er.code := x_changewindow
138: er.ewin := w
139: er.s0 := height
140: or.s1 := width
141: end change
142:
143: configure = proc (w: cvt, x, y, width, height: int)
144: or: oreq, er: ereq := x_buf$get()
145: er.code := x_configurewindow
146: er.ewin := w
147: er.s0 := height
148: or.s1 := width
149: er.s2 := x
150: or.s3 := y
151: end configure
152:
153: set_background = proc (w: cvt, background: x_pixmap)
154: or: oreq, er: ereq := x_buf$get()
155: er.code := x_changebackground
156: er.ewin := w
157: lr(er).l0 := p2i(background)
158: end set_background
159:
160: set_border = proc (w: cvt, border: x_pixmap)
161: or: oreq, er: ereq := x_buf$get()
162: er.code := x_changeborder
163: er.ewin := w
164: lr(er).l0 := p2i(border)
165: end set_border
166:
167: set_tilemode = proc (w: cvt, relative: bool)
168: or: oreq, er: ereq := x_buf$get()
169: if relative
170: then er.code := x_tilemode + (TileModeRelative * 2**8)
171: else er.code := x_tilemode + (TileModeAbsolute * 2**8)
172: end
173: er.ewin := w
174: end set_tilemode
175:
176: set_clipmode = proc (w: cvt, drawthru: bool)
177: or: oreq, er: ereq := x_buf$get()
178: if drawthru
179: then er.code := x_clipmode + (ClipModeDrawThru * 2**8)
180: else er.code := x_clipmode + (ClipModeClipped * 2**8)
181: end
182: er.ewin := w
183: end set_clipmode
184:
185: % returns (x, y, width, height, border, map, kind, icon)
186:
187: query = proc (w: cvt) returns (int, int, int, int, int, int, int, cvt)
188: signals (error(string))
189: or: oreq, er: ereq := x_buf$get()
190: er.code := x_querywindow
191: er.ewin := w
192: x_buf$receive()
193: resignal error
194: return(x_buf$get_sp2(), x_buf$get_sp3(), x_buf$get_sp1(), x_buf$get_sp0(),
195: x_buf$get_sp4(), x_buf$get_bp10(), x_buf$get_bp11(),
196: x_buf$get_lp3())
197: end query
198:
199: query_tree = proc (w: cvt) returns (cvt, wlist) signals (error(string))
200: wlist = array[x_window]
201: or: oreq, er: ereq := x_buf$get()
202: er.code := x_querytree
203: er.ewin := w
204: x_buf$receive()
205: resignal error
206: parent: int := x_buf$get_lp0()
207: n: int := x_buf$get_lp1()
208: subs: wlist := wlist$fill(1, n, up(parent))
209: if n > 0
210: then b: _bytevec := _bytevec$create(n * 4)
211: x_buf$receive_data(b)
212: for i: int in int$from_to(1, n) do
213: subs[i] := up(b2w(b)[i])
214: end
215: end
216: return(parent, subs)
217: end query_tree
218:
219: get_name = proc (w: cvt) returns (string) signals (error(string))
220: or: oreq, er: ereq := x_buf$get()
221: er.code := x_fetchname
222: er.ewin := w
223: x_buf$receive()
224: resignal error
225: n: int := x_buf$get_sp0()
226: if n = 0
227: then return("") end
228: b: _bytevec := _bytevec$create(n)
229: x_buf$receive_data(b)
230: return(b2s(b))
231: end get_name
232:
233: set_name = proc (w: cvt, n: string)
234: or: oreq, er: ereq := x_buf$get()
235: er.code := x_storename
236: er.ewin := w
237: er.s0 := string$size(n)
238: x_buf$send_data(s2b(n), 1, string$size(n))
239: end set_name
240:
241: set_icon = proc (w, icon: cvt)
242: or: oreq, er: ereq := x_buf$get()
243: er.code := x_seticonwindow
244: er.ewin := w
245: lr(er).l0 := icon
246: end set_icon
247:
248: get_resize = proc (w: cvt) returns (int, int, int, int) signals (error(string))
249: or: oreq, er: ereq := x_buf$get()
250: er.code := x_getresizehint
251: er.ewin := w
252: x_buf$receive()
253: resignal error
254: return(x_buf$get_sp2(), x_buf$get_sp3(), x_buf$get_sp0(), x_buf$get_sp1())
255: end get_resize
256:
257: set_resize = proc (w: cvt, width0, widthinc, height0, heightinc: int)
258: or: oreq, er: ereq := x_buf$get()
259: er.code := x_setresizehint
260: er.ewin := w
261: er.s0 := height0
262: or.s1 := heightinc
263: er.s2 := width0
264: or.s3 := widthinc
265: end set_resize
266:
267: set_cursor = proc (w: cvt, cursor: x_cursor)
268: or: oreq, er: ereq := x_buf$get()
269: er.code := x_definecursor
270: er.ewin := w
271: lr(er).l0 := c2i(cursor)
272: end set_cursor
273:
274: set_input = proc (w: cvt, mask: int)
275: or: oreq, er: ereq := x_buf$get()
276: er.code := x_selectinput
277: er.ewin := w
278: lr(er).l0 := mask
279: end set_input
280:
281: grab_mouse = proc (w: cvt, mask: int, cursor: x_cursor) signals (error(string))
282: or: oreq, er: ereq := x_buf$get()
283: er.code := x_grabmouse
284: er.ewin := w
285: lr(er).l0 := c2i(cursor)
286: lr(er).l1 := mask
287: x_buf$receive()
288: resignal error
289: end grab_mouse
290:
291: ungrab_mouse = proc ()
292: or: oreq, er: ereq := x_buf$get()
293: er.code := x_ungrabmouse
294: end ungrab_mouse
295:
296: grab_button = proc (w: cvt, button, mask: int, cursor: x_cursor)
297: signals (error(string))
298: or: oreq, er: ereq := x_buf$get()
299: er.code := x_grabbutton
300: or.mask := button
301: er.ewin := w
302: lr(er).l0 := c2i(cursor)
303: lr(er).l1 := mask
304: x_buf$receive()
305: resignal error
306: end grab_button
307:
308: ungrab_button = proc (button: int)
309: or: oreq, er: ereq := x_buf$get()
310: er.code := x_ungrabmouse
311: or.mask := button
312: end ungrab_button
313:
314: % returns (x, y, window)
315:
316: query_mouse = proc (w: cvt) returns (int, int, cvt) signals (error(string))
317: or: oreq, er: ereq := x_buf$get()
318: er.code := x_querymouse
319: er.ewin := w
320: x_buf$receive()
321: resignal error
322: return(x_buf$get_sp2(), x_buf$get_sp3(), x_buf$get_lp0())
323: end query_mouse
324:
325: interpret_locator = proc (w: cvt, x, y: int) returns (int, int, cvt)
326: signals (error(string))
327: or: oreq, er: ereq := x_buf$get()
328: er.code := x_interpretlocator
329: er.ewin := w
330: er.s0 := y
331: or.s1 := x
332: x_buf$receive()
333: resignal error
334: return(x_buf$get_sp2(), x_buf$get_sp3(), x_buf$get_lp0())
335: end interpret_locator
336:
337: warp_mouse = proc (w: cvt, x, y: int)
338: or: oreq, er: ereq := x_buf$get()
339: er.code := x_warpmouse
340: er.ewin := w
341: er.s0 := x
342: or.s1 := y
343: lr(er).l1 := down(x_display$root())
344: er.s4 := 0
345: or.s5 := 0
346: er.s6 := 0
347: or.s7 := 0
348: end warp_mouse
349:
350: cond_warp_mouse = proc (dstw: cvt, dstx, dsty: int, srcw: cvt,
351: srcx, srcy, srcwidth, srcheight: int)
352: or: oreq, er: ereq := x_buf$get()
353: er.code := x_warpmouse
354: er.ewin := dstw
355: er.s0 := dstx
356: or.s1 := dsty
357: lr(er).l1 := srcw
358: er.s4 := srcheight
359: or.s5 := srcwidth
360: er.s6 := srcx
361: or.s7 := srcy
362: end cond_warp_mouse
363:
364: focus_keyboard = proc (w: cvt)
365: or: oreq, er: ereq := x_buf$get()
366: er.code := x_focuskeyboard
367: er.ewin := w
368: end focus_keyboard
369:
370: clear = proc (w: cvt)
371: or: oreq, er: ereq := x_buf$get()
372: er.code := x_clear
373: er.ewin := w
374: end clear
375:
376: pix_set = proc (w: cvt, pixel, x, y, width, height: int)
377: or: oreq, er: ereq := x_buf$get()
378: er.code := x_pixfill + (GXcopy * 2**8)
379: or.mask := -1
380: er.ewin := w
381: er.s0 := height
382: or.s1 := width
383: er.s2 := x
384: or.s3 := y
385: er.s4 := pixel
386: lr(er).l3 := 0
387: end pix_set
388:
389: pix_fill = proc (w: cvt, pixel: int, mask: x_bitmap, x, y, width, height: int,
390: func, planes: int)
391: or: oreq, er: ereq := x_buf$get()
392: er.code := x_pixfill + (func * 2**8)
393: or.mask := planes
394: er.ewin := w
395: er.s0 := height
396: or.s1 := width
397: er.s2 := x
398: or.s3 := y
399: er.s4 := pixel
400: lr(er).l3 := b2i(mask)
401: end pix_fill
402:
403: tile_set = proc (w: cvt, tile: x_pixmap, x, y, width, height: int)
404: or: oreq, er: ereq := x_buf$get()
405: er.code := x_tilefill + (GXcopy * 2**8)
406: or.mask := -1
407: er.ewin := w
408: er.s0 := height
409: or.s1 := width
410: er.s2 := x
411: or.s3 := y
412: lr(er).l2 := p2i(tile)
413: lr(er).l3 := 0
414: end tile_set
415:
416: tile_fill = proc (w: cvt, tile: x_pixmap, mask: x_bitmap,
417: x, y, width, height, func, planes: int)
418: or: oreq, er: ereq := x_buf$get()
419: er.code := x_tilefill + (func * 2**8)
420: or.mask := planes
421: er.ewin := w
422: er.s0 := height
423: or.s1 := width
424: er.s2 := x
425: or.s3 := y
426: lr(er).l2 := p2i(tile)
427: lr(er).l3 := b2i(mask)
428: end tile_fill
429:
430: pixmap_put = proc (w: cvt, pix: x_pixmap,
431: srcx, srcy, width, height, dstx, dsty, func, planes: int)
432: or: oreq, er: ereq := x_buf$get()
433: er.code := x_pixmapput + (func * 2**8)
434: or.mask := planes
435: er.ewin := w
436: er.s0 := height
437: or.s1 := width
438: er.s2 := srcx
439: or.s3 := srcy
440: lr(er).l2 := p2i(pix)
441: er.s6 := dstx
442: or.s7 := dsty
443: end pixmap_put
444:
445: pixmap_zbitsput = proc (w: cvt, width, height: int, bits: _wordvec,
446: mask: x_bitmap, x, y, func, planes: int)
447: or: oreq, er: ereq := x_buf$get()
448: er.code := x_pixmapbitsput + (func * 2**8)
449: or.mask := planes
450: er.ewin := w
451: er.s0 := height
452: or.s1 := width
453: er.s2 := x
454: or.s3 := y
455: er.s4 := ZFormat
456: lr(er).l3 := b2i(mask)
457: z: int := width * height
458: if x_display$planes() > 8
459: then z := z + z end
460: x_buf$send_data(w2b(bits), 1, z)
461: end pixmap_zbitsput
462:
463: pixmap_xybitsput = proc (w: cvt, width, height: int, bits: _wordvec,
464: mask: x_bitmap, x, y, func, planes: int)
465: or: oreq, er: ereq := x_buf$get()
466: er.code := x_pixmapbitsput + (func * 2**8)
467: or.mask := planes
468: er.ewin := w
469: er.s0 := height
470: or.s1 := width
471: er.s2 := x
472: or.s3 := y
473: er.s4 := XYFormat
474: lr(er).l3 := b2i(mask)
475: x_buf$send_data(w2b(bits), 1,
476: ((width + 15) / 16) * height * 2 * x_display$planes())
477: end pixmap_xybitsput
478:
479: bitmap_bitsput = proc (w: cvt, width, height: int, bits: _wordvec,
480: fore, back: int, mask: x_bitmap, x, y, func, planes: int)
481: or: oreq, er: ereq := x_buf$get()
482: er.code := x_bitmapbitsput + (func * 2**8)
483: or.mask := planes
484: er.ewin := w
485: er.s0 := height
486: or.s1 := width
487: er.s2 := x
488: or.s3 := y
489: er.s4 := fore
490: or.s5 := back
491: lr(er).l3 := b2i(mask)
492: x_buf$send_data(w2b(bits), 1, ((width + 15) / 16) * height * 2)
493: end bitmap_bitsput
494:
495: move_area = proc (w: cvt, srcx, srcy, width, height, dstx, dsty: int)
496: or: oreq, er: ereq := x_buf$get()
497: er.code := x_copyarea + (GXcopy * 2**8)
498: or.mask := -1
499: er.ewin := w
500: er.s0 := height
501: or.s1 := width
502: er.s2 := srcx
503: or.s3 := srcy
504: er.s6 := dstx
505: or.s7 := dsty
506: end move_area
507:
508: copy_area = proc (w: cvt, srcx, srcy, width, height, dstx, dsty: int,
509: func, planes: int)
510: or: oreq, er: ereq := x_buf$get()
511: er.code := x_copyarea + (func * 2**8)
512: or.mask := planes
513: er.ewin := w
514: er.s0 := height
515: or.s1 := width
516: er.s2 := srcx
517: or.s3 := srcy
518: er.s6 := dstx
519: or.s7 := dsty
520: end copy_area
521:
522: text = proc (w: cvt, s: string, font: x_font, fore, back, x, y: int)
523: or: oreq, er: ereq := x_buf$get()
524: er.code := x_text + (GXcopy * 2**8)
525: or.mask := -1
526: er.ewin := w
527: er.s0 := x
528: or.s1 := y
529: lr(er).l1 := f2i(font)
530: er.s4 := fore
531: or.s5 := back
532: er.s6 := string$size(s)
533: x_buf$send_data(s2b(s), 1, string$size(s))
534: end text
535:
536: textv = proc (w: cvt, b: _bytevec, start, z: int, font: x_font,
537: fore, back, x, y: int)
538: or: oreq, er: ereq := x_buf$get()
539: er.code := x_text + (GXcopy * 2**8)
540: or.mask := -1
541: er.ewin := w
542: er.s0 := x
543: or.s1 := y
544: lr(er).l1 := f2i(font)
545: er.s4 := fore
546: or.s5 := back
547: er.s6 := z
548: x_buf$send_data(b, start, z)
549: end textv
550:
551: texta = proc (w: cvt, a: array[char], start, z: int, font: x_font,
552: fore, back, x, y: int)
553: or: oreq, er: ereq := x_buf$get()
554: er.code := x_text + (GXcopy * 2**8)
555: or.mask := -1
556: er.ewin := w
557: er.s0 := x
558: or.s1 := y
559: lr(er).l1 := f2i(font)
560: er.s4 := fore
561: or.s5 := back
562: er.s6 := z
563: x_buf$send_array(a, start, z)
564: end texta
565:
566: text_pad = proc (w: cvt, s: string, font: x_font, fore, back, cpad, spad: int,
567: x, y: int, func, planes: int)
568: or: oreq, er: ereq := x_buf$get()
569: er.code := x_text + (func * 2**8)
570: or.mask := planes
571: er.ewin := w
572: er.s0 := x
573: or.s1 := y
574: lr(er).l1 := f2i(font)
575: er.s4 := fore
576: or.s5 := back
577: er.s6 := string$size(s)
578: or.s7 := (cpad // 2**8) + (spad * 2**8)
579: x_buf$send_data(s2b(s), 1, string$size(s))
580: end text_pad
581:
582: textv_pad = proc (w: cvt, b: _bytevec, start, z: int, font: x_font,
583: fore, back, cpad, spad: int, x, y: int, func, planes: int)
584: or: oreq, er: ereq := x_buf$get()
585: er.code := x_text + (func * 2**8)
586: or.mask := planes
587: er.ewin := w
588: er.s0 := x
589: or.s1 := y
590: lr(er).l1 := f2i(font)
591: er.s4 := fore
592: or.s5 := back
593: er.s6 := z
594: or.s7 := (cpad // 2**8) + (spad * 2**8)
595: x_buf$send_data(b, start, z)
596: end textv_pad
597:
598: texta_pad = proc (w: cvt, a: array[char], start, z: int, font: x_font,
599: fore, back, cpad, spad: int, x, y: int, func, planes: int)
600: or: oreq, er: ereq := x_buf$get()
601: er.code := x_text + (func * 2**8)
602: or.mask := planes
603: er.ewin := w
604: er.s0 := x
605: or.s1 := y
606: lr(er).l1 := f2i(font)
607: er.s4 := fore
608: or.s5 := back
609: er.s6 := z
610: or.s7 := (cpad // 2**8) + (spad * 2**8)
611: x_buf$send_array(a, start, z)
612: end texta_pad
613:
614: text_mask = proc (w: cvt, s: string, font: x_font, pixel, x, y: int)
615: or: oreq, er: ereq := x_buf$get()
616: er.code := x_textmask + (GXcopy * 2**8)
617: or.mask := -1
618: er.ewin := w
619: er.s0 := x
620: or.s1 := y
621: lr(er).l1 := f2i(font)
622: er.s4 := pixel
623: er.s6 := string$size(s)
624: x_buf$send_data(s2b(s), 1, string$size(s))
625: end text_mask
626:
627: textv_mask = proc (w: cvt, b: _bytevec, start, z: int, font: x_font,
628: pixel, x, y: int)
629: or: oreq, er: ereq := x_buf$get()
630: er.code := x_textmask + (GXcopy * 2**8)
631: or.mask := -1
632: er.ewin := w
633: er.s0 := x
634: or.s1 := y
635: lr(er).l1 := f2i(font)
636: er.s4 := pixel
637: er.s6 := z
638: x_buf$send_data(b, start, z)
639: end textv_mask
640:
641: texta_mask = proc (w: cvt, a: array[char], start, z: int, font: x_font,
642: pixel, x, y: int)
643: or: oreq, er: ereq := x_buf$get()
644: er.code := x_textmask + (GXcopy * 2**8)
645: or.mask := -1
646: er.ewin := w
647: er.s0 := x
648: or.s1 := y
649: lr(er).l1 := f2i(font)
650: er.s4 := pixel
651: er.s6 := z
652: x_buf$send_array(a, start, z)
653: end texta_mask
654:
655: text_mask_pad = proc (w: cvt, s: string, font: x_font, pixel, cpad, spad: int,
656: x, y: int, func, planes: int)
657: or: oreq, er: ereq := x_buf$get()
658: er.code := x_textmask + (func * 2**8)
659: or.mask := planes
660: er.ewin := w
661: er.s0 := x
662: or.s1 := y
663: lr(er).l1 := f2i(font)
664: er.s4 := pixel
665: er.s6 := string$size(s)
666: or.s7 := (cpad // 2**8) + (spad * 2**8)
667: x_buf$send_data(s2b(s), 1, string$size(s))
668: end text_mask_pad
669:
670: textv_mask_pad = proc (w: cvt, b: _bytevec, start, z: int, font: x_font,
671: pixel, cpad, spad: int, x, y: int, func, planes: int)
672: or: oreq, er: ereq := x_buf$get()
673: er.code := x_textmask + (func * 2**8)
674: or.mask := planes
675: er.ewin := w
676: er.s0 := x
677: or.s1 := y
678: lr(er).l1 := f2i(font)
679: er.s4 := pixel
680: er.s6 := z
681: or.s7 := (cpad // 2**8) + (spad * 2**8)
682: x_buf$send_data(b, start, z)
683: end textv_mask_pad
684:
685: texta_mask_pad = proc (w: cvt, a: array[char], start, z: int, font: x_font,
686: pixel, cpad, spad: int, x, y: int, func, planes: int)
687: or: oreq, er: ereq := x_buf$get()
688: er.code := x_textmask + (func * 2**8)
689: or.mask := planes
690: er.ewin := w
691: er.s0 := x
692: or.s1 := y
693: lr(er).l1 := f2i(font)
694: er.s4 := pixel
695: er.s6 := z
696: or.s7 := (cpad // 2**8) + (spad * 2**8)
697: x_buf$send_array(a, start, z)
698: end texta_mask_pad
699:
700: line = proc (w: cvt, pixel, width, height, x1, y1, x2, y2, func, planes: int)
701: or: oreq, er: ereq := x_buf$get()
702: er.code := x_line + (func * 2**8)
703: or.mask := planes
704: er.ewin := w
705: er.s0 := x1
706: or.s1 := y1
707: er.s2 := x2
708: or.s3 := y2
709: er.s4 := pixel
710: or.s5 := (height // 2**8) + (width * 2**8)
711: end line
712:
713: draw = proc (w: cvt, verts: x_vlist, z, pixel, width, height, func, planes: int)
714: or: oreq, er: ereq := x_buf$get()
715: er.code := x_draw + (func * 2**8)
716: or.mask := planes
717: er.ewin := w
718: er.s0 := z
719: or.s1 := pixel
720: er.s2 := (height // 2**8) + (width * 2**8)
721: or.s3 := DrawSolidLine
722: x_buf$send_data(v2b(verts), 1, 6 * z)
723: end draw
724:
725: draw_dashed = proc (w: cvt, verts: x_vlist, z, pixel, width, height: int,
726: pattern, patlen, patmul, func, planes: int)
727: or: oreq, er: ereq := x_buf$get()
728: er.code := x_draw + (func * 2**8)
729: or.mask := planes
730: er.ewin := w
731: er.s0 := z
732: or.s1 := pixel
733: er.s2 := (height // 2**8) + (width * 2**8)
734: or.s3 := DrawDashedLine
735: or.s5 := pattern
736: er.s6 := patlen
737: or.s7 := patmul
738: x_buf$send_data(v2b(verts), 1, 6 * z)
739: end draw_dashed
740:
741: draw_patterned = proc (w: cvt, verts: x_vlist, z, pixel, altpix: int,
742: width, height, pattern, patlen, patmul, func, planes: int)
743: or: oreq, er: ereq := x_buf$get()
744: er.code := x_draw + (func * 2**8)
745: or.mask := planes
746: er.ewin := w
747: er.s0 := z
748: or.s1 := pixel
749: er.s2 := (height // 2**8) + (width * 2**8)
750: or.s3 := DrawPatternedLine
751: er.s4 := altpix
752: or.s5 := pattern
753: er.s6 := patlen
754: or.s7 := patmul
755: x_buf$send_data(v2b(verts), 1, 6 * z)
756: end draw_patterned
757:
758: draw_filled = proc (w: cvt, verts: x_vlist, z, pixel, func, planes: int)
759: or: oreq, er: ereq := x_buf$get()
760: er.code := x_drawfilled + (func * 2**8)
761: or.mask := planes
762: er.ewin := w
763: er.s0 := z
764: or.s1 := pixel
765: lr(er).l1 := 0
766: x_buf$send_data(v2b(verts), 1, 6 * z)
767: end draw_filled
768:
769: draw_tiled = proc (w: cvt, verts: x_vlist, z: int, tile: x_pixmap,
770: func, planes: int)
771: or: oreq, er: ereq := x_buf$get()
772: er.code := x_drawfilled + (func * 2**8)
773: or.mask := planes
774: er.ewin := w
775: er.s0 := z
776: lr(er).l1 := p2i(tile)
777: x_buf$send_data(v2b(verts), 1, 6 * z)
778: end draw_tiled
779:
780: save_region = proc (w: cvt, x, y, width, height: int) returns (x_pixmap)
781: signals (error(string))
782: or: oreq, er: ereq := x_buf$get()
783: er.code := x_pixmapsave
784: er.ewin := w
785: er.s0 := height
786: or.s1 := width
787: er.s2 := x
788: or.s3 := y
789: x_buf$receive()
790: resignal error
791: return(_cvt[int, x_pixmap](x_buf$get_lp0()))
792: end save_region
793:
794: read_xyregion = proc (w: cvt, x, y, width, height: int) returns (_wordvec)
795: signals (error(string))
796: or: oreq, er: ereq := x_buf$get()
797: er.code := x_pixmapget + (XYFormat * 2**8)
798: er.ewin := w
799: er.s0 := height
800: or.s1 := width
801: er.s2 := x
802: or.s3 := y
803: x_buf$receive()
804: resignal error
805: b: _bytevec := _bytevec$create(x_buf$get_lp0())
806: x_buf$receive_data(b)
807: return(b2w(b))
808: end read_xyregion
809:
810: read_zregion = proc (w: cvt, x, y, width, height: int) returns (_wordvec)
811: signals (error(string))
812: or: oreq, er: ereq := x_buf$get()
813: er.code := x_pixmapget + (ZFormat * 2**8)
814: er.ewin := w
815: er.s0 := height
816: or.s1 := width
817: er.s2 := x
818: or.s3 := y
819: x_buf$receive()
820: resignal error
821: b: _bytevec := _bytevec$create(x_buf$get_lp0())
822: x_buf$receive_data(b)
823: return(b2w(b))
824: end read_zregion
825:
826: get_id = proc (w: cvt) returns (int)
827: return(w)
828: end get_id
829:
830: equal = proc (w1, w2: cvt) returns (bool)
831: return(w1 = w2)
832: end equal
833:
834: similar = proc (w1, w2: cvt) returns (bool)
835: return(w1 = w2)
836: end similar
837:
838: copy = proc (w: cvt) returns (cvt)
839: return(w)
840: end copy
841:
842: end x_window
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.