--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/windowing/windowserver/DES/WSV4.MDL Tue Feb 02 01:47:50 2010 +0200
@@ -0,0 +1,401 @@
+
+(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))