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