Created NewGraphicsArchitecture branch for graphics work.
(object Petal
version 35)
(object Design "<Top Level>"
is_unit TRUE
file_name "c:\wserv\des\wsv4.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 12
face "helvetica"
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 "Main"
documentation "Top level windows server, recieves commands from clients, events from the O/S and timer completions."
fields (list has_relationship_list
(object Has_Relationship
supplier "Client"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "WsrvClient"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "System"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "1")))
cardinality (value Cardinality "1"))
(object Class "BackedUpWindow"
fields (list has_relationship_list
(object Has_Relationship
supplier "Backup Bitmap"))
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Window"))
collaborators (list association_list
(object Association
supplier "Bitmap")))
(object Class_Utility "$UNNAMED$0")
(object Class "Owner"
fields (list has_relationship_list
(object Has_Relationship
supplier "Bitmap"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Clock"
supplier_cardinality (value cardinality "0..n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Font"
supplier_cardinality (value cardinality "0..n")
client_cardinality (value cardinality "1"))))
(object Class "GCB"
collaborators (list association_list
(object Association
supplier "Font"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "n"))
(object Association
supplier "Backup Bitmap"
supplier_cardinality (value cardinality "0..1")
client_cardinality (value cardinality "n")))
used_nodes (list uses_relationship_list
(object Uses_Relationship
supplier "Drawable")))
(object Class "Bitmap"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Drawable"))
collaborators (list association_list
(object Association
supplier "System Bitmaps"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "1"))))
(object Class "Font"
cardinality (value Cardinality "1..n"))
(object Class "$UNNAMED$1")
(object Class "System"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Owner")))
(object Class "System Bitmaps"
collaborators (list association_list
(object Association
supplier "Main"
supplier_cardinality (value cardinality "n")
client_cardinality (value cardinality "0"))
(object Association
supplier "Bitmap"))
cardinality (value Cardinality "1"))
(object Class "Drawable"
fields (list has_relationship_list
(object Has_Relationship
supplier "Window"))
used_nodes (list uses_relationship_list
(object Uses_Relationship
supplier "GCB"
supplier_cardinality (value cardinality "1")
client_cardinality (value cardinality "n"))))
(object Class "$UNNAMED$2")
(object Class "Window"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier
|Normal
|Window
|
)
(object Inheritance_Relationship
supplier "Drawable")))
(object Class "Normal
Window
")
(object Class "Clock"
fields (list has_relationship_list
(object Has_Relationship
supplier "GCB"))
used_nodes (list uses_relationship_list
(object Uses_Relationship
supplier "GCB")))
(object Class "System Clocks")
(object Class "WsrvClient"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Client")))
(object Class_Utility "$UNNAMED$3")
(object Class_Utility "$UNNAMED$4")
(object Parameterized_Class "$UNNAMED$5")
(object Instantiated_Class_Utility "$UNNAMED$6")
(object Instantiated_Class "$UNNAMED$7")
(object Parameterized_Class "$UNNAMED$8")
(object Class "Client"
fields (list has_relationship_list
(object Has_Relationship
supplier "GCB"
supplier_cardinality (value cardinality "0..n")
client_cardinality (value cardinality "1"))
(object Has_Relationship
supplier "Window"
supplier_cardinality (value cardinality "0..n")
client_cardinality (value cardinality "1")))
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Owner")))
(object Metaclass "$UNNAMED$9")
(object Class_Utility "$UNNAMED$10")
(object Class "Backup Bitmap"
superclasses (list inheritance_relationship_list
(object Inheritance_Relationship
supplier "Bitmap")))
(object Class "$UNNAMED$11")
(object Class "$UNNAMED$12")
(object Class "$UNNAMED$13")
(object Class "$UNNAMED$14")
(object Class_Category "$UNNAMED$15"
exportControl "Public"
logical_models (list unit_reference_list)
logical_presentations (list unit_reference_list))
(object Class_Category "$UNNAMED$16"
exportControl "Public"
logical_models (list unit_reference_list)
logical_presentations (list unit_reference_list)))
logical_presentations (list unit_reference_list
(object ClassDiagram "Main"
title "Main"
zoom 72
max_height 28350
max_width 21600
origin_x 0
origin_y 0
items (list diagram_item_list
(object ClassView "Class" "Main" @1
location (1053, 177)
label (object ItemLabel
location (944, 87)
nlines 2
max_width 255
justify 0
label "Main")
width 370
height 270
annotation 8)
(object ClassView "Class" "BackedUpWindow" @2
location (468, 1946)
label (object ItemLabel
location (361, 1859)
nlines 2
max_width 248
justify 0
label "BackedUpWindow")
width 360
height 260
annotation 8)
(object ClassView "Class" "Owner" @3
location (1204, 559)
label (object ItemLabel
location (1101, 476)
nlines 2
max_width 238
justify 0
label "Owner")
width 345
height 250
annotation 8)
(object ClassView "Class" "GCB" @4
location (1594, 1447)
label (object ItemLabel
location (1490, 1363)
nlines 2
max_width 240
justify 0
label "GCB")
annotation 8)
(object ClassView "Class" "Bitmap" @5
location (991, 1575)
label (object ItemLabel
location (887, 1491)
nlines 2
max_width 240
justify 0
label "Bitmap")
annotation 8)
(object ClassView "Class" "Font" @6
location (2195, 1345)
label (object ItemLabel
location (2091, 1261)
nlines 2
max_width 240
justify 0
label "Font")
annotation 8)
(object ClassView "Class" "System" @7
location (1802, 714)
label (object ItemLabel
location (1698, 630)
nlines 2
max_width 240
justify 0
label "System")
annotation 8)
(object ClassView "Class" "Drawable" @8
location (880, 1170)
label (object ItemLabel
location (776, 1086)
nlines 2
max_width 240
justify 0
label "Drawable")
annotation 8)
(object ClassView "Class" "Window" @9
location (467, 1407)
label (object ItemLabel
location (363, 1323)
nlines 2
max_width 240
justify 0
label "Window")
annotation 8)
(object ClassView "Class" "Clock" @10
location (1430, 988)
label (object ItemLabel
location (1326, 904)
nlines 2
max_width 240
justify 0
label "Clock")
annotation 8)
(object HasView ""
client @3
supplier @10)
(object ClassView "Class" "WsrvClient" @11
location (275, 680)
label (object ItemLabel
location (171, 596)
nlines 2
max_width 240
justify 0
label "WsrvClient")
annotation 8)
(object HasView ""
client @1
supplier @11)
(object HasView ""
client @10
supplier @4)
(object ClassView "Class" "Client" @12
location (759, 557)
label (object ItemLabel
location (655, 473)
nlines 2
max_width 240
justify 0
label "Client")
annotation 8)
(object HasView ""
client @12
supplier @9)
(object AssociationView ""
client @4
supplier @6)
(object HasView ""
client @12
supplier @4)
(object ClassView "Class" "Backup Bitmap" @13
location (991, 1968)
label (object ItemLabel
location (881, 1877)
nlines 2
max_width 256
justify 0
label "Backup Bitmap")
width 372
height 272
annotation 8)
(object AssociationView ""
client @4
supplier @13)
(object HasView ""
client @2
supplier @13)
(object InheritView ""
client @9
supplier @8)
(object InheritView ""
client @5
supplier @8)
(object InheritView ""
client @2
supplier @9)
(object InheritView ""
client @13
supplier @5)
(object InheritView ""
client @11
supplier @12)
(object InheritView ""
client @7
supplier @3)
(object HasView ""
client @3
supplier @5)
(object InheritView ""
client @12
supplier @3)
(object HasView ""
client @3
supplier @6)
(object HasView ""
client @1
supplier @7)
(object UsesView ""
client @4
supplier @8)
(object HasView ""
client @1
supplier @12)))))
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))