Fix def files so that the implementation agnostic interface definition has no non-standards defined entry points, and change the eglrefimpl specific implementation to place its private entry points high up in the ordinal order space in the implementation region, not the standards based entrypoints region.
(object Petal
version 35)
(object Design "<Top Level>"
is_unit TRUE
file_name "d:\wserv\des\wserv2.mdl"
is_loaded TRUE
defaults (object defaults
rightMargin 0.25
leftMargin 0.25
topMargin 0.25
bottomMargin 0.5
pageOverlap 0.25
clipIconLabels TRUE
autoResize FALSE
snapToGrid TRUE
gridX 0
gridY 0
defaultFont (object Font
size 10
face "Arial"
bold FALSE
italics FALSE
underline FALSE
strike FALSE
color 0
default_color TRUE)
showMessageNum 3)
root_category (object Class_Category "<Top Level>"
exportControl "Public"
global TRUE
subsystem "<Top Level>"
logical_models (list unit_reference_list
(object Class_Category "Server"
visible_categories (list visibility_relationship_list
(object Visibility_Relationship
supplier "DebugLog")
(object Visibility_Relationship
supplier "Gdi")
(object Visibility_Relationship
supplier "KeyBoard")
(object Visibility_Relationship
supplier "GdiDevice"))
exportControl "Public"
logical_models (list unit_reference_list
(object Class "WsTop"
used_nodes (list uses_relationship_list
(object Uses_Relationship
supplier "Gdi Device"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))
(object Uses_Relationship
supplier "ScreenGdi"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))
(object Uses_Relationship
supplier "Root Window"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))
(object Uses_Relationship
supplier "Pointer"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))
(object Uses_Relationship
supplier "WinDebugLog"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))
(object Uses_Relationship
supplier "WindowServer"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))
(object Uses_Relationship
supplier "Periodic"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))))
(object Class "ScreenGdiDevice")
(object Class "ScreenGdi"
collaborators (list association_list
(object Association
supplier "Gdi Device")))
(object Class "Pointer"
collaborators (list association_list
(object Association
label "Current window"
supplier "Window"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "0..1"))
(object Association
label "Grab window"
supplier "Window"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "0..1"))))
(object Class "WinDebugLog")
(object Class "WindowServer"
used_nodes (list uses_relationship_list
(object Uses_Relationship
supplier "Session"
supplier_cardinality (value cardinality "0..n")
client_cardinality (value cardinality "1"))))
(object Class "Periodic")
(object Class "Session"
used_nodes (list uses_relationship_list
(object Uses_Relationship
supplier "Drawable"
supplier_cardinality (value cardinality "0..n")
client_cardinality (value cardinality "1"))
(object Uses_Relationship
supplier "Gc"
supplier_cardinality (value cardinality "0..n")
client_cardinality (value cardinality "1"))
(object Uses_Relationship
supplier "Text Cursor"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))
(object Uses_Relationship
supplier "Event Queue"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))))
(object Class "WindowBase"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Drawable")))
(object Class "Gc")
(object Class "Drawable")
(object Class "Group Window"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "WindowBase")))
(object Class "Window"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "WindowBase")))
(object Class "Root Window"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Window")))
(object Class "Client Window"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Window")))
(object Class "Text Cursor"
collaborators (list association_list
(object Association
supplier "Window"
supplier_cardinality (value cardinality "0..1")
client_cardinality (value cardinality "0..1"))))
(object Class "Event Queue"))
logical_presentations (list unit_reference_list
(object ClassDiagram "Main"
title "Main"
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 800
items (list diagram_item_list
(object ClassView "Class" "WsTop" @1
location (1515, 632)
label (object ItemLabel
location (1411, 548)
nlines 2
max_width 240
justify 0
label "WsTop")
annotation 8)
(object ClassView "Class" "Gdi Device" @2
location (2237, 514)
label (object ItemLabel
location (2133, 430)
nlines 2
max_width 240
justify 0
label "Gdi Device")
annotation 8)
(object ClassView "Class" "ScreenGdi" @3
location (2268, 876)
label (object ItemLabel
location (2164, 792)
nlines 2
max_width 240
justify 0
label "ScreenGdi")
annotation 8)
(object ClassView "Class" "Pointer" @4
location (1828, 1132)
label (object ItemLabel
location (1724, 1048)
nlines 2
max_width 240
justify 0
label "Pointer")
annotation 8)
(object ClassView "Class" "WinDebugLog" @5
location (706, 713)
label (object ItemLabel
location (602, 629)
nlines 2
max_width 240
justify 0
label "WinDebugLog")
annotation 8)
(object ClassView "Class" "WindowServer" @6
location (1265, 1078)
label (object ItemLabel
location (1161, 994)
nlines 2
max_width 240
justify 0
label "WindowServer")
annotation 8)
(object ClassView "Class" "Periodic" @7
location (787, 1076)
label (object ItemLabel
location (683, 992)
nlines 2
max_width 240
justify 0
label "Periodic")
annotation 8)
(object ClassView "Class" "Session" @8
location (1147, 1474)
label (object ItemLabel
location (1043, 1390)
nlines 2
max_width 240
justify 0
label "Session")
annotation 8)
(object UsesView ""
client @6
supplier @8)
(object AssociationView ""
client @3
supplier @2)
(object ClassView "Class" "WindowBase" @9
location (1806, 2201)
label (object ItemLabel
location (1702, 2117)
nlines 2
max_width 240
justify 0
label "WindowBase")
annotation 8)
(object ClassView "Class" "Gc" @10
location (353, 1663)
label (object ItemLabel
location (249, 1579)
nlines 2
max_width 240
justify 0
label "Gc")
annotation 8)
(object ClassView "Class" "Drawable" @11
location (1515, 1880)
label (object ItemLabel
location (1411, 1796)
nlines 2
max_width 240
justify 0
label "Drawable")
annotation 8)
(object InheritView ""
client @9
supplier @11)
(object UsesView ""
client @8
supplier @11)
(object UsesView ""
client @8
supplier @10)
(object ClassView "Class" "Group Window" @12
location (1512, 2477)
label (object ItemLabel
location (1408, 2393)
nlines 2
max_width 240
justify 0
label "Group Window")
annotation 8)
(object ClassView "Class" "Window" @13
location (1981, 2499)
label (object ItemLabel
location (1877, 2415)
nlines 2
max_width 240
justify 0
label "Window")
annotation 8)
(object ClassView "Class" "Root Window" @14
location (2293, 2904)
label (object ItemLabel
location (2189, 2820)
nlines 2
max_width 240
justify 0
label "Root Window")
annotation 8)
(object ClassView "Class" "Client Window" @15
location (1775, 2922)
label (object ItemLabel
location (1671, 2838)
nlines 2
max_width 240
justify 0
label "Client Window")
annotation 8)
(object InheritView ""
client @13
supplier @9)
(object InheritView ""
client @12
supplier @9)
(object InheritView ""
client @15
supplier @13)
(object InheritView ""
client @14
supplier @13)
(object AssociationView "Current window"
label (object ItemLabel
location (1993, 1802)
anchor_loc 1
nlines 1
max_width 450
justify 0
label "Current window")
client @4
supplier @13
vertices (list Points
(1862, 1224)
(1962, 1487)
(2018, 2050)
(1988, 2397)))
(object AssociationView "Grab window"
label (object ItemLabel
location (2158, 1751)
anchor_loc 1
nlines 1
max_width 450
justify 0
label "Grab window")
client @4
supplier @13
vertices (list Points
(1897, 1207)
(2153, 1481)
(2162, 1956)
(2022, 2375)))
(object UsesView ""
client @1
supplier @2)
(object UsesView ""
client @1
supplier @3)
(object UsesView ""
client @1
supplier @14
vertices (list Points
(1627, 715)
(2318, 1231)
(2293, 2804)))
(object UsesView ""
client @1
supplier @4)
(object UsesView ""
client @1
supplier @5)
(object UsesView ""
client @1
supplier @6)
(object UsesView ""
client @1
supplier @7)
(object ClassView "Class" "Text Cursor" @16
location (906, 2822)
label (object ItemLabel
location (802, 2738)
nlines 2
max_width 240
justify 0
label "Text Cursor")
annotation 8)
(object UsesView ""
client @8
supplier @16)
(object AssociationView ""
client @16
supplier @13)
(object ClassView "Class" "Event Queue" @17
location (340, 2037)
label (object ItemLabel
location (236, 1953)
nlines 2
max_width 240
justify 0
label "Event Queue")
annotation 8)
(object UsesView ""
client @8
supplier @17)))))
(object Class_Category "DebugLog"
exportControl "Public"
logical_models (list unit_reference_list)
logical_presentations (list unit_reference_list))
(object Class_Category "KeyBoard"
exportControl "Public"
logical_models (list unit_reference_list)
logical_presentations (list unit_reference_list))
(object Class_Category "Gdi"
exportControl "Public"
logical_models (list unit_reference_list
(object Class "Gdi Device"))
logical_presentations (list unit_reference_list
(object ClassDiagram "Main"
title "Main"
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list
(object ClassView "Class" "Gdi Device" @18
location (756, 766)
label (object ItemLabel
location (652, 682)
nlines 2
max_width 240
justify 0
label "Gdi Device")
annotation 8))))))
logical_presentations (list unit_reference_list
(object ClassDiagram "Main"
title "Main"
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list
(object CategoryView "Server" @19
location (1022, 187)
label (object ItemLabel
location (878, 103)
nlines 2
max_width 288
justify 0
label "Server")
width 300
height 180)
(object CategoryView "DebugLog" @20
location (538, 593)
label (object ItemLabel
location (394, 509)
nlines 2
max_width 288
justify 0
label "DebugLog")
width 300
height 180)
(object CategoryView "KeyBoard" @21
location (1688, 593)
label (object ItemLabel
location (1544, 509)
nlines 2
max_width 288
justify 0
label "KeyBoard")
width 300
height 180)
(object CategoryView "Gdi" @22
location (919, 587)
label (object ItemLabel
location (775, 503)
nlines 2
max_width 288
justify 0
label "Gdi")
width 300
height 180)
(object ImportView ""
client @19
supplier @20)
(object ImportView ""
client @19
supplier @22)
(object ImportView ""
client @19
supplier @21)))))
root_subsystem (object SubSystem "<Top Level>"
physical_models (list unit_reference_list)
physical_presentations (list unit_reference_list
(object Module_Diagram "Main"
title "Main"
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list))))
process_structure (object Processes
ProcsNDevs (list
(object Process_Diagram ""
title ""
zoom 100
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list))))
properties (object Properties))