1 

     2 (object Petal

     3     version    	37)

     4 

     5 (object Design "<Top Level>"

     6     is_unit    	TRUE

     7     is_loaded  	TRUE

     8     defaults   	(object defaults

     9 	rightMargin 	0.250000

    10 	leftMargin 	0.250000

    11 	topMargin  	0.250000

    12 	bottomMargin 	0.500000

    13 	pageOverlap 	0.250000

    14 	clipIconLabels 	TRUE

    15 	autoResize 	FALSE

    16 	snapToGrid 	TRUE

    17 	gridX      	25

    18 	gridY      	25

    19 	defaultFont 	(object Font

    20 	    size       	10

    21 	    face       	"helvetica"

    22 	    bold       	FALSE

    23 	    italics    	FALSE

    24 	    underline  	FALSE

    25 	    strike     	FALSE

    26 	    color      	0

    27 	    default_color 	TRUE)

    28 	showMessageNum 	3

    29 	showClassOfObject 	TRUE

    30 	notation   	"Booch")

    31     root_category 	(object Class_Category "<Top Level>"

    32 	exportControl 	"Public"

    33 	global     	TRUE

    34 	subsystem  	"<Top Level>"

    35 	logical_models 	(list unit_reference_list

    36 	    (object Class "$UNNAMED$0")

    37 	    (object Class "$UNNAMED$1")

    38 	    (object Class "$UNNAMED$2")

    39 	    (object Class_Utility "$UNNAMED$3")

    40 	    (object Class "$UNNAMED$4")

    41 	    (object Class "$UNNAMED$5"

    42 		nonclass   	TRUE)

    43 	    (object Class "HDC"

    44 		nonclass   	TRUE)

    45 	    (object Class "CWingdiwn"

    46 		superclasses 	(list inheritance_relationship_list

    47 		    (object Inheritance_Relationship

    48 			supplier   	"CFbsBitGC")))

    49 	    (object Class "CWingdibm"

    50 		superclasses 	(list inheritance_relationship_list

    51 		    (object Inheritance_Relationship

    52 			supplier   	"CFbsBitGC")))

    53 	    (object Class "RDrawWinScreen"

    54 		fields     	(list has_relationship_list

    55 		    (object Has_Relationship

    56 			documentation 	"Window handle for main screen."

    57 			label      	"iHwnd"

    58 			supplier   	"HWND"

    59 			exportControl 	"Private"

    60 			Containment 	"By Value"

    61 			supplier_cardinality 	(value cardinality "1")

    62 			client_cardinality 	(value cardinality "1"))

    63 		    (object Has_Relationship

    64 			documentation 	"Windows device context handle for main screen."

    65 			label      	"iHdc"

    66 			supplier   	"HDC"

    67 			exportControl 	"Private"

    68 			Containment 	"By Value")

    69 		    (object Has_Relationship

    70 			documentation 	"Windows palette handle for main screen."

    71 			label      	"iPalette"

    72 			supplier   	"HPALETTE"

    73 			exportControl 	"Private"

    74 			Containment 	"By Value"))

    75 		superclasses 	(list inheritance_relationship_list

    76 		    (object Inheritance_Relationship

    77 			supplier   	"RDrawWin"

    78 			virtual    	TRUE))

    79 		abstract   	TRUE)

    80 	    (object Class "RDrawWinScreenGrey256"

    81 		superclasses 	(list inheritance_relationship_list

    82 		    (object Inheritance_Relationship

    83 			supplier   	"RDrawWinScreen"

    84 			virtual    	TRUE)))

    85 	    (object Class "RDrawWinScreenColour"

    86 		superclasses 	(list inheritance_relationship_list

    87 		    (object Inheritance_Relationship

    88 			supplier   	"RDrawWinScreen"

    89 			virtual    	TRUE)))

    90 	    (object Class "$UNNAMED$6"

    91 		nonclass   	TRUE)

    92 	    (object Class "$UNNAMED$7")

    93 	    (object Class "$UNNAMED$8")

    94 	    (object Class "$UNNAMED$9"

    95 		nonclass   	TRUE)

    96 	    (object Class "TSize"

    97 		nonclass   	TRUE)

    98 	    (object Class "HRGN"

    99 		nonclass   	TRUE)

   100 	    (object Class "HPEN"

   101 		nonclass   	TRUE)

   102 	    (object Class "TInt"

   103 		nonclass   	TRUE)

   104 	    (object Class "Draw*"

   105 		nonclass   	TRUE)

   106 	    (object Class "CGdiFont*"

   107 		nonclass   	TRUE)

   108 	    (object Class "HBRUSH"

   109 		nonclass   	TRUE)

   110 	    (object Class "TBool"

   111 		nonclass   	TRUE)

   112 	    (object Class "HBITMAP"

   113 		nonclass   	TRUE)

   114 	    (object Class "HPALETTE"

   115 		nonclass   	TRUE)

   116 	    (object Class "TPoint"

   117 		nonclass   	TRUE)

   118 	    (object Class "CRegion"

   119 		nonclass   	TRUE)

   120 	    (object Class "$UNNAMED$10")

   121 	    (object Class "RDrawWin"

   122 		fields     	(list has_relationship_list

   123 		    (object Has_Relationship

   124 			documentation 	"Pointer to bitmap pixel data."

   125 			label      	"iBitmapBits"

   126 			supplier   	"TUint8 *"

   127 			exportControl 	"Protected"

   128 			Containment 	"By Value")

   129 		    (object Has_Relationship

   130 			documentation 	"Pointer to bitmap palette array."

   131 			label      	"iBitmapColours"

   132 			supplier   	"LPRGBQUAD"

   133 			exportControl 	"Protected"

   134 			Containment 	"By Value")

   135 		    (object Has_Relationship

   136 			documentation 	"Windows device context handle for printing text to the bitmap."

   137 			label      	"iBitmapDC"

   138 			supplier   	"HDC"

   139 			exportControl 	"Protected"

   140 			Containment 	"By Value")

   141 		    (object Has_Relationship

   142 			documentation 	"Windows bitmap handle."

   143 			label      	"iBitmapHandle"

   144 			supplier   	"HBITMAP"

   145 			exportControl 	"Protected"

   146 			Containment 	"By Value")

   147 		    (object Has_Relationship

   148 			documentation 	"Pointer to bitmap info structure."

   149 			label      	"iBitmapInfo"

   150 			supplier   	"LPBITMAPINFO"

   151 			exportControl 	"Protected"

   152 			Containment 	"By Value")

   153 		    (object Has_Relationship

   154 			documentation 	"Pointer to bitmap info header structure."

   155 			label      	"iBitmapInfoHdr"

   156 			supplier   	"LPBITMAPINFOHEADER"

   157 			exportControl 	"Protected"

   158 			Containment 	"By Value"))

   159 		superclasses 	(list inheritance_relationship_list

   160 		    (object Inheritance_Relationship

   161 			supplier   	"RFbsDrawDevice"

   162 			virtual    	TRUE))

   163 		abstract   	TRUE)

   164 	    (object Class "RDrawWinBitmap"

   165 		fields     	(list has_relationship_list

   166 		    (object Has_Relationship

   167 			documentation 	"Bitmap handle."

   168 			label      	"iBitmap"

   169 			supplier   	"HBITMAP"

   170 			exportControl 	"Private"

   171 			Containment 	"By Value"

   172 			supplier_cardinality 	(value cardinality "1")

   173 			client_cardinality 	(value cardinality "1")))

   174 		superclasses 	(list inheritance_relationship_list

   175 		    (object Inheritance_Relationship

   176 			supplier   	"RDrawWin"

   177 			virtual    	TRUE))

   178 		abstract   	TRUE)

   179 	    (object Class "CBase"

   180 		abstract   	TRUE)

   181 	    (object Class "TGraphicsInfo"

   182 		fields     	(list has_relationship_list

   183 		    (object Has_Relationship

   184 			label      	"iFont"

   185 			supplier   	"RBitwiseFont"

   186 			Containment 	"By Reference"

   187 			supplier_cardinality 	(value cardinality "1")

   188 			client_cardinality 	(value cardinality "1"))

   189 		    (object Has_Relationship

   190 			label      	"iPatBrush"

   191 			supplier   	"CBitwiseBitmap"

   192 			Containment 	"By Reference"

   193 			supplier_cardinality 	(value cardinality "1")

   194 			client_cardinality 	(value cardinality "1"))

   195 		    (object Has_Relationship

   196 			label      	"iPalette"

   197 			supplier   	"RPalette"

   198 			Containment 	"By Reference"

   199 			supplier_cardinality 	(value cardinality "1")

   200 			client_cardinality 	(value cardinality "1"))

   201 		    (object Has_Relationship

   202 			documentation 	"Pen colour."

   203 			label      	"iPen"

   204 			supplier   	"TRgb"

   205 			Containment 	"By Value")

   206 		    (object Has_Relationship

   207 			documentation 	"Brush colour."

   208 			label      	"iBrush"

   209 			supplier   	"TRgb"

   210 			Containment 	"By Value")

   211 		    (object Has_Relationship

   212 			documentation 	"Drawing mode."

   213 			label      	"iDrawMode"

   214 			supplier   	"CGdiBase::TGdiDrawMode"

   215 			Containment 	"By Value")

   216 		    (object Has_Relationship

   217 			documentation 	"Specifies transparent/opaque text background."

   218 			label      	"iTextBackGround"

   219 			supplier   	"CGdiBase::TTextBackGround"

   220 			Containment 	"By Value")

   221 		    (object Has_Relationship

   222 			documentation 	"Rectangle to which all drawing operations will be clipped."

   223 			label      	"iClipRect"

   224 			supplier   	"TRect"

   225 			Containment 	"By Value")

   226 		    (object Has_Relationship

   227 			documentation 	"Position at which any patterned brush painting should originate.  Painting may still take place to the left and above this, in which case this is the point that the bottom right-hand corner of the patterned brush lines up with."

   228 			label      	"iPatBrushOrigin"

   229 			supplier   	"TPoint"

   230 			Containment 	"By Value"))

   231 		used_nodes 	(list uses_relationship_list

   232 		    (object Uses_Relationship

   233 			supplier   	"RPalette")

   234 		    (object Uses_Relationship

   235 			supplier   	"CBitwiseBitmap")

   236 		    (object Uses_Relationship

   237 			supplier   	"RBitwiseFont")))

   238 	    (object Class "CGdiSprite"

   239 		nonclass   	TRUE)

   240 	    (object Class "HWND"

   241 		nonclass   	TRUE)

   242 	    (object Class "RRegion"

   243 		nonclass   	TRUE)

   244 	    (object Class "CGdiBase::TGdiDrawMode"

   245 		nonclass   	TRUE)

   246 	    (object Class "CGdiBase::TTextBackGround"

   247 		nonclass   	TRUE)

   248 	    (object Class "TRect"

   249 		nonclass   	TRUE)

   250 	    (object Class "RSpriteBase"

   251 		nonclass   	TRUE)

   252 	    (object Class "TUint"

   253 		nonclass   	TRUE)

   254 	    (object Class "TUint8 *"

   255 		nonclass   	TRUE)

   256 	    (object Class "LPRGBQUAD"

   257 		nonclass   	TRUE)

   258 	    (object Class "LPBITMAPINFO"

   259 		nonclass   	TRUE)

   260 	    (object Class "LPBITMAPINFOHEADER"

   261 		nonclass   	TRUE)

   262 	    (object Class "RSpriteBase *"

   263 		nonclass   	TRUE)

   264 	    (object Class "TGdiAttributes"

   265 		nonclass   	TRUE)

   266 	    (object Class "TDisplayMode"

   267 		nonclass   	TRUE)

   268 	    (object Class "TUint8"

   269 		nonclass   	TRUE)

   270 	    (object Class "TRegionFix<1>"

   271 		nonclass   	TRUE)

   272 	    (object Class "const TRegion *"

   273 		nonclass   	TRUE)

   274 	    (object Class "const TRegion"

   275 		nonclass   	TRUE)

   276 	    (object Class "TDrawMode"

   277 		nonclass   	TRUE)

   278 	    (object Class "TLine"

   279 		nonclass   	TRUE)

   280 	    (object Class "TTextBackGround"

   281 		nonclass   	TRUE)

   282 	    (object Class "TWideLine"

   283 		nonclass   	TRUE)

   284 	    (object Class "RSessionBase")

   285 	    (object Class_Category "$UNNAMED$11"

   286 		exportControl 	"Public"

   287 		logical_models 	(list unit_reference_list)

   288 		logical_presentations 	(list unit_reference_list))

   289 	    (object Class_Category "BitGdi"

   290 		visible_categories 	(list visibility_relationship_list

   291 		    (object Visibility_Relationship

   292 			supplier   	"FontBitmapServer"))

   293 		exportControl 	"Public"

   294 		logical_models 	(list unit_reference_list

   295 		    (object Class "CFbsBitGC"

   296 			fields     	(list has_relationship_list

   297 			    (object Has_Relationship

   298 				documentation 	"Last print position, used by PrintText with no print position supplied."

   299 				label      	"iLastPrintPosition"

   300 				supplier   	"TPoint"

   301 				exportControl 	"Private"

   302 				Containment 	"By Value")

   303 			    (object Has_Relationship

   304 				label      	"iDefaultRegion"

   305 				supplier   	"TRegionFix<1>"

   306 				exportControl 	"Protected"

   307 				Containment 	"By Value")

   308 			    (object Has_Relationship

   309 				documentation 	"Hardware dependent drawing functions"

   310 				label      	"iDrawLowLevel"

   311 				supplier   	"RFbsDrawDevice"

   312 				exportControl 	"Protected"

   313 				Containment 	"By Reference"

   314 				supplier_cardinality 	(value cardinality "0,1")

   315 				client_cardinality 	(value cardinality "n"))

   316 			    (object Has_Relationship

   317 				label      	"iFont"

   318 				supplier   	"CFbsFont"

   319 				exportControl 	"Protected"

   320 				Containment 	"By Reference"

   321 				supplier_cardinality 	(value cardinality "0,1")

   322 				client_cardinality 	(value cardinality "0..n"))

   323 			    (object Has_Relationship

   324 				label      	"iPalette"

   325 				supplier   	"RPalette"

   326 				Containment 	"By Reference"

   327 				supplier_cardinality 	(value cardinality "0,1")

   328 				client_cardinality 	(value cardinality "0..n"))

   329 			    (object Has_Relationship

   330 				label      	"iClipRect"

   331 				supplier   	"TRect"

   332 				exportControl 	"Protected"

   333 				Containment 	"By Value")

   334 			    (object Has_Relationship

   335 				label      	"iDefaultRegionPtr"

   336 				supplier   	"const TRegion"

   337 				exportControl 	"Protected"

   338 				Containment 	"By Reference")

   339 			    (object Has_Relationship

   340 				label      	"iDrawMode"

   341 				supplier   	"TDrawMode"

   342 				exportControl 	"Protected"

   343 				Containment 	"By Value")

   344 			    (object Has_Relationship

   345 				label      	"iLastPosAdjust"

   346 				supplier   	"TInt"

   347 				exportControl 	"Protected"

   348 				Containment 	"By Value")

   349 			    (object Has_Relationship

   350 				label      	"iLastPosUsed"

   351 				supplier   	"TBool"

   352 				exportControl 	"Protected"

   353 				Containment 	"By Value")

   354 			    (object Has_Relationship

   355 				label      	"iLine"

   356 				supplier   	"TLine"

   357 				exportControl 	"Protected"

   358 				Containment 	"By Value")

   359 			    (object Has_Relationship

   360 				label      	"iLineWidth"

   361 				supplier   	"TInt"

   362 				exportControl 	"Protected"

   363 				Containment 	"By Value")

   364 			    (object Has_Relationship

   365 				label      	"iPatBrushOrigin"

   366 				supplier   	"TPoint"

   367 				exportControl 	"Protected"

   368 				Containment 	"By Value")

   369 			    (object Has_Relationship

   370 				label      	"iPen"

   371 				supplier   	"TRgb"

   372 				exportControl 	"Protected"

   373 				Containment 	"By Value")

   374 			    (object Has_Relationship

   375 				label      	"iTextBackGround"

   376 				supplier   	"TTextBackGround"

   377 				exportControl 	"Protected"

   378 				Containment 	"By Value")

   379 			    (object Has_Relationship

   380 				label      	"iWideLine"

   381 				supplier   	"TWideLine"

   382 				exportControl 	"Protected"

   383 				Containment 	"By Value")

   384 			    (object Has_Relationship

   385 				label      	"iTextBackGroundColour"

   386 				supplier   	"TRgb"

   387 				exportControl 	"Protected"

   388 				Containment 	"By Value")

   389 			    (object Has_Relationship

   390 				label      	"iBrushPattern"

   391 				supplier   	"CFbsBitmap"

   392 				exportControl 	"Protected"

   393 				Containment 	"By Reference"

   394 				supplier_cardinality 	(value cardinality "0..1")

   395 				client_cardinality 	(value cardinality "0..n"))

   396 			    (object Has_Relationship

   397 				supplier   	"CFbsFont"

   398 				exportControl 	"Protected"

   399 				supplier_cardinality 	(value cardinality "0..1")

   400 				client_cardinality 	(value cardinality "0..n"))

   401 			    (object Has_Relationship

   402 				supplier   	"CFbsBitmap"

   403 				exportControl 	"Protected"

   404 				supplier_cardinality 	(value cardinality "0..1")

   405 				client_cardinality 	(value cardinality "0..n"))

   406 			    (object Has_Relationship

   407 				supplier   	"TRgb")

   408 			    (object Has_Relationship

   409 				supplier   	"TRgb")

   410 			    (object Has_Relationship

   411 				supplier   	"TLinearDDA")

   412 			    (object Has_Relationship

   413 				supplier   	"TEllipse"))

   414 			superclasses 	(list inheritance_relationship_list

   415 			    (object Inheritance_Relationship

   416 				supplier   	"CBitmapContext"))

   417 			used_nodes 	(list uses_relationship_list

   418 			    (object Uses_Relationship

   419 				label      	"iDrawable"

   420 				supplier   	"RFbsDrawDevice"

   421 				supplier_cardinality 	(value cardinality "1")

   422 				client_cardinality 	(value cardinality "0..n"))

   423 			    (object Uses_Relationship

   424 				supplier   	"CBitwiseBitmap"

   425 				exportControl 	"Protected"

   426 				supplier_cardinality 	(value cardinality "0..1")

   427 				client_cardinality 	(value cardinality "0..n"))

   428 			    (object Uses_Relationship

   429 				supplier   	"CBitmapFont"

   430 				exportControl 	"Protected"

   431 				supplier_cardinality 	(value cardinality "0..1")

   432 				client_cardinality 	(value cardinality "0..n"))

   433 			    (object Uses_Relationship

   434 				label      	"iBrushPattern"

   435 				supplier   	"CFbsBitmap"

   436 				exportControl 	"Protected"

   437 				supplier_cardinality 	(value cardinality "0..1")

   438 				client_cardinality 	(value cardinality "0..n")))

   439 			module     	"G32 (main)")

   440 		    (object Class "RFbsDrawDevice"

   441 			fields     	(list has_relationship_list

   442 			    (object Has_Relationship

   443 				documentation 	"Size of gdi area."

   444 				label      	"iSize"

   445 				supplier   	"TSize"

   446 				exportControl 	"Protected"

   447 				Containment 	"By Value"

   448 				supplier_cardinality 	(value cardinality "1")

   449 				client_cardinality 	(value cardinality "1"))

   450 			    (object Has_Relationship

   451 				documentation 	"Display mode of device."

   452 				label      	"iDispMode"

   453 				supplier   	"TDisplayMode"

   454 				exportControl 	"Protected"

   455 				Containment 	"By Value"

   456 				supplier_cardinality 	(value cardinality "1")

   457 				client_cardinality 	(value cardinality "1"))

   458 			    (object Has_Relationship

   459 				documentation 	"Single sprite pointer."

   460 				label      	"iSprite"

   461 				supplier   	"RSpriteBase *"

   462 				exportControl 	"Protected"

   463 				Containment 	"By Value"

   464 				supplier_cardinality 	(value cardinality "1")

   465 				client_cardinality 	(value cardinality "1"))

   466 			    (object Has_Relationship

   467 				documentation 	"The class handle."

   468 				label      	"iHandle"

   469 				supplier   	"TUint"

   470 				exportControl 	"Protected"

   471 				Containment 	"By Value")

   472 			    (object Has_Relationship

   473 				label      	"iAttributes"

   474 				supplier   	"TGdiAttributes"

   475 				exportControl 	"Protected"

   476 				Containment 	"By Value")

   477 			    (object Has_Relationship

   478 				label      	"iLongWidth"

   479 				supplier   	"TInt"

   480 				exportControl 	"Protected"

   481 				Containment 	"By Value")

   482 			    (object Has_Relationship

   483 				label      	"iBitmapBits"

   484 				supplier   	"TUint8"

   485 				exportControl 	"Protected"

   486 				Containment 	"By Reference")

   487 			    (object Has_Relationship

   488 				label      	"iScanLineBuffer"

   489 				supplier   	"TUint8 *"

   490 				exportControl 	"Protected"

   491 				Containment 	"By Value")

   492 			    (object Has_Relationship

   493 				label      	"iScanLineBytes"

   494 				supplier   	"TInt"

   495 				exportControl 	"Protected"

   496 				Containment 	"By Value")

   497 			    (object Has_Relationship

   498 				label      	"iSpriteDraw"

   499 				supplier   	"TBool"

   500 				exportControl 	"Protected"

   501 				Containment 	"By Value"))

   502 			superclasses 	(list inheritance_relationship_list

   503 			    (object Inheritance_Relationship

   504 				supplier   	"RDrawBase"))

   505 			abstract   	TRUE

   506 			module     	"G32 (main)")

   507 		    (object Class "RPaletteBase"

   508 			abstract   	TRUE

   509 			module     	"G32 (main)")

   510 		    (object Class "CFbsScreenDevice"

   511 			superclasses 	(list inheritance_relationship_list

   512 			    (object Inheritance_Relationship

   513 				supplier   	"CFbsDevice"))

   514 			used_nodes 	(list uses_relationship_list

   515 			    (object Uses_Relationship

   516 				supplier   	"CFbsBitGC"

   517 				supplier_cardinality 	(value cardinality "0..n")

   518 				client_cardinality 	(value cardinality "1"))

   519 			    (object Uses_Relationship

   520 				supplier   	"RFbsDrawDevice"))

   521 			operations 	(list Operations

   522 			    (object Operation "CreateContext"

   523 				concurrency 	"Sequential"

   524 				opExportControl 	"Public"

   525 				uid        	0)))

   526 		    (object Class "CFbsDevice"

   527 			superclasses 	(list inheritance_relationship_list

   528 			    (object Inheritance_Relationship

   529 				supplier   	"CBitmapDevice"))

   530 			used_nodes 	(list uses_relationship_list

   531 			    (object Uses_Relationship

   532 				supplier   	"CFbsTypefaceStore"))

   533 			abstract   	TRUE)

   534 		    (object Class "CFbsBitmapDevice"

   535 			superclasses 	(list inheritance_relationship_list

   536 			    (object Inheritance_Relationship

   537 				supplier   	"CFbsDevice"))

   538 			used_nodes 	(list uses_relationship_list

   539 			    (object Uses_Relationship

   540 				supplier   	"CFbsBitGC"

   541 				supplier_cardinality 	(value cardinality "0..n")

   542 				client_cardinality 	(value cardinality "1"))))

   543 		    (object Class_Category "Low Level

   544 Drawing"

   545 			exportControl 	"Public"

   546 			logical_models 	(list unit_reference_list

   547 			    (object Class "RFbsDrawFourBppBitmap"

   548 				superclasses 	(list inheritance_relationship_list

   549 				    (object Inheritance_Relationship

   550 					supplier   	"RFbsDrawBitmap"))

   551 				persistence 	"Persistent"

   552 				module     	"G32 (main)")

   553 			    (object Class "RDrawEightBppBitmap

   554 "

   555 				superclasses 	(list inheritance_relationship_list

   556 				    (object Inheritance_Relationship

   557 					supplier   	"RFbsDrawBitmap"))

   558 				persistence 	"Persistent"

   559 				module     	"G32 (main)")

   560 			    (object Class "RFbsDrawFourBppScreenBitmap"

   561 				superclasses 	(list inheritance_relationship_list

   562 				    (object Inheritance_Relationship

   563 					supplier   	"RFbsDrawScreen")

   564 				    (object Inheritance_Relationship

   565 					supplier   	"RFbsDrawFourBppBitmap"))

   566 				persistence 	"Persistent"

   567 				module     	"G32 (main)")

   568 			    (object Class "RFbsDrawTwoBppScreenBitmap"

   569 				superclasses 	(list inheritance_relationship_list

   570 				    (object Inheritance_Relationship

   571 					supplier   	"RFbsDrawScreen")

   572 				    (object Inheritance_Relationship

   573 					supplier   	"RFbsDrawTwoBppBitmap"))

   574 				persistence 	"Persistent"

   575 				module     	"G32 (main)")

   576 			    (object Class "RFbsDrawTwoBppBitmap"

   577 				superclasses 	(list inheritance_relationship_list

   578 				    (object Inheritance_Relationship

   579 					supplier   	"RFbsDrawBitmap")))

   580 			    (object Class "RFbsDrawOneBppBitmap"

   581 				superclasses 	(list inheritance_relationship_list

   582 				    (object Inheritance_Relationship

   583 					supplier   	"RFbsDrawBitmap")))

   584 			    (object Class "RDrawOneBppScreen"

   585 				superclasses 	(list inheritance_relationship_list

   586 				    (object Inheritance_Relationship

   587 					supplier   	"RFbsDrawScreen")))

   588 			    (object Class "RFbsDrawScreen"

   589 				superclasses 	(list inheritance_relationship_list

   590 				    (object Inheritance_Relationship

   591 					supplier   	"RFbsDrawDevice"))

   592 				abstract   	TRUE)

   593 			    (object Class "RFbsDrawBitmap"

   594 				superclasses 	(list inheritance_relationship_list

   595 				    (object Inheritance_Relationship

   596 					supplier   	"RFbsDrawDevice"))

   597 				abstract   	TRUE))

   598 			logical_presentations 	(list unit_reference_list

   599 			    (object ClassDiagram "Main"

   600 				title      	"Main"

   601 				zoom       	100

   602 				max_height 	28350

   603 				max_width  	21600

   604 				origin_x   	0

   605 				origin_y   	0

   606 				items      	(list diagram_item_list

   607 				    (object ClassView "Class" "RFbsDrawDevice" @1

   608 					location   	(1500, 175)

   609 					label      	(object ItemLabel

   610 					    Parent_View 	@1

   611 					    location   	(1368, 68)

   612 					    nlines     	2

   613 					    max_width  	310

   614 					    justify    	0

   615 					    label      	"RFbsDrawDevice")

   616 					width      	450

   617 					height     	318

   618 					annotation 	8

   619 					autoResize 	TRUE)

   620 				    (object ClassView "Class" "RFbsDrawFourBppBitmap" @2

   621 					location   	(2175, 1050)

   622 					label      	(object ItemLabel

   623 					    Parent_View 	@2

   624 					    location   	(2052, 966)

   625 					    nlines     	2

   626 					    max_width  	288

   627 					    justify    	0

   628 					    label      	"RFbsDrawFourBppBitmap")

   629 					width      	420

   630 					annotation 	8

   631 					autoResize 	TRUE)

   632 				    (object ClassView "Class" "RFbsDrawFourBppScreenBitmap" @3

   633 					location   	(2175, 1575)

   634 					label      	(object ItemLabel

   635 					    Parent_View 	@3

   636 					    location   	(2032, 1491)

   637 					    nlines     	2

   638 					    max_width  	334

   639 					    justify    	0

   640 					    label      	"RFbsDrawFourBppScreenBitmap")

   641 					width      	488

   642 					annotation 	8

   643 					autoResize 	TRUE)

   644 				    (object ClassView "Class" "RFbsDrawTwoBppScreenBitmap" @4

   645 					location   	(700, 1600)

   646 					label      	(object ItemLabel

   647 					    Parent_View 	@4

   648 					    location   	(558, 1516)

   649 					    nlines     	2

   650 					    max_width  	333

   651 					    justify    	0

   652 					    label      	"RFbsDrawTwoBppScreenBitmap")

   653 					width      	486

   654 					annotation 	8

   655 					autoResize 	TRUE)

   656 				    (object ClassView "Class" "RFbsDrawTwoBppBitmap" @5

   657 					location   	(700, 1075)

   658 					label      	(object ItemLabel

   659 					    Parent_View 	@5

   660 					    location   	(583, 991)

   661 					    nlines     	2

   662 					    max_width  	274

   663 					    justify    	0

   664 					    label      	"RFbsDrawTwoBppBitmap")

   665 					width      	400

   666 					annotation 	8

   667 					autoResize 	TRUE)

   668 				    (object ClassView "Class" "RFbsDrawOneBppBitmap" @6

   669 					location   	(1500, 1050)

   670 					label      	(object ItemLabel

   671 					    Parent_View 	@6

   672 					    location   	(1377, 966)

   673 					    nlines     	2

   674 					    max_width  	286

   675 					    justify    	0

   676 					    label      	"RFbsDrawOneBppBitmap")

   677 					width      	418

   678 					annotation 	8

   679 					autoResize 	TRUE)

   680 				    (object ClassView "Class" "RFbsDrawBitmap" @7

   681 					location   	(1500, 575)

   682 					label      	(object ItemLabel

   683 					    Parent_View 	@7

   684 					    location   	(1396, 491)

   685 					    nlines     	2

   686 					    max_width  	240

   687 					    justify    	0

   688 					    label      	"RFbsDrawBitmap")

   689 					annotation 	8

   690 					autoResize 	TRUE)

   691 				    (object InheritView "" @8

   692 					client     	@2

   693 					supplier   	@7

   694 					line_style 	0)

   695 				    (object InheritView "" @9

   696 					client     	@5

   697 					supplier   	@7

   698 					line_style 	0)

   699 				    (object InheritView "" @10

   700 					client     	@6

   701 					supplier   	@7

   702 					line_style 	0)

   703 				    (object InheritView "" @11

   704 					client     	@7

   705 					supplier   	@1

   706 					line_style 	0)

   707 				    (object InheritView "" @12

   708 					client     	@4

   709 					supplier   	@5

   710 					line_style 	0)

   711 				    (object InheritView "" @13

   712 					client     	@3

   713 					supplier   	@2

   714 					line_style 	0)))))

   715 		    (object Class_Category "Screen/Bitmap Context"

   716 			exportControl 	"Public"

   717 			logical_models 	(list unit_reference_list

   718 			    (object Class "TEllipse"))

   719 			logical_presentations 	(list unit_reference_list

   720 			    (object ClassDiagram "Main"

   721 				title      	"Main"

   722 				zoom       	100

   723 				max_height 	28350

   724 				max_width  	21600

   725 				origin_x   	0

   726 				origin_y   	0

   727 				items      	(list diagram_item_list

   728 				    (object ClassView "Class" "CFbsBitGC" @14

   729 					location   	(1675, 1050)

   730 					label      	(object ItemLabel

   731 					    Parent_View 	@14

   732 					    location   	(1558, 955)

   733 					    nlines     	2

   734 					    max_width  	275

   735 					    justify    	0

   736 					    label      	"CFbsBitGC")

   737 					width      	400

   738 					height     	287

   739 					annotation 	8)

   740 				    (object ClassView "Class" "CFbsFont" @15

   741 					location   	(1625, 1725)

   742 					label      	(object ItemLabel

   743 					    Parent_View 	@15

   744 					    location   	(1479, 1605)

   745 					    nlines     	2

   746 					    max_width  	344

   747 					    justify    	0

   748 					    label      	"CFbsFont")

   749 					width      	500

   750 					height     	357

   751 					annotation 	8)

   752 				    (object ClassView "Class" "CFbsBitmap" @16

   753 					location   	(2525, 1475)

   754 					label      	(object ItemLabel

   755 					    Parent_View 	@16

   756 					    location   	(2393, 1366)

   757 					    nlines     	2

   758 					    max_width  	310

   759 					    justify    	0

   760 					    label      	"CFbsBitmap")

   761 					width      	450

   762 					height     	325

   763 					annotation 	8)

   764 				    (object HasView "iFont" @17

   765 					client     	@14

   766 					supplier   	@15

   767 					line_style 	0)

   768 				    (object HasView "iBrushPattern" @18

   769 					client     	@14

   770 					supplier   	@16

   771 					line_style 	0)

   772 				    (object ClassView "Class" "TRgb" @19

   773 					location   	(850, 1275)

   774 					label      	(object ItemLabel

   775 					    Parent_View 	@19

   776 					    location   	(733, 1179)

   777 					    nlines     	2

   778 					    max_width  	275

   779 					    justify    	0

   780 					    label      	"TRgb")

   781 					width      	400

   782 					height     	288

   783 					annotation 	8)

   784 				    (object ClassView "Class" "TRgb" @20

   785 					location   	(875, 850)

   786 					label      	(object ItemLabel

   787 					    Parent_View 	@20

   788 					    location   	(758, 754)

   789 					    nlines     	2

   790 					    max_width  	275

   791 					    justify    	0

   792 					    label      	"TRgb")

   793 					width      	400

   794 					height     	288

   795 					annotation 	8)

   796 				    (object HasView "iPen" @21

   797 					client     	@14

   798 					supplier   	@19

   799 					line_style 	0)

   800 				    (object HasView "iTextBackGroundColour" @22

   801 					client     	@14

   802 					supplier   	@20

   803 					line_style 	0)

   804 				    (object ClassView "Class" "TLinearDDA" @23

   805 					location   	(1400, 500)

   806 					label      	(object ItemLabel

   807 					    Parent_View 	@23

   808 					    location   	(1296, 416)

   809 					    nlines     	2

   810 					    max_width  	240

   811 					    justify    	0

   812 					    label      	"TLinearDDA")

   813 					annotation 	8)

   814 				    (object HasView "" @24

   815 					client     	@14

   816 					supplier   	@23

   817 					line_style 	0)

   818 				    (object ClassView "Class" "TEllipse" @25

   819 					location   	(1975, 525)

   820 					label      	(object ItemLabel

   821 					    Parent_View 	@25

   822 					    location   	(1871, 441)

   823 					    nlines     	2

   824 					    max_width  	240

   825 					    justify    	0

   826 					    label      	"TEllipse")

   827 					annotation 	8)

   828 				    (object HasView "" @26

   829 					client     	@14

   830 					supplier   	@25

   831 					line_style 	0))))))

   832 		logical_presentations 	(list unit_reference_list

   833 		    (object ClassDiagram "Main"

   834 			title      	"Main"

   835 			zoom       	92

   836 			max_height 	28350

   837 			max_width  	21600

   838 			origin_x   	0

   839 			origin_y   	0

   840 			items      	(list diagram_item_list

   841 			    (object ClassView "Class" "CFbsBitGC" @27

   842 				location   	(2500, 975)

   843 				label      	(object ItemLabel

   844 				    Parent_View 	@27

   845 				    location   	(2396, 891)

   846 				    nlines     	2

   847 				    max_width  	240

   848 				    justify    	0

   849 				    label      	"CFbsBitGC")

   850 				annotation 	8)

   851 			    (object ClassView "Class" "RFbsDrawDevice" @28

   852 				location   	(1650, 650)

   853 				label      	(object ItemLabel

   854 				    Parent_View 	@28

   855 				    location   	(1546, 566)

   856 				    nlines     	2

   857 				    max_width  	240

   858 				    justify    	0

   859 				    label      	"RFbsDrawDevice")

   860 				annotation 	8)

   861 			    (object ClassView "Class" "CFbsScreenDevice" @29

   862 				location   	(2025, 1375)

   863 				label      	(object ItemLabel

   864 				    Parent_View 	@29

   865 				    location   	(1894, 1268)

   866 				    nlines     	2

   867 				    max_width  	309

   868 				    justify    	0

   869 				    label      	"CFbsScreenDevice")

   870 				compartment 	(object Compartment

   871 				    Parent_View 	@29

   872 				    location   	(1584, 1386)

   873 				    anchor     	2

   874 				    nlines     	1

   875 				    max_width  	927

   876 				    justify    	0

   877 				    compartmentItems 	(list Compartment

   878 					"CreateContext( )"))

   879 				width      	448

   880 				height     	319

   881 				annotation 	8)

   882 			    (object UsesView "" @30

   883 				client     	@29

   884 				supplier   	@27

   885 				line_style 	0)

   886 			    (object ClassView "Class" "CFbsDevice" @31

   887 				location   	(1250, 1125)

   888 				label      	(object ItemLabel

   889 				    Parent_View 	@31

   890 				    location   	(1146, 1041)

   891 				    nlines     	2

   892 				    max_width  	240

   893 				    justify    	0

   894 				    label      	"CFbsDevice")

   895 				annotation 	8)

   896 			    (object InheritView "" @32

   897 				client     	@29

   898 				supplier   	@31

   899 				line_style 	0)

   900 			    (object ClassView "Class" "CBitmapContext" @33

   901 				location   	(2775, 325)

   902 				label      	(object ItemLabel

   903 				    Parent_View 	@33

   904 				    location   	(2616, 195)

   905 				    nlines     	2

   906 				    max_width  	374

   907 				    justify    	0

   908 				    label      	"CBitmapContext")

   909 				width      	543

   910 				height     	387

   911 				annotation 	8)

   912 			    (object InheritView "" @34

   913 				client     	@27

   914 				supplier   	@33

   915 				line_style 	0)

   916 			    (object ClassView "Class" "CFbsTypefaceStore" @35

   917 				location   	(475, 1500)

   918 				label      	(object ItemLabel

   919 				    Parent_View 	@35

   920 				    location   	(316, 1370)

   921 				    nlines     	2

   922 				    max_width  	374

   923 				    justify    	0

   924 				    label      	"CFbsTypefaceStore")

   925 				width      	543

   926 				height     	387

   927 				annotation 	8)

   928 			    (object UsesView "iDrawable" @36

   929 				label      	(object ItemLabel

   930 				    Parent_View 	@36

   931 				    location   	(2082, 815)

   932 				    anchor_loc 	1

   933 				    nlines     	1

   934 				    max_width  	450

   935 				    justify    	0

   936 				    label      	"iDrawable")

   937 				client     	@27

   938 				supplier   	@28

   939 				line_style 	0)

   940 			    (object CategoryView "Low Level

   941 Drawing" @37

   942 				location   	(1675, 400)

   943 				label      	(object ItemLabel

   944 				    Parent_View 	@37

   945 				    location   	(1508, 305)

   946 				    nlines     	2

   947 				    max_width  	334

   948 				    justify    	0

   949 				    label      	

   950 |Low Level

   951 |Drawing

   952 				    )

   953 				width      	346

   954 				height     	203)

   955 			    (object CategoryView "Screen/Bitmap Context" @38

   956 				location   	(2850, 1025)

   957 				label      	(object ItemLabel

   958 				    Parent_View 	@38

   959 				    location   	(2706, 941)

   960 				    nlines     	2

   961 				    max_width  	288

   962 				    justify    	0

   963 				    label      	"Screen/Bitmap Context")

   964 				compartment 	(object Compartment

   965 				    Parent_View 	@38

   966 				    location   	(2729, 1059)

   967 				    anchor     	2

   968 				    nlines     	1

   969 				    max_width  	720

   970 				    compartmentItems 	(list Compartment

   971 					"TEllipse"))

   972 				width      	300

   973 				height     	180)

   974 			    (object ClassView "Class" "CBitmapDevice" @39

   975 				location   	(750, 525)

   976 				label      	(object ItemLabel

   977 				    Parent_View 	@39

   978 				    location   	(619, 418)

   979 				    nlines     	2

   980 				    max_width  	309

   981 				    justify    	0

   982 				    label      	"CBitmapDevice")

   983 				width      	448

   984 				height     	319

   985 				annotation 	8)

   986 			    (object InheritView "" @40

   987 				client     	@31

   988 				supplier   	@39

   989 				line_style 	0)

   990 			    (object ClassView "Class" "CFbsBitmapDevice" @41

   991 				location   	(2150, 1975)

   992 				label      	(object ItemLabel

   993 				    Parent_View 	@41

   994 				    location   	(2040, 1891)

   995 				    nlines     	2

   996 				    max_width  	256

   997 				    justify    	0

   998 				    label      	"CFbsBitmapDevice")

   999 				width      	372

  1000 				annotation 	8)

  1001 			    (object InheritView "" @42

  1002 				client     	@41

  1003 				supplier   	@31

  1004 				line_style 	0)

  1005 			    (object UsesView "" @43

  1006 				client     	@31

  1007 				supplier   	@35

  1008 				line_style 	0)

  1009 			    (object UsesView "" @44

  1010 				client     	@41

  1011 				supplier   	@27

  1012 				line_style 	0)))))

  1013 	    (object Class_Category "FontBitmapServer"

  1014 		visible_categories 	(list visibility_relationship_list

  1015 		    (object Visibility_Relationship

  1016 			supplier   	"Psibit")

  1017 		    (object Visibility_Relationship

  1018 			supplier   	"FntStore")

  1019 		    (object Visibility_Relationship

  1020 			supplier   	"Gdi"))

  1021 		exportControl 	"Public"

  1022 		logical_models 	(list unit_reference_list

  1023 		    (object Class "RFbsSession"

  1024 			superclasses 	(list inheritance_relationship_list

  1025 			    (object Inheritance_Relationship

  1026 				supplier   	"RSessionBase"))

  1027 			operations 	(list Operations

  1028 			    (object Operation "SendCommand"

  1029 				concurrency 	"Sequential"

  1030 				opExportControl 	"Public"

  1031 				uid        	0)))

  1032 		    (object Class "CFbsFont"

  1033 			superclasses 	(list inheritance_relationship_list

  1034 			    (object Inheritance_Relationship

  1035 				supplier   	"CFont"))

  1036 			used_nodes 	(list uses_relationship_list

  1037 			    (object Uses_Relationship

  1038 				supplier   	"RFbsSession")

  1039 			    (object Uses_Relationship

  1040 				supplier   	"CBitmapFont"

  1041 				supplier_cardinality 	(value cardinality "1")

  1042 				client_cardinality 	(value cardinality "1"))))

  1043 		    (object Class "CBitmappedDevice"

  1044 			abstract   	TRUE)

  1045 		    (object Class "CFbsBitmap"

  1046 			superclasses 	(list inheritance_relationship_list

  1047 			    (object Inheritance_Relationship

  1048 				supplier   	"CDiBitmap"))

  1049 			used_nodes 	(list uses_relationship_list

  1050 			    (object Uses_Relationship

  1051 				supplier   	"RFbsSession")

  1052 			    (object Uses_Relationship

  1053 				supplier   	"CBitwiseBitmap"

  1054 				supplier_cardinality 	(value cardinality "1")

  1055 				client_cardinality 	(value cardinality "1"))))

  1056 		    (object Class "CFbsTypefaceStore"

  1057 			fields     	(list has_relationship_list

  1058 			    (object Has_Relationship

  1059 				supplier   	"RFbsSession"))

  1060 			superclasses 	(list inheritance_relationship_list

  1061 			    (object Inheritance_Relationship

  1062 				supplier   	"CTypefaceStore"))

  1063 			used_nodes 	(list uses_relationship_list

  1064 			    (object Uses_Relationship

  1065 				supplier   	"CFbsFont")))

  1066 		    (object Association "IPC"

  1067 			quid       	"3198EF07008C"

  1068 			roles      	(list role_list

  1069 			    (object Role "$UNNAMED$12"

  1070 				supplier   	"RFbsSession"

  1071 				client_cardinality 	(value cardinality "0..n"))

  1072 			    (object Role "$UNNAMED$13"

  1073 				supplier   	"CFontBitmapServer"

  1074 				client_cardinality 	(value cardinality "1"))))

  1075 		    (object Association "iConnectionHandle"

  1076 			quid       	"3198EF07008D"

  1077 			roles      	(list role_list

  1078 			    (object Role "$UNNAMED$14"

  1079 				supplier   	"RFbsSession"

  1080 				client_cardinality 	(value cardinality "1"))

  1081 			    (object Role "$UNNAMED$15"

  1082 				supplier   	"CFbClient"

  1083 				client_cardinality 	(value cardinality "1"))))

  1084 		    (object Class_Category "Font/BitmapServer"

  1085 			exportControl 	"Public"

  1086 			logical_models 	(list unit_reference_list

  1087 			    (object Class "CFontBitmapServer"

  1088 				superclasses 	(list inheritance_relationship_list

  1089 				    (object Inheritance_Relationship

  1090 					supplier   	"CServer"))

  1091 				used_nodes 	(list uses_relationship_list

  1092 				    (object Uses_Relationship

  1093 					supplier   	"CFbClient"

  1094 					supplier_cardinality 	(value cardinality "0..n")

  1095 					client_cardinality 	(value cardinality "1"))))

  1096 			    (object Class "CServer")

  1097 			    (object Class "CSession")

  1098 			    (object Class "CFbsTop"

  1099 				used_nodes 	(list uses_relationship_list

  1100 				    (object Uses_Relationship

  1101 					supplier   	"CFontStore"

  1102 					supplier_cardinality 	(value cardinality "1")

  1103 					client_cardinality 	(value cardinality "1"))))

  1104 			    (object Class "CFbClient"

  1105 				fields     	(list has_relationship_list

  1106 				    (object Has_Relationship

  1107 					label      	"iIx"

  1108 					supplier   	"CObjectIx"

  1109 					supplier_cardinality 	(value cardinality "1")

  1110 					client_cardinality 	(value cardinality "1")))

  1111 				superclasses 	(list inheritance_relationship_list

  1112 				    (object Inheritance_Relationship

  1113 					supplier   	"CSession"))

  1114 				used_nodes 	(list uses_relationship_list

  1115 				    (object Uses_Relationship

  1116 					supplier   	"CFbsObject"

  1117 					supplier_cardinality 	(value cardinality "0..n")

  1118 					client_cardinality 	(value cardinality "1"))

  1119 				    (object Uses_Relationship

  1120 					supplier   	"CBitwiseBitmap"

  1121 					supplier_cardinality 	(value cardinality "1")

  1122 					client_cardinality 	(value cardinality "0..n"))

  1123 				    (object Uses_Relationship

  1124 					supplier   	"CBitmapFont"

  1125 					supplier_cardinality 	(value cardinality "1")

  1126 					client_cardinality 	(value cardinality "0..n"))))

  1127 			    (object Class "CBitwiseBitmap"

  1128 				superclasses 	(list inheritance_relationship_list

  1129 				    (object Inheritance_Relationship

  1130 					supplier   	"RBrushBase")

  1131 				    (object Inheritance_Relationship

  1132 					supplier   	"CDiBitmap"))

  1133 				module     	"G32 (main)")

  1134 			    (object Association "$UNNAMED$16"

  1135 				quid       	"3198EF0700FA"