windowing/windowserver/DES/WSERV.MDL
changeset 116 171fae344dd4
parent 0 5d03bc08d59c
--- a/windowing/windowserver/DES/WSERV.MDL	Tue Jun 22 15:21:29 2010 +0300
+++ b/windowing/windowserver/DES/WSERV.MDL	Fri Jul 16 11:45:55 2010 +0300
@@ -1,2389 +1,2389 @@
-
-(object Petal
-    version    	35)
-
-(object Design "<Top Level>"
-    is_unit    	TRUE
-    file_name  	"d:\wserv\des\wserv.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 "$UNNAMED$0")
-	    (object Class "Client ")
-	    (object Class_Category "GDI"
-		exportControl 	"Public"
-		logical_models 	(list unit_reference_list
-		    (object Class "Bitmap Font"
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Brush"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"GDI object"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Pen"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"GDI object"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "CBackground")
-		    (object Class "integer"
-			nonclass   	TRUE)
-		    (object Class "CPenCursor")
-		    (object Class "CTextCursor")
-		    (object Class "$UNNAMED$1")
-		    (object Class "$UNNAMED$2")
-		    (object Class " WS Object"
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Drawablex"
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Font"
-			fields     	(list has_relationship_list
-			    (object Has_Relationship
-				supplier   	"Bitmap Font"
-				supplier_cardinality 	(value cardinality "0..1")
-				client_cardinality 	(value cardinality "n"))
-			    (object Has_Relationship
-				supplier   	"Vector font"
-				supplier_cardinality 	(value cardinality "0..1")
-				client_cardinality 	(value cardinality "n")))
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"GDI object"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Vector font"
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "$UNNAMED$3")
-		    (object Class "Palette"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"GDI object")))
-		    (object Class "Drawable GDI Data")
-		    (object Class_Category "$UNNAMED$4"
-			exportControl 	"Public"
-			logical_models 	(list unit_reference_list)
-			logical_presentations 	(list unit_reference_list))
-		    (object Class_Category "$UNNAMED$5"
-			exportControl 	"Public"
-			logical_models 	(list unit_reference_list)
-			logical_presentations 	(list unit_reference_list))
-		    (object Class_Category "$UNNAMED$6"
-			exportControl 	"Public"
-			logical_models 	(list unit_reference_list)
-			logical_presentations 	(list unit_reference_list))
-		    (object Class_Category "$UNNAMED$7"
-			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       	100
-			max_height 	28350
-			max_width  	21600
-			origin_x   	0
-			origin_y   	0
-			items      	(list diagram_item_list
-			    (object ClassView "Class" "Bitmap Font" @1
-				location   	(2259, 1427)
-				label      	(object ItemLabel
-				    location   	(2155, 1343)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Bitmap Font")
-				annotation 	8)
-			    (object ClassView "Class" "Brush" @2
-				location   	(1228, 901)
-				label      	(object ItemLabel
-				    location   	(1124, 817)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Brush")
-				annotation 	8)
-			    (object ClassView "Class" "Pen" @3
-				location   	(1709, 904)
-				label      	(object ItemLabel
-				    location   	(1605, 820)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Pen")
-				annotation 	8)
-			    (object ClassView "Class" "Font" @4
-				location   	(2200, 904)
-				label      	(object ItemLabel
-				    location   	(2096, 820)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Font")
-				annotation 	8)
-			    (object ClassView "Class" "Vector font" @5
-				location   	(2659, 1429)
-				label      	(object ItemLabel
-				    location   	(2555, 1345)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Vector font")
-				annotation 	8)
-			    (object HasView ""
-				client     	@4
-				supplier   	@1)
-			    (object HasView ""
-				client     	@4
-				supplier   	@5)
-			    (object ClassView "Class" "Palette" @6
-				location   	(822, 915)
-				label      	(object ItemLabel
-				    location   	(718, 831)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Palette")
-				annotation 	8)
-			    (object ClassView "Class" "Drawable GDI Data" @7
-				location   	(340, 909)
-				label      	(object ItemLabel
-				    location   	(236, 825)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Drawable GDI Data")
-				annotation 	8)))))
-	    (object Class_Category "Drawables"
-		visible_categories 	(list visibility_relationship_list
-		    (object Visibility_Relationship
-			supplier   	"GDI Interface")
-		    (object Visibility_Relationship
-			supplier   	"GDI"))
-		exportControl 	"Public"
-		logical_models 	(list unit_reference_list
-		    (object Class "$UNNAMED$8")
-		    (object Class "Backed up Window"
-			fields     	(list has_relationship_list
-			    (object Has_Relationship
-				supplier   	"Backup Bitmap"))
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Window"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Window"
-			fields     	(list has_relationship_list
-			    (object Has_Relationship
-				supplier   	"Update Region"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"Clipping region"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"Client region"))
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Drawable"))
-			operations 	(list Operations
-			    (object Operation "SetVisibility"
-				concurrency 	"Sequential"
-				opExportControl 	"Public"
-				uid        	0))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Bitmap"
-			fields     	(list has_relationship_list
-			    (object Has_Relationship
-				supplier   	"Default region"))
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Drawable"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Backup Bitmap"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Bitmap"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Parameterized_Class "$UNNAMED$9")
-		    (object Class_Utility "$UNNAMED$10")
-		    (object Class "$UNNAMED$11")
-		    (object Class "RootWindow"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Window"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Update Region"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Region"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Root window"
-			collaborators 	(list association_list
-			    (object Association
-				supplier   	"Window"
-				supplier_cardinality 	(value cardinality "n")
-				client_cardinality 	(value cardinality "1"))
-			    (object Association
-				supplier   	"Animator"
-				supplier_cardinality 	(value cardinality "1"))))
-		    (object Class "Client region"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Region")))
-		    (object Class "Drawable"
-			fields     	(list has_relationship_list
-			    (object Has_Relationship
-				supplier   	"Gdi Drawable"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Gdi Drawable")
-		    (object Class "Default region")
-		    (object Mechanism @8
-			logical_models 	(list unit_reference_list
-			    (object Object "RootWindow"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Alert Window")
-				    (object Link
-					supplier   	"Client Windows"))
-				class      	"RootWindow"
-				persistence 	"Static"
-				multi      	FALSE)
-			    (object Object "Client Windows"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Temporary Status Window")
-				    (object Link
-					supplier   	"Client Windows")
-				    (object Link
-					supplier   	"Client Windows")
-				    (object Link
-					supplier   	"Client Windows")
-				    (object Link
-					supplier   	"Client Windows")
-				    (object Link
-					supplier   	"Client Windows"))
-				class      	"Window"
-				persistence 	"Transient"
-				multi      	TRUE)
-			    (object Object "Clients"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Client Windows")
-				    (object Link
-					supplier   	"Client Windows")
-				    (object Link
-					supplier   	"Client Windows")
-				    (object Link
-					supplier   	
-|Pseudo
-|Client
-					)
-				    (object Link
-					supplier   	"Client Windows"))
-				class      	"Session"
-				persistence 	"Transient"
-				multi      	TRUE)
-			    (object Object "Window Server"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Status Window")
-				    (object Link
-					supplier   	"RootWindow"
-					supplier_containment 	"By Value"
-					client_containment 	"By Value"))
-				class      	"System Client"
-				persistence 	"Static"
-				multi      	FALSE)
-			    (object Object "Foreground Client"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Client Windows"))
-				class      	"Session"
-				persistence 	"Transient"
-				multi      	FALSE)))
-		    (object Mechanism @9
-			logical_models 	(list unit_reference_list
-			    (object Object "Window"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Window"
-					messages   	(list Messages
-					    (object Message "Child"
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	0)))
-				    (object Link
-					supplier   	"Window"
-					messages   	(list Messages
-					    (object Message "Sibling"
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	1)))
-				    (object Link
-					supplier   	"Window"
-					messages   	(list Messages
-					    (object Message "Parent"
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	2)))
-				    (object Link
-					supplier   	"Window"
-					messages   	(list Messages
-					    (object Message "Sibling"
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	3)))
-				    (object Link
-					supplier   	"Window"
-					messages   	(list Messages
-					    (object Message "Parent"
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	4)))
-				    (object Link
-					supplier   	"Window")
-				    (object Link
-					supplier   	"Window")
-				    (object Link
-					supplier   	"Window")
-				    (object Link
-					supplier   	"Window")
-				    (object Link
-					supplier   	"Window")
-				    (object Link
-					supplier   	"Window")
-				    (object Link
-					supplier   	"Window")
-				    (object Link
-					supplier   	"Window")
-				    (object Link
-					supplier   	"Window"
-					messages   	(list Messages
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	5)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	6)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	7)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	8)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	9)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	10)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	11)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	12)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	13)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	14)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	15)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	16)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	17)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	18)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	19)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	20)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	21)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	22)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	23)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	24)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	25)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	26)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	27)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	28)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	29)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	30)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	31))))
-				class      	"Window"
-				persistence 	"Transient"
-				multi      	FALSE))))
-		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" "Backed up Window" @10
-				location   	(1126, 1425)
-				font       	(object Font
-				    size       	10
-				    face       	"helvetica"
-				    bold       	FALSE
-				    italics    	FALSE
-				    underline  	FALSE
-				    strike     	FALSE
-				    color      	0
-				    default_color 	TRUE)
-				label      	(object ItemLabel
-				    location   	(1024, 1343)
-				    nlines     	2
-				    max_width  	236
-				    justify    	0
-				    label      	"Backed up Window")
-				width      	343
-				height     	249
-				annotation 	8)
-			    (object ClassView "Class" "Window" @11
-				location   	(1125, 838)
-				label      	(object ItemLabel
-				    location   	(1021, 754)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window")
-				annotation 	8)
-			    (object InheritView ""
-				client     	@10
-				supplier   	@11)
-			    (object ClassView "Class" "Bitmap" @12
-				location   	(1744, 832)
-				label      	(object ItemLabel
-				    location   	(1640, 748)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Bitmap")
-				annotation 	8)
-			    (object ClassView "Class" "Backup Bitmap" @13
-				location   	(1743, 1424)
-				label      	(object ItemLabel
-				    location   	(1636, 1337)
-				    nlines     	2
-				    max_width  	249
-				    justify    	0
-				    label      	"Backup Bitmap")
-				width      	362
-				height     	262
-				annotation 	8)
-			    (object InheritView ""
-				client     	@13
-				supplier   	@12)
-			    (object ClassView "Class" "RootWindow" @14
-				location   	(1434, 1145)
-				label      	(object ItemLabel
-				    location   	(1330, 1061)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"RootWindow")
-				annotation 	8)
-			    (object InheritView ""
-				client     	@14
-				supplier   	@11)
-			    (object ClassView "Class" "Update Region" @15
-				location   	(319, 1158)
-				label      	(object ItemLabel
-				    location   	(215, 1074)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Update Region")
-				annotation 	8)
-			    (object HasView ""
-				client     	@10
-				supplier   	@13)
-			    (object HasView ""
-				client     	@11
-				supplier   	@15)
-			    (object ClassView "Class" "Client region" @16
-				location   	(450, 842)
-				label      	(object ItemLabel
-				    location   	(346, 758)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Client region")
-				annotation 	8)
-			    (object HasView ""
-				client     	@11
-				supplier   	@16)
-			    (object ClassView "Class" "Drawable" @17
-				location   	(1390, 426)
-				label      	(object ItemLabel
-				    location   	(1286, 342)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Drawable")
-				annotation 	8)
-			    (object InheritView ""
-				client     	@11
-				supplier   	@17)
-			    (object InheritView ""
-				client     	@12
-				supplier   	@17)
-			    (object ClassView "Class" "Gdi Drawable" @18
-				location   	(2325, 846)
-				label      	(object ItemLabel
-				    location   	(2221, 762)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Gdi Drawable")
-				annotation 	8)
-			    (object HasView ""
-				client     	@17
-				supplier   	@18)
-			    (object ClassView "Class" "Default region" @19
-				location   	(2287, 1226)
-				label      	(object ItemLabel
-				    location   	(2183, 1142)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Default region")
-				annotation 	8)
-			    (object HasView ""
-				client     	@12
-				supplier   	@19)))
-		    (object ObjectDiagram "Protea top level window structure"
-			mechanism_ref 	@8
-			title      	"Protea top level window structure"
-			zoom       	100
-			max_height 	28350
-			max_width  	21600
-			origin_x   	0
-			origin_y   	0
-			items      	(list diagram_item_list
-			    (object ObjectView "RootWindow" @20
-				location   	(334, 1068)
-				label      	(object ItemLabel
-				    location   	(230, 984)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"RootWindow")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Client Windows" @21
-				location   	(703, 1520)
-				label      	(object ItemLabel
-				    location   	(599, 1436)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Client Windows")
-				subobjects 	0
-				x_offset   	-0.078125
-				y_offset   	0.110406)
-			    (object ObjectView "Clients" @22
-				location   	(1500, 523)
-				label      	(object ItemLabel
-				    location   	(1273, 330)
-				    nlines     	2
-				    max_width  	540
-				    justify    	0
-				    label      	"Clients")
-				width      	783
-				height     	567
-				subobjects 	1
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Client Windows" @23
-				location   	(1337, 1507)
-				label      	(object ItemLabel
-				    location   	(1233, 1423)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Client Windows")
-				subobjects 	0
-				x_offset   	-0.08
-				y_offset   	0.11)
-			    (object ObjectView "Window Server" @24
-				location   	(340, 642)
-				label      	(object ItemLabel
-				    location   	(236, 558)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window Server")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Client Windows" @25
-				location   	(1928, 1510)
-				label      	(object ItemLabel
-				    location   	(1824, 1426)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Client Windows")
-				subobjects 	0
-				x_offset   	-0.08
-				y_offset   	0.11)
-			    (object ObjectView "Client Windows" @26
-				location   	(2522, 1517)
-				label      	(object ItemLabel
-				    location   	(2418, 1433)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Client Windows")
-				subobjects 	0
-				x_offset   	-0.08
-				y_offset   	0.11)
-			    (object ObjectView "Client Windows" @27
-				location   	(203, 1526)
-				label      	(object ItemLabel
-				    location   	(99, 1442)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Client Windows")
-				subobjects 	0
-				x_offset   	-0.08
-				y_offset   	0.11)
-			    (object ObjectView "Foreground Client" @28
-				location   	(1438, 585)
-				label      	(object ItemLabel
-				    location   	(1335, 499)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Foreground Client")
-				subobjects 	0
-				x_offset   	-0.08
-				y_offset   	0.11)
-			    (object LinkView "" @29
-				client     	@20
-				supplier   	@27)
-			    (object LinkView "" @30
-				client     	@21
-				supplier   	@23)
-			    (object LinkView "" @31
-				client     	@23
-				supplier   	@25)
-			    (object LinkView "" @32
-				client     	@25
-				supplier   	@26)
-			    (object LinkView "" @33
-				client     	@21
-				supplier   	@27)
-			    (object LinkView "" @34
-				client     	@22
-				supplier   	@23)
-			    (object LinkView "" @35
-				client     	@22
-				supplier   	@25)
-			    (object LinkView "" @36
-				client     	@22
-				supplier   	@26)
-			    (object LinkView "" @37
-				client     	@22
-				supplier   	@27)
-			    (object LinkView "" @38
-				client     	@24
-				supplier   	@20)
-			    (object LinkView "" @39
-				client     	@28
-				supplier   	@21)))
-		    (object ObjectDiagram "Basic window tree structure"
-			mechanism_ref 	@9
-			title      	"Basic window tree structure"
-			zoom       	100
-			max_height 	28350
-			max_width  	21600
-			origin_x   	0
-			origin_y   	0
-			items      	(list diagram_item_list
-			    (object ObjectView "Window" @40
-				location   	(715, 272)
-				label      	(object ItemLabel
-				    location   	(611, 188)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Window" @41
-				location   	(553, 814)
-				label      	(object ItemLabel
-				    location   	(449, 730)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Window" @42
-				location   	(1306, 814)
-				label      	(object ItemLabel
-				    location   	(1202, 730)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Window" @43
-				location   	(2090, 814)
-				label      	(object ItemLabel
-				    location   	(1986, 730)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Window" @44
-				location   	(1306, 1345)
-				label      	(object ItemLabel
-				    location   	(1202, 1261)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Window" @45
-				location   	(553, 1366)
-				label      	(object ItemLabel
-				    location   	(449, 1282)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Window" @46
-				location   	(1306, 1823)
-				label      	(object ItemLabel
-				    location   	(1202, 1739)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Window" @47
-				location   	(1868, 1346)
-				label      	(object ItemLabel
-				    location   	(1764, 1262)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object LinkView "" @48
-				client     	@40
-				supplier   	@41)
-			    (object MessView ""
-				location   	(667, 551)
-				label      	(object SegLabel
-				    location   	(731, 558)
-				    anchor_loc 	1
-				    nlines     	1
-				    max_width  	450
-				    justify    	0
-				    label      	"Child"
-				    pctDist    	0.407895
-				    height     	64
-				    orientation 	0)
-				object_arc 	@48
-				pctDist    	0.494941
-				height     	35
-				orientation 	0
-				dir        	1
-				origin     	(684, 494)
-				terminus   	(650, 608))
-			    (object LinkView "" @49
-				client     	@41
-				supplier   	@42)
-			    (object MessView ""
-				location   	(917, 785)
-				label      	(object SegLabel
-				    location   	(917, 741)
-				    anchor_loc 	1
-				    nlines     	1
-				    max_width  	450
-				    justify    	0
-				    label      	"Sibling"
-				    pctDist    	0.5
-				    height     	45
-				    orientation 	0)
-				object_arc 	@49
-				pctDist    	0.5
-				height     	30
-				orientation 	0
-				dir        	1
-				origin     	(857, 785)
-				terminus   	(977, 785))
-			    (object LinkView "" @50
-				client     	@41
-				supplier   	@40
-				vertices   	(list Points
-				    (572, 705)
-				    (597, 569)
-				    (665, 398)))
-			    (object MessView ""
-				location   	(578, 538)
-				label      	(object SegLabel
-				    location   	(485, 541)
-				    anchor_loc 	1
-				    nlines     	1
-				    max_width  	450
-				    justify    	0
-				    label      	"Parent"
-				    pctDist    	0.199365
-				    height     	87
-				    orientation 	0)
-				object_arc 	@50
-				pctDist    	0.5
-				height     	30
-				orientation 	0
-				dir        	1
-				origin     	(556, 593)
-				terminus   	(600, 483))
-			    (object LinkView "" @51
-				client     	@42
-				supplier   	@43)
-			    (object MessView ""
-				location   	(1676, 783)
-				label      	(object SegLabel
-				    location   	(1676, 748)
-				    anchor_loc 	1
-				    nlines     	1
-				    max_width  	450
-				    justify    	0
-				    label      	"Sibling"
-				    pctDist    	0.5
-				    height     	36
-				    orientation 	0)
-				object_arc 	@51
-				pctDist    	0.478058
-				height     	32
-				orientation 	0
-				dir        	1
-				origin     	(1616, 783)
-				terminus   	(1736, 783))
-			    (object LinkView "" @52
-				client     	@42
-				supplier   	@40)
-			    (object MessView ""
-				location   	(1076, 554)
-				label      	(object SegLabel
-				    location   	(1053, 580)
-				    anchor_loc 	1
-				    nlines     	1
-				    max_width  	450
-				    justify    	0
-				    label      	"Parent"
-				    pctDist    	0.5
-				    height     	36
-				    orientation 	0)
-				object_arc 	@52
-				pctDist    	0.368275
-				height     	37
-				orientation 	1
-				dir        	1
-				origin     	(1119, 594)
-				terminus   	(1033, 514))
-			    (object LinkView "" @53
-				client     	@43
-				supplier   	@40)
-			    (object MessView ""
-				location   	(1478, 528)
-				object_arc 	@53
-				pctDist    	0.451966
-				height     	42
-				orientation 	1
-				dir        	1
-				origin     	(1533, 549)
-				terminus   	(1423, 507))
-			    (object LinkView "" @54
-				client     	@41
-				supplier   	@45)
-			    (object MessView ""
-				location   	(583, 1095)
-				object_arc 	@54
-				pctDist    	0.5
-				height     	30
-				orientation 	0
-				dir        	1
-				origin     	(583, 1035)
-				terminus   	(583, 1155))
-			    (object LinkView "" @55
-				client     	@45
-				supplier   	@41
-				vertices   	(list Points
-				    (537, 1265)
-				    (519, 1159)
-				    (519, 1000)
-				    (532, 932)))
-			    (object MessView ""
-				location   	(485, 1074)
-				object_arc 	@55
-				pctDist    	0.577381
-				height     	35
-				orientation 	0
-				dir        	1
-				origin     	(485, 1133)
-				terminus   	(485, 1015))
-			    (object LinkView "" @56
-				client     	@42
-				supplier   	@44)
-			    (object MessView ""
-				location   	(1336, 1084)
-				object_arc 	@56
-				pctDist    	0.5
-				height     	30
-				orientation 	0
-				dir        	1
-				origin     	(1336, 1024)
-				terminus   	(1336, 1144))
-			    (object LinkView "" @57
-				client     	@44
-				supplier   	@46)
-			    (object MessView ""
-				location   	(1336, 1588)
-				object_arc 	@57
-				pctDist    	0.5
-				height     	30
-				orientation 	0
-				dir        	1
-				origin     	(1336, 1528)
-				terminus   	(1336, 1648))
-			    (object LinkView "" @58
-				client     	@44
-				supplier   	@47)
-			    (object MessView ""
-				location   	(1575, 1316)
-				object_arc 	@58
-				pctDist    	0.5
-				height     	30
-				orientation 	0
-				dir        	1
-				origin     	(1515, 1316)
-				terminus   	(1635, 1316))
-			    (object LinkView "" @59
-				client     	@47
-				supplier   	@42)
-			    (object MessView ""
-				location   	(1553, 1089)
-				object_arc 	@59
-				pctDist    	0.5
-				height     	30
-				orientation 	0
-				dir        	1
-				origin     	(1596, 1129)
-				terminus   	(1510, 1049))
-			    (object LinkView "" @60
-				client     	@44
-				supplier   	@42
-				vertices   	(list Points
-				    (1273, 1241)
-				    (1240, 1140)
-				    (1244, 1006)
-				    (1267, 938)))
-			    (object MessView ""
-				location   	(1212, 1091)
-				object_arc 	@60
-				pctDist    	0.5
-				height     	30
-				orientation 	0
-				dir        	1
-				origin     	(1210, 1150)
-				terminus   	(1214, 1032))
-			    (object LinkView "" @61
-				client     	@46
-				supplier   	@44
-				vertices   	(list Points
-				    (1286, 1721)
-				    (1269, 1640)
-				    (1265, 1537)
-				    (1282, 1464)))
-			    (object MessView ""
-				location   	(1227, 1588)
-				object_arc 	@61
-				pctDist    	0.524425
-				height     	41
-				orientation 	0
-				dir        	1
-				origin     	(1228, 1647)
-				terminus   	(1226, 1529))))))
-	    (object Class_Category "Top level"
-		visible_categories 	(list visibility_relationship_list
-		    (object Visibility_Relationship
-			supplier   	"GDI Interface")
-		    (object Visibility_Relationship
-			supplier   	"Drawables")
-		    (object Visibility_Relationship
-			supplier   	"AGDI")
-		    (object Visibility_Relationship
-			supplier   	"XGDI"))
-		exportControl 	"Public"
-		logical_models 	(list unit_reference_list
-		    (object Class "$UNNAMED$12")
-		    (object Class "Invalid window list"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Variable arrayx"))
-			collaborators 	(list association_list
-			    (object Association
-				supplier   	"Root window"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "1")))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class_Utility "$UNNAMED$13")
-		    (object Class "Heartbeat"
-			collaborators 	(list association_list
-			    (object Association
-				supplier   	"Animatorx"
-				supplier_cardinality 	(value cardinality "n")
-				client_cardinality 	(value cardinality "1"))
-			    (object Association
-				supplier   	"GDI Controllerx")
-			    (object Association
-				supplier   	"Animator"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "1")))
-			concurrency 	"Active"
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Event queue"
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Session"
-			fields     	(list has_relationship_list
-			    (object Has_Relationship
-				supplier   	"Invalid window list"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"Clockx"
-				supplier_cardinality 	(value cardinality "n")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"Bitmap sequencex"
-				supplier_cardinality 	(value cardinality "n")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"Spritex"
-				supplier_cardinality 	(value cardinality "0..1")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"Text Cursorx"
-				supplier_cardinality 	(value cardinality "0,1")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"Event queue"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"Drawable")
-			    (object Has_Relationship
-				supplier   	"Graphics context")
-			    (object Has_Relationship
-				supplier   	"Temp graphics contextx")
-			    (object Has_Relationship
-				supplier   	"GDI Controllerx")
-			    (object Has_Relationship
-				supplier   	"Animator"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"Root window"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"GDI object")
-			    (object Has_Relationship
-				supplier   	"GDI controller"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "1"))
-			    (object Has_Relationship
-				supplier   	"Capture key list"))
-			collaborators 	(list association_list
-			    (object Association
-				label      	"Current GC"
-				supplier   	"Graphics context"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "0,1")))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Capture key list"
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Pointer"
-			collaborators 	(list association_list
-			    (object Association
-				supplier   	"Session"
-				supplier_cardinality 	(value cardinality "n")
-				client_cardinality 	(value cardinality "1"))
-			    (object Association
-				supplier   	"Root window"
-				supplier_cardinality 	(value cardinality "n")
-				client_cardinality 	(value cardinality "1")))
-			used_nodes 	(list uses_relationship_list
-			    (object Uses_Relationship
-				supplier   	"Pointer cursor"))
-			concurrency 	"Active")
-		    (object Class "Keyboard"
-			collaborators 	(list association_list
-			    (object Association
-				supplier   	"Session"
-				supplier_cardinality 	(value cardinality "n")
-				client_cardinality 	(value cardinality "1")))
-			concurrency 	"Active")
-		    (object Class "Window server"
-			fields     	(list has_relationship_list
-			    (object Has_Relationship
-				supplier   	"Session"
-				supplier_cardinality 	(value cardinality "n")
-				client_cardinality 	(value cardinality "1")))
-			concurrency 	"Active")
-		    (object Class "Text Cursor"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Animatorx"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "AGDI controller")
-		    (object Mechanism @62
-			logical_models 	(list unit_reference_list
-			    (object Object "Pointer dispatcher"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Clients"
-					messages   	(list Messages
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	2)))
-				    (object Link
-					supplier   	"Pointer decoder"
-					messages   	(list Messages
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	3)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	4))))
-				persistence 	"Transient"
-				multi      	FALSE)
-			    (object Object "Keyboard"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Foreground Client"
-					messages   	(list Messages
-					    (object Message "Key ups & downs"
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	0))))
-				persistence 	"Transient"
-				multi      	FALSE)
-			    (object Object "Clients"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Client commands"))
-				persistence 	"Transient"
-				multi      	TRUE)
-			    (object Object "Heartbeat"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Animate list"
-					messages   	(list Messages
-					    (object Message "Animate cursor"
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	1))))
-				persistence 	"Transient"
-				multi      	FALSE)
-			    (object Object "Foreground Client"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Heartbeat"))
-				persistence 	"Transient"
-				multi      	FALSE)
-			    (object Object "Client commands"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Clients"
-					messages   	(list Messages
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	5)
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"ToClientFromSupplier"
-						sequence   	""
-						ordinal    	6))))
-				persistence 	"Transient"
-				multi      	FALSE)
-			    (object Object "Pointer decoder"
-				persistence 	"Transient"
-				multi      	FALSE)
-			    (object Object "Animate list"
-				collaborators 	(list link_list
-				    (object Link
-					supplier   	"Clients"
-					messages   	(list Messages
-					    (object Message ""
-						frequency  	"Aperiodic"
-						synchronization 	"Simple"
-						dir        	"FromClientToSupplier"
-						sequence   	""
-						ordinal    	7))))
-				persistence 	"Transient"
-				multi      	FALSE))))
-		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" "Invalid window list" @63
-				location   	(913, 1391)
-				label      	(object ItemLabel
-				    location   	(811, 1308)
-				    nlines     	2
-				    max_width  	236
-				    justify    	0
-				    label      	"Invalid window list")
-				width      	343
-				height     	250
-				annotation 	8)
-			    (object ClassView "Class" "Event queue" @64
-				location   	(1962, 757)
-				label      	(object ItemLabel
-				    location   	(1858, 673)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Event queue")
-				annotation 	8)
-			    (object ClassView "Class" "Heartbeat" @65
-				location   	(244, 170)
-				label      	(object ItemLabel
-				    location   	(140, 86)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Heartbeat")
-				annotation 	10)
-			    (object ClassView "Class" "Session" @66
-				location   	(1684, 1494)
-				label      	(object ItemLabel
-				    location   	(1580, 1410)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Session")
-				annotation 	8)
-			    (object HasView ""
-				client     	@66
-				supplier   	@64)
-			    (object ClassView "Class" "Capture key list" @67
-				location   	(2440, 498)
-				label      	(object ItemLabel
-				    location   	(2336, 414)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Capture key list")
-				annotation 	8)
-			    (object ClassView "Class" "Pointer" @68
-				location   	(712, 176)
-				label      	(object ItemLabel
-				    location   	(608, 92)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Pointer")
-				annotation 	10)
-			    (object ClassView "Class" "Keyboard" @69
-				location   	(2453, 957)
-				label      	(object ItemLabel
-				    location   	(2349, 873)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Keyboard")
-				annotation 	10)
-			    (object ClassView "Class" "Window server" @70
-				location   	(1759, 292)
-				label      	(object ItemLabel
-				    location   	(1655, 208)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Window server")
-				annotation 	10)
-			    (object HasView ""
-				client     	@66
-				supplier   	@63)
-			    (object ClassView "Class" "Animator" @71
-				location   	(278, 1782)
-				label      	(object ItemLabel
-				    location   	(174, 1698)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Animator")
-				annotation 	8)
-			    (object AssociationView ""
-				client     	@65
-				supplier   	@71)
-			    (object HasView ""
-				client     	@66
-				supplier   	@71)
-			    (object ClassView "Class" "Root window" @72
-				location   	(712, 976)
-				label      	(object ItemLabel
-				    location   	(608, 892)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Root window")
-				annotation 	8)
-			    (object HasView ""
-				client     	@66
-				supplier   	@72)
-			    (object AssociationView ""
-				client     	@63
-				supplier   	@72)
-			    (object AssociationView ""
-				client     	@72
-				supplier   	@71)
-			    (object HasView ""
-				client     	@66
-				supplier   	@67)
-			    (object ClassView "Class" "Pointer cursor" @73
-				location   	(459, 700)
-				label      	(object ItemLabel
-				    location   	(355, 616)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Pointer cursor")
-				annotation 	8)
-			    (object UsesView ""
-				client     	@68
-				supplier   	@73)
-			    (object HasView ""
-				client     	@71
-				supplier   	@73)
-			    (object HasView ""
-				client     	@70
-				supplier   	@66)
-			    (object AssociationView ""
-				client     	@69
-				supplier   	@66)
-			    (object AssociationView ""
-				client     	@68
-				supplier   	@66)
-			    (object AssociationView ""
-				client     	@68
-				supplier   	@72)))
-		    (object ObjectDiagram "Event handling"
-			mechanism_ref 	@62
-			title      	"Event handling"
-			zoom       	94
-			max_height 	28350
-			max_width  	21600
-			origin_x   	0
-			origin_y   	0
-			items      	(list diagram_item_list
-			    (object ObjectView "Pointer dispatcher" @74
-				location   	(1430, 339)
-				label      	(object ItemLabel
-				    location   	(1326, 255)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Pointer dispatcher")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Keyboard" @75
-				location   	(306, 613)
-				label      	(object ItemLabel
-				    location   	(202, 529)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Keyboard")
-				subobjects 	0
-				x_offset   	-0.08
-				y_offset   	0.11)
-			    (object ObjectView "Clients" @76
-				location   	(964, 1683)
-				label      	(object ItemLabel
-				    location   	(737, 1490)
-				    nlines     	2
-				    max_width  	540
-				    justify    	0
-				    label      	"Clients")
-				width      	783
-				height     	567
-				subobjects 	1
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Heartbeat" @77
-				location   	(2667, 621)
-				label      	(object ItemLabel
-				    location   	(2563, 537)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Heartbeat")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Foreground Client" @78
-				location   	(904, 1678)
-				label      	(object ItemLabel
-				    location   	(800, 1595)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Foreground Client")
-				width      	349
-				height     	250
-				subobjects 	0
-				x_offset   	-0.076628
-				y_offset   	-0.007055)
-			    (object ObjectView "Client commands" @79
-				location   	(885, 578)
-				label      	(object ItemLabel
-				    location   	(781, 494)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Client commands")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object ObjectView "Pointer decoder" @80
-				location   	(1557, 850)
-				label      	(object ItemLabel
-				    location   	(1453, 766)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Pointer decoder")
-				subobjects 	0
-				x_offset   	0.033206
-				y_offset   	-0.661376)
-			    (object ObjectView "Animate list" @81
-				location   	(2165, 930)
-				label      	(object ItemLabel
-				    location   	(2061, 846)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Animate list")
-				subobjects 	0
-				x_offset   	0
-				y_offset   	0)
-			    (object LinkView "" @82
-				client     	@74
-				supplier   	@76)
-			    (object MessView ""
-				location   	(1307, 761)
-				object_arc 	@82
-				pctDist    	0.308797
-				height     	22
-				orientation 	0
-				dir        	1
-				origin     	(1326, 704)
-				terminus   	(1288, 818))
-			    (object LinkView "" @83
-				client     	@74
-				supplier   	@80)
-			    (object MessView ""
-				location   	(1522, 587)
-				object_arc 	@83
-				pctDist    	0.5
-				height     	30
-				orientation 	0
-				dir        	1
-				origin     	(1507, 529)
-				terminus   	(1537, 645))
-			    (object MessView ""
-				location   	(1465, 600)
-				object_arc 	@83
-				pctDist    	0.5
-				height     	30
-				orientation 	1
-				dir        	-1
-				origin     	(1479, 657)
-				terminus   	(1451, 543))
-			    (object LinkView "" @84
-				client     	@75
-				supplier   	@78)
-			    (object MessView "Key ups & downs"
-				location   	(623, 1120)
-				label      	(object SegLabel
-				    location   	(627, 1054)
-				    anchor_loc 	1
-				    nlines     	1
-				    max_width  	450
-				    justify    	0
-				    label      	"Key ups & downs"
-				    pctDist    	0.032819
-				    height     	37
-				    orientation 	0)
-				object_arc 	@84
-				pctDist    	0.501153
-				height     	29
-				orientation 	0
-				dir        	1
-				origin     	(594, 1068)
-				terminus   	(652, 1172))
-			    (object LinkView "" @85
-				client     	@77
-				supplier   	@81)
-			    (object MessView "Animate cursor"
-				location   	(2453, 725)
-				label      	(object SegLabel
-				    location   	(2472, 755)
-				    anchor_loc 	1
-				    nlines     	1
-				    max_width  	450
-				    justify    	0
-				    label      	"Animate cursor"
-				    pctDist    	0.5
-				    height     	36
-				    orientation 	0)
-				object_arc 	@85
-				pctDist    	0.423651
-				height     	25
-				orientation 	1
-				dir        	1
-				origin     	(2503, 693)
-				terminus   	(2403, 757))
-			    (object LinkView "" @86
-				client     	@79
-				supplier   	@76)
-			    (object MessView ""
-				location   	(951, 1070)
-				object_arc 	@86
-				pctDist    	0.5
-				height     	30
-				orientation 	0
-				dir        	1
-				origin     	(946, 1010)
-				terminus   	(956, 1130))
-			    (object MessView ""
-				location   	(892, 1073)
-				object_arc 	@86
-				pctDist    	0.5
-				height     	30
-				orientation 	1
-				dir        	-1
-				origin     	(896, 1132)
-				terminus   	(888, 1014))
-			    (object LinkView "" @87
-				client     	@81
-				supplier   	@76)
-			    (object MessView ""
-				location   	(1737, 1153)
-				object_arc 	@87
-				pctDist    	0.401609
-				height     	39
-				orientation 	1
-				dir        	1
-				origin     	(1787, 1121)
-				terminus   	(1687, 1185))))))
-	    (object Class_Category "OLIB"
-		exportControl 	"Public"
-		logical_models 	(list unit_reference_list)
-		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 Class_Category "AGDI"
-		visible_categories 	(list visibility_relationship_list
-		    (object Visibility_Relationship
-			supplier   	"GDI Interface")
-		    (object Visibility_Relationship
-			supplier   	"GDI")
-		    (object Visibility_Relationship
-			supplier   	"Drawables"))
-		exportControl 	"Public"
-		logical_models 	(list unit_reference_list
-		    (object Class "Animated DLL Interface"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Animator"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Bitmap sequence"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Animator")))
-		    (object Class "Sprite"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Animator"))
-			statediagram 	(object State_Diagram ""
-			    title      	""
-			    zoom       	100
-			    max_height 	28350
-			    max_width  	21600
-			    origin_x   	0
-			    origin_y   	0
-			    items      	(list diagram_item_list)))
-		    (object Class "Text cursor"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Animator")))
-		    (object Class "AGDI Controller"
-			fields     	(list has_relationship_list
-			    (object Has_Relationship
-				supplier   	"Animator"
-				supplier_cardinality 	(value cardinality "n")
-				client_cardinality 	(value cardinality "1"))))
-		    (object Class "Animator"
-			fields     	(list has_relationship_list
-			    (object Has_Relationship
-				supplier   	"Pointer cursor"))
-			collaborators 	(list association_list
-			    (object Association
-				supplier   	"Graphics context"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "n"))
-			    (object Association
-				supplier   	"Drawable"
-				supplier_cardinality 	(value cardinality "1")
-				client_cardinality 	(value cardinality "n"))
-			    (object Association
-				supplier   	"GDI object"
-				supplier_cardinality 	(value cardinality "n")
-				client_cardinality 	(value cardinality "n"))))
-		    (object Class "Pointer cursor"
-			superclasses 	(list inheritance_relationship_list
-			    (object Inheritance_Relationship
-				supplier   	"Sprite"))))
-		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" "Animated DLL Interface" @88
-				location   	(444, 1156)
-				label      	(object ItemLabel
-				    location   	(340, 1072)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Animated DLL Interface")
-				annotation 	8)
-			    (object ClassView "Class" "Sprite" @89
-				location   	(1650, 1142)
-				label      	(object ItemLabel
-				    location   	(1546, 1058)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Sprite")
-				annotation 	8)
-			    (object ClassView "Class" "Text cursor" @90
-				location   	(1034, 1167)
-				label      	(object ItemLabel
-				    location   	(930, 1083)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Text cursor")
-				annotation 	8)
-			    (object ClassView "Class" "Animator" @91
-				location   	(569, 589)
-				label      	(object ItemLabel
-				    location   	(465, 505)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Animator")
-				annotation 	8)
-			    (object InheritView ""
-				client     	@89
-				supplier   	@91)
-			    (object InheritView ""
-				client     	@90
-				supplier   	@91)
-			    (object InheritView ""
-				client     	@88
-				supplier   	@91)
-			    (object ClassView "Class" "Pointer cursor" @92
-				location   	(1840, 1610)
-				label      	(object ItemLabel
-				    location   	(1736, 1526)
-				    nlines     	2
-				    max_width  	240
-				    justify    	0
-				    label      	"Pointer cursor")
-				annotation 	8)
-			    (object InheritView ""
-				client     	@92
-				supplier   	@89)))))
-	    (object Class_Category "Test code using AGDI interface"
-		visible_categories 	(list visibility_relationship_list
-		    (object Visibility_Relationship
-			supplier   	"GDI")
-		    (object Visibility_Relationship
-			supplier   	"Drawables"))
-		exportControl 	"Public"
-		logical_models 	(list unit_reference_list)
-		logical_presentations 	(list unit_reference_list))
-	    (object Class_Category "Dummy test window server "
-		visible_categories 	(list visibility_relationship_list
-		    (object Visibility_Relationship
-			supplier   	"GDI Interface")
-		    (object Visibility_Relationship
-			supplier   	"Drawables")
-		    (object Visibility_Relationship
-			supplier   	"AGDI"))
-		exportControl 	"Public"
-		logical_models 	(list unit_reference_list)
-		logical_presentations 	(list unit_reference_list))
-	    (object Class_Category "XGDI"
-		visible_categories 	(list visibility_relationship_list
-		    (object Visibility_Relationship
-			supplier   	"GDI Interface")
-		    (object Visibility_Relationship
-			supplier   	"Drawables")
-		    (object Visibility_Relationship
-			supplier   	"GDI"))
-		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       	100
-		max_height 	28350
-		max_width  	21600
-		origin_x   	0
-		origin_y   	0
-		items      	(list diagram_item_list
-		    (object CategoryView "GDI" @93
-			location   	(525, 1050)
-			font       	(object Font
-			    size       	12
-			    face       	"helvetica"
-			    bold       	FALSE
-			    italics    	FALSE
-			    underline  	FALSE
-			    strike     	FALSE
-			    color      	0
-			    default_color 	TRUE)
-			label      	(object ItemLabel
-			    location   	(381, 966)
-			    nlines     	2
-			    max_width  	288
-			    justify    	0
-			    label      	"GDI")
-			width      	300
-			height     	180)
-		    (object CategoryView "Drawables" @94
-			location   	(740, 439)
-			font       	(object Font
-			    size       	12
-			    face       	"helvetica"
-			    bold       	FALSE
-			    italics    	FALSE
-			    underline  	FALSE
-			    strike     	FALSE
-			    color      	0
-			    default_color 	TRUE)
-			label      	(object ItemLabel
-			    location   	(596, 355)
-			    nlines     	2
-			    max_width  	288
-			    justify    	0
-			    label      	"Drawables")
-			width      	300
-			height     	180)
-		    (object CategoryView "Top level" @95
-			location   	(528, 158)
-			font       	(object Font
-			    size       	12
-			    face       	"helvetica"
-			    bold       	FALSE
-			    italics    	FALSE
-			    underline  	FALSE
-			    strike     	FALSE
-			    color      	0
-			    default_color 	TRUE)
-			label      	(object ItemLabel
-			    location   	(384, 74)
-			    nlines     	2
-			    max_width  	288
-			    justify    	0
-			    label      	"Top level")
-			width      	300
-			height     	180)
-		    (object CategoryView "AGDI" @96
-			location   	(1209, 437)
-			label      	(object ItemLabel
-			    location   	(1065, 353)
-			    nlines     	2
-			    max_width  	288
-			    justify    	0
-			    label      	"AGDI")
-			width      	300
-			height     	180)
-		    (object ImportView ""
-			client     	@95
-			supplier   	@94)
-		    (object ImportView ""
-			client     	@95
-			supplier   	@96)
-		    (object CategoryView "Drawables" @97
-			location   	(1911, 1251)
-			font       	(object Font
-			    size       	12
-			    face       	"helvetica"
-			    bold       	FALSE
-			    italics    	FALSE
-			    underline  	FALSE
-			    strike     	FALSE
-			    color      	0
-			    default_color 	TRUE)
-			label      	(object ItemLabel
-			    location   	(1767, 1167)
-			    nlines     	2
-			    max_width  	288
-			    justify    	0
-			    label      	"Drawables")
-			width      	300
-			height     	180)
-		    (object CategoryView "GDI" @98
-			location   	(1656, 1840)
-			font       	(object Font
-			    size       	12
-			    face       	"helvetica"
-			    bold       	FALSE
-			    italics    	FALSE
-			    underline  	FALSE
-			    strike     	FALSE
-			    color      	0
-			    default_color 	TRUE)
-			label      	(object ItemLabel
-			    location   	(1512, 1756)
-			    nlines     	2
-			    max_width  	288
-			    justify    	0
-			    label      	"GDI")
-			width      	300
-			height     	180)
-		    (object CategoryView "Test code using AGDI interface" @99
-			location   	(2401, 1249)
-			label      	(object ItemLabel
-			    location   	(2238, 1155)
-			    nlines     	2
-			    max_width  	326
-			    justify    	0
-			    label      	"Test code using AGDI interface")
-			width      	338
-			height     	200)
-		    (object CategoryView "XGDI" @100
-			location   	(234, 437)
-			label      	(object ItemLabel
-			    location   	(90, 353)
-			    nlines     	2
-			    max_width  	288
-			    justify    	0
-			    label      	"XGDI")
-			width      	300
-			height     	180)
-		    (object ImportView ""
-			client     	@95
-			supplier   	@100)
-		    (object ImportView ""
-			client     	@100
-			supplier   	@94)
-		    (object ImportView ""
-			client     	@97
-			supplier   	@98)
-		    (object ImportView ""
-			client     	@99
-			supplier   	@98)
-		    (object ImportView ""
-			client     	@99
-			supplier   	@97)
-		    (object ImportView ""
-			client     	@94
-			supplier   	@93)
-		    (object ImportView ""
-			client     	@100
-			supplier   	@93)
-		    (object ImportView ""
-			client     	@96
-			supplier   	@93)
-		    (object ImportView ""
-			client     	@96
-			supplier   	@94)))))
-    root_subsystem 	(object SubSystem "<Top Level>"
-	physical_models 	(list unit_reference_list
-	    (object module "$UNNAMED$14" "SubType" "Specification"
-		visible_modules 	(list dependency_list
-		    (object Dependency_Relationship
-			supplier   	"$UNNAMED$15"
-			supplier_is_spec 	TRUE)
-		    (object Dependency_Relationship
-			supplier   	"$UNNAMED$16"
-			supplier_is_spec 	TRUE)))
-	    (object module "$UNNAMED$15" "PackageType" "Specification"
-		visible_modules 	(list dependency_list
-		    (object Dependency_Relationship
-			supplier   	"$UNNAMED$16"
-			supplier_is_spec 	TRUE)))
-	    (object module "$UNNAMED$17" "PackageType" "Specification"
-		visible_modules 	(list dependency_list
-		    (object Dependency_Relationship
-			supplier_is_spec 	TRUE)))
-	    (object module "$UNNAMED$16" "TaskType" "Specification"
-		visible_modules 	(list dependency_list
-		    (object Dependency_Relationship
-			supplier_is_spec 	TRUE)))
-	    (object module "$UNNAMED$18" "PackageType" "Specification")
-	    (object module "$UNNAMED$19" "SubType" "Specification")
-	    (object module "$UNNAMED$20" "TaskType" "Specification")
-	    (object SubSystem "$UNNAMED$21"
-		physical_models 	(list unit_reference_list)
-		physical_presentations 	(list unit_reference_list))
-	    (object SubSystem "$UNNAMED$22"
-		physical_models 	(list unit_reference_list)
-		physical_presentations 	(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 Processor "Processor"
-		connections 	(list connection_list
-		    (object Connection_Relationship
-			supplier   	"VDU"
-			supplier_is_device 	TRUE))
-		characteristics 	""
-		scheduling 	"Preemptive"
-		processes  	(list processes))
-	    (object Device "Keyboard"
-		connections 	(list connection_list
-		    (object Connection_Relationship
-			supplier   	"Processor"
-			supplier_is_device 	FALSE))
-		characteristics 	"")
-	    (object Device "VDU"
-		characteristics 	"")
-	    (object Device "Pointing device"
-		connections 	(list connection_list
-		    (object Connection_Relationship
-			supplier   	"Processor"
-			supplier_is_device 	FALSE))
-		characteristics 	"")
-	    (object Process_Diagram ""
-		title      	""
-		zoom       	100
-		max_height 	28350
-		max_width  	21600
-		origin_x   	0
-		origin_y   	0
-		items      	(list diagram_item_list
-		    (object ProcessorView "Processor" @101
-			location   	(1334, 544)
-			label      	(object ItemLabel
-			    location   	(1156, 449)
-			    nlines     	2
-			    max_width  	246
-			    justify    	0
-			    label      	"Processor")
-			width      	360
-			height     	300
-			annotation 	0)
-		    (object DeviceView "Keyboard" @102
-			location   	(853, 409)
-			label      	(object ItemLabel
-			    location   	(675, 314)
-			    nlines     	2
-			    max_width  	246
-			    justify    	0
-			    label      	"Keyboard")
-			width      	360
-			height     	300
-			annotation 	0)
-		    (object DeviceView "VDU" @103
-			location   	(1968, 543)
-			label      	(object ItemLabel
-			    location   	(1790, 448)
-			    nlines     	2
-			    max_width  	246
-			    justify    	0
-			    label      	"VDU")
-			width      	360
-			height     	300
-			annotation 	0)
-		    (object DeviceView "Pointing device" @104
-			location   	(443, 668)
-			label      	(object ItemLabel
-			    location   	(265, 573)
-			    nlines     	2
-			    max_width  	246
-			    justify    	0
-			    label      	"Pointing device")
-			width      	360
-			height     	300
-			annotation 	0)
-		    (object ConnectionView ""
-			client     	@101
-			supplier   	@103)
-		    (object ConnectionView ""
-			client     	@104
-			supplier   	@101)
-		    (object ConnectionView ""
-			client     	@102
-			supplier   	@101)))))
-    properties 	(object Properties))
+
+(object Petal
+    version    	35)
+
+(object Design "<Top Level>"
+    is_unit    	TRUE
+    file_name  	"d:\wserv\des\wserv.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 "$UNNAMED$0")
+	    (object Class "Client ")
+	    (object Class_Category "GDI"
+		exportControl 	"Public"
+		logical_models 	(list unit_reference_list
+		    (object Class "Bitmap Font"
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Brush"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"GDI object"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Pen"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"GDI object"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "CBackground")
+		    (object Class "integer"
+			nonclass   	TRUE)
+		    (object Class "CPenCursor")
+		    (object Class "CTextCursor")
+		    (object Class "$UNNAMED$1")
+		    (object Class "$UNNAMED$2")
+		    (object Class " WS Object"
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Drawablex"
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Font"
+			fields     	(list has_relationship_list
+			    (object Has_Relationship
+				supplier   	"Bitmap Font"
+				supplier_cardinality 	(value cardinality "0..1")
+				client_cardinality 	(value cardinality "n"))
+			    (object Has_Relationship
+				supplier   	"Vector font"
+				supplier_cardinality 	(value cardinality "0..1")
+				client_cardinality 	(value cardinality "n")))
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"GDI object"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Vector font"
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "$UNNAMED$3")
+		    (object Class "Palette"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"GDI object")))
+		    (object Class "Drawable GDI Data")
+		    (object Class_Category "$UNNAMED$4"
+			exportControl 	"Public"
+			logical_models 	(list unit_reference_list)
+			logical_presentations 	(list unit_reference_list))
+		    (object Class_Category "$UNNAMED$5"
+			exportControl 	"Public"
+			logical_models 	(list unit_reference_list)
+			logical_presentations 	(list unit_reference_list))
+		    (object Class_Category "$UNNAMED$6"
+			exportControl 	"Public"
+			logical_models 	(list unit_reference_list)
+			logical_presentations 	(list unit_reference_list))
+		    (object Class_Category "$UNNAMED$7"
+			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       	100
+			max_height 	28350
+			max_width  	21600
+			origin_x   	0
+			origin_y   	0
+			items      	(list diagram_item_list
+			    (object ClassView "Class" "Bitmap Font" @1
+				location   	(2259, 1427)
+				label      	(object ItemLabel
+				    location   	(2155, 1343)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Bitmap Font")
+				annotation 	8)
+			    (object ClassView "Class" "Brush" @2
+				location   	(1228, 901)
+				label      	(object ItemLabel
+				    location   	(1124, 817)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Brush")
+				annotation 	8)
+			    (object ClassView "Class" "Pen" @3
+				location   	(1709, 904)
+				label      	(object ItemLabel
+				    location   	(1605, 820)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Pen")
+				annotation 	8)
+			    (object ClassView "Class" "Font" @4
+				location   	(2200, 904)
+				label      	(object ItemLabel
+				    location   	(2096, 820)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Font")
+				annotation 	8)
+			    (object ClassView "Class" "Vector font" @5
+				location   	(2659, 1429)
+				label      	(object ItemLabel
+				    location   	(2555, 1345)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Vector font")
+				annotation 	8)
+			    (object HasView ""
+				client     	@4
+				supplier   	@1)
+			    (object HasView ""
+				client     	@4
+				supplier   	@5)
+			    (object ClassView "Class" "Palette" @6
+				location   	(822, 915)
+				label      	(object ItemLabel
+				    location   	(718, 831)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Palette")
+				annotation 	8)
+			    (object ClassView "Class" "Drawable GDI Data" @7
+				location   	(340, 909)
+				label      	(object ItemLabel
+				    location   	(236, 825)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Drawable GDI Data")
+				annotation 	8)))))
+	    (object Class_Category "Drawables"
+		visible_categories 	(list visibility_relationship_list
+		    (object Visibility_Relationship
+			supplier   	"GDI Interface")
+		    (object Visibility_Relationship
+			supplier   	"GDI"))
+		exportControl 	"Public"
+		logical_models 	(list unit_reference_list
+		    (object Class "$UNNAMED$8")
+		    (object Class "Backed up Window"
+			fields     	(list has_relationship_list
+			    (object Has_Relationship
+				supplier   	"Backup Bitmap"))
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Window"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Window"
+			fields     	(list has_relationship_list
+			    (object Has_Relationship
+				supplier   	"Update Region"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"Clipping region"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"Client region"))
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Drawable"))
+			operations 	(list Operations
+			    (object Operation "SetVisibility"
+				concurrency 	"Sequential"
+				opExportControl 	"Public"
+				uid        	0))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Bitmap"
+			fields     	(list has_relationship_list
+			    (object Has_Relationship
+				supplier   	"Default region"))
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Drawable"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Backup Bitmap"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Bitmap"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Parameterized_Class "$UNNAMED$9")
+		    (object Class_Utility "$UNNAMED$10")
+		    (object Class "$UNNAMED$11")
+		    (object Class "RootWindow"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Window"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Update Region"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Region"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Root window"
+			collaborators 	(list association_list
+			    (object Association
+				supplier   	"Window"
+				supplier_cardinality 	(value cardinality "n")
+				client_cardinality 	(value cardinality "1"))
+			    (object Association
+				supplier   	"Animator"
+				supplier_cardinality 	(value cardinality "1"))))
+		    (object Class "Client region"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Region")))
+		    (object Class "Drawable"
+			fields     	(list has_relationship_list
+			    (object Has_Relationship
+				supplier   	"Gdi Drawable"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Gdi Drawable")
+		    (object Class "Default region")
+		    (object Mechanism @8
+			logical_models 	(list unit_reference_list
+			    (object Object "RootWindow"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Alert Window")
+				    (object Link
+					supplier   	"Client Windows"))
+				class      	"RootWindow"
+				persistence 	"Static"
+				multi      	FALSE)
+			    (object Object "Client Windows"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Temporary Status Window")
+				    (object Link
+					supplier   	"Client Windows")
+				    (object Link
+					supplier   	"Client Windows")
+				    (object Link
+					supplier   	"Client Windows")
+				    (object Link
+					supplier   	"Client Windows")
+				    (object Link
+					supplier   	"Client Windows"))
+				class      	"Window"
+				persistence 	"Transient"
+				multi      	TRUE)
+			    (object Object "Clients"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Client Windows")
+				    (object Link
+					supplier   	"Client Windows")
+				    (object Link
+					supplier   	"Client Windows")
+				    (object Link
+					supplier   	
+|Pseudo
+|Client
+					)
+				    (object Link
+					supplier   	"Client Windows"))
+				class      	"Session"
+				persistence 	"Transient"
+				multi      	TRUE)
+			    (object Object "Window Server"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Status Window")
+				    (object Link
+					supplier   	"RootWindow"
+					supplier_containment 	"By Value"
+					client_containment 	"By Value"))
+				class      	"System Client"
+				persistence 	"Static"
+				multi      	FALSE)
+			    (object Object "Foreground Client"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Client Windows"))
+				class      	"Session"
+				persistence 	"Transient"
+				multi      	FALSE)))
+		    (object Mechanism @9
+			logical_models 	(list unit_reference_list
+			    (object Object "Window"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Window"
+					messages   	(list Messages
+					    (object Message "Child"
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	0)))
+				    (object Link
+					supplier   	"Window"
+					messages   	(list Messages
+					    (object Message "Sibling"
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	1)))
+				    (object Link
+					supplier   	"Window"
+					messages   	(list Messages
+					    (object Message "Parent"
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	2)))
+				    (object Link
+					supplier   	"Window"
+					messages   	(list Messages
+					    (object Message "Sibling"
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	3)))
+				    (object Link
+					supplier   	"Window"
+					messages   	(list Messages
+					    (object Message "Parent"
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	4)))
+				    (object Link
+					supplier   	"Window")
+				    (object Link
+					supplier   	"Window")
+				    (object Link
+					supplier   	"Window")
+				    (object Link
+					supplier   	"Window")
+				    (object Link
+					supplier   	"Window")
+				    (object Link
+					supplier   	"Window")
+				    (object Link
+					supplier   	"Window")
+				    (object Link
+					supplier   	"Window")
+				    (object Link
+					supplier   	"Window"
+					messages   	(list Messages
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	5)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	6)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	7)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	8)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	9)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	10)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	11)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	12)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	13)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	14)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	15)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	16)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	17)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	18)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	19)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	20)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	21)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	22)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	23)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	24)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	25)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	26)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	27)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	28)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	29)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	30)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	31))))
+				class      	"Window"
+				persistence 	"Transient"
+				multi      	FALSE))))
+		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" "Backed up Window" @10
+				location   	(1126, 1425)
+				font       	(object Font
+				    size       	10
+				    face       	"helvetica"
+				    bold       	FALSE
+				    italics    	FALSE
+				    underline  	FALSE
+				    strike     	FALSE
+				    color      	0
+				    default_color 	TRUE)
+				label      	(object ItemLabel
+				    location   	(1024, 1343)
+				    nlines     	2
+				    max_width  	236
+				    justify    	0
+				    label      	"Backed up Window")
+				width      	343
+				height     	249
+				annotation 	8)
+			    (object ClassView "Class" "Window" @11
+				location   	(1125, 838)
+				label      	(object ItemLabel
+				    location   	(1021, 754)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window")
+				annotation 	8)
+			    (object InheritView ""
+				client     	@10
+				supplier   	@11)
+			    (object ClassView "Class" "Bitmap" @12
+				location   	(1744, 832)
+				label      	(object ItemLabel
+				    location   	(1640, 748)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Bitmap")
+				annotation 	8)
+			    (object ClassView "Class" "Backup Bitmap" @13
+				location   	(1743, 1424)
+				label      	(object ItemLabel
+				    location   	(1636, 1337)
+				    nlines     	2
+				    max_width  	249
+				    justify    	0
+				    label      	"Backup Bitmap")
+				width      	362
+				height     	262
+				annotation 	8)
+			    (object InheritView ""
+				client     	@13
+				supplier   	@12)
+			    (object ClassView "Class" "RootWindow" @14
+				location   	(1434, 1145)
+				label      	(object ItemLabel
+				    location   	(1330, 1061)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"RootWindow")
+				annotation 	8)
+			    (object InheritView ""
+				client     	@14
+				supplier   	@11)
+			    (object ClassView "Class" "Update Region" @15
+				location   	(319, 1158)
+				label      	(object ItemLabel
+				    location   	(215, 1074)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Update Region")
+				annotation 	8)
+			    (object HasView ""
+				client     	@10
+				supplier   	@13)
+			    (object HasView ""
+				client     	@11
+				supplier   	@15)
+			    (object ClassView "Class" "Client region" @16
+				location   	(450, 842)
+				label      	(object ItemLabel
+				    location   	(346, 758)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Client region")
+				annotation 	8)
+			    (object HasView ""
+				client     	@11
+				supplier   	@16)
+			    (object ClassView "Class" "Drawable" @17
+				location   	(1390, 426)
+				label      	(object ItemLabel
+				    location   	(1286, 342)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Drawable")
+				annotation 	8)
+			    (object InheritView ""
+				client     	@11
+				supplier   	@17)
+			    (object InheritView ""
+				client     	@12
+				supplier   	@17)
+			    (object ClassView "Class" "Gdi Drawable" @18
+				location   	(2325, 846)
+				label      	(object ItemLabel
+				    location   	(2221, 762)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Gdi Drawable")
+				annotation 	8)
+			    (object HasView ""
+				client     	@17
+				supplier   	@18)
+			    (object ClassView "Class" "Default region" @19
+				location   	(2287, 1226)
+				label      	(object ItemLabel
+				    location   	(2183, 1142)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Default region")
+				annotation 	8)
+			    (object HasView ""
+				client     	@12
+				supplier   	@19)))
+		    (object ObjectDiagram "Protea top level window structure"
+			mechanism_ref 	@8
+			title      	"Protea top level window structure"
+			zoom       	100
+			max_height 	28350
+			max_width  	21600
+			origin_x   	0
+			origin_y   	0
+			items      	(list diagram_item_list
+			    (object ObjectView "RootWindow" @20
+				location   	(334, 1068)
+				label      	(object ItemLabel
+				    location   	(230, 984)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"RootWindow")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Client Windows" @21
+				location   	(703, 1520)
+				label      	(object ItemLabel
+				    location   	(599, 1436)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Client Windows")
+				subobjects 	0
+				x_offset   	-0.078125
+				y_offset   	0.110406)
+			    (object ObjectView "Clients" @22
+				location   	(1500, 523)
+				label      	(object ItemLabel
+				    location   	(1273, 330)
+				    nlines     	2
+				    max_width  	540
+				    justify    	0
+				    label      	"Clients")
+				width      	783
+				height     	567
+				subobjects 	1
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Client Windows" @23
+				location   	(1337, 1507)
+				label      	(object ItemLabel
+				    location   	(1233, 1423)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Client Windows")
+				subobjects 	0
+				x_offset   	-0.08
+				y_offset   	0.11)
+			    (object ObjectView "Window Server" @24
+				location   	(340, 642)
+				label      	(object ItemLabel
+				    location   	(236, 558)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window Server")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Client Windows" @25
+				location   	(1928, 1510)
+				label      	(object ItemLabel
+				    location   	(1824, 1426)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Client Windows")
+				subobjects 	0
+				x_offset   	-0.08
+				y_offset   	0.11)
+			    (object ObjectView "Client Windows" @26
+				location   	(2522, 1517)
+				label      	(object ItemLabel
+				    location   	(2418, 1433)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Client Windows")
+				subobjects 	0
+				x_offset   	-0.08
+				y_offset   	0.11)
+			    (object ObjectView "Client Windows" @27
+				location   	(203, 1526)
+				label      	(object ItemLabel
+				    location   	(99, 1442)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Client Windows")
+				subobjects 	0
+				x_offset   	-0.08
+				y_offset   	0.11)
+			    (object ObjectView "Foreground Client" @28
+				location   	(1438, 585)
+				label      	(object ItemLabel
+				    location   	(1335, 499)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Foreground Client")
+				subobjects 	0
+				x_offset   	-0.08
+				y_offset   	0.11)
+			    (object LinkView "" @29
+				client     	@20
+				supplier   	@27)
+			    (object LinkView "" @30
+				client     	@21
+				supplier   	@23)
+			    (object LinkView "" @31
+				client     	@23
+				supplier   	@25)
+			    (object LinkView "" @32
+				client     	@25
+				supplier   	@26)
+			    (object LinkView "" @33
+				client     	@21
+				supplier   	@27)
+			    (object LinkView "" @34
+				client     	@22
+				supplier   	@23)
+			    (object LinkView "" @35
+				client     	@22
+				supplier   	@25)
+			    (object LinkView "" @36
+				client     	@22
+				supplier   	@26)
+			    (object LinkView "" @37
+				client     	@22
+				supplier   	@27)
+			    (object LinkView "" @38
+				client     	@24
+				supplier   	@20)
+			    (object LinkView "" @39
+				client     	@28
+				supplier   	@21)))
+		    (object ObjectDiagram "Basic window tree structure"
+			mechanism_ref 	@9
+			title      	"Basic window tree structure"
+			zoom       	100
+			max_height 	28350
+			max_width  	21600
+			origin_x   	0
+			origin_y   	0
+			items      	(list diagram_item_list
+			    (object ObjectView "Window" @40
+				location   	(715, 272)
+				label      	(object ItemLabel
+				    location   	(611, 188)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Window" @41
+				location   	(553, 814)
+				label      	(object ItemLabel
+				    location   	(449, 730)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Window" @42
+				location   	(1306, 814)
+				label      	(object ItemLabel
+				    location   	(1202, 730)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Window" @43
+				location   	(2090, 814)
+				label      	(object ItemLabel
+				    location   	(1986, 730)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Window" @44
+				location   	(1306, 1345)
+				label      	(object ItemLabel
+				    location   	(1202, 1261)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Window" @45
+				location   	(553, 1366)
+				label      	(object ItemLabel
+				    location   	(449, 1282)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Window" @46
+				location   	(1306, 1823)
+				label      	(object ItemLabel
+				    location   	(1202, 1739)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Window" @47
+				location   	(1868, 1346)
+				label      	(object ItemLabel
+				    location   	(1764, 1262)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object LinkView "" @48
+				client     	@40
+				supplier   	@41)
+			    (object MessView ""
+				location   	(667, 551)
+				label      	(object SegLabel
+				    location   	(731, 558)
+				    anchor_loc 	1
+				    nlines     	1
+				    max_width  	450
+				    justify    	0
+				    label      	"Child"
+				    pctDist    	0.407895
+				    height     	64
+				    orientation 	0)
+				object_arc 	@48
+				pctDist    	0.494941
+				height     	35
+				orientation 	0
+				dir        	1
+				origin     	(684, 494)
+				terminus   	(650, 608))
+			    (object LinkView "" @49
+				client     	@41
+				supplier   	@42)
+			    (object MessView ""
+				location   	(917, 785)
+				label      	(object SegLabel
+				    location   	(917, 741)
+				    anchor_loc 	1
+				    nlines     	1
+				    max_width  	450
+				    justify    	0
+				    label      	"Sibling"
+				    pctDist    	0.5
+				    height     	45
+				    orientation 	0)
+				object_arc 	@49
+				pctDist    	0.5
+				height     	30
+				orientation 	0
+				dir        	1
+				origin     	(857, 785)
+				terminus   	(977, 785))
+			    (object LinkView "" @50
+				client     	@41
+				supplier   	@40
+				vertices   	(list Points
+				    (572, 705)
+				    (597, 569)
+				    (665, 398)))
+			    (object MessView ""
+				location   	(578, 538)
+				label      	(object SegLabel
+				    location   	(485, 541)
+				    anchor_loc 	1
+				    nlines     	1
+				    max_width  	450
+				    justify    	0
+				    label      	"Parent"
+				    pctDist    	0.199365
+				    height     	87
+				    orientation 	0)
+				object_arc 	@50
+				pctDist    	0.5
+				height     	30
+				orientation 	0
+				dir        	1
+				origin     	(556, 593)
+				terminus   	(600, 483))
+			    (object LinkView "" @51
+				client     	@42
+				supplier   	@43)
+			    (object MessView ""
+				location   	(1676, 783)
+				label      	(object SegLabel
+				    location   	(1676, 748)
+				    anchor_loc 	1
+				    nlines     	1
+				    max_width  	450
+				    justify    	0
+				    label      	"Sibling"
+				    pctDist    	0.5
+				    height     	36
+				    orientation 	0)
+				object_arc 	@51
+				pctDist    	0.478058
+				height     	32
+				orientation 	0
+				dir        	1
+				origin     	(1616, 783)
+				terminus   	(1736, 783))
+			    (object LinkView "" @52
+				client     	@42
+				supplier   	@40)
+			    (object MessView ""
+				location   	(1076, 554)
+				label      	(object SegLabel
+				    location   	(1053, 580)
+				    anchor_loc 	1
+				    nlines     	1
+				    max_width  	450
+				    justify    	0
+				    label      	"Parent"
+				    pctDist    	0.5
+				    height     	36
+				    orientation 	0)
+				object_arc 	@52
+				pctDist    	0.368275
+				height     	37
+				orientation 	1
+				dir        	1
+				origin     	(1119, 594)
+				terminus   	(1033, 514))
+			    (object LinkView "" @53
+				client     	@43
+				supplier   	@40)
+			    (object MessView ""
+				location   	(1478, 528)
+				object_arc 	@53
+				pctDist    	0.451966
+				height     	42
+				orientation 	1
+				dir        	1
+				origin     	(1533, 549)
+				terminus   	(1423, 507))
+			    (object LinkView "" @54
+				client     	@41
+				supplier   	@45)
+			    (object MessView ""
+				location   	(583, 1095)
+				object_arc 	@54
+				pctDist    	0.5
+				height     	30
+				orientation 	0
+				dir        	1
+				origin     	(583, 1035)
+				terminus   	(583, 1155))
+			    (object LinkView "" @55
+				client     	@45
+				supplier   	@41
+				vertices   	(list Points
+				    (537, 1265)
+				    (519, 1159)
+				    (519, 1000)
+				    (532, 932)))
+			    (object MessView ""
+				location   	(485, 1074)
+				object_arc 	@55
+				pctDist    	0.577381
+				height     	35
+				orientation 	0
+				dir        	1
+				origin     	(485, 1133)
+				terminus   	(485, 1015))
+			    (object LinkView "" @56
+				client     	@42
+				supplier   	@44)
+			    (object MessView ""
+				location   	(1336, 1084)
+				object_arc 	@56
+				pctDist    	0.5
+				height     	30
+				orientation 	0
+				dir        	1
+				origin     	(1336, 1024)
+				terminus   	(1336, 1144))
+			    (object LinkView "" @57
+				client     	@44
+				supplier   	@46)
+			    (object MessView ""
+				location   	(1336, 1588)
+				object_arc 	@57
+				pctDist    	0.5
+				height     	30
+				orientation 	0
+				dir        	1
+				origin     	(1336, 1528)
+				terminus   	(1336, 1648))
+			    (object LinkView "" @58
+				client     	@44
+				supplier   	@47)
+			    (object MessView ""
+				location   	(1575, 1316)
+				object_arc 	@58
+				pctDist    	0.5
+				height     	30
+				orientation 	0
+				dir        	1
+				origin     	(1515, 1316)
+				terminus   	(1635, 1316))
+			    (object LinkView "" @59
+				client     	@47
+				supplier   	@42)
+			    (object MessView ""
+				location   	(1553, 1089)
+				object_arc 	@59
+				pctDist    	0.5
+				height     	30
+				orientation 	0
+				dir        	1
+				origin     	(1596, 1129)
+				terminus   	(1510, 1049))
+			    (object LinkView "" @60
+				client     	@44
+				supplier   	@42
+				vertices   	(list Points
+				    (1273, 1241)
+				    (1240, 1140)
+				    (1244, 1006)
+				    (1267, 938)))
+			    (object MessView ""
+				location   	(1212, 1091)
+				object_arc 	@60
+				pctDist    	0.5
+				height     	30
+				orientation 	0
+				dir        	1
+				origin     	(1210, 1150)
+				terminus   	(1214, 1032))
+			    (object LinkView "" @61
+				client     	@46
+				supplier   	@44
+				vertices   	(list Points
+				    (1286, 1721)
+				    (1269, 1640)
+				    (1265, 1537)
+				    (1282, 1464)))
+			    (object MessView ""
+				location   	(1227, 1588)
+				object_arc 	@61
+				pctDist    	0.524425
+				height     	41
+				orientation 	0
+				dir        	1
+				origin     	(1228, 1647)
+				terminus   	(1226, 1529))))))
+	    (object Class_Category "Top level"
+		visible_categories 	(list visibility_relationship_list
+		    (object Visibility_Relationship
+			supplier   	"GDI Interface")
+		    (object Visibility_Relationship
+			supplier   	"Drawables")
+		    (object Visibility_Relationship
+			supplier   	"AGDI")
+		    (object Visibility_Relationship
+			supplier   	"XGDI"))
+		exportControl 	"Public"
+		logical_models 	(list unit_reference_list
+		    (object Class "$UNNAMED$12")
+		    (object Class "Invalid window list"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Variable arrayx"))
+			collaborators 	(list association_list
+			    (object Association
+				supplier   	"Root window"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "1")))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class_Utility "$UNNAMED$13")
+		    (object Class "Heartbeat"
+			collaborators 	(list association_list
+			    (object Association
+				supplier   	"Animatorx"
+				supplier_cardinality 	(value cardinality "n")
+				client_cardinality 	(value cardinality "1"))
+			    (object Association
+				supplier   	"GDI Controllerx")
+			    (object Association
+				supplier   	"Animator"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "1")))
+			concurrency 	"Active"
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Event queue"
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Session"
+			fields     	(list has_relationship_list
+			    (object Has_Relationship
+				supplier   	"Invalid window list"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"Clockx"
+				supplier_cardinality 	(value cardinality "n")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"Bitmap sequencex"
+				supplier_cardinality 	(value cardinality "n")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"Spritex"
+				supplier_cardinality 	(value cardinality "0..1")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"Text Cursorx"
+				supplier_cardinality 	(value cardinality "0,1")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"Event queue"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"Drawable")
+			    (object Has_Relationship
+				supplier   	"Graphics context")
+			    (object Has_Relationship
+				supplier   	"Temp graphics contextx")
+			    (object Has_Relationship
+				supplier   	"GDI Controllerx")
+			    (object Has_Relationship
+				supplier   	"Animator"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"Root window"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"GDI object")
+			    (object Has_Relationship
+				supplier   	"GDI controller"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "1"))
+			    (object Has_Relationship
+				supplier   	"Capture key list"))
+			collaborators 	(list association_list
+			    (object Association
+				label      	"Current GC"
+				supplier   	"Graphics context"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "0,1")))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Capture key list"
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Pointer"
+			collaborators 	(list association_list
+			    (object Association
+				supplier   	"Session"
+				supplier_cardinality 	(value cardinality "n")
+				client_cardinality 	(value cardinality "1"))
+			    (object Association
+				supplier   	"Root window"
+				supplier_cardinality 	(value cardinality "n")
+				client_cardinality 	(value cardinality "1")))
+			used_nodes 	(list uses_relationship_list
+			    (object Uses_Relationship
+				supplier   	"Pointer cursor"))
+			concurrency 	"Active")
+		    (object Class "Keyboard"
+			collaborators 	(list association_list
+			    (object Association
+				supplier   	"Session"
+				supplier_cardinality 	(value cardinality "n")
+				client_cardinality 	(value cardinality "1")))
+			concurrency 	"Active")
+		    (object Class "Window server"
+			fields     	(list has_relationship_list
+			    (object Has_Relationship
+				supplier   	"Session"
+				supplier_cardinality 	(value cardinality "n")
+				client_cardinality 	(value cardinality "1")))
+			concurrency 	"Active")
+		    (object Class "Text Cursor"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Animatorx"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "AGDI controller")
+		    (object Mechanism @62
+			logical_models 	(list unit_reference_list
+			    (object Object "Pointer dispatcher"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Clients"
+					messages   	(list Messages
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	2)))
+				    (object Link
+					supplier   	"Pointer decoder"
+					messages   	(list Messages
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	3)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	4))))
+				persistence 	"Transient"
+				multi      	FALSE)
+			    (object Object "Keyboard"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Foreground Client"
+					messages   	(list Messages
+					    (object Message "Key ups & downs"
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	0))))
+				persistence 	"Transient"
+				multi      	FALSE)
+			    (object Object "Clients"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Client commands"))
+				persistence 	"Transient"
+				multi      	TRUE)
+			    (object Object "Heartbeat"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Animate list"
+					messages   	(list Messages
+					    (object Message "Animate cursor"
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	1))))
+				persistence 	"Transient"
+				multi      	FALSE)
+			    (object Object "Foreground Client"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Heartbeat"))
+				persistence 	"Transient"
+				multi      	FALSE)
+			    (object Object "Client commands"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Clients"
+					messages   	(list Messages
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	5)
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"ToClientFromSupplier"
+						sequence   	""
+						ordinal    	6))))
+				persistence 	"Transient"
+				multi      	FALSE)
+			    (object Object "Pointer decoder"
+				persistence 	"Transient"
+				multi      	FALSE)
+			    (object Object "Animate list"
+				collaborators 	(list link_list
+				    (object Link
+					supplier   	"Clients"
+					messages   	(list Messages
+					    (object Message ""
+						frequency  	"Aperiodic"
+						synchronization 	"Simple"
+						dir        	"FromClientToSupplier"
+						sequence   	""
+						ordinal    	7))))
+				persistence 	"Transient"
+				multi      	FALSE))))
+		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" "Invalid window list" @63
+				location   	(913, 1391)
+				label      	(object ItemLabel
+				    location   	(811, 1308)
+				    nlines     	2
+				    max_width  	236
+				    justify    	0
+				    label      	"Invalid window list")
+				width      	343
+				height     	250
+				annotation 	8)
+			    (object ClassView "Class" "Event queue" @64
+				location   	(1962, 757)
+				label      	(object ItemLabel
+				    location   	(1858, 673)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Event queue")
+				annotation 	8)
+			    (object ClassView "Class" "Heartbeat" @65
+				location   	(244, 170)
+				label      	(object ItemLabel
+				    location   	(140, 86)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Heartbeat")
+				annotation 	10)
+			    (object ClassView "Class" "Session" @66
+				location   	(1684, 1494)
+				label      	(object ItemLabel
+				    location   	(1580, 1410)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Session")
+				annotation 	8)
+			    (object HasView ""
+				client     	@66
+				supplier   	@64)
+			    (object ClassView "Class" "Capture key list" @67
+				location   	(2440, 498)
+				label      	(object ItemLabel
+				    location   	(2336, 414)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Capture key list")
+				annotation 	8)
+			    (object ClassView "Class" "Pointer" @68
+				location   	(712, 176)
+				label      	(object ItemLabel
+				    location   	(608, 92)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Pointer")
+				annotation 	10)
+			    (object ClassView "Class" "Keyboard" @69
+				location   	(2453, 957)
+				label      	(object ItemLabel
+				    location   	(2349, 873)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Keyboard")
+				annotation 	10)
+			    (object ClassView "Class" "Window server" @70
+				location   	(1759, 292)
+				label      	(object ItemLabel
+				    location   	(1655, 208)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Window server")
+				annotation 	10)
+			    (object HasView ""
+				client     	@66
+				supplier   	@63)
+			    (object ClassView "Class" "Animator" @71
+				location   	(278, 1782)
+				label      	(object ItemLabel
+				    location   	(174, 1698)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Animator")
+				annotation 	8)
+			    (object AssociationView ""
+				client     	@65
+				supplier   	@71)
+			    (object HasView ""
+				client     	@66
+				supplier   	@71)
+			    (object ClassView "Class" "Root window" @72
+				location   	(712, 976)
+				label      	(object ItemLabel
+				    location   	(608, 892)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Root window")
+				annotation 	8)
+			    (object HasView ""
+				client     	@66
+				supplier   	@72)
+			    (object AssociationView ""
+				client     	@63
+				supplier   	@72)
+			    (object AssociationView ""
+				client     	@72
+				supplier   	@71)
+			    (object HasView ""
+				client     	@66
+				supplier   	@67)
+			    (object ClassView "Class" "Pointer cursor" @73
+				location   	(459, 700)
+				label      	(object ItemLabel
+				    location   	(355, 616)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Pointer cursor")
+				annotation 	8)
+			    (object UsesView ""
+				client     	@68
+				supplier   	@73)
+			    (object HasView ""
+				client     	@71
+				supplier   	@73)
+			    (object HasView ""
+				client     	@70
+				supplier   	@66)
+			    (object AssociationView ""
+				client     	@69
+				supplier   	@66)
+			    (object AssociationView ""
+				client     	@68
+				supplier   	@66)
+			    (object AssociationView ""
+				client     	@68
+				supplier   	@72)))
+		    (object ObjectDiagram "Event handling"
+			mechanism_ref 	@62
+			title      	"Event handling"
+			zoom       	94
+			max_height 	28350
+			max_width  	21600
+			origin_x   	0
+			origin_y   	0
+			items      	(list diagram_item_list
+			    (object ObjectView "Pointer dispatcher" @74
+				location   	(1430, 339)
+				label      	(object ItemLabel
+				    location   	(1326, 255)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Pointer dispatcher")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Keyboard" @75
+				location   	(306, 613)
+				label      	(object ItemLabel
+				    location   	(202, 529)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Keyboard")
+				subobjects 	0
+				x_offset   	-0.08
+				y_offset   	0.11)
+			    (object ObjectView "Clients" @76
+				location   	(964, 1683)
+				label      	(object ItemLabel
+				    location   	(737, 1490)
+				    nlines     	2
+				    max_width  	540
+				    justify    	0
+				    label      	"Clients")
+				width      	783
+				height     	567
+				subobjects 	1
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Heartbeat" @77
+				location   	(2667, 621)
+				label      	(object ItemLabel
+				    location   	(2563, 537)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Heartbeat")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Foreground Client" @78
+				location   	(904, 1678)
+				label      	(object ItemLabel
+				    location   	(800, 1595)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Foreground Client")
+				width      	349
+				height     	250
+				subobjects 	0
+				x_offset   	-0.076628
+				y_offset   	-0.007055)
+			    (object ObjectView "Client commands" @79
+				location   	(885, 578)
+				label      	(object ItemLabel
+				    location   	(781, 494)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Client commands")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object ObjectView "Pointer decoder" @80
+				location   	(1557, 850)
+				label      	(object ItemLabel
+				    location   	(1453, 766)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Pointer decoder")
+				subobjects 	0
+				x_offset   	0.033206
+				y_offset   	-0.661376)
+			    (object ObjectView "Animate list" @81
+				location   	(2165, 930)
+				label      	(object ItemLabel
+				    location   	(2061, 846)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Animate list")
+				subobjects 	0
+				x_offset   	0
+				y_offset   	0)
+			    (object LinkView "" @82
+				client     	@74
+				supplier   	@76)
+			    (object MessView ""
+				location   	(1307, 761)
+				object_arc 	@82
+				pctDist    	0.308797
+				height     	22
+				orientation 	0
+				dir        	1
+				origin     	(1326, 704)
+				terminus   	(1288, 818))
+			    (object LinkView "" @83
+				client     	@74
+				supplier   	@80)
+			    (object MessView ""
+				location   	(1522, 587)
+				object_arc 	@83
+				pctDist    	0.5
+				height     	30
+				orientation 	0
+				dir        	1
+				origin     	(1507, 529)
+				terminus   	(1537, 645))
+			    (object MessView ""
+				location   	(1465, 600)
+				object_arc 	@83
+				pctDist    	0.5
+				height     	30
+				orientation 	1
+				dir        	-1
+				origin     	(1479, 657)
+				terminus   	(1451, 543))
+			    (object LinkView "" @84
+				client     	@75
+				supplier   	@78)
+			    (object MessView "Key ups & downs"
+				location   	(623, 1120)
+				label      	(object SegLabel
+				    location   	(627, 1054)
+				    anchor_loc 	1
+				    nlines     	1
+				    max_width  	450
+				    justify    	0
+				    label      	"Key ups & downs"
+				    pctDist    	0.032819
+				    height     	37
+				    orientation 	0)
+				object_arc 	@84
+				pctDist    	0.501153
+				height     	29
+				orientation 	0
+				dir        	1
+				origin     	(594, 1068)
+				terminus   	(652, 1172))
+			    (object LinkView "" @85
+				client     	@77
+				supplier   	@81)
+			    (object MessView "Animate cursor"
+				location   	(2453, 725)
+				label      	(object SegLabel
+				    location   	(2472, 755)
+				    anchor_loc 	1
+				    nlines     	1
+				    max_width  	450
+				    justify    	0
+				    label      	"Animate cursor"
+				    pctDist    	0.5
+				    height     	36
+				    orientation 	0)
+				object_arc 	@85
+				pctDist    	0.423651
+				height     	25
+				orientation 	1
+				dir        	1
+				origin     	(2503, 693)
+				terminus   	(2403, 757))
+			    (object LinkView "" @86
+				client     	@79
+				supplier   	@76)
+			    (object MessView ""
+				location   	(951, 1070)
+				object_arc 	@86
+				pctDist    	0.5
+				height     	30
+				orientation 	0
+				dir        	1
+				origin     	(946, 1010)
+				terminus   	(956, 1130))
+			    (object MessView ""
+				location   	(892, 1073)
+				object_arc 	@86
+				pctDist    	0.5
+				height     	30
+				orientation 	1
+				dir        	-1
+				origin     	(896, 1132)
+				terminus   	(888, 1014))
+			    (object LinkView "" @87
+				client     	@81
+				supplier   	@76)
+			    (object MessView ""
+				location   	(1737, 1153)
+				object_arc 	@87
+				pctDist    	0.401609
+				height     	39
+				orientation 	1
+				dir        	1
+				origin     	(1787, 1121)
+				terminus   	(1687, 1185))))))
+	    (object Class_Category "OLIB"
+		exportControl 	"Public"
+		logical_models 	(list unit_reference_list)
+		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 Class_Category "AGDI"
+		visible_categories 	(list visibility_relationship_list
+		    (object Visibility_Relationship
+			supplier   	"GDI Interface")
+		    (object Visibility_Relationship
+			supplier   	"GDI")
+		    (object Visibility_Relationship
+			supplier   	"Drawables"))
+		exportControl 	"Public"
+		logical_models 	(list unit_reference_list
+		    (object Class "Animated DLL Interface"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Animator"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Bitmap sequence"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Animator")))
+		    (object Class "Sprite"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Animator"))
+			statediagram 	(object State_Diagram ""
+			    title      	""
+			    zoom       	100
+			    max_height 	28350
+			    max_width  	21600
+			    origin_x   	0
+			    origin_y   	0
+			    items      	(list diagram_item_list)))
+		    (object Class "Text cursor"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Animator")))
+		    (object Class "AGDI Controller"
+			fields     	(list has_relationship_list
+			    (object Has_Relationship
+				supplier   	"Animator"
+				supplier_cardinality 	(value cardinality "n")
+				client_cardinality 	(value cardinality "1"))))
+		    (object Class "Animator"
+			fields     	(list has_relationship_list
+			    (object Has_Relationship
+				supplier   	"Pointer cursor"))
+			collaborators 	(list association_list
+			    (object Association
+				supplier   	"Graphics context"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "n"))
+			    (object Association
+				supplier   	"Drawable"
+				supplier_cardinality 	(value cardinality "1")
+				client_cardinality 	(value cardinality "n"))
+			    (object Association
+				supplier   	"GDI object"
+				supplier_cardinality 	(value cardinality "n")
+				client_cardinality 	(value cardinality "n"))))
+		    (object Class "Pointer cursor"
+			superclasses 	(list inheritance_relationship_list
+			    (object Inheritance_Relationship
+				supplier   	"Sprite"))))
+		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" "Animated DLL Interface" @88
+				location   	(444, 1156)
+				label      	(object ItemLabel
+				    location   	(340, 1072)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Animated DLL Interface")
+				annotation 	8)
+			    (object ClassView "Class" "Sprite" @89
+				location   	(1650, 1142)
+				label      	(object ItemLabel
+				    location   	(1546, 1058)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Sprite")
+				annotation 	8)
+			    (object ClassView "Class" "Text cursor" @90
+				location   	(1034, 1167)
+				label      	(object ItemLabel
+				    location   	(930, 1083)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Text cursor")
+				annotation 	8)
+			    (object ClassView "Class" "Animator" @91
+				location   	(569, 589)
+				label      	(object ItemLabel
+				    location   	(465, 505)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Animator")
+				annotation 	8)
+			    (object InheritView ""
+				client     	@89
+				supplier   	@91)
+			    (object InheritView ""
+				client     	@90
+				supplier   	@91)
+			    (object InheritView ""
+				client     	@88
+				supplier   	@91)
+			    (object ClassView "Class" "Pointer cursor" @92
+				location   	(1840, 1610)
+				label      	(object ItemLabel
+				    location   	(1736, 1526)
+				    nlines     	2
+				    max_width  	240
+				    justify    	0
+				    label      	"Pointer cursor")
+				annotation 	8)
+			    (object InheritView ""
+				client     	@92
+				supplier   	@89)))))
+	    (object Class_Category "Test code using AGDI interface"
+		visible_categories 	(list visibility_relationship_list
+		    (object Visibility_Relationship
+			supplier   	"GDI")
+		    (object Visibility_Relationship
+			supplier   	"Drawables"))
+		exportControl 	"Public"
+		logical_models 	(list unit_reference_list)
+		logical_presentations 	(list unit_reference_list))
+	    (object Class_Category "Dummy test window server "
+		visible_categories 	(list visibility_relationship_list
+		    (object Visibility_Relationship
+			supplier   	"GDI Interface")
+		    (object Visibility_Relationship
+			supplier   	"Drawables")
+		    (object Visibility_Relationship
+			supplier   	"AGDI"))
+		exportControl 	"Public"
+		logical_models 	(list unit_reference_list)
+		logical_presentations 	(list unit_reference_list))
+	    (object Class_Category "XGDI"
+		visible_categories 	(list visibility_relationship_list
+		    (object Visibility_Relationship
+			supplier   	"GDI Interface")
+		    (object Visibility_Relationship
+			supplier   	"Drawables")
+		    (object Visibility_Relationship
+			supplier   	"GDI"))
+		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       	100
+		max_height 	28350
+		max_width  	21600
+		origin_x   	0
+		origin_y   	0
+		items      	(list diagram_item_list
+		    (object CategoryView "GDI" @93
+			location   	(525, 1050)
+			font       	(object Font
+			    size       	12
+			    face       	"helvetica"
+			    bold       	FALSE
+			    italics    	FALSE
+			    underline  	FALSE
+			    strike     	FALSE
+			    color      	0
+			    default_color 	TRUE)
+			label      	(object ItemLabel
+			    location   	(381, 966)
+			    nlines     	2
+			    max_width  	288
+			    justify    	0
+			    label      	"GDI")
+			width      	300
+			height     	180)
+		    (object CategoryView "Drawables" @94
+			location   	(740, 439)
+			font       	(object Font
+			    size       	12
+			    face       	"helvetica"
+			    bold       	FALSE
+			    italics    	FALSE
+			    underline  	FALSE
+			    strike     	FALSE
+			    color      	0
+			    default_color 	TRUE)
+			label      	(object ItemLabel
+			    location   	(596, 355)
+			    nlines     	2
+			    max_width  	288
+			    justify    	0
+			    label      	"Drawables")
+			width      	300
+			height     	180)
+		    (object CategoryView "Top level" @95
+			location   	(528, 158)
+			font       	(object Font
+			    size       	12
+			    face       	"helvetica"
+			    bold       	FALSE
+			    italics    	FALSE
+			    underline  	FALSE
+			    strike     	FALSE
+			    color      	0
+			    default_color 	TRUE)
+			label      	(object ItemLabel
+			    location   	(384, 74)
+			    nlines     	2
+			    max_width  	288
+			    justify    	0
+			    label      	"Top level")
+			width      	300
+			height     	180)
+		    (object CategoryView "AGDI" @96
+			location   	(1209, 437)
+			label      	(object ItemLabel
+			    location   	(1065, 353)
+			    nlines     	2
+			    max_width  	288
+			    justify    	0
+			    label      	"AGDI")
+			width      	300
+			height     	180)
+		    (object ImportView ""
+			client     	@95
+			supplier   	@94)
+		    (object ImportView ""
+			client     	@95
+			supplier   	@96)
+		    (object CategoryView "Drawables" @97
+			location   	(1911, 1251)
+			font       	(object Font
+			    size       	12
+			    face       	"helvetica"
+			    bold       	FALSE
+			    italics    	FALSE
+			    underline  	FALSE
+			    strike     	FALSE
+			    color      	0
+			    default_color 	TRUE)
+			label      	(object ItemLabel
+			    location   	(1767, 1167)
+			    nlines     	2
+			    max_width  	288
+			    justify    	0
+			    label      	"Drawables")
+			width      	300
+			height     	180)
+		    (object CategoryView "GDI" @98
+			location   	(1656, 1840)
+			font       	(object Font
+			    size       	12
+			    face       	"helvetica"
+			    bold       	FALSE
+			    italics    	FALSE
+			    underline  	FALSE
+			    strike     	FALSE
+			    color      	0
+			    default_color 	TRUE)
+			label      	(object ItemLabel
+			    location   	(1512, 1756)
+			    nlines     	2
+			    max_width  	288
+			    justify    	0
+			    label      	"GDI")
+			width      	300
+			height     	180)
+		    (object CategoryView "Test code using AGDI interface" @99
+			location   	(2401, 1249)
+			label      	(object ItemLabel
+			    location   	(2238, 1155)
+			    nlines     	2
+			    max_width  	326
+			    justify    	0
+			    label      	"Test code using AGDI interface")
+			width      	338
+			height     	200)
+		    (object CategoryView "XGDI" @100
+			location   	(234, 437)
+			label      	(object ItemLabel
+			    location   	(90, 353)
+			    nlines     	2
+			    max_width  	288
+			    justify    	0
+			    label      	"XGDI")
+			width      	300
+			height     	180)
+		    (object ImportView ""
+			client     	@95
+			supplier   	@100)
+		    (object ImportView ""
+			client     	@100
+			supplier   	@94)
+		    (object ImportView ""
+			client     	@97
+			supplier   	@98)
+		    (object ImportView ""
+			client     	@99
+			supplier   	@98)
+		    (object ImportView ""
+			client     	@99
+			supplier   	@97)
+		    (object ImportView ""
+			client     	@94
+			supplier   	@93)
+		    (object ImportView ""
+			client     	@100
+			supplier   	@93)
+		    (object ImportView ""
+			client     	@96
+			supplier   	@93)
+		    (object ImportView ""
+			client     	@96
+			supplier   	@94)))))
+    root_subsystem 	(object SubSystem "<Top Level>"
+	physical_models 	(list unit_reference_list
+	    (object module "$UNNAMED$14" "SubType" "Specification"
+		visible_modules 	(list dependency_list
+		    (object Dependency_Relationship
+			supplier   	"$UNNAMED$15"
+			supplier_is_spec 	TRUE)
+		    (object Dependency_Relationship
+			supplier   	"$UNNAMED$16"
+			supplier_is_spec 	TRUE)))
+	    (object module "$UNNAMED$15" "PackageType" "Specification"
+		visible_modules 	(list dependency_list
+		    (object Dependency_Relationship
+			supplier   	"$UNNAMED$16"
+			supplier_is_spec 	TRUE)))
+	    (object module "$UNNAMED$17" "PackageType" "Specification"
+		visible_modules 	(list dependency_list
+		    (object Dependency_Relationship
+			supplier_is_spec 	TRUE)))
+	    (object module "$UNNAMED$16" "TaskType" "Specification"
+		visible_modules 	(list dependency_list
+		    (object Dependency_Relationship
+			supplier_is_spec 	TRUE)))
+	    (object module "$UNNAMED$18" "PackageType" "Specification")
+	    (object module "$UNNAMED$19" "SubType" "Specification")
+	    (object module "$UNNAMED$20" "TaskType" "Specification")
+	    (object SubSystem "$UNNAMED$21"
+		physical_models 	(list unit_reference_list)
+		physical_presentations 	(list unit_reference_list))
+	    (object SubSystem "$UNNAMED$22"
+		physical_models 	(list unit_reference_list)
+		physical_presentations 	(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 Processor "Processor"
+		connections 	(list connection_list
+		    (object Connection_Relationship
+			supplier   	"VDU"
+			supplier_is_device 	TRUE))
+		characteristics 	""
+		scheduling 	"Preemptive"
+		processes  	(list processes))
+	    (object Device "Keyboard"
+		connections 	(list connection_list
+		    (object Connection_Relationship
+			supplier   	"Processor"
+			supplier_is_device 	FALSE))
+		characteristics 	"")
+	    (object Device "VDU"
+		characteristics 	"")
+	    (object Device "Pointing device"
+		connections 	(list connection_list
+		    (object Connection_Relationship
+			supplier   	"Processor"
+			supplier_is_device 	FALSE))
+		characteristics 	"")
+	    (object Process_Diagram ""
+		title      	""
+		zoom       	100
+		max_height 	28350
+		max_width  	21600
+		origin_x   	0
+		origin_y   	0
+		items      	(list diagram_item_list
+		    (object ProcessorView "Processor" @101
+			location   	(1334, 544)
+			label      	(object ItemLabel
+			    location   	(1156, 449)
+			    nlines     	2
+			    max_width  	246
+			    justify    	0
+			    label      	"Processor")
+			width      	360
+			height     	300
+			annotation 	0)
+		    (object DeviceView "Keyboard" @102
+			location   	(853, 409)
+			label      	(object ItemLabel
+			    location   	(675, 314)
+			    nlines     	2
+			    max_width  	246
+			    justify    	0
+			    label      	"Keyboard")
+			width      	360
+			height     	300
+			annotation 	0)
+		    (object DeviceView "VDU" @103
+			location   	(1968, 543)
+			label      	(object ItemLabel
+			    location   	(1790, 448)
+			    nlines     	2
+			    max_width  	246
+			    justify    	0
+			    label      	"VDU")
+			width      	360
+			height     	300
+			annotation 	0)
+		    (object DeviceView "Pointing device" @104
+			location   	(443, 668)
+			label      	(object ItemLabel
+			    location   	(265, 573)
+			    nlines     	2
+			    max_width  	246
+			    justify    	0
+			    label      	"Pointing device")
+			width      	360
+			height     	300
+			annotation 	0)
+		    (object ConnectionView ""
+			client     	@101
+			supplier   	@103)
+		    (object ConnectionView ""
+			client     	@104
+			supplier   	@101)
+		    (object ConnectionView ""
+			client     	@102
+			supplier   	@101)))))
+    properties 	(object Properties))