visitor.mdl

delphi深度探索第二版随书光盘所附内容

(object Petal
    version    	45
    _written   	"Rose 7.5.0103.1920"
    charSet    	134)

(object Design "Logical View"
    is_unit    	TRUE
    is_loaded  	TRUE
    quid       	"3EE9891F01D3"
    defaults   	(object defaults
	rightMargin 	0.250000
	leftMargin 	0.250000
	topMargin  	0.250000
	bottomMargin 	0.500000
	pageOverlap 	0.250000
	clipIconLabels 	TRUE
	autoResize 	TRUE
	snapToGrid 	TRUE
	gridX      	16
	gridY      	16
	defaultFont 	(object Font
	    size       	10
	    face       	"Arial"
	    bold       	FALSE
	    italics    	FALSE
	    underline  	FALSE
	    strike     	FALSE
	    color      	0
	    default_color 	TRUE)
	showMessageNum 	1
	showClassOfObject 	TRUE
	notation   	"Unified")
    root_usecase_package 	(object Class_Category "Use Case View"
	quid       	"3EE9891F01FB"
	exportControl 	"Public"
	global     	TRUE
	logical_models 	(list unit_reference_list)
	logical_presentations 	(list unit_reference_list
	    (object UseCaseDiagram "Main"
		quid       	"3EE9892600BC"
		title      	"Main"
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	0
		origin_y   	0
		items      	(list diagram_item_list))))
    root_category 	(object Class_Category "Logical View"
	quid       	"3EE9891F01D4"
	exportControl 	"Public"
	global     	TRUE
	subsystem  	"Component View"
	quidu      	"3EE9891F0223"
	logical_models 	(list unit_reference_list
	    (object Class "TTemporyPerson"
		quid       	"3EE9892B0086"
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			quid       	"3EEFD62B0310"
			supplier   	"Logical View::TPeopleItem"
			quidu      	"3EEFD5D90023")))
	    (object Class "TOperation"
		quid       	"3EEFD52603AB"
		operations 	(list Operations
		    (object Operation "Execute(APerson:TPeopleItem)"
			quid       	"3EEFD5330115"
			concurrency 	"Sequential"
			opExportControl 	"Public"
			uid        	0)))
	    (object Class "TSafeOperation"
		quid       	"3EEFD53B0134"
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			quid       	"3EEFD59001AF"
			supplier   	"Logical View::TOperation"
			quidu      	"3EEFD52603AB"))
		operations 	(list Operations
		    (object Operation "Execute(APerson:TPeopleItem)"
			quid       	"3EEFD60800D5"
			concurrency 	"Sequential"
			opExportControl 	"Public"
			uid        	0)))
	    (object Class "TLunchOperation"
		quid       	"3EEFD56C029D"
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			quid       	"3EEFD5930267"
			supplier   	"Logical View::TOperation"
			quidu      	"3EEFD52603AB"))
		operations 	(list Operations
		    (object Operation "Execute(APerson:TPeopleItem)"
			quid       	"3EEFD615025A"
			concurrency 	"Sequential"
			opExportControl 	"Public"
			uid        	0)))
	    (object Class "TPeople"
		quid       	"3EEFD5C4022C"
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			quid       	"3EEFD5E6022B"
			supplier   	"Logical View::TPeopleItem"
			quidu      	"3EEFD5D90023"))
		operations 	(list Operations
		    (object Operation "Iterate(AOperation:TOperation)"
			quid       	"3EEFD63A016D"
			concurrency 	"Sequential"
			opExportControl 	"Public"
			uid        	0)))
	    (object Class "TPeopleItem"
		quid       	"3EEFD5D90023")
	    (object Class "TPerson"
		quid       	"3EEFD621012B"
		superclasses 	(list inheritance_relationship_list
		    (object Inheritance_Relationship
			quid       	"3EEFD62E00A8"
			supplier   	"Logical View::TPeopleItem"
			quidu      	"3EEFD5D90023")))
	    (object Association "$UNNAMED$0"
		quid       	"3EEFD5CE03D5"
		roles      	(list role_list
		    (object Role "$UNNAMED$1"
			quid       	"3EEFD5CF01CD"
			supplier   	"Logical View::TTemporyPerson"
			quidu      	"3EE9892B0086"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$2"
			quid       	"3EEFD5CF01CF"
			supplier   	"Logical View::TPeople"
			quidu      	"3EEFD5C4022C"
			is_aggregate 	TRUE)))
	    (object Association "$UNNAMED$3"
		quid       	"3EEFD5E90243"
		roles      	(list role_list
		    (object Role "$UNNAMED$4"
			quid       	"3EEFD5EA00C8"
			supplier   	"Logical View::TPeopleItem"
			quidu      	"3EEFD5D90023"
			is_navigable 	TRUE)
		    (object Role "$UNNAMED$5"
			quid       	"3EEFD5EA00D2"
			supplier   	"Logical View::TPeople"
			quidu      	"3EEFD5C4022C"
			is_aggregate 	TRUE))))
	logical_presentations 	(list unit_reference_list
	    (object ClassDiagram "Main"
		quid       	"3EE989260101"
		title      	"Main"
		zoom       	100
		max_height 	28350
		max_width  	21600
		origin_x   	140
		origin_y   	0
		items      	(list diagram_item_list
		    (object ClassView "Class" "Logical View::TOperation" @1
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(1024, 192)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@1
			    location   	(703, 126)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	642
			    justify    	0
			    label      	"TOperation")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EEFD52603AB"
			compartment 	(object Compartment
			    Parent_View 	@1
			    location   	(703, 177)
			    font       	(object Font
				size       	10
				face       	"宋体"
				charSet    	134
				bold       	FALSE
				italics    	FALSE
				underline  	FALSE
				strike     	FALSE
				color      	0
				default_color 	TRUE)
			    icon_style 	"Icon"
			    fill_color 	13434879
			    anchor     	2
			    nlines     	2
			    max_width  	640)
			width      	660
			height     	152
			annotation 	8
			autoResize 	TRUE)
		    (object ClassView "Class" "Logical View::TSafeOperation" @2
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(528, 464)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@2
			    location   	(207, 378)
			    fill_color 	13434879
			    nlines     	2
			    max_width  	642
			    justify    	0
			    label      	"TSafeOperation")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EEFD53B0134"
			compartment 	(object Compartment
			    Parent_View 	@2
			    location   	(207, 429)
			    font       	(object Font
				size       	10
				face       	"宋体"
				charSet    	134
				bold       	FALSE
				italics    	FALSE
				underline  	FALSE
				strike     	FALSE
				color      	0
				default_color 	TRUE)
			    icon_style 	"Icon"
			    fill_color 	13434879
			    anchor     	2
			    nlines     	2
			    max_width  	640)
			width      	660
			height     	192
			annotation 	8
			autoResize 	TRUE)
		    (object NoteView @3
			location   	(352, 160)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@3
			    location   	(214, 100)
			    fill_color 	13434879
			    nlines     	2
			    max_width  	240
			    label      	"保险方法类")
			line_color 	3342489
			fill_color 	13434879
			width      	300
			height     	132)
		    (object AttachView "" @4
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			stereotype 	TRUE
			line_color 	3342489
			client     	@3
			supplier   	@2
			line_style 	0)
		    (object ClassView "Class" "Logical View::TLunchOperation" @5
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(1376, 464)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@5
			    location   	(1055, 378)
			    fill_color 	13434879
			    nlines     	2
			    max_width  	642
			    justify    	0
			    label      	"TLunchOperation")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EEFD56C029D"
			compartment 	(object Compartment
			    Parent_View 	@5
			    location   	(1055, 429)
			    font       	(object Font
				size       	10
				face       	"宋体"
				charSet    	134
				bold       	FALSE
				italics    	FALSE
				underline  	FALSE
				strike     	FALSE
				color      	0
				default_color 	TRUE)
			    icon_style 	"Icon"
			    fill_color 	13434879
			    anchor     	2
			    nlines     	2
			    max_width  	640)
			width      	660
			height     	192
			annotation 	8
			autoResize 	TRUE)
		    (object NoteView @6
			location   	(1536, 144)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@6
			    location   	(1398, 84)
			    fill_color 	13434879
			    nlines     	2
			    max_width  	240
			    label      	"午餐方法类")
			line_color 	3342489
			fill_color 	13434879
			width      	300
			height     	132)
		    (object AttachView "" @7
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			stereotype 	TRUE
			line_color 	3342489
			client     	@6
			supplier   	@5
			line_style 	0)
		    (object InheritView "" @8
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EEFD59001AF"
			client     	@2
			supplier   	@1
			line_style 	0)
		    (object InheritView "" @9
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			stereotype 	TRUE
			line_color 	3342489
			quidu      	"3EEFD5930267"
			client     	@5
			supplier   	@1
			line_style 	0)
		    (object ClassView "Class" "Logical View::TTemporyPerson" @10
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(912, 992)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@10
			    location   	(816, 932)
			    fill_color 	13434879
			    nlines     	2
			    max_width  	192
			    justify    	0
			    label      	"TTemporyPerson")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EE9892B0086"
			width      	210
			height     	141
			annotation 	8
			autoResize 	TRUE)
		    (object ClassView "Class" "Logical View::TPeople" @11
			ShowCompartmentStereotypes 	TRUE
			IncludeAttribute 	TRUE
			IncludeOperation 	TRUE
			location   	(416, 736)
			font       	(object Font
			    size       	10
			    face       	"宋体"
			    charSet    	134
			    bold       	FALSE
			    italics    	FALSE
			    underline  	FALSE
			    strike     	FALSE
			    color      	0
			    default_color 	TRUE)
			label      	(object ItemLabel
			    Parent_View 	@11
			    location   	(75, 670)
			    fill_color 	13434879
			    nlines     	1
			    max_width  	682
			    justify    	0
			    label      	"TPeople")
			icon_style 	"Icon"
			line_color 	3342489
			fill_color 	13434879
			quidu      	"3EEFD5C4022C"
			compartment 	(object Compartment
			    Parent_View 	@11
			    location   	(75, 721)
			    font       	(object Font
				size       	10
				face       	"宋体"
				charSet    	134
				bold       	FALSE
				italics    	FALSE
				underline  	FALSE