/[mcclim]/mcclim/decls.lisp
ViewVC logotype

Contents of /mcclim/decls.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.38 - (hide annotations)
Thu Mar 30 20:31:06 2006 UTC (8 years ago) by afuchs
Branch: MAIN
Changes since 1.37: +2 -2 lines
Fix invoke-with-new-output-record and
invoke-with-output-to-output-record's arg lists to conform to the
Franz User Guide, as noted in recording.lisp.
1 gilbert 1.1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLIM-INTERNALS; -*-
2     ;;; ---------------------------------------------------------------------------
3     ;;; Title: DEFGENERICs and stuff
4     ;;; Created: 2001-08-12
5     ;;; Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
6     ;;; License: LGPL (See file COPYING for details).
7     ;;; ---------------------------------------------------------------------------
8 gilbert 1.5 ;;; (c) copyright 2001,2002 by Gilbert Baumann
9 gilbert 1.1
10     ;;; This library is free software; you can redistribute it and/or
11     ;;; modify it under the terms of the GNU Library General Public
12     ;;; License as published by the Free Software Foundation; either
13     ;;; version 2 of the License, or (at your option) any later version.
14     ;;;
15     ;;; This library is distributed in the hope that it will be useful,
16     ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17     ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18     ;;; Library General Public License for more details.
19     ;;;
20     ;;; You should have received a copy of the GNU Library General Public
21 adejneka 1.11 ;;; License along with this library; if not, write to the
22     ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 gilbert 1.1 ;;; Boston, MA 02111-1307 USA.
24    
25 mikemac 1.25 (in-package :clim-internals)
26 gilbert 1.1
27 moore 1.28 ;;; This is just an ad hoc list. Would it be a good idea to include all
28     ;;; (exported) generic functions here? --GB
29     ;;;
30     ;;; YES! -- CSR
31 tmoore 1.32 ;;; We'll get right on it :) -- moore
32     ;;; Whose numbers are we using here?
33    
34 gbaumann 1.33 ;;; The numbers are section numbers from the spec. --GB
35    
36     ;; Since the declaim form for functions looks clumsy and is
37     ;; syntax-wise different from defun, we define us a new declfun, which
38     ;; fixes this.
39    
40     (defmacro declfun (name lambda-list)
41     `(declaim (ftype (function
42     ,(let ((q lambda-list)
43     res)
44     (do () ((or (null q)
45     (member (car q) '(&optional &rest &key))))
46     (push 't res)
47     (pop q))
48     (when (eq (car q) '&optional)
49     (push '&optional res)
50     (pop q)
51     (do () ((or (null q)
52     (member (car q) '(&rest &key))))
53     (pop q)
54     (push 't res)))
55     (when (eq (car q) '&rest)
56     (push '&rest res)
57     (pop q)
58     (push 't res)
59     (pop q))
60     (when (eq (car q) '&key)
61     (push '&key res)
62     (pop q)
63     (do () ((or (null q)
64     (member (car q) '(&allow-other-keys))))
65     (push (list (intern (string (if (consp (car q))
66     (if (consp (caar q))
67     (caaar q)
68     (caar q))
69     (car q)))
70     :keyword)
71     't)
72     res)
73     (pop q)))
74     (when (eq (car q) '&allow-other-keys)
75     (push '&allow-other-keys res)
76     (pop q))
77     (reverse res))
78     t)
79     ,name)))
80    
81     ;;;; Early special variables
82    
83     (defvar *application-frame* nil)
84    
85 tmoore 1.32 ;;; 3.2.1
86 gilbert 1.1 (defgeneric point-x (point))
87     (defgeneric point-y (point))
88 tmoore 1.32
89     ;;; 3.2.4.1
90    
91     (defgeneric rectangle-edges* (rectangle))
92     (defgeneric rectangle-min-point (rectangle))
93     (defgeneric rectangle-max-point (rectangle))
94     (defgeneric rectangle-min-x (rectangle))
95     (defgeneric rectangle-min-y (rectangle))
96     (defgeneric rectangle-max-x (rectangle))
97     (defgeneric rectangle-max-y (rectangle))
98     (defgeneric rectangle-width (rectangle))
99     (defgeneric rectangle-height (rectangle))
100     (defgeneric rectangle-size (rectangle))
101    
102 gbaumann 1.33 ;;; 5.3.2 Composition of Transformations
103    
104     (defgeneric compose-transformations (transformation1 transformation2))
105     (defgeneric invert-transformation (transformation))
106     (declfun compose-translation-with-transformation (transformation dx dy))
107     (declfun compose-scaling-with-transformation (transformation sx sy &optional origin))
108     (declfun compose-rotation-with-transformation (transformation angle &optional origin))
109     (declfun compose-transformation-with-translation (transformation dx dy))
110     (declfun compose-transformation-with-scaling (transformation sx sy &optional origin))
111     (declfun compose-transformation-with-rotation (transformation angle &optional origin))
112    
113     ;;; 5.3.3 Applying Transformations
114    
115     (defgeneric transform-region (transformation region))
116     (defgeneric untransform-region (transformation region))
117     (defgeneric transform-position (transformation x y))
118     (defgeneric untransform-position (transformation x y))
119     (defgeneric transform-distance (transformation dx dy))
120     (defgeneric untransform-distance (transformation dx dy))
121     (defgeneric transform-rectangle* (transformation x1 y1 x2 y2))
122     (defgeneric untransform-rectangle* (transformation x1 y1 x2 y2))
123    
124     ;;; 7.3.1 Sheet Geometry Functions [complete]
125    
126     (defgeneric sheet-transformation (sheet))
127     (defgeneric (setf sheet-transformation) (transformation sheet))
128     (defgeneric sheet-region (sheet))
129     (defgeneric (setf sheet-region) (region sheet))
130     (defgeneric move-sheet (sheet x y))
131     (defgeneric resize-sheet (sheet width height))
132     (defgeneric move-and-resize-sheet (sheet x y width height))
133     (defgeneric map-sheet-position-to-parent (sheet x y))
134     (defgeneric map-sheet-position-to-child (sheet x y))
135     (defgeneric map-sheet-rectangle*-to-parent (sheet x1 y1 x2 y2))
136     (defgeneric map-sheet-rectangle*-to-child (sheet x1 y1 x2 y2))
137     (defgeneric map-over-sheets-containing-position (function sheet x y))
138     (defgeneric map-over-sheets-overlapping-region (function sheet region))
139     (defgeneric child-containing-position (sheet x y))
140     (defgeneric children-overlapping-region (sheet region))
141     (defgeneric children-overlapping-rectangle* (sheet x1 y1 x2 y2))
142     (defgeneric sheet-delta-transformation (sheet ancestor))
143     (defgeneric sheet-allocated-region (sheet child))
144    
145     ;;; 7.3.2
146    
147     ;; sheet-identity-transformation-mixin [class]
148     ;; sheet-translation-mixin [class]
149     ;; sheet-y-inverting-transformation-mixin [class]
150     ;; sheet-transformation-mixin [class]
151    
152 moore 1.28 ;;;; 8.1
153     (defgeneric process-next-event (port &key wait-function timeout))
154    
155 tmoore 1.36 ;;; 8.2 Standard Device Events
156    
157     (defgeneric event-timestamp (event))
158    
159 gilbert 1.5 ;;;; 8.3.4 Associating a Medium with a Sheet
160    
161     ;;;; 8.3.4.1 Grafting and Degrafting of Mediums
162    
163     ;; with-sheet-medium (medium sheet) &body body [Macro]
164     ;; with-sheet-medium-bound (sheet medium) &body body [Macro]
165    
166 adejneka 1.11 (defgeneric sheet-medium (sheet))
167     (defgeneric medium-sheet (medium))
168     (defgeneric medium-drawable (medium))
169 gilbert 1.5 (defgeneric port (medium))
170    
171 gbaumann 1.33 ;;; 8.3.4.1 Grafting and Degrafting of Mediums
172 gilbert 1.2
173     (defgeneric allocate-medium (port sheet))
174     (defgeneric deallocate-medium (port medium))
175     (defgeneric make-medium (port sheet))
176     (defgeneric engraft-medium (medium port sheet))
177     (defgeneric degraft-medium (medium port sheet))
178    
179 gbaumann 1.33 ;;; 8.4.1 Repaint Protocol Functions
180 gilbert 1.2
181     (defgeneric queue-repaint (sheet repaint-event))
182     (defgeneric handle-repaint (sheet region))
183     (defgeneric repaint-sheet (sheet region))
184    
185 gbaumann 1.33 ;;;; 9 Ports, Grafts, and Mirrored Sheets
186 gilbert 1.2
187     ;; (defgeneric portp (object))
188     ;; find-port function
189    
190 gbaumann 1.33 ;;; 9.3 Grafts
191    
192     (defgeneric sheet-grafted-p (sheet))
193     (declfun find-graft (&key (server-path *default-server-path*)
194     (port (find-port :server-path server-path))
195     (orientation :default)
196     (units :device)))
197     (defgeneric graft (object))
198     (declfun map-over-grafts (function port))
199     ;; with-graft-locked (graft) &body body [macro]
200     (defgeneric graft-orientation (graft))
201     (defgeneric graft-units (graft))
202     (defgeneric graft-width (graft &key units))
203     (defgeneric graft-height (graft &key units))
204     (declfun graft-pixels-per-millimeter (graft))
205     (declfun graft-pixels-per-inch (graft))
206    
207 gilbert 1.2 ;; 9.4.1 Mirror Functions
208    
209     (defgeneric sheet-direct-mirror (sheet))
210     (defgeneric sheet-mirrored-ancestor (sheet))
211     (defgeneric sheet-mirror (sheet))
212     (defgeneric realize-mirror (port mirrored-sheet))
213     (defgeneric destroy-mirror (port mirrored-sheet))
214     (defgeneric raise-mirror (port sheet))
215     (defgeneric bury-mirror (port sheet))
216    
217     ;; 9.4.2 Internal Interfaces for Native Coordinates
218    
219     (defgeneric sheet-native-transformation (sheet))
220     (defgeneric sheet-native-region (sheet))
221     (defgeneric sheet-device-transformation (sheet))
222     (defgeneric sheet-device-region (sheet))
223     (defgeneric invalidate-cached-transformations (sheet))
224     (defgeneric invalidate-cached-regions (sheet))
225    
226     ;;; Graphics ops
227    
228     (defgeneric medium-draw-point* (medium x y))
229     (defgeneric medium-draw-points* (medium coord-seq))
230     (defgeneric medium-draw-line* (medium x1 y1 x2 y2))
231     (defgeneric medium-draw-lines* (medium coord-seq))
232     (defgeneric medium-draw-polygon* (medium coord-seq closed filled))
233     (defgeneric medium-draw-rectangle* (medium left top right bottom filled))
234     (defgeneric medium-draw-ellipse* (medium center-x center-y
235     radius-1-dx radius-1-dy radius-2-dx radius-2-dy
236     start-angle end-angle filled))
237 brian 1.4 (defgeneric medium-draw-circle* (medium center-x center-y radius start-angle end-angle filled))
238 gilbert 1.2 (defgeneric medium-draw-text* (medium string x y
239     start end
240     align-x align-y
241     toward-x toward-y transform-glyphs))
242 moore 1.28
243     ;;;; 10.2
244     (defgeneric invoke-with-drawing-options
245     (medium continuation &rest drawing-options &key &allow-other-keys))
246    
247 tmoore 1.31 ;;;; 10.2.1
248     (defgeneric invoke-with-identity-transformation (medium continuation))
249    
250     ;;;; 10.2.2
251     (defgeneric invoke-with-local-coordinates (medium continuation x y))
252    
253     (defgeneric invoke-with-first-quadrant-coordinates (medium continuation x y))
254 moore 1.28
255     ;;;; 14.5
256     (defgeneric draw-design
257     (medium design
258     &key ink clipping-region transformation line-style line-thickness
259     line-unit line-dashes line-joint-shape line-cap-shape text-style
260     text-family text-face text-size))
261    
262 gbaumann 1.33 ;;; 15.3 The Text Cursor [complete]
263    
264     ;;; 15.3.1 Text Cursor Protocol [complete]
265    
266     ;; cursor [protocol class]
267     ;; cursorp object [protocol predicate]
268     ;; :sheet [Initarg for cursor]
269     ;; standard-text-cursor [class]
270     (defgeneric cursor-sheet (cursor))
271     (defgeneric cursor-position (cursor))
272     ;;(defgeneric (setf* cursor-position) (x y cursor))
273     (defgeneric cursor-active (cursor))
274     (defgeneric (setf cursor-active) (value cursor))
275     (defgeneric cursor-state (cursor))
276     (defgeneric (setf cursor-state) (value cursor))
277     (defgeneric cursor-focus (cursor))
278     (defgeneric cursor-visibility (cursor))
279     (defgeneric (setf cursor-visibility) (visibility cursor))
280    
281     ;;; 15.3.2 Stream Text Cursor Protocol [complete]
282    
283     (defgeneric stream-text-cursor (stream))
284     (defgeneric (setf stream-text-cursor) (cursor stream))
285     (defgeneric stream-cursor-position (stream))
286     ;; (defgeneric (setf* stream-cursor-position) (x y stream)) unsure how to declare this, can somebody help? --GB
287     (defgeneric stream-increment-cursor-position (stream dx dy))
288    
289     ;;; 15.4 Text Protocol [complete]
290    
291     (defgeneric stream-character-width (stream character &key text-style))
292     (defgeneric stream-string-width (stream character &key start end text-style))
293     (defgeneric stream-text-margin (stream))
294     (defgeneric (setf stream-text-margin) (margin stream))
295     (defgeneric stream-line-height (stream &key text-style))
296     (defgeneric stream-vertical-spacing (stream))
297     (defgeneric stream-baseline (stream))
298    
299     ;;; 15.4.1 Mixing Text and Graphics [complete]
300    
301     ;; with-room-for-graphics (&optional stream &key (first-quadrant t) height (move-cursor t) record-type) &body body [Macro]
302    
303     ;;; 15.4.2 Wrapping of Text Lines [complete]
304    
305     (defgeneric stream-end-of-line-action (stream))
306     (defgeneric (setf stream-end-of-line-action) (action stream))
307     ;; with-end-of-line-action (stream action) &body body [Macro]
308     (defgeneric stream-end-of-page-action (stream))
309     (defgeneric (setf stream-end-of-page-action) (action stream))
310     ;; with-end-of-page-action (stream action) &body body [Macro]
311    
312     ;;; 16.4.3 Text Output Recording [complete]
313    
314     (defgeneric stream-text-output-record (stream text-style))
315     (defgeneric stream-close-text-output-record (stream))
316     (defgeneric stream-add-character-output (stream character text-style width height baseline))
317     (defgeneric stream-add-string-output (stream string start end text-style width height baseline))
318    
319     ;;; 16.4.4 Output Recording Utilities [complete]
320    
321     ;; with-output-recording-options (stream &key record draw) &body body [Macro]
322     (defgeneric invoke-with-output-recording-options (stream continuation record draw))
323     ;; with-new-output-record (stream &optional record-type record &rest initargs) &body body [MAcro]
324 afuchs 1.38 (defgeneric invoke-with-new-output-record (stream continuation record-type constructor &key &allow-other-keys))
325 gbaumann 1.33 ;; with-output-to-output-record (stream &optional record-type record &rest initargs)) &body body [Macro]
326 afuchs 1.38 (defgeneric invoke-with-output-to-output-record (stream continuation record-type constructor &rest initargs &key &allow-other-keys))
327 gbaumann 1.33 (defgeneric make-design-from-output-record (record))
328    
329 moore 1.28 ;;;; 21.2
330     (defgeneric invoke-updating-output
331     (stream continuation record-type unique-id id-test cache-value cache-test
332 rstrandh 1.30 &key fixed-position all-new parent-cache))
333 moore 1.28
334     ;;;; 24.4
335     (defgeneric presentation-replace-input
336     (stream object type view
337     &key buffer-start rescan query-identifier for-context-type))
338    
339     ;;;; 28.3
340     (defgeneric frame-find-innermost-applicable-presentation
341     (frame input-context stream x y &key event))
342    
343     ;;;; 28.4
344     (defgeneric default-frame-top-level
345     (frame &key command-parser command-unparser partial-command-parser prompt))
346     (defgeneric read-frame-command (frame &key stream))
347     (defgeneric run-frame-top-level (frame &key &allow-other-keys))
348 moore 1.29 (defgeneric command-enabled (command-name frame))
349     (defgeneric (setf command-name) (enabled command-name frame))
350    
351     ;;;; 28.5
352     (defgeneric note-command-enabled (frame-manager frame command-name))
353     (defgeneric note-command-disabled (frame-manager frame command-name))
354 moore 1.28
355     ;;;; 29.2
356     ;;;;
357     ;;;; FIXME: should we have &key &allow-other-keys here, to cause
358     ;;;; initarg checking? Probably.
359     (defgeneric make-pane-1 (realizer frame abstract-class-name &rest initargs))
360 gilbert 1.2
361 gilbert 1.5 ;;;; 29.2.2 Pane Properties
362    
363     (defgeneric pane-frame (pane))
364     (defgeneric pane-name (pane))
365     (defgeneric pane-foreground (pane))
366     (defgeneric pane-background (pane))
367     (defgeneric pane-text-style (pane))
368    
369     ;;;; 29.3.3 Scroller Pane Classes
370    
371     (defgeneric pane-viewport (pane))
372     (defgeneric pane-viewport-region (pane))
373     (defgeneric pane-scroller (pane))
374     (defgeneric scroll-extent (pane x y))
375    
376 gilbert 1.6 ;;;; 29.3.4 The Layout Protocol
377    
378     ;; (define-protocol-class space-requirement ())
379    
380     ;; make-space-requirement &key (width 0) (max-width 0) (min-width 0) (height 0) (max-height 0) (min-height 0) [Function]
381    
382     (defgeneric space-requirement-width (space-req))
383     (defgeneric space-requirement-min-width (space-req))
384     (defgeneric space-requirement-max-width (space-req))
385     (defgeneric space-requirement-height (space-req))
386     (defgeneric space-requirement-min-height (space-req))
387     (defgeneric space-requirement-max-height (space-req))
388     (defgeneric space-requirement-components (space-req))
389    
390     ;; space-requirement-combine function sr1 sr2 [Function]
391     ;; space-requirement+ sr1 sr2 [Function]
392     ;; space-requirement+* space-req &key width min-width max-width height min-height max-height [Function]
393    
394 rgoldman 1.34 (defgeneric compose-space (pane &key width height)
395     (:documentation "During the space composition pass, a composite pane will
396     typically ask each of its children how much space it requires by calling COMPOSE-SPACE.
397     They answer by returning space-requirement objects. The composite will then form
398     its own space requirement by composing the space requirements of its children
399     according to its own rules for laying out its children.
400    
401     Returns a SPACE-REQUIREMENT object."))
402 gilbert 1.6 (defgeneric allocate-space (pane width height))
403 adejneka 1.11 (defgeneric change-space-requirements
404 hefner1 1.27 (pane &rest space-req-keys &key resize-frame width height
405     min-width min-height max-width max-height))
406 gilbert 1.6 (defgeneric note-space-requirements-changed (sheet pane))
407     ;; changing-space-requirements (&key resize-frame layout) &body body [Macro]
408    
409     ;;;; 29.4.4 CLIM Stream Pane Functions
410    
411     (defgeneric window-clear (window))
412     (defgeneric window-refresh (window))
413     (defgeneric window-viewport (window))
414     (defgeneric window-erase-viewport (window))
415     (defgeneric window-viewport-position (window))
416     ;; (defgeneric (setf* window-viewport-position) (x y window))
417    
418 gilbert 1.8 ;;;;
419 gilbert 1.23 (defgeneric gadget-value (gadget))
420     (defgeneric (setf gadget-value) (new-value gadget &key invoke-callback))
421     (defgeneric gadget-min-value (gadget))
422     (defgeneric gadget-max-value (gadget))
423 gilbert 1.8 (defgeneric (setf gadget-max-value) (new-value gadget))
424     (defgeneric (setf gadget-min-value) (new-value gadget))
425     (defgeneric (setf scroll-bar-thumb-size) (new-value scroll-bar))
426     (defgeneric gadget-orientation (gadget))
427     (defgeneric gadget-client (gadget))
428    
429 gilbert 1.2 ;;;
430    
431     (defgeneric medium-foreground (medium))
432     (defgeneric medium-background (medium))
433     (defgeneric medium-ink (medium))
434     (defgeneric medium-transformation (medium))
435     (defgeneric medium-clipping-region (medium))
436     (defgeneric medium-line-style (medium))
437     (defgeneric medium-text-style (medium))
438     (defgeneric medium-default-text-style (medium))
439 adejneka 1.14 (defgeneric text-size (medium string &key text-style start end)
440     (:documentation
441     "Computes the \"cursor motion\" in device units that would take
442     place if STRING were output to MEDIUM starting at position (0,0).
443    
444     Returns total width, total height, final x cursor position, final y
445     cursor position, baseline."))
446 gilbert 1.2
447 adejneka 1.16 (defgeneric text-style-mapping (port text-style &optional character-set))
448    
449 gilbert 1.2 (defgeneric (setf medium-foreground) (new-value medium))
450     (defgeneric (setf medium-background) (new-value medium))
451     (defgeneric (setf medium-ink) (new-value medium))
452     (defgeneric (setf medium-transformation) (new-value medium))
453     (defgeneric (setf medium-clipping-region) (new-value medium))
454     (defgeneric (setf medium-line-style) (new-value medium))
455     (defgeneric (setf medium-text-style) (new-value medium))
456     (defgeneric (setf medium-default-text-style) (new-value medium))
457    
458 adejneka 1.16 (defgeneric (setf text-style-mapping)
459     (mapping port text-style &optional character-set))
460 adejneka 1.19 (defgeneric medium-miter-limit (medium)
461     (:documentation
462     "If LINE-STYLE-JOINT-SHAPE is :MITER and the angle between two
463     consequent lines is less than the values return by
464     MEDIUM-MITER-LIMIT, :BEVEL is used instead."))
465 adejneka 1.15 (defgeneric line-style-effective-thickness (line-style medium)
466     (:documentation
467     "Returns the thickness in device units of a line,
468     rendered on MEDIUM with the style LINE-STYLE."))
469    
470 gilbert 1.5 ;;;
471    
472     (defgeneric text-style-character-width (text-style medium char))
473 adejneka 1.13 ;; fall back, where to put this?
474     (defmethod text-style-character-width (text-style medium char)
475     (text-size medium char :text-style text-style))
476 gilbert 1.23
477     (declfun draw-rectangle (sheet point1 point2
478     &rest args
479     &key (filled t)
480     ink clipping-region transformation line-style line-thickness
481     line-unit line-dashes line-joint-shape))
482    
483     (declfun draw-rectangle* (sheet x1 y1 x2 y2
484     &rest args
485     &key (filled t)
486     ink clipping-region transformation line-style line-thickness
487     line-unit line-dashes line-joint-shape))
488 gilbert 1.5
489     ;;; "exported" from a port
490    
491     (defgeneric mirror-transformation (port mirror))
492     (defgeneric port-set-sheet-region (port sheet region))
493     (defgeneric port-set-sheet-transformation (port sheet region))
494 adejneka 1.17 (defgeneric port-text-style-mappings (port))
495 gilbert 1.5 (defgeneric port-lookup-mirror (port sheet))
496     (defgeneric port-register-mirror (port sheet mirror))
497     (defgeneric port-allocate-pixmap (port sheet width height))
498     (defgeneric port-deallocate-pixmap (port pixmap))
499     (defgeneric port-mirror-width (port sheet))
500     (defgeneric port-mirror-height (port sheet))
501 gilbert 1.7 (defgeneric port-enable-sheet (port sheet))
502     (defgeneric port-disable-sheet (port sheet))
503 moore 1.22 (defgeneric port-pointer (port))
504 gilbert 1.2
505 tmoore 1.37 (defgeneric pointer-update-state (pointer event)
506     (:documentation "Called by port event dispatching code to update the modifier
507     and button states of the pointer."))
508    
509 gilbert 1.1 ;;;
510    
511 gilbert 1.8 ;; Used in stream-input.lisp, defined in frames.lisp
512     (defgeneric frame-event-queue (frame))
513 gilbert 1.1
514 moore 1.10 ;;; Used in presentations.lisp, defined in commands.lisp
515    
516     (defgeneric presentation-translators (command-table))
517 gilbert 1.1
518 adejneka 1.21 (defgeneric stream-default-view (stream))
519 adejneka 1.20
520 gilbert 1.26 ;;; ----------------------------------------------------------------------
521    
522     (defgeneric output-record-basline (record)
523     (:documentation
524     "Returns two values: the baseline of an output record and a boolean
525     indicating if this baseline is definitive. McCLIM addition."))
526    
527 tmoore 1.36 (defgeneric encapsulating-stream-stream (encapsulating-stream)
528     (:documentation "The stream encapsulated by an encapsulating stream"))
529    
530 gilbert 1.5 #||
531    
532     Further undeclared functions
533    
534     FRAME-EVENT-QUEUE FRAME-EXIT PANE-FRAME
535     ALLOCATE-SPACE COMPOSE-SPACE FIND-INNERMOST-APPLICABLE-PRESENTATION
536     HIGHLIGHT-PRESENTATION-1 PANE-DISPLAY-FUNCTION PANE-DISPLAY-TIME PANE-NAME
537     PRESENTATION-OBJECT PRESENTATION-TYPE SPACE-REQUIREMENT-HEIGHT
538     SPACE-REQUIREMENT-WIDTH THROW-HIGHLIGHTED-PRESENTATION WINDOW-CLEAR
539    
540     (SETF GADGET-MAX-VALUE) (SETF GADGET-MIN-VALUE) (SETF SCROLL-BAR-THUMB-SIZE)
541     SLOT-ACCESSOR-NAME::|CLIM-INTERNALS CLIENT slot READER| DRAW-EDGES-LINES*
542     FORMAT-CHILDREN GADGET-VALUE MAKE-MENU-BAR TABLE-PANE-NUMBER
543     MEDIUM WITH-GRAPHICS-STATE
544     PORT-MIRROR-HEIGHT PORT-MIRROR-WIDTH TEXT-STYLE-CHARACTER-WIDTH
545     FIND-INNERMOST-APPLICABLE-PRESENTATION HIGHLIGHT-PRESENTATION-1
546     PRESENTATION-OBJECT PRESENTATION-TYPE THROW-HIGHLIGHTED-PRESENTATION
547     FORMAT-CHILDREN TABLE-PANE-NUMBER TEXT-STYLE-CHARACTER-WIDTH
548     PORT-MIRROR-HEIGHT PORT-MIRROR-WIDTH SCROLL-EXTENT TEXT-STYLE-CHARACTER-WIDTH
549     FRAME-EVENT-QUEUE FRAME-EXIT PANE-FRAME
550     ALLOCATE-SPACE COMPOSE-SPACE FIND-INNERMOST-APPLICABLE-PRESENTATION
551     HIGHLIGHT-PRESENTATION-1 PANE-DISPLAY-FUNCTION PANE-DISPLAY-TIME PANE-NAME
552     PRESENTATION-OBJECT PRESENTATION-TYPE SPACE-REQUIREMENT-HEIGHT
553     SPACE-REQUIREMENT-WIDTH THROW-HIGHLIGHTED-PRESENTATION WINDOW-CLEAR
554     (SETF GADGET-MAX-VALUE) (SETF GADGET-MIN-VALUE) (SETF SCROLL-BAR-THUMB-SIZE)
555     SLOT-ACCESSOR-NAME::|CLIM-INTERNALS CLIENT slot READER| DRAW-EDGES-LINES*
556     FORMAT-CHILDREN GADGET-VALUE MAKE-MENU-BAR TABLE-PANE-NUMBER
557 gilbert 1.1
558 gilbert 1.23 ||#

  ViewVC Help
Powered by ViewVC 1.1.5