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
|
;;;;; -*- Scheme -*-
;;;;;
;;;;; derived from uitk.scm at MIT on April 24, 1993
;;;;; $Id: structures.scm,v 1.1 1995/08/02 21:26:49 adams Exp $
;;;; Commonly used structure definitions. They are here so that the
;;;; macro versions can be loaded to improve performance.
(scc-define-structure UITKWindow
xdisplay ; X display connection
xwindow) ; X window ID
(scc-define-structure ToolKitWindow ; For TK or whatever
Application ; For GC protection of TK Widgets
Top-Level-Geometry-Callback ; From TK to us (for GC, too)
TK-Window) ; *Un*wrapped!
(scc-define-structure DrawingSurface
ToolKitWindow
UITKWindow
(Weak-List-of-Widgets '())) ; Ones that use this surface
(scc-define-structure Point X Y)
(scc-define-structure UITKRectangle Offset Size)
(scc-define-structure Size Width Height)
(scc-define-structure context
activebackground activeforeground anchor background
border borderwidth
;; cursor
;; font
foreground relief)
(scc-define-structure alert reason function)
(scc-define-structure queue
(%head #F)
(%tail #F))
(scc-define-structure locked-list
(%mutex (make-thread-mutex))
(%data '()))
(scc-define-structure surface-sensitivity
Weak-Surface
Mask
Sensitivities)
(scc-define-structure sensitivity
%weak-<interactor>
Masks)
(scc-define-structure sensitive-surface
DrawingSurface
Handlers)
(scc-define-structure TK-variable
application
tk-name
callback ;on writes
)
(scc-define-structure scxl-wrapper
type
wrapped-object
strong-dependents
other-stuff)
(scc-define-structure Event
Point-or-rectangle?
Type
OS-Event
Window
Offset
Width
Height)
(scc-define-structure Glue
minsize
class
value)
;;; Applications, interactors, boxes, shapes, tkwidgets
;;; all share these internals. These slots will be the first thing in
;;; the structure.
(scc-define-structure UIObjInternals
Add-Child!-procedure
Remove-Child!-procedure
Set-Context!-procedure
Assign-Screen-Area!-procedure
Assign-Drawing-Surface!-procedure
Point-Within?-procedure
Rectangle-Overlaps?-procedure
Handle-Event-procedure
Get-Desired-Size-procedure
Assigned-Screen-Area-procedure
Used-Screen-Area-procedure
Set-Assigned-Screen-Area!-procedure
Set-Used-Screen-Area!-procedure
Assign-Glue!-procedure
(%geometry-alerts '())
(%event-alerts '())
(%context-alerts '())
(%death-alerts '())
(Assigned-Screen-Area #F)
(Used-Screen-Area #F)
(clip-region #F)
(drawing-surface 'UNASSIGNED)
(%desired-size #F)
(%vglue #F) ; for boxes, shapes
(%hglue #F) ; and tkwidgets only
;; Hal says:
;; "Success has many parents, but a UIObj has only one"
(already-have-a-parent? #F)
;; Second '() is a special list for canvas and text items, that
;; might need to be un-gc-protected all at once.
(crud-that-I-dont-want-to-gc-away (cons '() '()))
)
;;;Generic procedures on objects that have UIObj internals
(define-integrable uiobjinternals-index 1)
|
