sl@0: 
sl@0: (object Petal
sl@0:     version    	35)
sl@0: 
sl@0: (object Design "<Top Level>"
sl@0:     is_unit    	TRUE
sl@0:     file_name  	"c:\wserv\des\wsv4.mdl"
sl@0:     is_loaded  	TRUE
sl@0:     defaults   	(object defaults
sl@0: 	rightMargin 	0.25
sl@0: 	leftMargin 	0.25
sl@0: 	topMargin  	0.25
sl@0: 	bottomMargin 	0.5
sl@0: 	pageOverlap 	0.25
sl@0: 	clipIconLabels 	TRUE
sl@0: 	autoResize 	FALSE
sl@0: 	snapToGrid 	TRUE
sl@0: 	gridX      	0
sl@0: 	gridY      	0
sl@0: 	defaultFont 	(object Font
sl@0: 	    size       	12
sl@0: 	    face       	"helvetica"
sl@0: 	    bold       	FALSE
sl@0: 	    italics    	FALSE
sl@0: 	    underline  	FALSE
sl@0: 	    strike     	FALSE
sl@0: 	    color      	0
sl@0: 	    default_color 	TRUE)
sl@0: 	showMessageNum 	3)
sl@0:     root_category 	(object Class_Category "<Top Level>"
sl@0: 	exportControl 	"Public"
sl@0: 	global     	TRUE
sl@0: 	subsystem  	"<Top Level>"
sl@0: 	logical_models 	(list unit_reference_list
sl@0: 	    (object Class "Main"
sl@0: 		documentation 	"Top level windows server, recieves commands from clients, events from the O/S and timer completions."
sl@0: 		fields     	(list has_relationship_list
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"Client"
sl@0: 			supplier_cardinality 	(value cardinality "n")
sl@0: 			client_cardinality 	(value cardinality "1"))
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"WsrvClient"
sl@0: 			supplier_cardinality 	(value cardinality "1")
sl@0: 			client_cardinality 	(value cardinality "1"))
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"System"
sl@0: 			supplier_cardinality 	(value cardinality "1")
sl@0: 			client_cardinality 	(value cardinality "1")))
sl@0: 		cardinality 	(value Cardinality "1"))
sl@0: 	    (object Class "BackedUpWindow"
sl@0: 		fields     	(list has_relationship_list
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"Backup Bitmap"))
sl@0: 		superclasses 	(list inheritance_relationship_list
sl@0: 		    (object Inheritance_Relationship
sl@0: 			supplier   	"Window"))
sl@0: 		collaborators 	(list association_list
sl@0: 		    (object Association
sl@0: 			supplier   	"Bitmap")))
sl@0: 	    (object Class_Utility "$UNNAMED$0")
sl@0: 	    (object Class "Owner"
sl@0: 		fields     	(list has_relationship_list
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"Bitmap"
sl@0: 			supplier_cardinality 	(value cardinality "n")
sl@0: 			client_cardinality 	(value cardinality "1"))
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"Clock"
sl@0: 			supplier_cardinality 	(value cardinality "0..n")
sl@0: 			client_cardinality 	(value cardinality "1"))
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"Font"
sl@0: 			supplier_cardinality 	(value cardinality "0..n")
sl@0: 			client_cardinality 	(value cardinality "1"))))
sl@0: 	    (object Class "GCB"
sl@0: 		collaborators 	(list association_list
sl@0: 		    (object Association
sl@0: 			supplier   	"Font"
sl@0: 			supplier_cardinality 	(value cardinality "1")
sl@0: 			client_cardinality 	(value cardinality "n"))
sl@0: 		    (object Association
sl@0: 			supplier   	"Backup Bitmap"
sl@0: 			supplier_cardinality 	(value cardinality "0..1")
sl@0: 			client_cardinality 	(value cardinality "n")))
sl@0: 		used_nodes 	(list uses_relationship_list
sl@0: 		    (object Uses_Relationship
sl@0: 			supplier   	"Drawable")))
sl@0: 	    (object Class "Bitmap"
sl@0: 		superclasses 	(list inheritance_relationship_list
sl@0: 		    (object Inheritance_Relationship
sl@0: 			supplier   	"Drawable"))
sl@0: 		collaborators 	(list association_list
sl@0: 		    (object Association
sl@0: 			supplier   	"System Bitmaps"
sl@0: 			supplier_cardinality 	(value cardinality "n")
sl@0: 			client_cardinality 	(value cardinality "1"))))
sl@0: 	    (object Class "Font"
sl@0: 		cardinality 	(value Cardinality "1..n"))
sl@0: 	    (object Class "$UNNAMED$1")
sl@0: 	    (object Class "System"
sl@0: 		superclasses 	(list inheritance_relationship_list
sl@0: 		    (object Inheritance_Relationship
sl@0: 			supplier   	"Owner")))
sl@0: 	    (object Class "System Bitmaps"
sl@0: 		collaborators 	(list association_list
sl@0: 		    (object Association
sl@0: 			supplier   	"Main"
sl@0: 			supplier_cardinality 	(value cardinality "n")
sl@0: 			client_cardinality 	(value cardinality "0"))
sl@0: 		    (object Association
sl@0: 			supplier   	"Bitmap"))
sl@0: 		cardinality 	(value Cardinality "1"))
sl@0: 	    (object Class "Drawable"
sl@0: 		fields     	(list has_relationship_list
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"Window"))
sl@0: 		used_nodes 	(list uses_relationship_list
sl@0: 		    (object Uses_Relationship
sl@0: 			supplier   	"GCB"
sl@0: 			supplier_cardinality 	(value cardinality "1")
sl@0: 			client_cardinality 	(value cardinality "n"))))
sl@0: 	    (object Class "$UNNAMED$2")
sl@0: 	    (object Class "Window"
sl@0: 		superclasses 	(list inheritance_relationship_list
sl@0: 		    (object Inheritance_Relationship
sl@0: 			supplier   	
sl@0: |Normal 
sl@0: |Window
sl@0: |
sl@0: 			)
sl@0: 		    (object Inheritance_Relationship
sl@0: 			supplier   	"Drawable")))
sl@0: 	    (object Class "Normal 
sl@0: Window
sl@0: ")
sl@0: 	    (object Class "Clock"
sl@0: 		fields     	(list has_relationship_list
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"GCB"))
sl@0: 		used_nodes 	(list uses_relationship_list
sl@0: 		    (object Uses_Relationship
sl@0: 			supplier   	"GCB")))
sl@0: 	    (object Class "System Clocks")
sl@0: 	    (object Class "WsrvClient"
sl@0: 		superclasses 	(list inheritance_relationship_list
sl@0: 		    (object Inheritance_Relationship
sl@0: 			supplier   	"Client")))
sl@0: 	    (object Class_Utility "$UNNAMED$3")
sl@0: 	    (object Class_Utility "$UNNAMED$4")
sl@0: 	    (object Parameterized_Class "$UNNAMED$5")
sl@0: 	    (object Instantiated_Class_Utility "$UNNAMED$6")
sl@0: 	    (object Instantiated_Class "$UNNAMED$7")
sl@0: 	    (object Parameterized_Class "$UNNAMED$8")
sl@0: 	    (object Class "Client"
sl@0: 		fields     	(list has_relationship_list
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"GCB"
sl@0: 			supplier_cardinality 	(value cardinality "0..n")
sl@0: 			client_cardinality 	(value cardinality "1"))
sl@0: 		    (object Has_Relationship
sl@0: 			supplier   	"Window"
sl@0: 			supplier_cardinality 	(value cardinality "0..n")
sl@0: 			client_cardinality 	(value cardinality "1")))
sl@0: 		superclasses 	(list inheritance_relationship_list
sl@0: 		    (object Inheritance_Relationship
sl@0: 			supplier   	"Owner")))
sl@0: 	    (object Metaclass "$UNNAMED$9")
sl@0: 	    (object Class_Utility "$UNNAMED$10")
sl@0: 	    (object Class "Backup Bitmap"
sl@0: 		superclasses 	(list inheritance_relationship_list
sl@0: 		    (object Inheritance_Relationship
sl@0: 			supplier   	"Bitmap")))
sl@0: 	    (object Class "$UNNAMED$11")
sl@0: 	    (object Class "$UNNAMED$12")
sl@0: 	    (object Class "$UNNAMED$13")
sl@0: 	    (object Class "$UNNAMED$14")
sl@0: 	    (object Class_Category "$UNNAMED$15"
sl@0: 		exportControl 	"Public"
sl@0: 		logical_models 	(list unit_reference_list)
sl@0: 		logical_presentations 	(list unit_reference_list))
sl@0: 	    (object Class_Category "$UNNAMED$16"
sl@0: 		exportControl 	"Public"
sl@0: 		logical_models 	(list unit_reference_list)
sl@0: 		logical_presentations 	(list unit_reference_list)))
sl@0: 	logical_presentations 	(list unit_reference_list
sl@0: 	    (object ClassDiagram "Main"
sl@0: 		title      	"Main"
sl@0: 		zoom       	72
sl@0: 		max_height 	28350
sl@0: 		max_width  	21600
sl@0: 		origin_x   	0
sl@0: 		origin_y   	0
sl@0: 		items      	(list diagram_item_list
sl@0: 		    (object ClassView "Class" "Main" @1
sl@0: 			location   	(1053, 177)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(944, 87)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	255
sl@0: 			    justify    	0
sl@0: 			    label      	"Main")
sl@0: 			width      	370
sl@0: 			height     	270
sl@0: 			annotation 	8)
sl@0: 		    (object ClassView "Class" "BackedUpWindow" @2
sl@0: 			location   	(468, 1946)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(361, 1859)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	248
sl@0: 			    justify    	0
sl@0: 			    label      	"BackedUpWindow")
sl@0: 			width      	360
sl@0: 			height     	260
sl@0: 			annotation 	8)
sl@0: 		    (object ClassView "Class" "Owner" @3
sl@0: 			location   	(1204, 559)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(1101, 476)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	238
sl@0: 			    justify    	0
sl@0: 			    label      	"Owner")
sl@0: 			width      	345
sl@0: 			height     	250
sl@0: 			annotation 	8)
sl@0: 		    (object ClassView "Class" "GCB" @4
sl@0: 			location   	(1594, 1447)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(1490, 1363)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	240
sl@0: 			    justify    	0
sl@0: 			    label      	"GCB")
sl@0: 			annotation 	8)
sl@0: 		    (object ClassView "Class" "Bitmap" @5
sl@0: 			location   	(991, 1575)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(887, 1491)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	240
sl@0: 			    justify    	0
sl@0: 			    label      	"Bitmap")
sl@0: 			annotation 	8)
sl@0: 		    (object ClassView "Class" "Font" @6
sl@0: 			location   	(2195, 1345)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(2091, 1261)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	240
sl@0: 			    justify    	0
sl@0: 			    label      	"Font")
sl@0: 			annotation 	8)
sl@0: 		    (object ClassView "Class" "System" @7
sl@0: 			location   	(1802, 714)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(1698, 630)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	240
sl@0: 			    justify    	0
sl@0: 			    label      	"System")
sl@0: 			annotation 	8)
sl@0: 		    (object ClassView "Class" "Drawable" @8
sl@0: 			location   	(880, 1170)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(776, 1086)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	240
sl@0: 			    justify    	0
sl@0: 			    label      	"Drawable")
sl@0: 			annotation 	8)
sl@0: 		    (object ClassView "Class" "Window" @9
sl@0: 			location   	(467, 1407)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(363, 1323)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	240
sl@0: 			    justify    	0
sl@0: 			    label      	"Window")
sl@0: 			annotation 	8)
sl@0: 		    (object ClassView "Class" "Clock" @10
sl@0: 			location   	(1430, 988)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(1326, 904)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	240
sl@0: 			    justify    	0
sl@0: 			    label      	"Clock")
sl@0: 			annotation 	8)
sl@0: 		    (object HasView ""
sl@0: 			client     	@3
sl@0: 			supplier   	@10)
sl@0: 		    (object ClassView "Class" "WsrvClient" @11
sl@0: 			location   	(275, 680)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(171, 596)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	240
sl@0: 			    justify    	0
sl@0: 			    label      	"WsrvClient")
sl@0: 			annotation 	8)
sl@0: 		    (object HasView ""
sl@0: 			client     	@1
sl@0: 			supplier   	@11)
sl@0: 		    (object HasView ""
sl@0: 			client     	@10
sl@0: 			supplier   	@4)
sl@0: 		    (object ClassView "Class" "Client" @12
sl@0: 			location   	(759, 557)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(655, 473)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	240
sl@0: 			    justify    	0
sl@0: 			    label      	"Client")
sl@0: 			annotation 	8)
sl@0: 		    (object HasView ""
sl@0: 			client     	@12
sl@0: 			supplier   	@9)
sl@0: 		    (object AssociationView ""
sl@0: 			client     	@4
sl@0: 			supplier   	@6)
sl@0: 		    (object HasView ""
sl@0: 			client     	@12
sl@0: 			supplier   	@4)
sl@0: 		    (object ClassView "Class" "Backup Bitmap" @13
sl@0: 			location   	(991, 1968)
sl@0: 			label      	(object ItemLabel
sl@0: 			    location   	(881, 1877)
sl@0: 			    nlines     	2
sl@0: 			    max_width  	256
sl@0: 			    justify    	0
sl@0: 			    label      	"Backup Bitmap")
sl@0: 			width      	372
sl@0: 			height     	272
sl@0: 			annotation 	8)
sl@0: 		    (object AssociationView ""
sl@0: 			client     	@4
sl@0: 			supplier   	@13)
sl@0: 		    (object HasView ""
sl@0: 			client     	@2
sl@0: 			supplier   	@13)
sl@0: 		    (object InheritView ""
sl@0: 			client     	@9
sl@0: 			supplier   	@8)
sl@0: 		    (object InheritView ""
sl@0: 			client     	@5
sl@0: 			supplier   	@8)
sl@0: 		    (object InheritView ""
sl@0: 			client     	@2
sl@0: 			supplier   	@9)
sl@0: 		    (object InheritView ""
sl@0: 			client     	@13
sl@0: 			supplier   	@5)
sl@0: 		    (object InheritView ""
sl@0: 			client     	@11
sl@0: 			supplier   	@12)
sl@0: 		    (object InheritView ""
sl@0: 			client     	@7
sl@0: 			supplier   	@3)
sl@0: 		    (object HasView ""
sl@0: 			client     	@3
sl@0: 			supplier   	@5)
sl@0: 		    (object InheritView ""
sl@0: 			client     	@12
sl@0: 			supplier   	@3)
sl@0: 		    (object HasView ""
sl@0: 			client     	@3
sl@0: 			supplier   	@6)
sl@0: 		    (object HasView ""
sl@0: 			client     	@1
sl@0: 			supplier   	@7)
sl@0: 		    (object UsesView ""
sl@0: 			client     	@4
sl@0: 			supplier   	@8)
sl@0: 		    (object HasView ""
sl@0: 			client     	@1
sl@0: 			supplier   	@12)))))
sl@0:     root_subsystem 	(object SubSystem "<Top Level>"
sl@0: 	physical_models 	(list unit_reference_list)
sl@0: 	physical_presentations 	(list unit_reference_list
sl@0: 	    (object Module_Diagram "Main"
sl@0: 		title      	"Main"
sl@0: 		zoom       	100
sl@0: 		max_height 	28350
sl@0: 		max_width  	21600
sl@0: 		origin_x   	0
sl@0: 		origin_y   	0
sl@0: 		items      	(list diagram_item_list))))
sl@0:     process_structure 	(object Processes
sl@0: 	ProcsNDevs 	(list
sl@0: 	    (object Process_Diagram ""
sl@0: 		title      	""
sl@0: 		zoom       	100
sl@0: 		max_height 	28350
sl@0: 		max_width  	21600
sl@0: 		origin_x   	0
sl@0: 		origin_y   	0
sl@0: 		items      	(list diagram_item_list))))
sl@0:     properties 	(object Properties))