windowing/windowserver/DES/WSV4.MDL
changeset 0 5d03bc08d59c
child 116 171fae344dd4
equal deleted inserted replaced
-1:000000000000 0:5d03bc08d59c
       
     1 
       
     2 (object Petal
       
     3     version    	35)
       
     4 
       
     5 (object Design "<Top Level>"
       
     6     is_unit    	TRUE
       
     7     file_name  	"c:\wserv\des\wsv4.mdl"
       
     8     is_loaded  	TRUE
       
     9     defaults   	(object defaults
       
    10 	rightMargin 	0.25
       
    11 	leftMargin 	0.25
       
    12 	topMargin  	0.25
       
    13 	bottomMargin 	0.5
       
    14 	pageOverlap 	0.25
       
    15 	clipIconLabels 	TRUE
       
    16 	autoResize 	FALSE
       
    17 	snapToGrid 	TRUE
       
    18 	gridX      	0
       
    19 	gridY      	0
       
    20 	defaultFont 	(object Font
       
    21 	    size       	12
       
    22 	    face       	"helvetica"
       
    23 	    bold       	FALSE
       
    24 	    italics    	FALSE
       
    25 	    underline  	FALSE
       
    26 	    strike     	FALSE
       
    27 	    color      	0
       
    28 	    default_color 	TRUE)
       
    29 	showMessageNum 	3)
       
    30     root_category 	(object Class_Category "<Top Level>"
       
    31 	exportControl 	"Public"
       
    32 	global     	TRUE
       
    33 	subsystem  	"<Top Level>"
       
    34 	logical_models 	(list unit_reference_list
       
    35 	    (object Class "Main"
       
    36 		documentation 	"Top level windows server, recieves commands from clients, events from the O/S and timer completions."
       
    37 		fields     	(list has_relationship_list
       
    38 		    (object Has_Relationship
       
    39 			supplier   	"Client"
       
    40 			supplier_cardinality 	(value cardinality "n")
       
    41 			client_cardinality 	(value cardinality "1"))
       
    42 		    (object Has_Relationship
       
    43 			supplier   	"WsrvClient"
       
    44 			supplier_cardinality 	(value cardinality "1")
       
    45 			client_cardinality 	(value cardinality "1"))
       
    46 		    (object Has_Relationship
       
    47 			supplier   	"System"
       
    48 			supplier_cardinality 	(value cardinality "1")
       
    49 			client_cardinality 	(value cardinality "1")))
       
    50 		cardinality 	(value Cardinality "1"))
       
    51 	    (object Class "BackedUpWindow"
       
    52 		fields     	(list has_relationship_list
       
    53 		    (object Has_Relationship
       
    54 			supplier   	"Backup Bitmap"))
       
    55 		superclasses 	(list inheritance_relationship_list
       
    56 		    (object Inheritance_Relationship
       
    57 			supplier   	"Window"))
       
    58 		collaborators 	(list association_list
       
    59 		    (object Association
       
    60 			supplier   	"Bitmap")))
       
    61 	    (object Class_Utility "$UNNAMED$0")
       
    62 	    (object Class "Owner"
       
    63 		fields     	(list has_relationship_list
       
    64 		    (object Has_Relationship
       
    65 			supplier   	"Bitmap"
       
    66 			supplier_cardinality 	(value cardinality "n")
       
    67 			client_cardinality 	(value cardinality "1"))
       
    68 		    (object Has_Relationship
       
    69 			supplier   	"Clock"
       
    70 			supplier_cardinality 	(value cardinality "0..n")
       
    71 			client_cardinality 	(value cardinality "1"))
       
    72 		    (object Has_Relationship
       
    73 			supplier   	"Font"
       
    74 			supplier_cardinality 	(value cardinality "0..n")
       
    75 			client_cardinality 	(value cardinality "1"))))
       
    76 	    (object Class "GCB"
       
    77 		collaborators 	(list association_list
       
    78 		    (object Association
       
    79 			supplier   	"Font"
       
    80 			supplier_cardinality 	(value cardinality "1")
       
    81 			client_cardinality 	(value cardinality "n"))
       
    82 		    (object Association
       
    83 			supplier   	"Backup Bitmap"
       
    84 			supplier_cardinality 	(value cardinality "0..1")
       
    85 			client_cardinality 	(value cardinality "n")))
       
    86 		used_nodes 	(list uses_relationship_list
       
    87 		    (object Uses_Relationship
       
    88 			supplier   	"Drawable")))
       
    89 	    (object Class "Bitmap"
       
    90 		superclasses 	(list inheritance_relationship_list
       
    91 		    (object Inheritance_Relationship
       
    92 			supplier   	"Drawable"))
       
    93 		collaborators 	(list association_list
       
    94 		    (object Association
       
    95 			supplier   	"System Bitmaps"
       
    96 			supplier_cardinality 	(value cardinality "n")
       
    97 			client_cardinality 	(value cardinality "1"))))
       
    98 	    (object Class "Font"
       
    99 		cardinality 	(value Cardinality "1..n"))
       
   100 	    (object Class "$UNNAMED$1")
       
   101 	    (object Class "System"
       
   102 		superclasses 	(list inheritance_relationship_list
       
   103 		    (object Inheritance_Relationship
       
   104 			supplier   	"Owner")))
       
   105 	    (object Class "System Bitmaps"
       
   106 		collaborators 	(list association_list
       
   107 		    (object Association
       
   108 			supplier   	"Main"
       
   109 			supplier_cardinality 	(value cardinality "n")
       
   110 			client_cardinality 	(value cardinality "0"))
       
   111 		    (object Association
       
   112 			supplier   	"Bitmap"))
       
   113 		cardinality 	(value Cardinality "1"))
       
   114 	    (object Class "Drawable"
       
   115 		fields     	(list has_relationship_list
       
   116 		    (object Has_Relationship
       
   117 			supplier   	"Window"))
       
   118 		used_nodes 	(list uses_relationship_list
       
   119 		    (object Uses_Relationship
       
   120 			supplier   	"GCB"
       
   121 			supplier_cardinality 	(value cardinality "1")
       
   122 			client_cardinality 	(value cardinality "n"))))
       
   123 	    (object Class "$UNNAMED$2")
       
   124 	    (object Class "Window"
       
   125 		superclasses 	(list inheritance_relationship_list
       
   126 		    (object Inheritance_Relationship
       
   127 			supplier   	
       
   128 |Normal 
       
   129 |Window
       
   130 |
       
   131 			)
       
   132 		    (object Inheritance_Relationship
       
   133 			supplier   	"Drawable")))
       
   134 	    (object Class "Normal 
       
   135 Window
       
   136 ")
       
   137 	    (object Class "Clock"
       
   138 		fields     	(list has_relationship_list
       
   139 		    (object Has_Relationship
       
   140 			supplier   	"GCB"))
       
   141 		used_nodes 	(list uses_relationship_list
       
   142 		    (object Uses_Relationship
       
   143 			supplier   	"GCB")))
       
   144 	    (object Class "System Clocks")
       
   145 	    (object Class "WsrvClient"
       
   146 		superclasses 	(list inheritance_relationship_list
       
   147 		    (object Inheritance_Relationship
       
   148 			supplier   	"Client")))
       
   149 	    (object Class_Utility "$UNNAMED$3")
       
   150 	    (object Class_Utility "$UNNAMED$4")
       
   151 	    (object Parameterized_Class "$UNNAMED$5")
       
   152 	    (object Instantiated_Class_Utility "$UNNAMED$6")
       
   153 	    (object Instantiated_Class "$UNNAMED$7")
       
   154 	    (object Parameterized_Class "$UNNAMED$8")
       
   155 	    (object Class "Client"
       
   156 		fields     	(list has_relationship_list
       
   157 		    (object Has_Relationship
       
   158 			supplier   	"GCB"
       
   159 			supplier_cardinality 	(value cardinality "0..n")
       
   160 			client_cardinality 	(value cardinality "1"))
       
   161 		    (object Has_Relationship
       
   162 			supplier   	"Window"
       
   163 			supplier_cardinality 	(value cardinality "0..n")
       
   164 			client_cardinality 	(value cardinality "1")))
       
   165 		superclasses 	(list inheritance_relationship_list
       
   166 		    (object Inheritance_Relationship
       
   167 			supplier   	"Owner")))
       
   168 	    (object Metaclass "$UNNAMED$9")
       
   169 	    (object Class_Utility "$UNNAMED$10")
       
   170 	    (object Class "Backup Bitmap"
       
   171 		superclasses 	(list inheritance_relationship_list
       
   172 		    (object Inheritance_Relationship
       
   173 			supplier   	"Bitmap")))
       
   174 	    (object Class "$UNNAMED$11")
       
   175 	    (object Class "$UNNAMED$12")
       
   176 	    (object Class "$UNNAMED$13")
       
   177 	    (object Class "$UNNAMED$14")
       
   178 	    (object Class_Category "$UNNAMED$15"
       
   179 		exportControl 	"Public"
       
   180 		logical_models 	(list unit_reference_list)
       
   181 		logical_presentations 	(list unit_reference_list))
       
   182 	    (object Class_Category "$UNNAMED$16"
       
   183 		exportControl 	"Public"
       
   184 		logical_models 	(list unit_reference_list)
       
   185 		logical_presentations 	(list unit_reference_list)))
       
   186 	logical_presentations 	(list unit_reference_list
       
   187 	    (object ClassDiagram "Main"
       
   188 		title      	"Main"
       
   189 		zoom       	72
       
   190 		max_height 	28350
       
   191 		max_width  	21600
       
   192 		origin_x   	0
       
   193 		origin_y   	0
       
   194 		items      	(list diagram_item_list
       
   195 		    (object ClassView "Class" "Main" @1
       
   196 			location   	(1053, 177)
       
   197 			label      	(object ItemLabel
       
   198 			    location   	(944, 87)
       
   199 			    nlines     	2
       
   200 			    max_width  	255
       
   201 			    justify    	0
       
   202 			    label      	"Main")
       
   203 			width      	370
       
   204 			height     	270
       
   205 			annotation 	8)
       
   206 		    (object ClassView "Class" "BackedUpWindow" @2
       
   207 			location   	(468, 1946)
       
   208 			label      	(object ItemLabel
       
   209 			    location   	(361, 1859)
       
   210 			    nlines     	2
       
   211 			    max_width  	248
       
   212 			    justify    	0
       
   213 			    label      	"BackedUpWindow")
       
   214 			width      	360
       
   215 			height     	260
       
   216 			annotation 	8)
       
   217 		    (object ClassView "Class" "Owner" @3
       
   218 			location   	(1204, 559)
       
   219 			label      	(object ItemLabel
       
   220 			    location   	(1101, 476)
       
   221 			    nlines     	2
       
   222 			    max_width  	238
       
   223 			    justify    	0
       
   224 			    label      	"Owner")
       
   225 			width      	345
       
   226 			height     	250
       
   227 			annotation 	8)
       
   228 		    (object ClassView "Class" "GCB" @4
       
   229 			location   	(1594, 1447)
       
   230 			label      	(object ItemLabel
       
   231 			    location   	(1490, 1363)
       
   232 			    nlines     	2
       
   233 			    max_width  	240
       
   234 			    justify    	0
       
   235 			    label      	"GCB")
       
   236 			annotation 	8)
       
   237 		    (object ClassView "Class" "Bitmap" @5
       
   238 			location   	(991, 1575)
       
   239 			label      	(object ItemLabel
       
   240 			    location   	(887, 1491)
       
   241 			    nlines     	2
       
   242 			    max_width  	240
       
   243 			    justify    	0
       
   244 			    label      	"Bitmap")
       
   245 			annotation 	8)
       
   246 		    (object ClassView "Class" "Font" @6
       
   247 			location   	(2195, 1345)
       
   248 			label      	(object ItemLabel
       
   249 			    location   	(2091, 1261)
       
   250 			    nlines     	2
       
   251 			    max_width  	240
       
   252 			    justify    	0
       
   253 			    label      	"Font")
       
   254 			annotation 	8)
       
   255 		    (object ClassView "Class" "System" @7
       
   256 			location   	(1802, 714)
       
   257 			label      	(object ItemLabel
       
   258 			    location   	(1698, 630)
       
   259 			    nlines     	2
       
   260 			    max_width  	240
       
   261 			    justify    	0
       
   262 			    label      	"System")
       
   263 			annotation 	8)
       
   264 		    (object ClassView "Class" "Drawable" @8
       
   265 			location   	(880, 1170)
       
   266 			label      	(object ItemLabel
       
   267 			    location   	(776, 1086)
       
   268 			    nlines     	2
       
   269 			    max_width  	240
       
   270 			    justify    	0
       
   271 			    label      	"Drawable")
       
   272 			annotation 	8)
       
   273 		    (object ClassView "Class" "Window" @9
       
   274 			location   	(467, 1407)
       
   275 			label      	(object ItemLabel
       
   276 			    location   	(363, 1323)
       
   277 			    nlines     	2
       
   278 			    max_width  	240
       
   279 			    justify    	0
       
   280 			    label      	"Window")
       
   281 			annotation 	8)
       
   282 		    (object ClassView "Class" "Clock" @10
       
   283 			location   	(1430, 988)
       
   284 			label      	(object ItemLabel
       
   285 			    location   	(1326, 904)
       
   286 			    nlines     	2
       
   287 			    max_width  	240
       
   288 			    justify    	0
       
   289 			    label      	"Clock")
       
   290 			annotation 	8)
       
   291 		    (object HasView ""
       
   292 			client     	@3
       
   293 			supplier   	@10)
       
   294 		    (object ClassView "Class" "WsrvClient" @11
       
   295 			location   	(275, 680)
       
   296 			label      	(object ItemLabel
       
   297 			    location   	(171, 596)
       
   298 			    nlines     	2
       
   299 			    max_width  	240
       
   300 			    justify    	0
       
   301 			    label      	"WsrvClient")
       
   302 			annotation 	8)
       
   303 		    (object HasView ""
       
   304 			client     	@1
       
   305 			supplier   	@11)
       
   306 		    (object HasView ""
       
   307 			client     	@10
       
   308 			supplier   	@4)
       
   309 		    (object ClassView "Class" "Client" @12
       
   310 			location   	(759, 557)
       
   311 			label      	(object ItemLabel
       
   312 			    location   	(655, 473)
       
   313 			    nlines     	2
       
   314 			    max_width  	240
       
   315 			    justify    	0
       
   316 			    label      	"Client")
       
   317 			annotation 	8)
       
   318 		    (object HasView ""
       
   319 			client     	@12
       
   320 			supplier   	@9)
       
   321 		    (object AssociationView ""
       
   322 			client     	@4
       
   323 			supplier   	@6)
       
   324 		    (object HasView ""
       
   325 			client     	@12
       
   326 			supplier   	@4)
       
   327 		    (object ClassView "Class" "Backup Bitmap" @13
       
   328 			location   	(991, 1968)
       
   329 			label      	(object ItemLabel
       
   330 			    location   	(881, 1877)
       
   331 			    nlines     	2
       
   332 			    max_width  	256
       
   333 			    justify    	0
       
   334 			    label      	"Backup Bitmap")
       
   335 			width      	372
       
   336 			height     	272
       
   337 			annotation 	8)
       
   338 		    (object AssociationView ""
       
   339 			client     	@4
       
   340 			supplier   	@13)
       
   341 		    (object HasView ""
       
   342 			client     	@2
       
   343 			supplier   	@13)
       
   344 		    (object InheritView ""
       
   345 			client     	@9
       
   346 			supplier   	@8)
       
   347 		    (object InheritView ""
       
   348 			client     	@5
       
   349 			supplier   	@8)
       
   350 		    (object InheritView ""
       
   351 			client     	@2
       
   352 			supplier   	@9)
       
   353 		    (object InheritView ""
       
   354 			client     	@13
       
   355 			supplier   	@5)
       
   356 		    (object InheritView ""
       
   357 			client     	@11
       
   358 			supplier   	@12)
       
   359 		    (object InheritView ""
       
   360 			client     	@7
       
   361 			supplier   	@3)
       
   362 		    (object HasView ""
       
   363 			client     	@3
       
   364 			supplier   	@5)
       
   365 		    (object InheritView ""
       
   366 			client     	@12
       
   367 			supplier   	@3)
       
   368 		    (object HasView ""
       
   369 			client     	@3
       
   370 			supplier   	@6)
       
   371 		    (object HasView ""
       
   372 			client     	@1
       
   373 			supplier   	@7)
       
   374 		    (object UsesView ""
       
   375 			client     	@4
       
   376 			supplier   	@8)
       
   377 		    (object HasView ""
       
   378 			client     	@1
       
   379 			supplier   	@12)))))
       
   380     root_subsystem 	(object SubSystem "<Top Level>"
       
   381 	physical_models 	(list unit_reference_list)
       
   382 	physical_presentations 	(list unit_reference_list
       
   383 	    (object Module_Diagram "Main"
       
   384 		title      	"Main"
       
   385 		zoom       	100
       
   386 		max_height 	28350
       
   387 		max_width  	21600
       
   388 		origin_x   	0
       
   389 		origin_y   	0
       
   390 		items      	(list diagram_item_list))))
       
   391     process_structure 	(object Processes
       
   392 	ProcsNDevs 	(list
       
   393 	    (object Process_Diagram ""
       
   394 		title      	""
       
   395 		zoom       	100
       
   396 		max_height 	28350
       
   397 		max_width  	21600
       
   398 		origin_x   	0
       
   399 		origin_y   	0
       
   400 		items      	(list diagram_item_list))))
       
   401     properties 	(object Properties))