(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)