-
Notifications
You must be signed in to change notification settings - Fork 6
/
decls.lisp
1008 lines (812 loc) · 40 KB
/
decls.lisp
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
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-INTERNALS; -*-
;;; ---------------------------------------------------------------------------
;;; Title: DEFGENERICs and stuff
;;; Created: 2001-08-12
;;; Author: Gilbert Baumann <[email protected]>
;;; License: LGPL (See file COPYING for details).
;;; ---------------------------------------------------------------------------
;;; (c) copyright 2001,2002 by Gilbert Baumann
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Library General Public
;;; License as published by the Free Software Foundation; either
;;; version 2 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
;;; Library General Public License for more details.
;;;
;;; You should have received a copy of the GNU Library General Public
;;; License along with this library; if not, write to the
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
(in-package :clim-internals)
;;; This is just an ad hoc list. Would it be a good idea to include all
;;; (exported) generic functions here? --GB
;;;
;;; YES! -- CSR
;;; We'll get right on it :) -- moore
;;; Whose numbers are we using here?
;;; The numbers are section numbers from the spec. --GB
;; Since the declaim form for functions looks clumsy and is
;; syntax-wise different from defun, we define us a new declfun, which
;; fixes this.
(defmacro declfun (name lambda-list)
`(declaim (ftype (function
,(let ((q lambda-list)
res)
(do () ((or (null q)
(member (car q) '(&optional &rest &key))))
(push 't res)
(pop q))
(when (eq (car q) '&optional)
(push '&optional res)
(pop q)
(do () ((or (null q)
(member (car q) '(&rest &key))))
(pop q)
(push 't res)))
(when (eq (car q) '&rest)
(push '&rest res)
(pop q)
(push 't res)
(pop q))
(when (eq (car q) '&key)
(push '&key res)
(pop q)
(do () ((or (null q)
(member (car q) '(&allow-other-keys))))
(push (list (intern (string (if (consp (car q))
(if (consp (caar q))
(caaar q)
(caar q))
(car q)))
:keyword)
't)
res)
(pop q)))
(when (eq (car q) '&allow-other-keys)
(push '&allow-other-keys res)
(pop q))
(reverse res))
t)
,name)))
;;;; Early special variables
(defvar *application-frame* nil)
;;; 3.2.1.1 The Point Protocol
(defgeneric point-x (point))
(defgeneric point-y (point))
;;; 3.2.2.1 The Polygon and Polyline Protocol
(defgeneric polygon-points (polygon-or-polyline))
(defgeneric map-over-polygon-coordinates (function polygon-or-polyline))
(defgeneric map-over-polygon-segments (function polygon-or-polyline))
(defgeneric polyline-closed (polyline))
;;; 3.2.3.1 The Line Protocol
(defgeneric line-start-point* (line))
(defgeneric line-end-point* (line))
(defgeneric line-start-point (line))
(defgeneric line-end-point (line))
;;; 3.2.4.1
(defgeneric rectangle-edges* (rectangle))
(defgeneric rectangle-min-point (rectangle))
(defgeneric rectangle-max-point (rectangle))
(defgeneric rectangle-min-x (rectangle))
(defgeneric rectangle-min-y (rectangle))
(defgeneric rectangle-max-x (rectangle))
(defgeneric rectangle-max-y (rectangle))
(defgeneric rectangle-width (rectangle))
(defgeneric rectangle-height (rectangle))
(defgeneric rectangle-size (rectangle))
;;; 3.2.5.1 The Ellipse and Elliptical Arc Protocol
(defgeneric ellipse-center-point* (elliptical-object))
(defgeneric ellipse-center-point (elliptical-object))
(defgeneric ellipse-radii (elliptical-object))
(defgeneric ellipse-start-angle (elliptical-object))
(defgeneric ellipse-end-angle (elliptical-object))
;;; 4.1.1 The Bounding Rectangle Protocol
(defgeneric bounding-rectangle* (region))
(defgeneric bounding-rectangle (region))
;;; 4.1.2 Bounding Rectangle Convenience Functions
(defgeneric bounding-rectangle-position (region))
(defgeneric bounding-rectangle-min-x (region))
(defgeneric bounding-rectangle-min-y (region))
(defgeneric bounding-rectangle-max-x (region))
(defgeneric bounding-rectangle-max-y (region))
(defgeneric bounding-rectangle-width (region))
(defgeneric bounding-rectangle-height (region))
(defgeneric bounding-rectangle-size (region))
;;; 5.3.1 Transformation Predicates
(defgeneric transformation-equal (transformation1 transformation2))
(defgeneric identity-transformation-p (transformation))
(defgeneric invertible-transformation-p (transformation))
(defgeneric translation-transformation-p (transformation))
(defgeneric reflection-transformation-p (transformation))
(defgeneric rigid-transformation-p (transformation))
(defgeneric even-scaling-transformation-p (transformation))
(defgeneric scaling-transformation-p (transformation))
(defgeneric rectilinear-transformation-p (transformation))
;;; 5.3.2 Composition of Transformations
(defgeneric compose-transformations (transformation1 transformation2))
(defgeneric invert-transformation (transformation))
(declfun compose-translation-with-transformation (transformation dx dy))
(declfun compose-scaling-with-transformation (transformation sx sy &optional origin))
(declfun compose-rotation-with-transformation (transformation angle &optional origin))
(declfun compose-transformation-with-translation (transformation dx dy))
(declfun compose-transformation-with-scaling (transformation sx sy &optional origin))
(declfun compose-transformation-with-rotation (transformation angle &optional origin))
;;; 5.3.3 Applying Transformations
(defgeneric transform-region (transformation region))
(defgeneric untransform-region (transformation region))
(defgeneric transform-position (transformation x y))
(defgeneric untransform-position (transformation x y))
(defgeneric transform-distance (transformation dx dy))
(defgeneric untransform-distance (transformation dx dy))
(defgeneric transform-rectangle* (transformation x1 y1 x2 y2))
(defgeneric untransform-rectangle* (transformation x1 y1 x2 y2))
;;; 7.2.1 Sheet Relationship Functions
(defgeneric sheet-parent (sheet))
(defgeneric sheet-children (sheet))
(defgeneric sheet-adopt-child (sheet child))
(defgeneric sheet-disown-child (sheet child &key errorp))
(defgeneric sheet-siblings (sheet))
(defgeneric sheet-enabled-children (sheet))
(defgeneric sheet-ancestor-p (sheet putative-ancestor))
(defgeneric raise-sheet (sheet))
(defgeneric bury-sheet (sheet))
(defgeneric reorder-sheets (sheet new-ordering))
(defgeneric sheet-enabled-p (sheet))
(defgeneric (setf sheet-enabled-p) (enabled-p sheet))
(defgeneric sheet-viewable-p (sheet))
(defgeneric sheet-occluding-sheets (sheet child))
(defgeneric map-over-sheets (function sheet))
;;; 7.3.1 Sheet Geometry Functions [complete]
(defgeneric sheet-transformation (sheet))
(defgeneric (setf sheet-transformation) (transformation sheet))
(defgeneric sheet-region (sheet))
(defgeneric (setf sheet-region) (region sheet))
(defgeneric move-sheet (sheet x y))
(defgeneric resize-sheet (sheet width height))
(defgeneric move-and-resize-sheet (sheet x y width height))
(defgeneric map-sheet-position-to-parent (sheet x y))
(defgeneric map-sheet-position-to-child (sheet x y))
(defgeneric map-sheet-rectangle*-to-parent (sheet x1 y1 x2 y2))
(defgeneric map-sheet-rectangle*-to-child (sheet x1 y1 x2 y2))
(defgeneric map-over-sheets-containing-position (function sheet x y))
(defgeneric map-over-sheets-overlapping-region (function sheet region))
(defgeneric child-containing-position (sheet x y))
(defgeneric children-overlapping-region (sheet region))
(defgeneric children-overlapping-rectangle* (sheet x1 y1 x2 y2))
(defgeneric sheet-delta-transformation (sheet ancestor))
(defgeneric sheet-allocated-region (sheet child))
;;; 7.3.2
;; sheet-identity-transformation-mixin [class]
;; sheet-translation-mixin [class]
;; sheet-y-inverting-transformation-mixin [class]
;; sheet-transformation-mixin [class]
;;;; 8.1
(defgeneric process-next-event (port &key wait-function timeout))
(defgeneric port-keyboard-input-focus (port))
(defgeneric (setf port-keyboard-input-focus) (focus port))
;;; 8.2 Standard Device Events
(defgeneric event-timestamp (event))
(defgeneric event-type (event))
(defgeneric event-sheet (device-event))
(defgeneric event-modifier-state (device-event))
(defgeneric keyboard-event-key-name (keyboard-event))
(defgeneric keyboard-event-character (keyboard-event))
(defgeneric pointer-event-x (pointer-event))
(defgeneric pointer-event-y (pointer-event))
(defgeneric pointer-event-native-x (pointer-event))
(defgeneric pointer-event-native-y (pointer-event))
(defgeneric pointer-event-pointer (pointer-event))
(defgeneric pointer-event-button (pointer-button-event))
(defgeneric pointer-boundary-event-kind (pointer-boundary-event))
(defgeneric window-event-region (window-event))
(defgeneric window-event-native-region (window-event))
(defgeneric window-event-mirrored-sheet (window-event))
;;; 8.3.1 Output Properties
(defgeneric medium-foreground (medium))
(defgeneric (setf medium-foreground) (design medium))
(defgeneric medium-background (medium))
(defgeneric (setf medium-background) (design medium))
(defgeneric medium-ink (medium))
(defgeneric (setf medium-ink) (design medium))
(defgeneric medium-transformation (medium))
(defgeneric (setf medium-transformation) (transformation medium))
(defgeneric medium-clipping-region (medium))
(defgeneric (setf medium-clipping-region) (region medium))
(defgeneric medium-line-style (medium))
(defgeneric (setf medium-line-style) (line-style medium))
(defgeneric medium-text-style (medium))
(defgeneric (setf medium-text-style) (text-style medium))
(defgeneric medium-default-text-style (medium))
(defgeneric (setf medium-default-text-style) (text-style medium))
(defgeneric medium-merged-text-style (medium))
;;;; 8.3.4 Associating a Medium with a Sheet
;; with-sheet-medium (medium sheet) &body body [Macro]
;; with-sheet-medium-bound (sheet medium) &body body [Macro]
(defgeneric sheet-medium (sheet))
(defgeneric medium-sheet (medium))
(defgeneric medium-drawable (medium))
;;; 8.3.4.1 Grafting and Degrafting of Mediums
(defgeneric allocate-medium (port sheet))
(defgeneric deallocate-medium (port medium))
(defgeneric make-medium (port sheet))
(defgeneric engraft-medium (medium port sheet))
(defgeneric degraft-medium (medium port sheet))
;;; 8.4.1 Repaint Protocol Functions
(defgeneric queue-repaint (sheet repaint-event))
(defgeneric handle-repaint (sheet region))
(defgeneric repaint-sheet (sheet region))
;;;; 9 Ports, Grafts, and Mirrored Sheets
;; (defgeneric portp (object))
;; find-port function
;;; 9.2 Ports
(defgeneric port (object))
(defgeneric port-server-path (port))
(defgeneric port-name (port))
(defgeneric port-type (port))
(defgeneric port-properties (port indicator))
(defgeneric (setf port-properties) (property port indicator))
(defgeneric restart-port (port))
(defgeneric destroy-port (port))
;;; 9.3 Grafts
(defgeneric sheet-grafted-p (sheet))
(declfun find-graft (&key (server-path *default-server-path*)
(port (find-port :server-path server-path))
(orientation :default)
(units :device)))
(defgeneric graft (object))
(declfun map-over-grafts (function port))
;; with-graft-locked (graft) &body body [macro]
(defgeneric graft-orientation (graft))
(defgeneric graft-units (graft))
(defgeneric graft-width (graft &key units))
(defgeneric graft-height (graft &key units))
(declfun graft-pixels-per-millimeter (graft))
(declfun graft-pixels-per-inch (graft))
;; 9.4.1 Mirror Functions
(defgeneric sheet-direct-mirror (sheet))
(defgeneric sheet-mirrored-ancestor (sheet))
(defgeneric sheet-mirror (sheet))
(defgeneric realize-mirror (port mirrored-sheet))
(defgeneric destroy-mirror (port mirrored-sheet))
(defgeneric raise-mirror (port sheet))
(defgeneric bury-mirror (port sheet))
;; 9.4.2 Internal Interfaces for Native Coordinates
(defgeneric sheet-native-transformation (sheet))
(defgeneric sheet-native-region (sheet))
(defgeneric sheet-device-transformation (sheet))
(defgeneric sheet-device-region (sheet))
(defgeneric invalidate-cached-transformations (sheet))
(defgeneric invalidate-cached-regions (sheet))
;;; Graphics ops
(defgeneric medium-draw-point* (medium x y))
(defgeneric medium-draw-points* (medium coord-seq))
(defgeneric medium-draw-line* (medium x1 y1 x2 y2))
(defgeneric medium-draw-lines* (medium coord-seq))
(defgeneric medium-draw-polygon* (medium coord-seq closed filled))
(defgeneric medium-draw-rectangle* (medium left top right bottom filled))
(defgeneric medium-draw-ellipse* (medium center-x center-y
radius-1-dx radius-1-dy radius-2-dx radius-2-dy
start-angle end-angle filled))
(defgeneric medium-draw-circle* (medium center-x center-y radius start-angle end-angle filled))
(defgeneric medium-draw-text* (medium string x y
start end
align-x align-y
toward-x toward-y transform-glyphs))
;;; 10.1 Medium Components
;;;
;;; For reasons that are beyond me, many of the medium component
;;; accessors are also specified in section 8.3.1.
(defgeneric medium-current-text-style (medium))
;;;; 10.2
(defgeneric invoke-with-drawing-options
(medium continuation &rest drawing-options &key &allow-other-keys))
;;;; 10.2.1
(defgeneric invoke-with-identity-transformation (medium continuation))
;;;; 10.2.2
(defgeneric invoke-with-local-coordinates (medium continuation x y))
(defgeneric invoke-with-first-quadrant-coordinates (medium continuation x y))
;;; 11.1.1 Text Style Protocol and Text Style Suboptions
(defgeneric text-style-components (text-style))
(defgeneric text-style-family (text-style))
(defgeneric text-style-face (text-style))
(defgeneric text-style-size (text-style))
(defgeneric merge-text-styles (style1 style2))
(defgeneric text-style-ascent (text-style medium))
(defgeneric text-style-descent (text-style medium))
(defgeneric text-style-height (text-style medium))
(defgeneric text-style-width (text-style medium))
(defgeneric text-style-fixed-width-p (text-style medium))
(defgeneric text-size (medium string &key text-style start end))
;;; 11.2 Text Style Binding Forms
(defgeneric invoke-with-text-style (medium continuation text-style))
;;; 12.7.3 Other Medium-specific Output Functions
(defgeneric medium-finish-output (medium))
(defgeneric medium-force-output (medium))
(defgeneric medium-clear-area (medium left top right bottom))
(defgeneric medium-beep (medium))
;;;; 14.2
(defgeneric pattern-width (pattern)
(:documentation "Return the width of `pattern'."))
(defgeneric pattern-height (pattern)
(:documentation "Return the height of `pattern'."))
(defgeneric pattern-array (pattern)
(:documentation "Returns the array associated with `pattern'."))
(defgeneric pattern-designs (pattern)
(:documentation "Returns the array of designs associated with
`pattern'."))
;;;; 14.5
(defgeneric draw-design
(medium design
&key ink clipping-region transformation line-style line-thickness
line-unit line-dashes line-joint-shape line-cap-shape text-style
text-family text-face text-size))
;;; 15.3 The Text Cursor [complete]
;;; 15.3.1 Text Cursor Protocol [complete]
;; cursor [protocol class]
;; cursorp object [protocol predicate]
;; :sheet [Initarg for cursor]
;; standard-text-cursor [class]
(defgeneric cursor-sheet (cursor))
(defgeneric cursor-position (cursor))
;;(defgeneric (setf* cursor-position) (x y cursor))
(defgeneric cursor-active (cursor))
(defgeneric (setf cursor-active) (value cursor))
(defgeneric cursor-state (cursor))
(defgeneric (setf cursor-state) (value cursor))
(defgeneric cursor-focus (cursor))
(defgeneric cursor-visibility (cursor))
(defgeneric (setf cursor-visibility) (visibility cursor))
;;; 15.3.2 Stream Text Cursor Protocol [complete]
(defgeneric stream-text-cursor (stream))
(defgeneric (setf stream-text-cursor) (cursor stream))
(defgeneric stream-cursor-position (stream))
;; (defgeneric (setf* stream-cursor-position) (x y stream)) unsure how to declare this, can somebody help? --GB
(defgeneric stream-set-cusor-position (stream x y)) ; This is actually in 19.3.1 in CLIM 2.2
(defgeneric stream-increment-cursor-position (stream dx dy))
;;; 15.4 Text Protocol [complete]
(defgeneric stream-character-width (stream character &key text-style))
(defgeneric stream-string-width (stream character &key start end text-style))
(defgeneric stream-text-margin (stream))
(defgeneric (setf stream-text-margin) (margin stream))
(defgeneric stream-line-height (stream &key text-style))
(defgeneric stream-vertical-spacing (stream))
(defgeneric stream-baseline (stream))
;;; 15.4.1 Mixing Text and Graphics [complete]
;; with-room-for-graphics (&optional stream &key (first-quadrant t) height (move-cursor t) record-type) &body body [Macro]
;;; 15.4.2 Wrapping of Text Lines [complete]
(defgeneric stream-end-of-line-action (stream))
(defgeneric (setf stream-end-of-line-action) (action stream))
;; with-end-of-line-action (stream action) &body body [Macro]
(defgeneric stream-end-of-page-action (stream))
(defgeneric (setf stream-end-of-page-action) (action stream))
;; with-end-of-page-action (stream action) &body body [Macro]
;;; 15.5 Attracting the User's Attention
(defgeneric beep (&optional medium))
;;; 15.6 Buffering of Output
(defgeneric medium-buffering-output-p (medium))
(defgeneric (setf medium-buffering-output-p) (buffer-p medium))
;;; 16.3.3 Text Displayed Output Record
(defgeneric add-character-output-to-text-record
(text-record character text-style width height baseline))
(defgeneric add-string-output-to-text-record
(text-record string start end text-style width height baseline))
(defgeneric text-displayed-output-record-string (text-record))
;;; 16.4.1. The Output Recording Stream Protocol
(defgeneric stream-recording-p (stream))
(defgeneric (setf stream-recording-p) (recording-p stream))
(defgeneric stream-drawing-p (stream))
(defgeneric (setf stream-drawing-p) (drawing-p stream))
(defgeneric stream-output-history (stream))
(defgeneric stream-current-output-record (stream))
(defgeneric (setf stream-current-output-record) (record stream))
(defgeneric stream-add-output-record (stream record))
(defgeneric stream-replay (stream &optional region))
(defgeneric erase-output-record (record stream &optional errorp))
;;; 16.4.3. Text Output Recording
(defgeneric stream-text-output-record (stream text-style))
(defgeneric stream-close-text-output-record (stream))
(defgeneric stream-add-character-output
(stream character text-style width height baseline))
(defgeneric stream-add-string-output
(stream string start end text-style width height baseline))
;;; 16.4.4 Output Recording Utilities [complete]
;; with-output-recording-options (stream &key record draw) &body body [Macro]
(defgeneric invoke-with-output-recording-options
(stream continuation record draw))
;;; with-new-output-record (stream &optional record-type record &rest initargs) &body body [Macro]
;;; The 'constructor' arg is absent from the CLIM 2.0 spec but is documented
;;; in the Allegro CLIM 2 User Guide and appears to exist in other 'classic'
;;; CLIM implementations. I'm assuming it's an omission from the spec.
(defgeneric invoke-with-new-output-record
(stream continuation record-type constructor &key &allow-other-keys))
;;; with-output-to-output-record (stream &optional record-type record &rest initargs)) &body body [Macro]
(defgeneric invoke-with-output-to-output-record
(stream continuation record-type constructor
&rest initargs &key &allow-other-keys))
(defgeneric make-design-from-output-record (record))
;;;; 21.2
(defgeneric invoke-updating-output
(stream continuation record-type unique-id id-test cache-value cache-test
&key fixed-position all-new parent-cache))
;;; 22.2.1 The Extended Stream Input Protocol
(defgeneric stream-input-buffer (stream))
(defgeneric (setf stream-input-buffer) (buffer stream))
;; (defgeneric (setf* stream-pointer-position))
(defgeneric stream-set-input-focus (stream))
(defgeneric stream-read-gesture
(stream &key timeout peek-p input-wait-test
input-wait-handler pointer-button-press-handler))
(defgeneric stream-input-wait (stream &key timeout input-wait-test))
(defgeneric stream-unread-gesture (stream gesture))
;;; 22.2.2 Extended Input Stream Conditions
(defgeneric abort-gesture-event (condition))
(defgeneric accelerator-gesture-event (condition))
(defgeneric accelerator-gesture-numeric-argument (condition))
;;; 23.5 Context-dependent (Typed) Input
(defgeneric stream-accept
(stream
type &key view default default-type provide-default insert-default
replace-input history active-p prompt prompt-mode display-default
query-identifier activation-gestures additional-activation-gestures
delimiter-gestures additional-delimiter-gestures))
(defgeneric prompt-for-accept (stream type view &rest accept-args &key))
;;; 24.1 The Input Editor
(defgeneric input-editor-format (stream format-string &rest args)
(:documentation "This function is like `format', except that it
is intended to be called on input editing streams. It arranges to
insert \"noise strings\" in the input editor's input
buffer. Programmers can use this to display in-line prompts in
`accept' methods.
If `stream' is a stream that is not an input editing stream, then
`input-editor-format' is equivalent to format."))
(defgeneric redraw-input-buffer (stream &optional start-from)
(:documentation "Displays the input editor's buffer starting at
the position `start-position' on the interactive stream that is
encapsulated by the input editing stream `stream'."))
;;; 24.1.1 The Input Editing Stream Protocol
(defgeneric stream-insertion-pointer (stream)
(:documentation "Returns an integer corresponding to the
current input position in the input editing stream `stream's
buffer, that is, the point in the buffer at which the next user
input gesture will be inserted. The insertion pointer will always
be less than (fill-pointer (stream-input-buffer stream)). The
insertion pointer can also be thought of as an editing cursor."))
(defgeneric (setf stream-insertion-pointer) (pointer stream)
(:documentation "Changes the input position of the input
editing stream `stream' to `pointer'. `Pointer' is an integer,
and must be less than (fill-pointer (stream-input-buffer stream))"))
(defgeneric stream-scan-pointer (stream)
(:documentation "Returns an integer corresponding to the
current scan pointer in the input editing stream `stream's
buffer, that is, the point in the buffer at which calls to
`accept' have stopped parsing input. The scan pointer will always
be less than or equal to (stream-insertion-pointer stream)."))
(defgeneric (setf stream-scan-pointer) (pointer stream)
(:documentation "Changes the scan pointer of the input editing
stream `stream' to `pointer'. `Pointer' is an integer, and must
be less than or equal to (stream-insertion-pointer stream)"))
(defgeneric stream-rescanning-p (stream)
(:documentation "Returns the state of the input editing stream
`stream's \"rescan in progress\" flag, which is true if stream is
performing a rescan operation, otherwise it is false. All
extended input streams must implement a method for this, but
non-input editing streams will always returns false."))
(defgeneric reset-scan-pointer (stream &optional scan-pointer)
(:documentation "Sets the input editing stream stream's scan
pointer to `scan-pointer', and sets the state of
`stream-rescanning-p' to true."))
(defgeneric immediate-rescan (stream)
(:documentation "Invokes a rescan operation immediately by
\"throwing\" out to the most recent invocation of
`with-input-editing'."))
(defgeneric queue-rescan (stream)
(:documentation "Indicates that a rescan operation on the input
editing stream `stream' should take place after the next
non-input editing gesture is read by setting the \"rescan
queued\" flag to true. "))
(defgeneric rescan-if-necessary (stream &optional inhibit-activation)
(:documentation "Invokes a rescan operation on the input
editing stream `stream' if `queue-rescan' was called on the same
stream and no intervening rescan operation has taken
place. Resets the state of the \"rescan queued\" flag to false.
If `inhibit-activation' is false, the input line will not be
activated even if there is an activation character in it."))
(defgeneric erase-input-buffer (stream &optional start-position)
(:documentation "Erases the part of the display that
corresponds to the input editor's buffer starting at the position
`start-position'."))
;;; McCLIM relies on a text editor class (by default
;;; DREI-INPUT-EDITING-MIXIN) to perform the user interaction and
;;; display for input editing. Also, that class must update the stream
;;; buffer and the insertion pointer, cause rescans to happen, and
;;; handle activation gestures.
(defgeneric stream-process-gesture (stream gesture type)
(:documentation "If gesture is an input editing command,
stream-process-gesture performs the input editing operation on
the input editing stream `stream' and returns NIL. Otherwise, it
returns the two values `gesture' and `type'."))
;;; 24.4 Reading and Writing of Tokens
(defgeneric replace-input
(stream new-input &key start end buffer-start rescan)
;; XXX: Nonstandard behavior for :rescan.
(:documentation "Replaces the part of the input editing stream
`stream's input buffer that extends from `buffer-start' to its
scan pointer with the string `new-input'. `buffer-start' defaults
to the current input position of stream, which is the position at
which the current accept \"session\" starts. `start' and `end' can be
supplied to specify a subsequence of `new-input'; start defaults to
0 and end defaults to the length of `new-input'.
`replace-input' will queue a rescan by calling `queue-rescan' if
the new input does not match the old input, or `rescan' is
true. If `rescan' is explicitly provided as NIL, no rescan will
be queued in any case.
The returned value is the position in the input buffer."))
(defgeneric presentation-replace-input
(stream object type view
&key buffer-start rescan query-identifier for-context-type)
(:documentation "Like `replace-input', except that the new
input to insert into the input buffer is gotten by presenting
`object' with the presentation type `type' and view
`view'. `buffer-start' and `rescan' are as for `replace-input',
and `query-identifier' and `for-context-type' as as for
`present'.
Typically, this function will be implemented by calling
`present-to-string' on `object', `type', `view', and
`for-context-type', and then calling `replace-input' on the
resulting string.
If the object cannot be transformed into an acceptable textual
form, it may be inserted as a special \"accept result\" that is
considered a single gesture. These accept result objects have no
standardised form."))
;;; 27.3 Command Menus
(defgeneric display-command-table-menu (command-table stream &key max-width
max-height n-rows n-columns x-spacing
y-spacing initial-spacing row-wise
cell-align-x cell-align-y move-cursor)
(:documentation "Display a menu of the commands accessible in
`command-table' to `stream'.
`max-width', `max-height', `n-rows', `n-columns', `x-spacing',
`y-spacing', `row-wise', `initial-spacing', `cell-align-x',
`cell-align-y', and `move-cursor' are as for
`formatting-item-list'."))
;;; 28.2 Specifying the Panes of a Frame
(defgeneric destroy-frame (frame))
(defgeneric raise-frame (frame))
(defgeneric bury-frame (frame))
;;; 28.3 Application Frame Functions
(defgeneric frame-name (frame))
(defgeneric frame-pretty-name (frame))
(defgeneric (setf frame-pretty-name) (name frame))
(defgeneric frame-command-table (frame))
(defgeneric (setf frame-command-table) (command-table frame))
(defgeneric frame-standard-output (frame))
(defgeneric frame-standard-input (frame))
(defgeneric frame-query-io (frame))
(defgeneric frame-error-output (frame))
(defgeneric frame-pointer-documentation-output (frame))
(defgeneric frame-calling-frame (frame))
(defgeneric frame-parent (frame))
(defgeneric frame-panes (frame))
(defgeneric frame-top-level-sheet (frame))
(defgeneric frame-current-panes (frame))
(defgeneric get-frame-pane (frame pane-name))
(defgeneric fine-pane-named (frame pane-name))
(defgeneric frame-current-layout (frame))
(defgeneric (setf frame-current-layout) (layout frame))
(defgeneric frame-all-layouts (frame))
(defgeneric layout-frame (frame &optional width height))
(defgeneric frame-exit-frame (condition))
(defgeneric frame-exit (frame))
(defgeneric pane-needs-redisplay (pane))
(defgeneric (setf pane-needs-redisplay) (value pane))
(defgeneric redisplay-frame-pane (frame pane &key force-p))
(defgeneric redisplay-frame-panes (frame &key force-p))
(defgeneric frame-replay (frame stream &optional region))
(defgeneric notify-user (frame message &key associated-window title
documentation exit-boxes name style text-style))
(defgeneric frame-properties (frame property))
(defgeneric (setf frame-properties) (value frame property))
;;; 28.3.1 Interface with Presentation Types
(defgeneric frame-maintain-presentation-histories (frame))
(defgeneric frame-find-innermost-applicable-presentation
(frame input-context stream x y &key event))
(defgeneric frame-input-context-button-press-handler
(frame stream button-prees-event))
(defgeneric frame-document-highlighted-presentation
(frame presentation input-context window-context x y stream))
(defgeneric frame-drag-and-drop-feedback
(frame presentation stream initial-x initial-y new-x new-y state))
(defgeneric frame-drag-and-drop-highlighting
(frame presentation stream state))
;;;; 28.4
(defgeneric default-frame-top-level
(frame &key command-parser command-unparser partial-command-parser prompt))
(defgeneric read-frame-command (frame &key stream))
(defgeneric run-frame-top-level (frame &key &allow-other-keys))
(defgeneric command-enabled (command-name frame))
(defgeneric (setf command-name) (enabled command-name frame))
(defgeneric display-command-menu (frame stream &key command-table
initial-spacing row-wise max-width
max-height n-rows n-columns
cell-align-x cell-align-y)
(:documentation "Display the command table associated with
`command-table' on `stream' by calling
`display-command-table-menu'. If no command table is
provided, (frame-command-table frame) will be used.
The arguments `initial-spacing', `row-wise',
`max-width', `max-height', `n-rows', `n-columns', `cell-align-x',
and `cell-align-y' are as for `formatting-item-list'."))
;;;; 28.5.2 Frame Manager Operations
(defgeneric frame-manager (frame))
(defgeneric (setf frame-manager) (frame-manager frame))
(defgeneric frame-manager-frames (frame-manager))
(defgeneric adopt-frame (frame-manager frame))
(defgeneric disown-frame (frame-manager frame))
(defgeneric frame-state (frame))
(defgeneric enable-frame (frame))
(defgeneric disable-frame (frame))
(defgeneric shrink-frame (frame))
(defgeneric note-frame-enabled (frame-manager frame))
(defgeneric note-frame-disabled (frame-manager frame))
(defgeneric note-frame-iconified (frame-manager frame))
(defgeneric note-frame-deiconified (frame-manager frame))
(defgeneric note-command-enabled (frame-manager frame command-name))
(defgeneric note-command-disabled (frame-manager frame command-name))
(defgeneric frame-manager-notify-user
(framem message-string &key frame associated-window title
documentation exit-boxes name style text-style))
(defgeneric generate-panes (frame-manager frame))
(defgeneric find-pane-for-frame (frame-manager frame))
;;; 28.5.3 Frame Manager Settings
(defgeneric (setf client-setting) (value frame setting))
(defgeneric reset-frame (frame &rest client-settings))
;;;; 29.2
;;;;
;;;; FIXME: should we have &key &allow-other-keys here, to cause
;;;; initarg checking? Probably.
(defgeneric make-pane-1 (realizer frame abstract-class-name &rest initargs))
;;;; 29.2.2 Pane Properties
(defgeneric pane-frame (pane))
(defgeneric pane-name (pane))
(defgeneric pane-foreground (pane))
(defgeneric pane-background (pane))
(defgeneric pane-text-style (pane))
;;;; 29.3.3 Scroller Pane Classes
(defgeneric pane-viewport (pane))
(defgeneric pane-viewport-region (pane))
(defgeneric pane-scroller (pane))
(defgeneric scroll-extent (pane x y))
(deftype scroll-bar-spec () '(member t :both :vertical :horizontal nil))
;;;; 29.3.4 The Layout Protocol
;; (define-protocol-class space-requirement ())
;; make-space-requirement &key (width 0) (max-width 0) (min-width 0) (height 0) (max-height 0) (min-height 0) [Function]
(defgeneric space-requirement-width (space-req))
(defgeneric space-requirement-min-width (space-req))
(defgeneric space-requirement-max-width (space-req))
(defgeneric space-requirement-height (space-req))
(defgeneric space-requirement-min-height (space-req))
(defgeneric space-requirement-max-height (space-req))
(defgeneric space-requirement-components (space-req))
;; space-requirement-combine function sr1 sr2 [Function]
;; space-requirement+ sr1 sr2 [Function]
;; space-requirement+* space-req &key width min-width max-width height min-height max-height [Function]
(defgeneric compose-space (pane &key width height)
(:documentation "During the space composition pass, a composite pane will
typically ask each of its children how much space it requires by calling COMPOSE-SPACE.
They answer by returning space-requirement objects. The composite will then form
its own space requirement by composing the space requirements of its children
according to its own rules for laying out its children.
Returns a SPACE-REQUIREMENT object."))
(defgeneric allocate-space (pane width height))
(defgeneric change-space-requirements
(pane &rest space-req-keys &key resize-frame width height
min-width min-height max-width max-height))
(defgeneric note-space-requirements-changed (sheet pane))
;; changing-space-requirements (&key resize-frame layout) &body body [Macro]
;;;; 29.4.4 CLIM Stream Pane Functions
(defgeneric window-clear (window))
(defgeneric window-refresh (window))
(defgeneric window-viewport (window))
(defgeneric window-erase-viewport (window))
(defgeneric window-viewport-position (window))
;; (defgeneric (setf* window-viewport-position) (x y window))
;;; D.2 Basic Stream Functions
;;; Gray Streamoid functions, but not part of any Gray proposal.
(defgeneric stream-pathname (stream))
(defgeneric stream-truename (stream))
;;;;
(defgeneric gadget-value (gadget))
(defgeneric (setf gadget-value) (new-value gadget &key invoke-callback))
(defgeneric gadget-min-value (gadget))
(defgeneric gadget-max-value (gadget))
(defgeneric (setf gadget-max-value) (new-value gadget))
(defgeneric (setf gadget-min-value) (new-value gadget))
(defgeneric (setf scroll-bar-thumb-size) (new-value scroll-bar))
(defgeneric gadget-orientation (gadget))
(defgeneric gadget-client (gadget))
;;;
(defgeneric text-style-mapping (port text-style &optional character-set))
(defgeneric (setf text-style-mapping)
(mapping port text-style &optional character-set))
(defgeneric medium-miter-limit (medium)
(:documentation
"If LINE-STYLE-JOINT-SHAPE is :MITER and the angle between two
consequent lines is less than the values return by
MEDIUM-MITER-LIMIT, :BEVEL is used instead."))
(defgeneric line-style-effective-thickness (line-style medium)
(:documentation
"Returns the thickness in device units of a line,
rendered on MEDIUM with the style LINE-STYLE."))
;;;
(defgeneric text-style-character-width (text-style medium char))
;; fall back, where to put this?
(defmethod text-style-character-width (text-style medium char)
(text-size medium char :text-style text-style))
(declfun draw-rectangle (sheet point1 point2
&rest args
&key (filled t)
ink clipping-region transformation line-style line-thickness
line-unit line-dashes line-joint-shape))
(declfun draw-rectangle* (sheet x1 y1 x2 y2
&rest args
&key (filled t)
ink clipping-region transformation line-style line-thickness
line-unit line-dashes line-joint-shape))
;;; "exported" from a port
(defgeneric mirror-transformation (port mirror))
(defgeneric port-set-sheet-region (port sheet region))
(defgeneric port-set-sheet-transformation (port sheet region))
(defgeneric port-text-style-mappings (port))
(defgeneric port-lookup-mirror (port sheet))
(defgeneric port-register-mirror (port sheet mirror))
(defgeneric port-allocate-pixmap (port sheet width height))
(defgeneric port-deallocate-pixmap (port pixmap))
(defgeneric port-mirror-width (port sheet))
(defgeneric port-mirror-height (port sheet))
(defgeneric port-enable-sheet (port sheet))
(defgeneric port-disable-sheet (port sheet))
(defgeneric port-pointer (port))
(defgeneric pointer-update-state (pointer event)
(:documentation "Called by port event dispatching code to update the modifier
and button states of the pointer."))
;;;
;; Used in stream-input.lisp, defined in frames.lisp
(defgeneric frame-event-queue (frame))
;;; Used in presentations.lisp, defined in commands.lisp
(defgeneric presentation-translators (command-table))
(defgeneric stream-default-view (stream))
;;; ----------------------------------------------------------------------
(defgeneric output-record-basline (record)
(:documentation
"Returns two values: the baseline of an output record and a boolean
indicating if this baseline is definitive. McCLIM addition."))
(defgeneric encapsulating-stream-stream (encapsulating-stream)
(:documentation "The stream encapsulated by an encapsulating stream"))
#||
Further undeclared functions
FRAME-EVENT-QUEUE FRAME-EXIT PANE-FRAME
ALLOCATE-SPACE COMPOSE-SPACE FIND-INNERMOST-APPLICABLE-PRESENTATION
HIGHLIGHT-PRESENTATION-1 PANE-DISPLAY-FUNCTION PANE-DISPLAY-TIME PANE-NAME
PRESENTATION-OBJECT PRESENTATION-TYPE SPACE-REQUIREMENT-HEIGHT
SPACE-REQUIREMENT-WIDTH THROW-HIGHLIGHTED-PRESENTATION WINDOW-CLEAR
(SETF GADGET-MAX-VALUE) (SETF GADGET-MIN-VALUE) (SETF SCROLL-BAR-THUMB-SIZE)
SLOT-ACCESSOR-NAME::|CLIM-INTERNALS CLIENT slot READER| DRAW-EDGES-LINES*
FORMAT-CHILDREN GADGET-VALUE MAKE-MENU-BAR TABLE-PANE-NUMBER
MEDIUM WITH-GRAPHICS-STATE
PORT-MIRROR-HEIGHT PORT-MIRROR-WIDTH TEXT-STYLE-CHARACTER-WIDTH
FIND-INNERMOST-APPLICABLE-PRESENTATION HIGHLIGHT-PRESENTATION-1
PRESENTATION-OBJECT PRESENTATION-TYPE THROW-HIGHLIGHTED-PRESENTATION
FORMAT-CHILDREN TABLE-PANE-NUMBER TEXT-STYLE-CHARACTER-WIDTH
PORT-MIRROR-HEIGHT PORT-MIRROR-WIDTH SCROLL-EXTENT TEXT-STYLE-CHARACTER-WIDTH
FRAME-EVENT-QUEUE FRAME-EXIT PANE-FRAME
ALLOCATE-SPACE COMPOSE-SPACE FIND-INNERMOST-APPLICABLE-PRESENTATION