/3.2
(Extension.1
	Name:	"MMS: Geohazards"
	Dependencies:	"$AVEXT/Dbaccess.avx\n"
	FirstRootClassName:	"List"
	Roots:	2
	Roots:	3
	Roots:	581
	Roots:	606
	Roots:	621
	Roots:	622
	Roots:	623
	Roots:	624
	Roots:	625
	Roots:	626
	Roots:	627
	Roots:	628
	Roots:	629
	Roots:	630
	Roots:	631
	Roots:	632
	Roots:	633
	Roots:	634
	Roots:	635
	Roots:	636
	Roots:	637
	Roots:	638
	Roots:	639
	Roots:	640
	Roots:	641
	Roots:	642
	Roots:	643
	Roots:	644
	Roots:	645
	Roots:	646
	Roots:	647
	Roots:	648
	Roots:	649
	Roots:	650
	Roots:	651
	Roots:	652
	Roots:	653
	Roots:	654
	Roots:	655
	Version:	32
	About:	"This extension is made to View MMS Geohazards GIS data."
	InstallScript:	656
	UninstallScript:	657
	ExtVersion:	1
)

(List.2
)

(List.3
	Child:	4
	Child:	27
	Child:	80
	Child:	137
	Child:	219
	Child:	278
	Child:	330
	Child:	399
	Child:	446
	Child:	524
	Child:	537
	Child:	563
)

(AVDLog.4
	Name:	"geohaz.onemany"
	X:	61
	Y:	50
	W:	627
	H:	398
	ConstrainedControlNames:	5
	ConstrainedControlNames:	6
	Constraints:	7
	Constraints:	8
	Server:	9
	ControlPanel:	10
	ObjectTag:	12
	Title:	"Identify Tool for Relational Tables"
	EscapeEnabled:	1
	Resizable:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.onemany.close"
	Open:	"geohaz.onemany.open"
	DefaultButton:	26
)

(AVStr.5
	S:	"geohaz.onemany.sortDesc.lbt"
)

(AVStr.6
	S:	"geohaz.onemany.sortAsc.lbt"
)

(Numb.7
	N:	97.00000000000000
)

(Numb.8
	N:	97.00000000000000
)

(Nil.9
)

(CPanel.10
	Child:	11
	Child:	14
	Child:	16
	Child:	17
	Child:	18
	Child:	19
	ResBox:	20
	ResBox:	21
	ResBox:	22
	ResBox:	23
	ResBox:	24
	ResBox:	25
	Listening:	1
)

(AVLBox.11
	InternalName:	"geohaz.onemany.features.lst"
	ObjectTag:	12
	NextControl:	9
	ContentKind:	4
	Constraints:	0x02
	FieldNamesVisible:	1
	HorizontalScroll:	1
	Listening:	1
	VerticalScroll:	1
	Select:	"geohaz.onemany.select"
	SelectionStyle:	13
)

(Nil.12
)

(AVEnum.13
	Name:	"LISTBOX_SELECTION_SINGLEROW"
)

(AVLBox.14
	InternalName:	"geohaz.onemany.relaterecords.lst"
	ObjectTag:	12
	NextControl:	9
	ContentKind:	4
	Constraints:	0x02
	FieldNamesVisible:	1
	HorizontalScroll:	1
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	15
)

(AVEnum.15
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(TextLabel.16
	InternalName:	"aTextLabel4"
	Constraints:	0x01
	Label:	"Records Associated with Feature"
	Listening:	1
)

(TextLabel.17
	InternalName:	"aTextLabel5"
	Constraints:	0x01
	Label:	"Selected Features"
	Listening:	1
)

(LButn.18
	InternalName:	"geohaz.onemany.sortDesc.lbt"
	Label:	"Sort Descending"
	Click:	"geohaz.onemany.sort"
)

(LButn.19
	InternalName:	"geohaz.onemany.sortAsc.lbt"
	Label:	"Sort Ascending"
	Click:	"geohaz.onemany.sort"
)

(RectD.20
	Left:	5.00000000000000
	Top:	149.00000000000000
	Right:	615.00000000000000
	Bottom:	25.00000000000000
)

(RectD.21
	Left:	9.00000000000000
	Top:	366.00000000000000
	Right:	614.00000000000000
	Bottom:	169.00000000000000
)

(RectD.22
	Left:	13.00000000000000
	Top:	165.00000000000000
	Right:	264.00000000000000
	Bottom:	151.00000000000000
)

(RectD.23
	Left:	9.00000000000000
	Top:	17.00000000000000
	Right:	105.00000000000000
	Bottom:	3.00000000000000
)

(RectD.24
	Left:	106.00000000000000
	Top:	390.00000000000000
	Right:	193.00000000000000
	Bottom:	371.00000000000000
)

(RectD.25
	Left:	12.00000000000000
	Top:	390.00000000000000
	Right:	94.00000000000000
	Bottom:	371.00000000000000
)

(Nil.26
)

(AVDLog.27
	Name:	"geohaz.themes.arc"
	X:	61
	Y:	52
	W:	328
	H:	451
	ConstrainedControlNames:	28
	ConstrainedControlNames:	29
	ConstrainedControlNames:	30
	ConstrainedControlNames:	31
	ConstrainedControlNames:	32
	ConstrainedControlNames:	33
	ConstrainedControlNames:	34
	ConstrainedControlNames:	35
	ConstrainedControlNames:	36
	ConstrainedControlNames:	37
	Constraints:	38
	Constraints:	39
	Constraints:	40
	Constraints:	41
	Constraints:	42
	Constraints:	43
	Constraints:	44
	Constraints:	45
	Constraints:	46
	Constraints:	47
	Server:	48
	ControlPanel:	49
	ObjectTag:	67
	Title:	"Archaeological"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.themes.close"
	Open:	"geohaz.themes.arc.open"
	DefaultButton:	79
)

(AVStr.28
	S:	"aLabelButton97"
)

(AVStr.29
	S:	"aLabelButton98"
)

(AVStr.30
	S:	"aLabelButton99"
)

(AVStr.31
	S:	"aLabelButton100"
)

(AVStr.32
	S:	"aLabelButton101"
)

(AVStr.33
	S:	"aLabelButton102"
)

(AVStr.34
	S:	"aLabelButton103"
)

(AVStr.35
	S:	"aLabelButton105"
)

(AVStr.36
	S:	"aLabelButton106"
)

(AVStr.37
	S:	"aLabelButton1"
)

(Numb.38
	N:	85.00000000000000
)

(Numb.39
	N:	85.00000000000000
)

(Numb.40
	N:	85.00000000000000
)

(Numb.41
	N:	85.00000000000000
)

(Numb.42
	N:	85.00000000000000
)

(Numb.43
	N:	85.00000000000000
)

(Numb.44
	N:	85.00000000000000
)

(Numb.45
	N:	85.00000000000000
)

(Numb.46
	N:	85.00000000000000
)

(Numb.47
	N:	85.00000000000000
)

(Nil.48
)

(CPanel.49
	Child:	50
	Child:	65
	Child:	71
	Child:	72
	Child:	73
	ResBox:	74
	ResBox:	75
	ResBox:	76
	ResBox:	77
	ResBox:	78
	Listening:	1
)

(CPanel.50
	InternalName:	"aControlPanel104"
	Child:	51
	Child:	52
	Child:	53
	Child:	54
	Child:	55
	Child:	56
	Child:	57
	Constraints:	0x55
	ResBox:	58
	ResBox:	59
	ResBox:	60
	ResBox:	61
	ResBox:	62
	ResBox:	63
	ResBox:	64
	Label:	"Select From Other Themes"
	VisibleBorder:	1
	Listening:	1
)

(LButn.51
	InternalName:	"aLabelButton97"
	Label:	"Borings"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.52
	InternalName:	"aLabelButton98"
	Label:	"Ice"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.53
	InternalName:	"aLabelButton99"
	Label:	"Structure"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.54
	InternalName:	"aLabelButton100"
	Label:	"Limited Occuring\nFeatures"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.55
	InternalName:	"aLabelButton101"
	Label:	"Seafloor"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.56
	InternalName:	"aLabelButton102"
	Label:	"Hazard/Isopach"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.57
	InternalName:	"aLabelButton103"
	Label:	"Shot Points\nand Images"
	Click:	"geohaz.themes.dialogs.start"
)

(RectD.58
	Left:	176.00000000000000
	Top:	91.00000000000000
	Right:	254.00000000000000
	Bottom:	61.00000000000000
)

(RectD.59
	Left:	15.00000000000000
	Top:	91.00000000000000
	Right:	93.00000000000000
	Bottom:	61.00000000000000
)

(RectD.60
	Left:	96.00000000000000
	Top:	91.00000000000000
	Right:	174.00000000000000
	Bottom:	61.00000000000000
)

(RectD.61
	Left:	94.00000000000000
	Top:	125.00000000000000
	Right:	174.00000000000000
	Bottom:	95.00000000000000
)

(RectD.62
	Left:	176.00000000000000
	Top:	57.00000000000000
	Right:	254.00000000000000
	Bottom:	27.00000000000000
)

(RectD.63
	Left:	96.00000000000000
	Top:	57.00000000000000
	Right:	174.00000000000000
	Bottom:	27.00000000000000
)

(RectD.64
	Left:	15.00000000000000
	Top:	57.00000000000000
	Right:	93.00000000000000
	Bottom:	27.00000000000000
)

(CPanel.65
	InternalName:	"aControlPanel108"
	Child:	66
	Child:	68
	Constraints:	0x55
	ResBox:	69
	ResBox:	70
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.66
	InternalName:	"geohaz.themes.arc.bur.chb"
	ObjectTag:	67
	Listening:	1
	Label:	"Buried Channels"
	Constraints:	0x55
)

(Nil.67
)

(AVCBox.68
	InternalName:	"geohaz.themes.arc.annobur.chb"
	ObjectTag:	67
	Listening:	1
	Label:	"Buried Channels Anno"
	Constraints:	0x55
)

(RectD.69
	Left:	14.00000000000000
	Top:	50.00000000000000
	Right:	124.00000000000000
	Bottom:	12.00000000000000
)

(RectD.70
	Left:	118.00000000000000
	Top:	50.00000000000000
	Right:	253.00000000000000
	Bottom:	12.00000000000000
)

(LButn.71
	InternalName:	"aLabelButton105"
	Invisible:	1
	Label:	"Query"
)

(LButn.72
	InternalName:	"aLabelButton106"
	Label:	"OK"
	Click:	"geohaz.themes.OK"
)

(LButn.73
	InternalName:	"aLabelButton1"
	Label:	"_"
	Click:	"geohaz.themes.minimize"
)

(RectD.74
	Left:	32.00000000000000
	Top:	390.00000000000000
	Right:	300.00000000000000
	Bottom:	258.00000000000000
)

(RectD.75
	Left:	35.00000000000000
	Top:	82.00000000000000
	Right:	288.00000000000000
	Bottom:	25.00000000000000
)

(RectD.76
	Left:	34.00000000000000
	Top:	437.00000000000000
	Right:	112.00000000000000
	Bottom:	407.00000000000000
)

(RectD.77
	Left:	218.00000000000000
	Top:	437.00000000000000
	Right:	296.00000000000000
	Bottom:	407.00000000000000
)

(RectD.78
	Left:	303.00000000000000
	Top:	26.00000000000000
	Right:	323.00000000000000
	Bottom:	7.00000000000000
)

(Nil.79
)

(AVDLog.80
	Name:	"geohaz.themes.bor"
	X:	61
	Y:	52
	W:	320
	H:	453
	ConstrainedControlNames:	81
	ConstrainedControlNames:	82
	ConstrainedControlNames:	83
	ConstrainedControlNames:	84
	ConstrainedControlNames:	85
	ConstrainedControlNames:	86
	ConstrainedControlNames:	87
	ConstrainedControlNames:	88
	ConstrainedControlNames:	89
	Constraints:	90
	Constraints:	91
	Constraints:	92
	Constraints:	93
	Constraints:	94
	Constraints:	95
	Constraints:	96
	Constraints:	97
	Constraints:	98
	Server:	48
	ControlPanel:	99
	ObjectTag:	12
	Title:	"Borings"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.themes.close"
	Open:	"geohaz.themes.bor.open"
	DefaultButton:	136
)

(AVStr.81
	S:	"aLabelButton1"
)

(AVStr.82
	S:	"aLabelButton2"
)

(AVStr.83
	S:	"aLabelButton3"
)

(AVStr.84
	S:	"aLabelButton4"
)

(AVStr.85
	S:	"aLabelButton5"
)

(AVStr.86
	S:	"aLabelButton6"
)

(AVStr.87
	S:	"aLabelButton9"
)

(AVStr.88
	S:	"aLabelButton10"
)

(AVStr.89
	S:	"aLabelButton22"
)

(Numb.90
	N:	85.00000000000000
)

(Numb.91
	N:	85.00000000000000
)

(Numb.92
	N:	85.00000000000000
)

(Numb.93
	N:	85.00000000000000
)

(Numb.94
	N:	85.00000000000000
)

(Numb.95
	N:	85.00000000000000
)

(Numb.96
	N:	85.00000000000000
)

(Numb.97
	N:	85.00000000000000
)

(Numb.98
	N:	85.00000000000000
)

(CPanel.99
	Child:	100
	Child:	113
	Child:	116
	Child:	127
	Child:	128
	Child:	129
	ResBox:	130
	ResBox:	131
	ResBox:	132
	ResBox:	133
	ResBox:	134
	ResBox:	135
	Listening:	1
)

(CPanel.100
	InternalName:	"aControlPanel8"
	Child:	101
	Child:	102
	Child:	103
	Child:	104
	Child:	105
	Child:	106
	Constraints:	0x55
	ResBox:	107
	ResBox:	108
	ResBox:	109
	ResBox:	110
	ResBox:	111
	ResBox:	112
	Label:	"Select From Other Themes"
	VisibleBorder:	1
	Listening:	1
)

(LButn.101
	InternalName:	"aLabelButton1"
	Label:	"Shot Points\nand Images"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.102
	InternalName:	"aLabelButton2"
	Label:	"Ice"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.103
	InternalName:	"aLabelButton3"
	Label:	"Structure"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.104
	InternalName:	"aLabelButton4"
	Label:	"Limited Occuring\nFeatures"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.105
	InternalName:	"aLabelButton5"
	Label:	"Seafloor"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.106
	InternalName:	"aLabelButton6"
	Label:	"Hazards"
	Click:	"geohaz.themes.dialogs.start"
)

(RectD.107
	Left:	176.00000000000000
	Top:	91.00000000000000
	Right:	254.00000000000000
	Bottom:	61.00000000000000
)

(RectD.108
	Left:	13.00000000000000
	Top:	91.00000000000000
	Right:	93.00000000000000
	Bottom:	61.00000000000000
)

(RectD.109
	Left:	96.00000000000000
	Top:	91.00000000000000
	Right:	174.00000000000000
	Bottom:	61.00000000000000
)

(RectD.110
	Left:	13.00000000000000
	Top:	58.00000000000000
	Right:	93.00000000000000
	Bottom:	28.00000000000000
)

(RectD.111
	Left:	176.00000000000000
	Top:	57.00000000000000
	Right:	254.00000000000000
	Bottom:	27.00000000000000
)

(RectD.112
	Left:	96.00000000000000
	Top:	57.00000000000000
	Right:	174.00000000000000
	Bottom:	27.00000000000000
)

(CPanel.113
	InternalName:	"aControlPanel12"
	Child:	114
	Constraints:	0x55
	ResBox:	115
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.114
	InternalName:	"geohaz.themes.bor.Boring.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Boring Locations"
	Constraints:	0x55
)

(RectD.115
	Left:	5.00000000000000
	Top:	46.00000000000000
	Right:	117.00000000000000
	Bottom:	15.00000000000000
)

(CPanel.116
	InternalName:	"aControlPanel16"
	Child:	117
	Child:	118
	Child:	119
	Child:	120
	Child:	121
	Constraints:	0x55
	ResBox:	122
	ResBox:	123
	ResBox:	124
	ResBox:	125
	ResBox:	126
	Label:	"* Use Identify tool to retrieve related records"
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.117
	InternalName:	"geohaz.themes.bor.Lithology.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Lithology"
	Constraints:	0x55
)

(AVCBox.118
	InternalName:	"geohaz.themes.bor.cryology.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Cryology"
	Constraints:	0x55
)

(AVCBox.119
	InternalName:	"geohaz.themes.bor.ground.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Ground Temperature"
	Constraints:	0x55
)

(AVCBox.120
	InternalName:	"geohaz.themes.bor.Pen.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Penetration B Counts"
	Constraints:	0x55
)

(AVCBox.121
	InternalName:	"geohaz.themes.bor.core.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Core Samples"
	Constraints:	0x55
)

(RectD.122
	Left:	7.00000000000000
	Top:	43.00000000000000
	Right:	119.00000000000000
	Bottom:	12.00000000000000
)

(RectD.123
	Left:	7.00000000000000
	Top:	75.00000000000000
	Right:	119.00000000000000
	Bottom:	44.00000000000000
)

(RectD.124
	Left:	7.00000000000000
	Top:	108.00000000000000
	Right:	143.00000000000000
	Bottom:	77.00000000000000
)

(RectD.125
	Left:	7.00000000000000
	Top:	142.00000000000000
	Right:	189.00000000000000
	Bottom:	111.00000000000000
)

(RectD.126
	Left:	7.00000000000000
	Top:	176.00000000000000
	Right:	119.00000000000000
	Bottom:	145.00000000000000
)

(LButn.127
	InternalName:	"aLabelButton9"
	Invisible:	1
	Label:	"Query"
)

(LButn.128
	InternalName:	"aLabelButton10"
	Label:	"OK"
	Click:	"geohaz.themes.OK"
)

(LButn.129
	InternalName:	"aLabelButton22"
	Label:	"_"
	Click:	"geohaz.themes.minimize"
)

(RectD.130
	Left:	25.00000000000000
	Top:	383.00000000000000
	Right:	293.00000000000000
	Bottom:	265.00000000000000
)

(RectD.131
	Left:	32.00000000000000
	Top:	254.00000000000000
	Right:	285.00000000000000
	Bottom:	197.00000000000000
)

(RectD.132
	Left:	30.00000000000000
	Top:	191.00000000000000
	Right:	287.00000000000000
	Bottom:	8.00000000000000
)

(RectD.133
	Left:	27.00000000000000
	Top:	444.00000000000000
	Right:	105.00000000000000
	Bottom:	414.00000000000000
)

(RectD.134
	Left:	211.00000000000000
	Top:	444.00000000000000
	Right:	289.00000000000000
	Bottom:	414.00000000000000
)

(RectD.135
	Left:	295.00000000000000
	Top:	26.00000000000000
	Right:	315.00000000000000
	Bottom:	7.00000000000000
)

(Nil.136
)

(AVDLog.137
	Name:	"geohaz.themes.haz"
	X:	88
	Y:	147
	W:	308
	H:	454
	ConstrainedControlNames:	138
	ConstrainedControlNames:	139
	ConstrainedControlNames:	140
	ConstrainedControlNames:	141
	ConstrainedControlNames:	142
	ConstrainedControlNames:	143
	ConstrainedControlNames:	144
	ConstrainedControlNames:	145
	ConstrainedControlNames:	146
	Constraints:	147
	Constraints:	148
	Constraints:	149
	Constraints:	150
	Constraints:	151
	Constraints:	152
	Constraints:	153
	Constraints:	154
	Constraints:	155
	Server:	156
	ControlPanel:	157
	ObjectTag:	12
	Title:	"Hazards"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.themes.close"
	Open:	"geohaz.themes.haz.open"
	DefaultButton:	218
)

(AVStr.138
	S:	"aLabelButton81"
)

(AVStr.139
	S:	"aLabelButton82"
)

(AVStr.140
	S:	"aLabelButton83"
)

(AVStr.141
	S:	"aLabelButton84"
)

(AVStr.142
	S:	"aLabelButton85"
)

(AVStr.143
	S:	"aLabelButton86"
)

(AVStr.144
	S:	"aLabelButton89"
)

(AVStr.145
	S:	"aLabelButton90"
)

(AVStr.146
	S:	"aLabelButton4"
)

(Numb.147
	N:	85.00000000000000
)

(Numb.148
	N:	85.00000000000000
)

(Numb.149
	N:	85.00000000000000
)

(Numb.150
	N:	85.00000000000000
)

(Numb.151
	N:	85.00000000000000
)

(Numb.152
	N:	85.00000000000000
)

(Numb.153
	N:	85.00000000000000
)

(Numb.154
	N:	85.00000000000000
)

(Numb.155
	N:	85.00000000000000
)

(Nil.156
)

(CPanel.157
	Child:	158
	Child:	161
	Child:	164
	Child:	171
	Child:	176
	Child:	181
	Child:	194
	Child:	205
	Child:	206
	Child:	207
	ResBox:	208
	ResBox:	209
	ResBox:	210
	ResBox:	211
	ResBox:	212
	ResBox:	213
	ResBox:	214
	ResBox:	215
	ResBox:	216
	ResBox:	217
	Listening:	1
)

(CPanel.158
	InternalName:	"aControlPanel6"
	Child:	159
	Constraints:	0x55
	ResBox:	160
	Label:	" "
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.159
	InternalName:	"geohaz.themes.haz.earth.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Earthquakes"
	Constraints:	0x55
)

(RectD.160
	Top:	29.00000000000000
	Right:	231.00000000000000
	Bottom:	5.00000000000000
)

(CPanel.161
	InternalName:	"aControlPanel7"
	Child:	162
	Constraints:	0x55
	ResBox:	163
	Label:	" "
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.162
	InternalName:	"geohaz.themes.haz.perm.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Permafrost"
	Constraints:	0x55
)

(RectD.163
	Left:	1.00000000000000
	Top:	29.00000000000000
	Right:	232.00000000000000
	Bottom:	5.00000000000000
)

(CPanel.164
	InternalName:	"aControlPanel2"
	Child:	165
	Child:	166
	Child:	167
	Constraints:	0x55
	ResBox:	168
	ResBox:	169
	ResBox:	170
	Label:	" "
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.165
	InternalName:	"geohaz.themes.arc.annobur.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Burried Channels Anno"
	Constraints:	0x55
)

(AVCBox.166
	InternalName:	"geohaz.themes.arc.bur.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Burried Channels"
	Constraints:	0x55
)

(AVCBox.167
	InternalName:	"geohaz.themes.arc.bur_bdy.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Burried Channel Boundaries"
	Constraints:	0x55
)

(RectD.168
	Left:	116.00000000000000
	Top:	30.00000000000000
	Right:	251.00000000000000
	Bottom:	8.00000000000000
)

(RectD.169
	Top:	29.00000000000000
	Right:	105.00000000000000
	Bottom:	11.00000000000000
)

(RectD.170
	Top:	51.00000000000000
	Right:	184.00000000000000
	Bottom:	33.00000000000000
)

(CPanel.171
	InternalName:	"aControlPanel12"
	Child:	172
	Child:	173
	Constraints:	0x55
	ResBox:	174
	ResBox:	175
	Label:	" "
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.172
	InternalName:	"geohaz.themes.haz.Strat.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Stratigraphy (Near Surface)"
	Constraints:	0x55
)

(AVCBox.173
	InternalName:	"geohaz.themes.haz.SeaFloor.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Unstable Seafloor Sediments"
	Constraints:	0x55
)

(RectD.174
	Top:	46.00000000000000
	Right:	231.00000000000000
	Bottom:	29.00000000000000
)

(RectD.175
	Top:	27.00000000000000
	Right:	217.00000000000000
	Bottom:	4.00000000000000
)

(CPanel.176
	InternalName:	"aControlPanel10"
	Child:	177
	Child:	178
	Constraints:	0x55
	ResBox:	179
	ResBox:	180
	Label:	" "
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.177
	InternalName:	"geohaz.themes.haz.seis.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Seismic Anomalies"
	Constraints:	0x55
)

(AVCBox.178
	InternalName:	"geohaz.themes.haz.ANNOseis.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Seismic Anomalies Anno"
	Constraints:	0x55
)

(RectD.179
	Top:	35.00000000000000
	Right:	120.00000000000000
	Bottom:	6.00000000000000
)

(RectD.180
	Left:	112.00000000000000
	Top:	35.00000000000000
	Right:	250.00000000000000
	Bottom:	6.00000000000000
)

(CPanel.181
	InternalName:	"aControlPanel88"
	Child:	182
	Child:	183
	Child:	184
	Child:	185
	Child:	186
	Child:	187
	Constraints:	0x55
	ResBox:	188
	ResBox:	189
	ResBox:	190
	ResBox:	191
	ResBox:	192
	ResBox:	193
	Label:	"Select From Other Themes"
	VisibleBorder:	1
	Listening:	1
)

(LButn.182
	InternalName:	"aLabelButton81"
	Label:	"Borings"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.183
	InternalName:	"aLabelButton82"
	Label:	"Ice"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.184
	InternalName:	"aLabelButton83"
	Label:	"Structure"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.185
	InternalName:	"aLabelButton84"
	Label:	"Limited Occuring\nFeatures"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.186
	InternalName:	"aLabelButton85"
	Label:	"Seafloor"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.187
	InternalName:	"aLabelButton86"
	Label:	"Shot Points\nand Images"
	Click:	"geohaz.themes.dialogs.start"
)

(RectD.188
	Left:	176.00000000000000
	Top:	91.00000000000000
	Right:	254.00000000000000
	Bottom:	61.00000000000000
)

(RectD.189
	Left:	12.00000000000000
	Top:	91.00000000000000
	Right:	93.00000000000000
	Bottom:	61.00000000000000
)

(RectD.190
	Left:	96.00000000000000
	Top:	91.00000000000000
	Right:	174.00000000000000
	Bottom:	61.00000000000000
)

(RectD.191
	Left:	12.00000000000000
	Top:	58.00000000000000
	Right:	93.00000000000000
	Bottom:	28.00000000000000
)

(RectD.192
	Left:	176.00000000000000
	Top:	57.00000000000000
	Right:	254.00000000000000
	Bottom:	27.00000000000000
)

(RectD.193
	Left:	96.00000000000000
	Top:	57.00000000000000
	Right:	174.00000000000000
	Bottom:	27.00000000000000
)

(CPanel.194
	InternalName:	"aControlPanel96"
	Child:	195
	Child:	196
	Child:	197
	Child:	198
	Child:	199
	Constraints:	0x55
	ResBox:	200
	ResBox:	201
	ResBox:	202
	ResBox:	203
	ResBox:	204
	Label:	" "
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.195
	InternalName:	"geohaz.themes.haz.ZONE.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Zones of Faulting"
	Constraints:	0x55
)

(AVCBox.196
	InternalName:	"geohaz.themes.haz.faultP.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Fault Planes"
	Constraints:	0x55
)

(AVCBox.197
	InternalName:	"geohaz.themes.haz.fault.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Fault Lines"
	Constraints:	0x55
)

(AVCBox.198
	InternalName:	"geohaz.themes.haz.ANNOfault.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Fault Lines Anno"
	Constraints:	0x55
)

(AVCBox.199
	InternalName:	"geohaz.themes.haz.faultPANNO.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Fault Planes Anno"
	Constraints:	0x55
)

(RectD.200
	Top:	78.00000000000000
	Right:	164.00000000000000
	Bottom:	56.00000000000000
)

(RectD.201
	Top:	53.00000000000000
	Right:	102.00000000000000
	Bottom:	33.00000000000000
)

(RectD.202
	Top:	28.00000000000000
	Right:	97.00000000000000
	Bottom:	11.00000000000000
)

(RectD.203
	Left:	121.00000000000000
	Top:	30.00000000000000
	Right:	251.00000000000000
	Bottom:	8.00000000000000
)

(RectD.204
	Left:	121.00000000000000
	Top:	54.00000000000000
	Right:	252.00000000000000
	Bottom:	32.00000000000000
)

(LButn.205
	InternalName:	"aLabelButton89"
	Invisible:	1
	Label:	"Query"
)

(LButn.206
	InternalName:	"aLabelButton90"
	Label:	"OK"
	Click:	"geohaz.themes.OK"
)

(LButn.207
	InternalName:	"aLabelButton4"
	Label:	"_"
	Click:	"geohaz.themes.minimize"
)

(RectD.208
	Left:	24.00000000000000
	Top:	272.00000000000000
	Right:	277.00000000000000
	Bottom:	242.00000000000000
)

(RectD.209
	Left:	23.00000000000000
	Top:	245.00000000000000
	Right:	276.00000000000000
	Bottom:	215.00000000000000
)

(RectD.210
	Left:	24.00000000000000
	Top:	218.00000000000000
	Right:	277.00000000000000
	Bottom:	162.00000000000000
)

(RectD.211
	Left:	24.00000000000000
	Top:	166.00000000000000
	Right:	277.00000000000000
	Bottom:	117.00000000000000
)

(RectD.212
	Left:	25.00000000000000
	Top:	41.00000000000000
	Right:	276.00000000000000
	Bottom:	6.00000000000000
)

(RectD.213
	Left:	16.00000000000000
	Top:	393.00000000000000
	Right:	284.00000000000000
	Bottom:	274.00000000000000
)

(RectD.214
	Left:	24.00000000000000
	Top:	120.00000000000000
	Right:	276.00000000000000
	Bottom:	38.00000000000000
)

(RectD.215
	Left:	18.00000000000000
	Top:	436.00000000000000
	Right:	96.00000000000000
	Bottom:	406.00000000000000
)

(RectD.216
	Left:	202.00000000000000
	Top:	436.00000000000000
	Right:	280.00000000000000
	Bottom:	406.00000000000000
)

(RectD.217
	Left:	284.00000000000000
	Top:	26.00000000000000
	Right:	304.00000000000000
	Bottom:	7.00000000000000
)

(Nil.218
)

(AVDLog.219
	Name:	"geohaz.themes.ice"
	X:	73
	Y:	52
	W:	312
	H:	451
	ConstrainedControlNames:	220
	ConstrainedControlNames:	221
	ConstrainedControlNames:	222
	ConstrainedControlNames:	223
	ConstrainedControlNames:	224
	ConstrainedControlNames:	225
	ConstrainedControlNames:	226
	ConstrainedControlNames:	227
	ConstrainedControlNames:	228
	Constraints:	229
	Constraints:	230
	Constraints:	231
	Constraints:	232
	Constraints:	233
	Constraints:	234
	Constraints:	235
	Constraints:	236
	Constraints:	237
	Server:	48
	ControlPanel:	238
	ObjectTag:	12
	Title:	"Ice"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.themes.close"
	Open:	"geohaz.themes.ice.open"
	DefaultButton:	277
)

(AVStr.220
	S:	"aLabelButton65"
)

(AVStr.221
	S:	"aLabelButton66"
)

(AVStr.222
	S:	"aLabelButton67"
)

(AVStr.223
	S:	"aLabelButton68"
)

(AVStr.224
	S:	"aLabelButton69"
)

(AVStr.225
	S:	"aLabelButton70"
)

(AVStr.226
	S:	"aLabelButton73"
)

(AVStr.227
	S:	"aLabelButton74"
)

(AVStr.228
	S:	"aLabelButton5"
)

(Numb.229
	N:	85.00000000000000
)

(Numb.230
	N:	85.00000000000000
)

(Numb.231
	N:	85.00000000000000
)

(Numb.232
	N:	85.00000000000000
)

(Numb.233
	N:	85.00000000000000
)

(Numb.234
	N:	85.00000000000000
)

(Numb.235
	N:	85.00000000000000
)

(Numb.236
	N:	85.00000000000000
)

(Numb.237
	N:	85.00000000000000
)

(CPanel.238
	Child:	239
	Child:	246
	Child:	259
	Child:	268
	Child:	269
	Child:	270
	ResBox:	271
	ResBox:	272
	ResBox:	273
	ResBox:	274
	ResBox:	275
	ResBox:	276
	Listening:	1
)

(CPanel.239
	InternalName:	"aControlPanel114"
	Child:	240
	Child:	241
	Child:	242
	Constraints:	0x55
	ResBox:	243
	ResBox:	244
	ResBox:	245
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.240
	InternalName:	"geohaz.themes.ice.area.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Gouge Areas"
	Constraints:	0x55
)

(AVCBox.241
	InternalName:	"geohaz.themes.ice.discrete.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Discrete Gouges"
	Constraints:	0x55
)

(TextLabel.242
	InternalName:	"aTextLabel116"
	Constraints:	0x55
	Label:	"Ice gouges:"
	Listening:	1
)

(RectD.243
	Left:	63.00000000000000
	Top:	44.00000000000000
	Right:	151.00000000000000
	Bottom:	19.00000000000000
)

(RectD.244
	Left:	150.00000000000000
	Top:	51.00000000000000
	Right:	260.00000000000000
	Bottom:	11.00000000000000
)

(RectD.245
	Left:	5.00000000000000
	Top:	47.00000000000000
	Right:	63.00000000000000
	Bottom:	24.00000000000000
)

(CPanel.246
	InternalName:	"aControlPanel72"
	Child:	247
	Child:	248
	Child:	249
	Child:	250
	Child:	251
	Child:	252
	Constraints:	0x55
	ResBox:	253
	ResBox:	254
	ResBox:	255
	ResBox:	256
	ResBox:	257
	ResBox:	258
	Label:	"Select From Other Themes"
	VisibleBorder:	1
	Listening:	1
)

(LButn.247
	InternalName:	"aLabelButton65"
	Label:	"Borings"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.248
	InternalName:	"aLabelButton66"
	Label:	"Shot Points\nand Images"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.249
	InternalName:	"aLabelButton67"
	Label:	"Structure"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.250
	InternalName:	"aLabelButton68"
	Label:	"Limited Occuring\nFeatures"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.251
	InternalName:	"aLabelButton69"
	Label:	"Seafloor"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.252
	InternalName:	"aLabelButton70"
	Label:	"Hazards"
	Click:	"geohaz.themes.dialogs.start"
)

(RectD.253
	Left:	176.00000000000000
	Top:	91.00000000000000
	Right:	254.00000000000000
	Bottom:	61.00000000000000
)

(RectD.254
	Left:	13.00000000000000
	Top:	91.00000000000000
	Right:	93.00000000000000
	Bottom:	61.00000000000000
)

(RectD.255
	Left:	96.00000000000000
	Top:	91.00000000000000
	Right:	174.00000000000000
	Bottom:	61.00000000000000
)

(RectD.256
	Left:	13.00000000000000
	Top:	58.00000000000000
	Right:	93.00000000000000
	Bottom:	28.00000000000000
)

(RectD.257
	Left:	176.00000000000000
	Top:	57.00000000000000
	Right:	254.00000000000000
	Bottom:	27.00000000000000
)

(RectD.258
	Left:	96.00000000000000
	Top:	57.00000000000000
	Right:	174.00000000000000
	Bottom:	27.00000000000000
)

(CPanel.259
	InternalName:	"aControlPanel80"
	Child:	260
	Child:	261
	Child:	262
	Child:	263
	Constraints:	0x55
	ResBox:	264
	ResBox:	265
	ResBox:	266
	ResBox:	267
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.260
	InternalName:	"geohaz.themes.ice.DRAINpts.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Drain Crack Points"
	Constraints:	0x55
)

(AVCBox.261
	InternalName:	"geohaz.themes.ice.overflood.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Overflood Limits"
	Constraints:	0x55
)

(AVCBox.262
	InternalName:	"geohaz.themes.ice.drain.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Drain Cracks"
	Constraints:	0x55
)

(AVCBox.263
	InternalName:	"geohaz.themes.ice.strudel.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Strudel Scours"
	Constraints:	0x55
)

(RectD.264
	Left:	16.00000000000000
	Top:	113.00000000000000
	Right:	233.00000000000000
	Bottom:	75.00000000000000
)

(RectD.265
	Left:	16.00000000000000
	Top:	146.00000000000000
	Right:	233.00000000000000
	Bottom:	108.00000000000000
)

(RectD.266
	Left:	16.00000000000000
	Top:	78.00000000000000
	Right:	233.00000000000000
	Bottom:	40.00000000000000
)

(RectD.267
	Left:	16.00000000000000
	Top:	43.00000000000000
	Right:	233.00000000000000
	Bottom:	5.00000000000000
)

(LButn.268
	InternalName:	"aLabelButton73"
	Invisible:	1
	Label:	"Query"
)

(LButn.269
	InternalName:	"aLabelButton74"
	Label:	"OK"
	Click:	"geohaz.themes.OK"
)

(LButn.270
	InternalName:	"aLabelButton5"
	Label:	"_"
	Click:	"geohaz.themes.minimize"
)

(RectD.271
	Left:	24.00000000000000
	Top:	64.00000000000000
	Right:	279.00000000000000
	Bottom:	7.00000000000000
)

(RectD.272
	Left:	19.00000000000000
	Top:	382.00000000000000
	Right:	287.00000000000000
	Bottom:	261.00000000000000
)

(RectD.273
	Left:	24.00000000000000
	Top:	241.00000000000000
	Right:	279.00000000000000
	Bottom:	83.00000000000000
)

(RectD.274
	Left:	21.00000000000000
	Top:	440.00000000000000
	Right:	99.00000000000000
	Bottom:	410.00000000000000
)

(RectD.275
	Left:	205.00000000000000
	Top:	440.00000000000000
	Right:	283.00000000000000
	Bottom:	410.00000000000000
)

(RectD.276
	Left:	288.00000000000000
	Top:	25.00000000000000
	Right:	308.00000000000000
	Bottom:	6.00000000000000
)

(Nil.277
)

(AVDLog.278
	Name:	"geohaz.themes.lim"
	X:	79
	Y:	52
	W:	310
	H:	452
	ConstrainedControlNames:	279
	ConstrainedControlNames:	280
	ConstrainedControlNames:	281
	ConstrainedControlNames:	282
	ConstrainedControlNames:	283
	ConstrainedControlNames:	284
	ConstrainedControlNames:	285
	ConstrainedControlNames:	286
	ConstrainedControlNames:	287
	Constraints:	288
	Constraints:	289
	Constraints:	290
	Constraints:	291
	Constraints:	292
	Constraints:	293
	Constraints:	294
	Constraints:	295
	Constraints:	296
	Server:	297
	ControlPanel:	298
	ObjectTag:	12
	Title:	"Limited Occuring Features"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.themes.close"
	Open:	"geohaz.themes.lim.open"
	DefaultButton:	329
)

(AVStr.279
	S:	"aLabelButton49"
)

(AVStr.280
	S:	"aLabelButton50"
)

(AVStr.281
	S:	"aLabelButton51"
)

(AVStr.282
	S:	"aLabelButton52"
)

(AVStr.283
	S:	"aLabelButton53"
)

(AVStr.284
	S:	"aLabelButton54"
)

(AVStr.285
	S:	"aLabelButton57"
)

(AVStr.286
	S:	"aLabelButton58"
)

(AVStr.287
	S:	"aLabelButton6"
)

(Numb.288
	N:	85.00000000000000
)

(Numb.289
	N:	85.00000000000000
)

(Numb.290
	N:	85.00000000000000
)

(Numb.291
	N:	85.00000000000000
)

(Numb.292
	N:	85.00000000000000
)

(Numb.293
	N:	85.00000000000000
)

(Numb.294
	N:	85.00000000000000
)

(Numb.295
	N:	85.00000000000000
)

(Numb.296
	N:	85.00000000000000
)

(Nil.297
)

(CPanel.298
	Child:	299
	Child:	312
	Child:	321
	Child:	322
	Child:	323
	ResBox:	324
	ResBox:	325
	ResBox:	326
	ResBox:	327
	ResBox:	328
	Listening:	1
)

(CPanel.299
	InternalName:	"aControlPanel56"
	Child:	300
	Child:	301
	Child:	302
	Child:	303
	Child:	304
	Child:	305
	Constraints:	0x55
	ResBox:	306
	ResBox:	307
	ResBox:	308
	ResBox:	309
	ResBox:	310
	ResBox:	311
	Label:	"Select From Other Themes"
	VisibleBorder:	1
	Listening:	1
)

(LButn.300
	InternalName:	"aLabelButton49"
	Label:	"Borings"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.301
	InternalName:	"aLabelButton50"
	Label:	"Ice"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.302
	InternalName:	"aLabelButton51"
	Label:	"Structure"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.303
	InternalName:	"aLabelButton52"
	Label:	"Shot Points\nand Images"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.304
	InternalName:	"aLabelButton53"
	Label:	"Seafloor"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.305
	InternalName:	"aLabelButton54"
	Label:	"Hazards"
	Click:	"geohaz.themes.dialogs.start"
)

(RectD.306
	Left:	176.00000000000000
	Top:	91.00000000000000
	Right:	254.00000000000000
	Bottom:	61.00000000000000
)

(RectD.307
	Left:	15.00000000000000
	Top:	91.00000000000000
	Right:	93.00000000000000
	Bottom:	61.00000000000000
)

(RectD.308
	Left:	96.00000000000000
	Top:	91.00000000000000
	Right:	174.00000000000000
	Bottom:	61.00000000000000
)

(RectD.309
	Left:	15.00000000000000
	Top:	58.00000000000000
	Right:	93.00000000000000
	Bottom:	28.00000000000000
)

(RectD.310
	Left:	176.00000000000000
	Top:	57.00000000000000
	Right:	254.00000000000000
	Bottom:	27.00000000000000
)

(RectD.311
	Left:	96.00000000000000
	Top:	57.00000000000000
	Right:	174.00000000000000
	Bottom:	27.00000000000000
)

(CPanel.312
	InternalName:	"aControlPanel64"
	Child:	313
	Child:	314
	Child:	315
	Child:	316
	Constraints:	0x55
	ResBox:	317
	ResBox:	318
	ResBox:	319
	ResBox:	320
	Label:	" "
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.313
	InternalName:	"geohaz.themes.lim.mag.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Magnetic Intensity Contours"
	Constraints:	0x55
)

(AVCBox.314
	InternalName:	"geohaz.themes.lim.crest.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Crest"
	Constraints:	0x55
)

(AVCBox.315
	InternalName:	"geohaz.themes.lim.Dip.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Dip Points"
	Constraints:	0x55
)

(AVCBox.316
	InternalName:	"geohaz.themes.lim.eros.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Erosional Cut-outs"
	Constraints:	0x55
)

(RectD.317
	Left:	18.00000000000000
	Top:	193.00000000000000
	Right:	235.00000000000000
	Bottom:	155.00000000000000
)

(RectD.318
	Left:	18.00000000000000
	Top:	149.00000000000000
	Right:	235.00000000000000
	Bottom:	111.00000000000000
)

(RectD.319
	Left:	18.00000000000000
	Top:	103.00000000000000
	Right:	235.00000000000000
	Bottom:	65.00000000000000
)

(RectD.320
	Left:	18.00000000000000
	Top:	60.00000000000000
	Right:	235.00000000000000
	Bottom:	22.00000000000000
)

(LButn.321
	InternalName:	"aLabelButton57"
	Invisible:	1
	Label:	"Query"
)

(LButn.322
	InternalName:	"aLabelButton58"
	Label:	"OK"
	Click:	"geohaz.themes.OK"
)

(LButn.323
	InternalName:	"aLabelButton6"
	Label:	"_"
	Click:	"geohaz.themes.minimize"
)

(RectD.324
	Left:	20.00000000000000
	Top:	381.00000000000000
	Right:	288.00000000000000
	Bottom:	261.00000000000000
)

(RectD.325
	Left:	24.00000000000000
	Top:	225.00000000000000
	Right:	281.00000000000000
	Bottom:	15.00000000000000
)

(RectD.326
	Left:	22.00000000000000
	Top:	440.00000000000000
	Right:	100.00000000000000
	Bottom:	410.00000000000000
)

(RectD.327
	Left:	206.00000000000000
	Top:	440.00000000000000
	Right:	284.00000000000000
	Bottom:	410.00000000000000
)

(RectD.328
	Left:	286.00000000000000
	Top:	24.00000000000000
	Right:	306.00000000000000
	Bottom:	5.00000000000000
)

(Nil.329
)

(AVDLog.330
	Name:	"geohaz.themes.sea"
	X:	72
	Y:	52
	W:	322
	H:	454
	ConstrainedControlNames:	331
	ConstrainedControlNames:	332
	ConstrainedControlNames:	333
	ConstrainedControlNames:	334
	ConstrainedControlNames:	335
	ConstrainedControlNames:	336
	ConstrainedControlNames:	337
	ConstrainedControlNames:	338
	ConstrainedControlNames:	339
	Constraints:	340
	Constraints:	341
	Constraints:	342
	Constraints:	343
	Constraints:	344
	Constraints:	345
	Constraints:	346
	Constraints:	347
	Constraints:	348
	Server:	67
	ControlPanel:	349
	ObjectTag:	12
	Title:	"Seafloor"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.themes.close"
	Open:	"geohaz.themes.SEA.open"
	DefaultButton:	398
)

(AVStr.331
	S:	"aLabelButton33"
)

(AVStr.332
	S:	"aLabelButton34"
)

(AVStr.333
	S:	"aLabelButton35"
)

(AVStr.334
	S:	"aLabelButton36"
)

(AVStr.335
	S:	"aLabelButton37"
)

(AVStr.336
	S:	"aLabelButton38"
)

(AVStr.337
	S:	"aLabelButton41"
)

(AVStr.338
	S:	"aLabelButton42"
)

(AVStr.339
	S:	"aLabelButton7"
)

(Numb.340
	N:	85.00000000000000
)

(Numb.341
	N:	85.00000000000000
)

(Numb.342
	N:	85.00000000000000
)

(Numb.343
	N:	85.00000000000000
)

(Numb.344
	N:	85.00000000000000
)

(Numb.345
	N:	85.00000000000000
)

(Numb.346
	N:	85.00000000000000
)

(Numb.347
	N:	85.00000000000000
)

(Numb.348
	N:	85.00000000000000
)

(CPanel.349
	Child:	350
	Child:	353
	Child:	360
	Child:	365
	Child:	378
	Child:	381
	Child:	386
	Child:	387
	Child:	388
	ResBox:	389
	ResBox:	390
	ResBox:	391
	ResBox:	392
	ResBox:	393
	ResBox:	394
	ResBox:	395
	ResBox:	396
	ResBox:	397
	Listening:	1
)

(CPanel.350
	InternalName:	"aControlPanel7"
	Child:	351
	Constraints:	0x55
	ResBox:	352
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.351
	InternalName:	"geohaz.themes.sea.boulder.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Boulder Patch Potential"
	Constraints:	0x55
)

(RectD.352
	Left:	15.00000000000000
	Top:	41.00000000000000
	Right:	232.00000000000000
	Bottom:	3.00000000000000
)

(CPanel.353
	InternalName:	"aControlPanel4"
	Child:	354
	Child:	355
	Child:	356
	Constraints:	0x55
	ResBox:	357
	ResBox:	358
	ResBox:	359
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.354
	InternalName:	"geohaz.themes.sea.visual.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Seafloor Visual Observations"
	Constraints:	0x55
)

(AVCBox.355
	InternalName:	"geohaz.themes.sea.visualpnt.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Seafloor Visual Observations (point)"
	Constraints:	0x55
)

(AVCBox.356
	InternalName:	"geohaz.themes.sea.u_sonar.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Unidentified Sonar Targets"
	Constraints:	0x55
)

(RectD.357
	Left:	15.00000000000000
	Top:	33.00000000000000
	Right:	232.00000000000000
	Bottom:	3.00000000000000
)

(RectD.358
	Left:	15.00000000000000
	Top:	53.00000000000000
	Right:	232.00000000000000
	Bottom:	23.00000000000000
)

(RectD.359
	Left:	15.00000000000000
	Top:	72.00000000000000
	Right:	232.00000000000000
	Bottom:	42.00000000000000
)

(CPanel.360
	InternalName:	"aControlPanel2"
	Child:	361
	Child:	362
	Constraints:	0x55
	ResBox:	363
	ResBox:	364
	Label:	"Site Specific Bathymetry"
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.361
	InternalName:	"geohaz.themes.sea.contours.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Contours"
	Constraints:	0x55
)

(AVCBox.362
	InternalName:	"geohaz.themes.sea.spotelev.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Spot Elevations"
	Constraints:	0x55
)

(RectD.363
	Left:	15.00000000000000
	Top:	41.00000000000000
	Right:	118.00000000000000
	Bottom:	2.00000000000000
)

(RectD.364
	Left:	138.00000000000000
	Top:	32.00000000000000
	Right:	241.00000000000000
	Bottom:	12.00000000000000
)

(CPanel.365
	InternalName:	"aControlPanel40"
	Child:	366
	Child:	367
	Child:	368
	Child:	369
	Child:	370
	Child:	371
	Constraints:	0x55
	ResBox:	372
	ResBox:	373
	ResBox:	374
	ResBox:	375
	ResBox:	376
	ResBox:	377
	Label:	"Select From Other Themes"
	VisibleBorder:	1
	Listening:	1
)

(LButn.366
	InternalName:	"aLabelButton33"
	Label:	"Borings"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.367
	InternalName:	"aLabelButton34"
	Label:	"Ice"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.368
	InternalName:	"aLabelButton35"
	Label:	"Structure"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.369
	InternalName:	"aLabelButton36"
	Label:	"Limited Occuring\nFeatures"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.370
	InternalName:	"aLabelButton37"
	Label:	"Shot Points\nand Images"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.371
	InternalName:	"aLabelButton38"
	Label:	"Hazards"
	Click:	"geohaz.themes.dialogs.start"
)

(RectD.372
	Left:	176.00000000000000
	Top:	91.00000000000000
	Right:	254.00000000000000
	Bottom:	61.00000000000000
)

(RectD.373
	Left:	13.00000000000000
	Top:	91.00000000000000
	Right:	93.00000000000000
	Bottom:	61.00000000000000
)

(RectD.374
	Left:	96.00000000000000
	Top:	91.00000000000000
	Right:	174.00000000000000
	Bottom:	61.00000000000000
)

(RectD.375
	Left:	13.00000000000000
	Top:	58.00000000000000
	Right:	93.00000000000000
	Bottom:	28.00000000000000
)

(RectD.376
	Left:	176.00000000000000
	Top:	57.00000000000000
	Right:	254.00000000000000
	Bottom:	27.00000000000000
)

(RectD.377
	Left:	96.00000000000000
	Top:	57.00000000000000
	Right:	174.00000000000000
	Bottom:	27.00000000000000
)

(CPanel.378
	InternalName:	"aControlPanel44"
	Child:	379
	Constraints:	0x55
	ResBox:	380
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.379
	InternalName:	"geohaz.themes.sea.regbath.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Regional Bathymetry"
	Constraints:	0x55
)

(RectD.380
	Left:	15.00000000000000
	Top:	41.00000000000000
	Right:	232.00000000000000
	Bottom:	3.00000000000000
)

(CPanel.381
	InternalName:	"aControlPanel48"
	Child:	382
	Child:	383
	Constraints:	0x55
	ResBox:	384
	ResBox:	385
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.382
	InternalName:	"geohaz.themes.sea.unstable.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Unstable Seafloor Sediments"
	Constraints:	0x55
)

(AVCBox.383
	InternalName:	"geohaz.themes.sea.various.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Seafloor Features (various)"
	Constraints:	0x55
)

(RectD.384
	Left:	16.00000000000000
	Top:	59.00000000000000
	Right:	233.00000000000000
	Bottom:	21.00000000000000
)

(RectD.385
	Left:	16.00000000000000
	Top:	41.00000000000000
	Right:	233.00000000000000
	Bottom:	3.00000000000000
)

(LButn.386
	InternalName:	"aLabelButton41"
	Invisible:	1
	Label:	"Query"
)

(LButn.387
	InternalName:	"aLabelButton42"
	Label:	"OK"
	Click:	"geohaz.themes.OK"
)

(LButn.388
	InternalName:	"aLabelButton7"
	Label:	"_"
	Click:	"geohaz.themes.minimize"
)

(RectD.389
	Left:	28.00000000000000
	Top:	132.00000000000000
	Right:	282.00000000000000
	Bottom:	92.00000000000000
)

(RectD.390
	Left:	28.00000000000000
	Top:	209.00000000000000
	Right:	282.00000000000000
	Bottom:	138.00000000000000
)

(RectD.391
	Left:	28.00000000000000
	Top:	86.00000000000000
	Right:	282.00000000000000
	Bottom:	46.00000000000000
)

(RectD.392
	Left:	25.00000000000000
	Top:	397.00000000000000
	Right:	293.00000000000000
	Bottom:	277.00000000000000
)

(RectD.393
	Left:	28.00000000000000
	Top:	41.00000000000000
	Right:	282.00000000000000
	Bottom:	1.00000000000000
)

(RectD.394
	Left:	28.00000000000000
	Top:	274.00000000000000
	Right:	282.00000000000000
	Bottom:	214.00000000000000
)

(RectD.395
	Left:	27.00000000000000
	Top:	439.00000000000000
	Right:	105.00000000000000
	Bottom:	409.00000000000000
)

(RectD.396
	Left:	211.00000000000000
	Top:	439.00000000000000
	Right:	289.00000000000000
	Bottom:	409.00000000000000
)

(RectD.397
	Left:	299.00000000000000
	Top:	23.00000000000000
	Right:	319.00000000000000
	Bottom:	4.00000000000000
)

(Nil.398
)

(AVDLog.399
	Name:	"geohaz.themes.sho"
	X:	71
	Y:	96
	W:	296
	H:	453
	ConstrainedControlNames:	400
	ConstrainedControlNames:	401
	ConstrainedControlNames:	402
	ConstrainedControlNames:	403
	ConstrainedControlNames:	404
	ConstrainedControlNames:	405
	ConstrainedControlNames:	406
	ConstrainedControlNames:	407
	ConstrainedControlNames:	408
	Constraints:	409
	Constraints:	410
	Constraints:	411
	Constraints:	412
	Constraints:	413
	Constraints:	414
	Constraints:	415
	Constraints:	416
	Constraints:	417
	Server:	67
	ControlPanel:	418
	ObjectTag:	12
	Title:	"Shot Points and Images"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.themes.close"
	Open:	"geohaz.themes.dat.open"
	DefaultButton:	445
)

(AVStr.400
	S:	"aLabelButton3"
)

(AVStr.401
	S:	"aLabelButton4"
)

(AVStr.402
	S:	"aLabelButton8"
)

(AVStr.403
	S:	"aLabelButton9"
)

(AVStr.404
	S:	"aLabelButton10"
)

(AVStr.405
	S:	"aLabelButton11"
)

(AVStr.406
	S:	"aLabelButton12"
)

(AVStr.407
	S:	"aLabelButton14"
)

(AVStr.408
	S:	"aLabelButton33"
)

(Numb.409
	N:	85.00000000000000
)

(Numb.410
	N:	85.00000000000000
)

(Numb.411
	N:	85.00000000000000
)

(Numb.412
	N:	85.00000000000000
)

(Numb.413
	N:	85.00000000000000
)

(Numb.414
	N:	85.00000000000000
)

(Numb.415
	N:	85.00000000000000
)

(Numb.416
	N:	85.00000000000000
)

(Numb.417
	N:	85.00000000000000
)

(CPanel.418
	Child:	419
	Child:	424
	Child:	425
	Child:	426
	Child:	439
	ResBox:	440
	ResBox:	441
	ResBox:	442
	ResBox:	443
	ResBox:	444
	Listening:	1
)

(CPanel.419
	InternalName:	"aControlPanel1"
	Child:	420
	Child:	421
	Constraints:	0x55
	ResBox:	422
	ResBox:	423
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.420
	InternalName:	"geohaz.themes.dat.shot.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Shot Points of Surveys"
	Constraints:	0x55
)

(AVCBox.421
	InternalName:	"geohaz.themes.dat.lines.chb"
	ObjectTag:	12
	Listening:	1
	Label:	"Seismic Cross-Sections Survey Lines"
	Constraints:	0x55
)

(RectD.422
	Left:	17.00000000000000
	Top:	69.00000000000000
	Right:	234.00000000000000
	Bottom:	31.00000000000000
)

(RectD.423
	Left:	18.00000000000000
	Top:	125.00000000000000
	Right:	235.00000000000000
	Bottom:	87.00000000000000
)

(LButn.424
	InternalName:	"aLabelButton3"
	Label:	"OK"
	Click:	"geohaz.themes.OK"
)

(LButn.425
	InternalName:	"aLabelButton4"
	Invisible:	1
	Label:	"Query"
)

(CPanel.426
	InternalName:	"aControlPanel3"
	Child:	427
	Child:	428
	Child:	429
	Child:	430
	Child:	431
	Child:	432
	Constraints:	0x55
	ResBox:	433
	ResBox:	434
	ResBox:	435
	ResBox:	436
	ResBox:	437
	ResBox:	438
	Label:	"Select From Other Themes"
	VisibleBorder:	1
	Listening:	1
)

(LButn.427
	InternalName:	"aLabelButton8"
	Label:	"Hazards"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.428
	InternalName:	"aLabelButton9"
	Label:	"Seafloor"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.429
	InternalName:	"aLabelButton10"
	Label:	"Limited Occuring\nFeatures"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.430
	InternalName:	"aLabelButton11"
	Label:	"Structure"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.431
	InternalName:	"aLabelButton12"
	Label:	"Ice"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.432
	InternalName:	"aLabelButton14"
	Label:	"Borings"
	Click:	"geohaz.themes.dialogs.start"
)

(RectD.433
	Left:	96.00000000000000
	Top:	57.00000000000000
	Right:	174.00000000000000
	Bottom:	27.00000000000000
)

(RectD.434
	Left:	176.00000000000000
	Top:	57.00000000000000
	Right:	254.00000000000000
	Bottom:	27.00000000000000
)

(RectD.435
	Left:	13.00000000000000
	Top:	58.00000000000000
	Right:	93.00000000000000
	Bottom:	28.00000000000000
)

(RectD.436
	Left:	96.00000000000000
	Top:	91.00000000000000
	Right:	174.00000000000000
	Bottom:	61.00000000000000
)

(RectD.437
	Left:	13.00000000000000
	Top:	91.00000000000000
	Right:	93.00000000000000
	Bottom:	61.00000000000000
)

(RectD.438
	Left:	176.00000000000000
	Top:	91.00000000000000
	Right:	254.00000000000000
	Bottom:	61.00000000000000
)

(LButn.439
	InternalName:	"aLabelButton33"
	Label:	"_"
	Click:	"geohaz.themes.minimize"
)

(RectD.440
	Left:	13.00000000000000
	Top:	191.00000000000000
	Right:	270.00000000000000
	Bottom:	42.00000000000000
)

(RectD.441
	Left:	199.00000000000000
	Top:	426.00000000000000
	Right:	277.00000000000000
	Bottom:	396.00000000000000
)

(RectD.442
	Left:	15.00000000000000
	Top:	426.00000000000000
	Right:	93.00000000000000
	Bottom:	396.00000000000000
)

(RectD.443
	Left:	13.00000000000000
	Top:	376.00000000000000
	Right:	281.00000000000000
	Bottom:	262.00000000000000
)

(RectD.444
	Left:	265.00000000000000
	Top:	27.00000000000000
	Right:	285.00000000000000
	Bottom:	8.00000000000000
)

(Nil.445
)

(AVDLog.446
	Name:	"geohaz.themes.str"
	X:	28
	Y:	53
	W:	313
	H:	458
	ConstrainedControlNames:	447
	ConstrainedControlNames:	448
	ConstrainedControlNames:	449
	ConstrainedControlNames:	450
	ConstrainedControlNames:	451
	ConstrainedControlNames:	452
	ConstrainedControlNames:	453
	ConstrainedControlNames:	454
	ConstrainedControlNames:	455
	Constraints:	456
	Constraints:	457
	Constraints:	458
	Constraints:	459
	Constraints:	460
	Constraints:	461
	Constraints:	462
	Constraints:	463
	Constraints:	464
	Server:	465
	ControlPanel:	466
	ObjectTag:	12
	Title:	"Structure"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.themes.close"
	Open:	"geohaz.themes.str.open"
	DefaultButton:	523
)

(AVStr.447
	S:	"aLabelButton17"
)

(AVStr.448
	S:	"aLabelButton18"
)

(AVStr.449
	S:	"aLabelButton19"
)

(AVStr.450
	S:	"aLabelButton20"
)

(AVStr.451
	S:	"aLabelButton21"
)

(AVStr.452
	S:	"aLabelButton22"
)

(AVStr.453
	S:	"aLabelButton25"
)

(AVStr.454
	S:	"aLabelButton26"
)

(AVStr.455
	S:	"aLabelButton8"
)

(Numb.456
	N:	85.00000000000000
)

(Numb.457
	N:	85.00000000000000
)

(Numb.458
	N:	85.00000000000000
)

(Numb.459
	N:	85.00000000000000
)

(Numb.460
	N:	85.00000000000000
)

(Numb.461
	N:	85.00000000000000
)

(Numb.462
	N:	85.00000000000000
)

(Numb.463
	N:	85.00000000000000
)

(Numb.464
	N:	85.00000000000000
)

(Nil.465
)

(CPanel.466
	Child:	467
	Child:	482
	Child:	495
	Child:	508
	Child:	509
	Child:	510
	Child:	511
	Child:	512
	ResBox:	515
	ResBox:	516
	ResBox:	517
	ResBox:	518
	ResBox:	519
	ResBox:	520
	ResBox:	521
	ResBox:	522
	Listening:	1
)

(CPanel.467
	InternalName:	"aControlPanel4"
	Child:	468
	Child:	469
	Child:	470
	Child:	471
	Child:	472
	Child:	473
	Child:	474
	Constraints:	0x55
	ResBox:	475
	ResBox:	476
	ResBox:	477
	ResBox:	478
	ResBox:	479
	ResBox:	480
	ResBox:	481
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.468
	InternalName:	"geohaz.themes.str.fautP.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Fault Planes"
	Constraints:	0x55
)

(AVCBox.469
	InternalName:	"geohaz.themes.str.fautl.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Fault Lines"
	Constraints:	0x55
)

(AVCBox.470
	InternalName:	"geohaz.themes.str.structspot.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Structure Spot Points"
	Constraints:	0x55
)

(AVCBox.471
	InternalName:	"geohaz.themes.str.structCont.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Structure Contours"
	Constraints:	0x55
)

(AVCBox.472
	InternalName:	"geohaz.themes.str.annofautP.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Fault Planes Anno"
	Constraints:	0x55
)

(AVCBox.473
	InternalName:	"geohaz.themes.str.dippoints.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Dip Points"
	Constraints:	0x55
)

(AVCBox.474
	InternalName:	"geohaz.themes.str.fautPArcs.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Fault Planes (Arcs)"
	Constraints:	0x55
)

(RectD.475
	Left:	12.00000000000000
	Top:	43.00000000000000
	Right:	111.00000000000000
	Bottom:	24.00000000000000
)

(RectD.476
	Left:	12.00000000000000
	Top:	27.00000000000000
	Right:	104.00000000000000
	Bottom:	5.00000000000000
)

(RectD.477
	Left:	12.00000000000000
	Top:	100.00000000000000
	Right:	141.00000000000000
	Bottom:	77.00000000000000
)

(RectD.478
	Left:	12.00000000000000
	Top:	83.00000000000000
	Right:	133.00000000000000
	Bottom:	61.00000000000000
)

(RectD.479
	Left:	136.00000000000000
	Top:	54.00000000000000
	Right:	254.00000000000000
	Bottom:	16.00000000000000
)

(RectD.480
	Left:	12.00000000000000
	Top:	116.00000000000000
	Right:	141.00000000000000
	Bottom:	98.00000000000000
)

(RectD.481
	Left:	12.00000000000000
	Top:	62.00000000000000
	Right:	127.00000000000000
	Bottom:	43.00000000000000
)

(CPanel.482
	InternalName:	"aControlPanel24"
	Child:	483
	Child:	484
	Child:	485
	Child:	486
	Child:	487
	Child:	488
	Constraints:	0x55
	ResBox:	489
	ResBox:	490
	ResBox:	491
	ResBox:	492
	ResBox:	493
	ResBox:	494
	Label:	"Select From Other Themes"
	VisibleBorder:	1
	Listening:	1
)

(LButn.483
	InternalName:	"aLabelButton17"
	Label:	"Borings"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.484
	InternalName:	"aLabelButton18"
	Label:	"Ice"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.485
	InternalName:	"aLabelButton19"
	Label:	"Shot Points\nand Images"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.486
	InternalName:	"aLabelButton20"
	Label:	"Limited Occuring\nFeatures"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.487
	InternalName:	"aLabelButton21"
	Label:	"Seafloor"
	Click:	"geohaz.themes.dialogs.start"
)

(LButn.488
	InternalName:	"aLabelButton22"
	Label:	"Hazards"
	Click:	"geohaz.themes.dialogs.start"
)

(RectD.489
	Left:	176.00000000000000
	Top:	91.00000000000000
	Right:	254.00000000000000
	Bottom:	61.00000000000000
)

(RectD.490
	Left:	12.00000000000000
	Top:	91.00000000000000
	Right:	93.00000000000000
	Bottom:	61.00000000000000
)

(RectD.491
	Left:	96.00000000000000
	Top:	91.00000000000000
	Right:	174.00000000000000
	Bottom:	61.00000000000000
)

(RectD.492
	Left:	12.00000000000000
	Top:	57.00000000000000
	Right:	93.00000000000000
	Bottom:	27.00000000000000
)

(RectD.493
	Left:	176.00000000000000
	Top:	57.00000000000000
	Right:	254.00000000000000
	Bottom:	27.00000000000000
)

(RectD.494
	Left:	96.00000000000000
	Top:	57.00000000000000
	Right:	174.00000000000000
	Bottom:	27.00000000000000
)

(CPanel.495
	InternalName:	"aControlPanel32"
	Child:	496
	Child:	497
	Child:	498
	Child:	499
	Child:	500
	Child:	501
	Constraints:	0x55
	ResBox:	502
	ResBox:	503
	ResBox:	504
	ResBox:	505
	ResBox:	506
	ResBox:	507
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.496
	InternalName:	"geohaz.themes.str.zone.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Zones of Faulting"
	Constraints:	0x55
)

(AVCBox.497
	InternalName:	"geohaz.themes.str.ANNOstructAxis.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Structural Axis Anno"
	Constraints:	0x55
)

(AVCBox.498
	InternalName:	"geohaz.themes.str.Paleo.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Paleo Structure"
	Constraints:	0x55
)

(AVCBox.499
	InternalName:	"geohaz.themes.str.structAxis.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Structural Axis"
	Constraints:	0x55
)

(AVCBox.500
	InternalName:	"geohaz.themes.str.zonearc.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Zones of Faulting (Arcs)"
	Constraints:	0x55
)

(AVCBox.501
	InternalName:	"geohaz.themes.str.POSSPaleo.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Possible Paleo Structure"
	Constraints:	0x55
)

(RectD.502
	Left:	12.00000000000000
	Top:	81.00000000000000
	Right:	126.00000000000000
	Bottom:	65.00000000000000
)

(RectD.503
	Left:	128.00000000000000
	Top:	63.00000000000000
	Right:	246.00000000000000
	Bottom:	46.00000000000000
)

(RectD.504
	Left:	12.00000000000000
	Top:	29.00000000000000
	Right:	115.00000000000000
	Bottom:	8.00000000000000
)

(RectD.505
	Left:	12.00000000000000
	Top:	64.00000000000000
	Right:	121.00000000000000
	Bottom:	44.00000000000000
)

(RectD.506
	Left:	12.00000000000000
	Top:	98.00000000000000
	Right:	155.00000000000000
	Bottom:	84.00000000000000
)

(RectD.507
	Left:	12.00000000000000
	Top:	47.00000000000000
	Right:	170.00000000000000
	Bottom:	26.00000000000000
)

(LButn.508
	InternalName:	"aLabelButton25"
	Invisible:	1
	Label:	"Query"
)

(LButn.509
	InternalName:	"aLabelButton26"
	Label:	"OK"
	Click:	"geohaz.themes.OK"
)

(AVCBox.510
	InternalName:	"geohaz.themes.str.annofautl.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Fault Lines Anno"
	Constraints:	0x55
)

(LButn.511
	InternalName:	"aLabelButton8"
	Label:	"_"
	Click:	"geohaz.themes.minimize"
)

(CPanel.512
	InternalName:	"aControlPanel6"
	Child:	513
	Constraints:	0x55
	ResBox:	514
	VisibleBorder:	1
	Listening:	1
)

(AVCBox.513
	InternalName:	"geohaz.themes.str.isopach.chb"
	Disabled:	1
	ObjectTag:	12
	Listening:	1
	Label:	"Isopach Contours"
	Constraints:	0x55
)

(RectD.514
	Left:	12.00000000000000
	Top:	31.00000000000000
	Right:	155.00000000000000
	Bottom:	17.00000000000000
)

(RectD.515
	Left:	23.00000000000000
	Top:	126.00000000000000
	Right:	279.00000000000000
	Bottom:	6.00000000000000
)

(RectD.516
	Left:	15.00000000000000
	Top:	400.00000000000000
	Right:	283.00000000000000
	Bottom:	285.00000000000000
)

(RectD.517
	Left:	23.00000000000000
	Top:	229.00000000000000
	Right:	279.00000000000000
	Bottom:	127.00000000000000
)

(RectD.518
	Left:	24.00000000000000
	Top:	448.00000000000000
	Right:	102.00000000000000
	Bottom:	418.00000000000000
)

(RectD.519
	Left:	208.00000000000000
	Top:	448.00000000000000
	Right:	286.00000000000000
	Bottom:	418.00000000000000
)

(RectD.520
	Left:	159.00000000000000
	Top:	42.00000000000000
	Right:	270.00000000000000
	Bottom:	4.00000000000000
)

(RectD.521
	Left:	283.00000000000000
	Top:	26.00000000000000
	Right:	303.00000000000000
	Bottom:	7.00000000000000
)

(RectD.522
	Left:	23.00000000000000
	Top:	274.00000000000000
	Right:	279.00000000000000
	Bottom:	233.00000000000000
)

(Nil.523
)

(AVDLog.524
	Name:	"MMS.DlgSourceInfo"
	X:	148
	Y:	192
	W:	764
	H:	404
	Server:	525
	ControlPanel:	526
	ObjectTag:	67
	Title:	"Environmental Source Information:"
	EscapeEnabled:	1
	Resizable:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"MMS.DlgSourceInfo.Close"
	DefaultButton:	536
)

(Nil.525
)

(CPanel.526
	Child:	527
	Child:	529
	Child:	531
	ResBox:	533
	ResBox:	534
	ResBox:	535
	Listening:	1
)

(AVLBox.527
	InternalName:	"MMS.DlgSourceInfo.lstFeature"
	ObjectTag:	67
	NextControl:	525
	ContentKind:	4
	Constraints:	0x33
	FieldNamesVisible:	1
	HorizontalScroll:	1
	Listening:	1
	VerticalScroll:	1
	Select:	"MMS.DlgSourceInfo.lstFeature_Select"
	SelectionStyle:	528
)

(AVEnum.528
	Name:	"LISTBOX_SELECTION_SINGLEROW"
)

(AVLBox.529
	InternalName:	"MMS.DlgSourceInfo.lstSource"
	ObjectTag:	67
	NextControl:	525
	ContentKind:	4
	Constraints:	0x63
	FieldNamesVisible:	1
	HorizontalScroll:	1
	Listening:	1
	Select:	"MMS.DlgSourceInfo.lstSource_Select"
	SelectionStyle:	530
)

(AVEnum.530
	Name:	"LISTBOX_SELECTION_SINGLEROW"
)

(AVLBox.531
	InternalName:	"MMS.DlgSourceInfo.lstReport"
	ObjectTag:	67
	NextControl:	525
	ContentKind:	4
	Constraints:	0x63
	FieldNamesVisible:	1
	HorizontalScroll:	1
	Listening:	1
	SelectionStyle:	532
)

(AVEnum.532
	Name:	"LISTBOX_SELECTION_SINGLEROW"
)

(RectD.533
	Left:	12.00000000000000
	Top:	265.00000000000000
	Right:	759.00000000000000
	Bottom:	10.00000000000000
)

(RectD.534
	Left:	13.00000000000000
	Top:	334.00000000000000
	Right:	760.00000000000000
	Bottom:	273.00000000000000
)

(RectD.535
	Left:	12.00000000000000
	Top:	394.00000000000000
	Right:	758.00000000000000
	Bottom:	341.00000000000000
)

(Nil.536
)

(AVDLog.537
	Name:	"geohaz.DlgHotlink"
	X:	38
	Y:	61
	W:	522
	H:	269
	Server:	538
	ControlPanel:	539
	ObjectTag:	551
	Title:	"Hotlink to Seismic Cross-Sections"
	EscapeEnabled:	1
	Resizable:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.DlgHotlink.close"
	Open:	"geohaz.DlgHotlink.open"
	DefaultButton:	562
)

(Nil.538
)

(CPanel.539
	Child:	540
	Child:	542
	Child:	543
	Child:	544
	Child:	545
	ResBox:	546
	ResBox:	547
	ResBox:	548
	ResBox:	549
	ResBox:	550
	Listening:	1
)

(AVLBox.540
	InternalName:	"DlgHotlink.lstScansNames"
	NextControl:	538
	ContentKind:	4
	Constraints:	0x13
	ColumnCount:	1
	Listening:	1
	VerticalScroll:	1
	Select:	"geohaz.DlgHotlink.lstSelect"
	SelectionStyle:	541
	Apply:	"geohaz.DlgHotlink.lstApply"
)

(AVEnum.541
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(TextBox.542
	InternalName:	"DlgHotlink.lstScansComments"
	Listening:	1
	Constraints:	0x43
	VerticalScroll:	1
	NextControl:	538
)

(TextBox.543
	InternalName:	"DlgHotlink.lstScansType"
	Listening:	1
	Constraints:	0x23
	NextControl:	538
)

(TextLabel.544
	InternalName:	"aTextLabel4"
	Constraints:	0x41
	Label:	"Comments"
	Listening:	1
)

(TextLabel.545
	InternalName:	"aTextLabel5"
	Constraints:	0x01
	Label:	"Instrument Type"
	Listening:	1
)

(RectD.546
	Left:	12.00000000000000
	Top:	131.00000000000000
	Right:	517.00000000000000
	Bottom:	11.00000000000000
)

(RectD.547
	Left:	12.00000000000000
	Top:	202.00000000000000
	Right:	517.00000000000000
	Bottom:	153.00000000000000
)

(RectD.548
	Left:	12.00000000000000
	Top:	259.00000000000000
	Right:	517.00000000000000
	Bottom:	231.00000000000000
)

(RectD.549
	Left:	13.00000000000000
	Top:	156.00000000000000
	Right:	109.00000000000000
	Bottom:	139.00000000000000
)

(RectD.550
	Left:	12.00000000000000
	Top:	233.00000000000000
	Right:	108.00000000000000
	Bottom:	216.00000000000000
)

(List.551
	Child:	552
	Child:	553
	Child:	554
	Child:	555
	Child:	556
	Child:	557
	Child:	558
	Child:	559
	Child:	560
	Child:	561
)

(Numb.552
	N:	2.00000000000000
)

(Numb.553
	N:	3.00000000000000
)

(Numb.554
	N:	4.00000000000000
)

(Numb.555
	N:	8.00000000000000
)

(Numb.556
	N:	9.00000000000000
)

(Numb.557
	N:	10.00000000000000
)

(Numb.558
	N:	14.00000000000000
)

(Numb.559
	N:	15.00000000000000
)

(Numb.560
	N:	17.00000000000000
)

(Numb.561
	N:	16.00000000000000
)

(Nil.562
)

(AVDLog.563
	Name:	"geohaz.dlgwarning"
	X:	191
	Y:	197
	W:	695
	H:	299
	Server:	564
	ControlPanel:	565
	Title:	"USER WARNING !!!!!!!!!!"
	EscapeEnabled:	1
	Modal:	1
	Resizable:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"geohaz.dlgwarning.close"
	DefaultButton:	580
)

(Nil.564
)

(CPanel.565
	Child:	566
	Child:	575
	ResBox:	578
	ResBox:	579
	Listening:	1
)

(CPanel.566
	InternalName:	"aControlPanel2"
	Child:	567
	Child:	568
	Child:	569
	Child:	570
	Constraints:	0x55
	ResBox:	571
	ResBox:	572
	ResBox:	573
	ResBox:	574
	VisibleBorder:	1
	Listening:	1
)

(RButn.567
	InternalName:	"geohaz.dlgwarning.rdbYes"
	Constraints:	0x55
	Listening:	1
	Label:	"Yes, allow entry to system Agree/CD-ROM"
	Click:	"geohaz.dlgwarning.rdbClick"
)

(RButn.568
	InternalName:	"geohaz.dlgwarning.rdbNo"
	Constraints:	0x55
	Listening:	1
	Label:	"No, Log off and or return the user to opening screen"
	Click:	"geohaz.dlgwarning.rdbClick"
)

(TextLabel.569
	InternalName:	"aTextLabel5"
	Constraints:	0x55
	Label:	"The user must agree below to accept all liability and responsibilites with regard to the \nuse and the limitations of the material, analysis, or data sets found on this CD-ROM.\n"
	Listening:	1
)

(TextLabel.570
	InternalName:	"aTextLabel4"
	Constraints:	0x55
	Label:	"User Agrees"
	Listening:	1
)

(RectD.571
	Left:	142.00000000000000
	Top:	113.00000000000000
	Right:	443.00000000000000
	Bottom:	93.00000000000000
)

(RectD.572
	Left:	142.00000000000000
	Top:	159.00000000000000
	Right:	449.00000000000000
	Bottom:	129.00000000000000
)

(RectD.573
	Left:	19.00000000000000
	Top:	79.00000000000000
	Right:	467.00000000000000
	Bottom:	26.00000000000000
)

(RectD.574
	Left:	20.00000000000000
	Top:	122.00000000000000
	Right:	103.00000000000000
	Bottom:	94.00000000000000
)

(CPanel.575
	InternalName:	"aControlPanel1"
	Child:	576
	Constraints:	0x55
	ResBox:	577
	VisibleBorder:	1
	Listening:	1
)

(TextLabel.576
	InternalName:	"aTextLabel2"
	Constraints:	0x55
	Label:	"The Sub-sea Physical Environmental Database provided here contains data from many \ndifferent sources.  We recommend reviewing the content of the full reports and available \nseismic data from the MMS Alaska OCS Region office prior to operational use of this \ndata.\n"
	Listening:	1
)

(RectD.577
	Left:	20.00000000000000
	Top:	100.00000000000000
	Right:	454.00000000000000
	Bottom:	24.00000000000000
)

(RectD.578
	Left:	107.00000000000000
	Top:	285.00000000000000
	Right:	567.00000000000000
	Bottom:	104.00000000000000
)

(RectD.579
	Left:	107.00000000000000
	Top:	97.00000000000000
	Right:	567.00000000000000
	Bottom:	5.00000000000000
)

(Nil.580
)

(List.581
	Child:	582
	Child:	590
	Child:	598
)

(List.582
	Child:	583
	Child:	587
	Child:	589
)

(List.583
	Child:	584
	Child:	585
	Child:	586
)

(AVStr.584
	S:	"View"
)

(AVStr.585
	S:	"ToolBar"
)

(AVStr.586
	S:	"geohaz.menu1.pick"
)

(Tool.587
	InternalName:	"Tool1"
	Help:	"Select Site Surveys and Pipeline Surveys//Select Site Surveys and Pipeline Surveys"
	Icon:	588
	Cursor:	"Cursors.SelGraphic"
	Apply:	"geohaz.menu1.pick"
)

(AVIcon.588
	Name:	"FrameView2"
	Res:	"Icons.FrameView2"

)

(Numb.589
	N:	16.00000000000000
)

(List.590
	Child:	591
	Child:	595
	Child:	597
)

(List.591
	Child:	592
	Child:	593
	Child:	594
)

(AVStr.592
	S:	"View"
)

(AVStr.593
	S:	"ToolBar"
)

(AVStr.594
	S:	"MMS.ShowSourceInfoTool"
)

(Tool.595
	Help:	"Source Identify//Source Identify"
	Icon:	596
	Cursor:	"Cursors.Default"
	Apply:	"MMS.ShowSourceInfoTool"
)

(AVIcon.596
	Name:	"BusinessID"
	Res:	"Icons.BusinessID"

)

(Numb.597
	N:	1.00000000000000
)

(List.598
	Child:	599
	Child:	603
	Child:	605
)

(List.599
	Child:	600
	Child:	601
	Child:	602
)

(AVStr.600
	S:	"View"
)

(AVStr.601
	S:	"ToolBar"
)

(AVStr.602
	S:	"geohaz.hotlink.pick"
)

(Tool.603
	Help:	"Hotlink to Seismic Cross-Sections//Hotlink to Seismic Cross-Sections"
	Icon:	604
	Cursor:	"Cursors.Media"
	Apply:	"geohaz.hotlink.pick"
)

(AVIcon.604
	Name:	"Media"
	Res:	"Icons.Media"

)

(Numb.605
	N:	17.00000000000000
)

(List.606
	Child:	607
	Child:	614
)

(List.607
	Child:	608
	Child:	612
	Child:	613
)

(List.608
	Child:	609
	Child:	610
	Child:	611
)

(AVStr.609
	S:	"View"
)

(AVStr.610
	S:	"Geohazard"
)

(AVStr.611
	S:	"geohaz.menu1.start"
)

(Choice.612
	Label:	"Access Data"
	Click:	"geohaz.menu1.start"
	Shortcut:	"Keys.None"
)

(Numb.613
)

(List.614
	Child:	615
	Child:	619
	Child:	620
)

(List.615
	Child:	616
	Child:	617
	Child:	618
)

(AVStr.616
	S:	"Project"
)

(AVStr.617
	S:	"Geohazard"
)

(AVStr.618
	S:	"geohaz.menu1.start"
)

(Choice.619
	Label:	"Access Data"
	Click:	"geohaz.menu1.start"
	Shortcut:	"Keys.None"
)

(Numb.620
)

(List.621
)

(Script.622
	Name:	"geohaz.makesqlconnection"
	SourceCode:	"' Name:  geohaz.makesqlconnection\n' Title:  Establish a SQL connection to a database\n' Requires: \n' Self:  \n' Returns:  SQLConnection\n\n\n'*************************************** prompt user to continue\ntheWarningDLG = av.FindDialog(\"geohaz.dlgwarning\")\n\n'exit if no is checked\nif ((theWarningDLG.FindByName(\"geohaz.dlgwarning.rdbYes\").IsSelected.Not) and (theWarningDLG.FindByName(\"geohaz.dlgwarning.rdbNo\").IsSelected.Not))then\n\n  'Open the dialog to prompt the user to continue or not\n  theWarningDLG = av.FindD
ialog(\"geohaz.dlgwarning\")\n  \n  theWarningDLG.open\n\n  if (theWarningDLG.FindByName(\"geohaz.dlgwarning.rdbYes\").IsSelected.Not) then\n    msgbox.info(\"Unloading 'MMS: Geohazards' Extension\",\"\") \n    Extension.Find (\"MMS: Geohazards\").unload\n    return nil\n  end\nend\n\n\n\n'Get the value of the geoHazDSN from the environment variable\ntheDatasource = System.GetEnvVar(\"GEOHAZARD_DSN\")\n\nif (theDatasource = nil) then\n  theDatasource = \"Geohazard Access Database\"\nend\n\n' Setthe DSN\ntheSQL_Connection = SQLCon.Find(theDat
asource)\n\n' If the DSN is nill, query the user for a name\nif (theSQL_Connection = nil) then\n  ConList = SQLCon.GetConnections\n  theSQL_Connection = MsgBox.ChoiceAsString( ConList, \"Select an ODBC connection.\",\"MMS: MakeSQLConnection\" )\nend\n\n\nif (theSQL_Connection = nil) then\n  return nil\nend\n\n' Connect to the datasource\ntheSQL_Connection.Login(\"\")\nif (theSQL_Connection.IsLogin = False) then\n  MsgBox.Info(\"Can't open a SQL Connection to: <\"+theSQL_Connection.AsString+\">\",\"Error\")\n  MsgBox.Info(\"Try making te
mporary copy of geohazards.mdb if file in use.\",\"Error\")\n  return nil\nend\n\n'Store the environment variable setting\nSystem.SetEnvVar(\"GEOHAZARD_DSN\",theSQL_Connection.GetName)\n\n' Return the SQL connection\nreturn theSQL_Connection\n\n"
)

(Script.623
	Name:	"geohaz.menu1.pick"
	SourceCode:	"'geohaz.menu1.pic\n\ntheView = av.GetActiveDoc\n\ntheActivethemes = theView.Getactivethemes\n\n'Ensure Survey Areas is selected\n'theArea = theActivethemes.Get(0)\nfor each ttt in theActivethemes\n  ttt.SetActive(FALSE)\nend\n\nfor each tttt in theView.Getthemes\n  if (tttt.GetName = \"Survey Areas\")then\n    theArea = tttt\n  end\nend\n\ntheArea.SetActive(TRUE)\nav.run(\"view.selectpoint\",\"\")\n\ntheftab = theArea.Getftab\nthefieldNum = theftab.findfield(\"area_id\")\nthefieldStr = theftab.findfield(\"areas\")\n\nif (thefieldNum = nil) t
hen\n  msgbox.error(\"Select the Survey Area Theme\",\"\")\n  return nil\nend\nif (thefieldStr = nil) then\n  msgbox.error(\"Select the Survey Area Theme\",\"\")\n  return nil\nend\n\n\ntheStrValueList = {\"All Data\"}\ntheNumValueList = {9999}\n\n'run throught the area and grab the name and area_ID of areas selected\nfor each r in theftab.GetSelection\n  theNumValue = theftab.ReturnValue(thefieldNum,r)\n  theNumValueList.add(theNumValue)\n  theStrValue = theftab.ReturnValue(thefieldStr,r)\n  theStrValueList.add(theStrValue.asString)\n
end\n\n\n'get user input for choice of area\ntheChoice = MsgBox.MultilistAsString(theStrValueList, \"Select Site Surveys and Pipeline Surveys\", \"Select\")\n\n'stop if nothing chosen\nif (theChoice = nil)then\n  return nil\nend\n\ntheAreaIDList = {}\n\n'locate the position in the lists\nfor each c in theChoice\n  thePosition = theStrValueList.find(c)\n  theAreaIDList.add(theNumValueList.Get(thePosition))\nend\n\nav.run(\"geohaz.menu1.sel\", theAreaIDList)\n\n"
)

(Script.624
	Name:	"geohaz.menu1.sel"
	SourceCode:	"'geohaz.menu1.sel\n'self = list of area_ID's\n\ntheAreaID_list= self\n\n'Set the working directory\n'deal with pathing if not in present dir 1st try directory of .apr 2nd try mms directory 3rd try for user input\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  av.getProject.getFilename.returnDir.SetCWD\nend\n\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  'Set the working directory\n  theWorkDirectory = \"L:\\geohazards\\geohazards_database\\mms_data\".asfilename\n  theWorkDirectory.SetCWD\nend\n\nif (File.Exists(\"area
s.shp\".asFilename).not)then\n  FileWin.SHOW(\"areas.shp\",\"\",\"Navigate to the areas.shp shapefile of the Geohazards Dataset\")\nend\n\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  msgbox.info(\"Wrong path entered, try again\",\"\")\n  return nil\nend\n\n'retrive the area_lut\ntheSQLStatement = \"SELECT * FROM \" + \"areas_lut\"\n' Establish the connection\ntheSQL_Connection = av.run( \"geohaz.makesqlconnection\", {} )\nif (theSQL_Connection = nil) then\n  return nil\nend\n\n' Create a vTab from the SQL table\ntheVtab = VTab.MakeSQ
L(theSQL_Connection, theSQLStatement)\n\n'theVtab = VTab.Make (\"areas_lut.dbf\".asFilename, FALSE, FALSE)\ntheBitmap = theVTab.GetSelection\ntheField = theVtab.FindField(\"Env_Src_PK\")\n\n\n'Create the Query String\ntheQString = \"\"\ntheSRC_FK_LIST = {}\nif (theAreaID_list.findbyValue(9999) = -1)then\n  for each a in theAreaID_list\n    theQString = theQString + \"( [Area_id] = \"+a.asString+\") or\"\n  end\n  theQString = theQString.Left(theQString.Count - 3)\n\n  ' query and apply selection\n  if(theVtab.Query(theQString, theBit
map, #VTAB_SELTYPE_NEW).not)then\n    msgbox.error(\"Area Query Error\",\"\")\n    RETURN NIL\n  end\n  \n  theVtab.UpdateSelection\n\n  'Set up the SRC_FK LIST \n  for each r in theVtab.GetSelection\n    theValue = theVtab.ReturnValue(thefield,r)\n    if (theValue = nil)then\n      msgbox.error(\"Src_FK Problem\",\"\")\n      RETURN NIL\n    end\n    theSRC_FK_LIST.add(theValue)\n  end\nend\n\n'Clear out the dialogs in case they were improperly closed\nav.run(\"geohaz.themes.clear\",\"\")\n\n'Set obeject tag to the opening data dialog and
 open it\nthedataDialog = av.FindDialog(\"geohaz.themes.ice\")\nthedataDialog.SetObjectTag({theSRC_FK_LIST,\"\"})\nthedataDialog.Open\n"
)

(Script.625
	Name:	"geohaz.menu1.start"
	SourceCode:	"'geoh.menu1.start\n\n'deal with pathing if not in present dir try 2 other places, then ask for user input\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  'Set the working directory\n  theWorkDirectory = \"C:\\mms_data\".asfilename\n  theWorkDirectory.SetCWD\nend\n\n\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  'Set the working directory\n  theWorkDirectory = \"L:\\geohazards\\geohazards_database\\mms_data\".asfilename\n  theWorkDirectory.SetCWD\nend\n\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  FileWin.SHOW(\"a
reas.shp\",\"\",\"Navigate to the areas.shp shapefile of the Geohazards Dataset\")\nend\n\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  msgbox.info(\"Wrong path entered, try again\",\"\")\n  return nil\nend\n\naTool1 = av.GetProject.FindGUI(\"View\").GetToolBar.FindByScript(\"geohaz.menu1.pick\")\naTool1.SetName(\"Tool1\")\n\naTool1.Select\n\nav.Run(\"geohaz.themes.clear\",\"\")\n\n'theView = av.getactiveDoc\ntheView = view.make\ntheView.SetName(\"Survey Areas\")\n\n'set view projection\n\n'Retrieve the current view extent\ntheOldViewExtent =
 theView.GetDisplay.ReturnExtent\nif (theView.GetProjection.IsNull = False) then\n  theOldViewExtent = theOldViewExtent.ReturnUnprojected(theView.GetProjection)\nend\n\n'Define the default projection\n' set the parameters of the Albers Equal-Area Conic projection\np = Albers.Make(theView.ReturnExtent)\np.SetCentralMeridian(-154)\np.SetReferenceLatitude(50)\np.SetLowerStandardParallel(55)\np.SetUpperStandardParallel(65)\np.SetFalseEasting(0)\np.SetFalseNorthing(0)\n' set Map Units to Meters and Distance Units to meters\nth
eView.SetUnits(#UNITS_LINEAR_METERS)\ntheView.GetDisplay.SetDistanceUnits(#UNITS_LINEAR_METERS)\n' apply the projection to the view\n\ntheView.SetProjection(p)\n\n'Apply the projection to the view\ntheView.SetProjection(p)\n\n'Set the display extent\ntheNewViewExtent = theOldViewExtent.ReturnProjected(p).ReturnExtent\ntheView.GetDisplay.SetExtent(theNewViewExtent)\n\ntheview.GetWin.open\ntheview.GetWin.Maximize \n\n\n'load basemap layer\ntheBaththeme = theme.Make(SrcName.Make(\"regional_bathy.shp\"))\ntheLegendfile = \"bath.avl\"
\nnewLegend = theBaththeme.ReturnDefaultLegend\n if (File.Exists(theLegendFile.AsFileName) and theLegendFile.AsFileName.IsFile) then\n   loaded = newLegend.Load(theLegendFile.AsFileName, #LEGEND_LOADTYPE_ALL)\n   if (loaded = False) then\n     MsgBox.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"MMS: Geohazards\")\n   end\n end\ntheBaththeme.SetLegend(newLegend)\ntheView.addtheme(theBaththeme)\ntheBaththeme.SetVisible(TRUE)\ntheBaththeme.SetName(\"Bathymetry\")\n\ntheCoastlineD = theme.Make(SrcName.Make(\"ak_coast_
Detailed.shp\"))\ntheLegendfile = \"coastline_poly.avl\"\nnewLegend = theCoastlineD.ReturnDefaultLegend\n if (File.Exists(theLegendFile.AsFileName) and theLegendFile.AsFileName.IsFile) then\n   loaded = newLegend.Load(theLegendFile.AsFileName, #LEGEND_LOADTYPE_ALL)\n   if (loaded = False) then\n     MsgBox.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"MMS: Geohazards\")\n   end\n end\ntheCoastlineD.SetLegend(newLegend)\ntheView.addtheme(theCoastlineD)\ntheCoastlineD.SetVisible(TRUE)\ntheCoastlineD.SetName(\"Detaile
d Coastline\")\n\n\ntheCoastline = theme.Make(SrcName.Make(\"ak_coast_generalized.shp\"))\ntheLegendfile = \"coastline_poly.avl\"\nnewLegend = theCoastline.ReturnDefaultLegend\n if (File.Exists(theLegendFile.AsFileName) and theLegendFile.AsFileName.IsFile) then\n   loaded = newLegend.Load(theLegendFile.AsFileName, #LEGEND_LOADTYPE_ALL)\n   if (loaded = False) then\n     MsgBox.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"MMS: Geohazards\")\n   end\n end\ntheCoastline.SetLegend(newLegend)\ntheView.addtheme(theCoastli
ne)\ntheCoastline.SetVisible(FALSE)\ntheCoastline.SetName(\"Generalized Coastline\")\n\ntheCoastlineD = theme.Make(SrcName.Make(\"ak_coast_Detailed.shp\"))\n'theLegendfile = \"coastline_poly.avl\"\nnewLegendD = theCoastlineD.ReturnDefaultLegend\n if (File.Exists(theLegendFile.AsFileName) and theLegendFile.AsFileName.IsFile) then\n   loaded = newLegend.Load(theLegendFile.AsFileName, #LEGEND_LOADTYPE_ALL)\n   if (loaded = False) then\n     MsgBox.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"MMS: Geohazards\")\n   end
\n end\ntheCoastlineD.SetLegend(newLegend)\ntheView.addtheme(theCoastlineD)\ntheCoastlineD.SetVisible(TRUE)\ntheCoastlineD.SetName(\"Detailed Coastline\")\n\n\n\ntheRivers = theme.Make(SrcName.Make(\"rivers.shp\"))\ntheRLegendfile = \"Rivers.avl\"\nnewRLegend = theRivers.ReturnDefaultLegend\n if (File.Exists(theRLegendFile.AsFileName) and theRLegendFile.AsFileName.IsFile) then\n   loaded = newRLegend.Load(theRLegendFile.AsFileName, #LEGEND_LOADTYPE_ALL)\n   if (loaded = False) then\n     MsgBox.Error(\"Legend File:\"++theLegendFi
le++\"doesn't exist.\",\"Add Themes\")\n   end\n end\ntheRivers.SetLegend(newRLegend)\ntheView.addtheme(theRivers)\ntheRivers.SetVisible(TRUE)\ntheRivers.SetName(\"Streams\")\n\n\ntheAreas = theme.Make(SrcName.Make(\"areas.shp\"))\ntheAreas.SetName(\"Survey Areas\")\ntheLegendfile = \"areas.avl\"\nnewLegend = theAreas.ReturnDefaultLegend\n if (File.Exists(theLegendFile.AsFileName) and theLegendFile.AsFileName.IsFile) then\n   loaded = newLegend.Load(theLegendFile.AsFileName, #LEGEND_LOADTYPE_ALL)\n   if (loaded = False) then\n     Msg
Box.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"MMS: Geohazards\")\n   end\n end\ntheAreas.SetLegend(newLegend)\ntheView.addtheme(theAreas)\ntheAreas.SetActive(TRUE)\ntheAreas.SetVisible(TRUE)\n\nthePopulated_Places = theme.Make(SrcName.Make(\"Populated_Places.shp\"))\nthePopulated_Places.SetName(\"Populated Places\")\ntheLegendfile = \"Populated_Places.avl\"\nnewLegend = thePopulated_Places.ReturnDefaultLegend\n if (File.Exists(theLegendFile.AsFileName) and theLegendFile.AsFileName.IsFile) then\n   loaded = newLege
nd.Load(theLegendFile.AsFileName, #LEGEND_LOADTYPE_ALL)\n   if (loaded = False) then\n     MsgBox.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"MMS: Geohazards\")\n   end\n end\nthePopulated_Places.SetLegend(newLegend)\nthePopulated_Places.SetVisible(TRUE)\ntheView.addtheme(thePopulated_Places)\ntheAreas.SetActive(TRUE)\ntheAreas.SetVisible(TRUE)\n\ntheLandAnno = theme.Make(SrcName.Make(\"Geohaz_anno anno.land\"))\ntheLandLegendfile = \"Land.avl\"\nnewLandLegend = theLandAnno.ReturnDefaultLegend\n if (File.Exists(the
LandLegendFile.AsFileName) and theLandLegendfile.AsFileName.IsFile) then\n   loaded = newLandLegend.Load(theLandLegendfile.AsFileName, #LEGEND_LOADTYPE_ALL)\n   if (loaded = False) then\n     MsgBox.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"Add Themes\")\n   end\n end\ntheLandAnno.SetLegend(newLandLegend)\ntheView.addtheme(theLandAnno)\ntheLandAnno.SetVisible(TRUE)\ntheLandAnno.SetLegendVisible(FALSE)\ntheLandAnno.SetName(\"Land Placenames\")\n\ntheWaterAnno = theme.Make(SrcName.Make(\"Geohaz_anno anno.Water\")
)\ntheWaterLegendfile = \"Water.avl\"\nnewWaterLegend = theWaterAnno.ReturnDefaultLegend\n if (File.Exists(theWaterLegendFile.AsFileName) and theWaterLegendfile.AsFileName.IsFile) then\n   loaded = newWaterLegend.Load(theWaterLegendfile.AsFileName, #LEGEND_LOADTYPE_ALL)\n   if (loaded = False) then\n     MsgBox.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"Add Themes\")\n   end\n end\ntheWaterAnno.SetLegend(newWaterLegend)\ntheView.addtheme(theWaterAnno)\ntheWaterAnno.SetVisible(TRUE)\ntheWaterAnno.SetLegendVisib
le(FALSE)\ntheWaterAnno.SetName(\"Water Placenames\")\n\ntheCallouts = theme.Make(SrcName.Make(\"Geohaz_anno poly\"))\ntheCallouts.SetName(\"Survey Labels\")\ntheLegendfile = \"callouts.avl\"\nnewLegend = theCallouts.ReturnDefaultLegend\n if (File.Exists(theLegendFile.AsFileName) and theLegendFile.AsFileName.IsFile) then\n   loaded = newLegend.Load(theLegendFile.AsFileName, #LEGEND_LOADTYPE_ALL)\n   if (loaded = False) then\n     MsgBox.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"MMS: Geohazards\")\n   end\n end\ntheC
allouts.SetLegend(newLegend)\ntheView.addtheme(theCallouts)\ntheCallouts.SetActive(FALSE)\ntheCallouts.SetVisible(TRUE)\ntheCallouts.SetLegendVisible(FALSE)\n\n\ntheSurveyNamesAnno = theme.Make(SrcName.Make(\"Geohaz_anno anno.survey\"))\ntheSurveyNamesfile = \"SurveyNames.avl\"\nnewSurveyNamesLegend = theSurveyNamesAnno.ReturnDefaultLegend\n if (File.Exists(theSurveyNamesFile.AsFileName) and theSurveyNamesfile.AsFileName.IsFile) then\n   loaded = newSurveyNamesLegend.Load(theSurveyNamesfile.AsFileName, #LEGEND_LOADTYPE_AL
L)\n   if (loaded = False) then\n     MsgBox.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"Add Themes\")\n   end\n end\ntheSurveyNamesAnno.SetLegend(newSurveyNamesLegend)\ntheView.addtheme(theSurveyNamesAnno)\ntheSurveyNamesAnno.SetVisible(TRUE)\ntheSurveyNamesAnno.SetLegendVisible(FALSE)\ntheSurveyNamesAnno.SetName(\"Survey Names\")\n\n\nav.run(\"view.zoomtothemes\",\"\")\n\n\n"
)

(Script.626
	Name:	"geohaz.DlgHotlink.close"
	SourceCode:	"' geohaz.DlgHotlink.close\n\ntheDialog = Self\n\n'Clear the list box\ntheListBox1 = theDialog.FindByName(\"DlgHotlink.lstScansNames\")\ntheListBox1.DefineFromList({})\ntheListBox1.Setobjecttag(nil)\n\ntheTextBox2 = theDialog.FindByName(\"DlgHotlink.lstScansComments\")\ntheTextBox2.SetText(\"\")\ntheTextBox3 = theDialog.FindByName(\"DlgHotlink.lstScansType\")\ntheTextBox3.SetText(\"\")\n\nreturn nil"
)

(Script.627
	Name:	"geohaz.DlgHotlink.lstSelect"
	SourceCode:	"'MMS.DlgHotlink.lstSelect\n'view's a photo based on selection of listbox\n'self = MMS.DlgHotlink.lstSelect.lstPhotoNames\n\ntheDialog = Self.Getdialog\ntheCommentsTextbox = theDialog.FindByName(\"DlgHotlink.lstScansComments\")\ntheTypeTextbox = theDialog.FindByName(\"DlgHotlink.lstScansType\")\n\n\n'Get the selection\ntheScanName = self.GetCurrentValue\n\n'retrive the area_lut\ntheSQLStatement = \"SELECT * FROM \" + \"interp_seismic_images, seismic_line_types\" + \" WHERE  interp_seismic_images.seismic_line_type = seismic_line_t
ypes.seismic_line_type and\" + \" Name_of_seismic_Profile\" + \" = '\" + theScanName+ \"'\" \n' Establish the connection\ntheSQL_Connection = av.run( \"geohaz.makesqlconnection\", {} )\nif (theSQL_Connection = nil) then\n  return nil\nend\n\n\n' Create a vTab from the SQL table\ntheQVtab = VTab.MakeSQL(theSQL_Connection, theSQLStatement)\n\ntheCommentValue = theQVtab.ReturnValue(theQVtab.FindField(\"comments\"), 0)\ntheTypeValue = theQVtab.ReturnValue(theQVtab.FindField(\"seismic_line_type_desc\"), 0)\n\n\ntheCommentsTextBox.SetText(t
heCommentValue)\ntheTypeTextBox.SetText(theTypeValue)"
)

(Script.628
	Name:	"geohaz.DlgHotlink.lstApply"
	SourceCode:	"'MMS.DlgHotlink.lstApply\n'view's a photo based on selection of listbox\n'self = MMS.DlgHotlink.lstSelect.lstPhotoNames\n\n'Get the selection\ntheScanName = self.GetCurrentValue\ntheScanFile = self.GetObjectTag.get(self.GetCurrentRow)\n\ntheSrcName = SrcName.Make(theScanFile)\n\nif(theSrcName = nil)then\n  msgBox.info(\"Scan Not Found\",\"\")\n  return nil\nend\n\ntheNewTheme = theme.make(theSrcName)\ntheNewView = view.Make\ntheNewView.Addtheme(theNewTheme)\ntheNewtheme.SetVisible(TRUE)\ntheNewView.GetWin.Open\ntheNewView.SetName(
theScanName)"
)

(Script.629
	Name:	"geohaz.DlgHotlink.open"
	SourceCode:	"'geohaz.DlgHotlink.open\n\n' This script retrieves the scan filename and path from the associated access database \n' based on the foreign keys in dialogs object tag\n\ntheDialog = self\n\ntheFKList = self.GetObjectTag\ntheFKString = \"\"\n\nfor each FK in theFKList\n  theFkString = theFKString + FK.asString + \",\"\nend\n\ntheFkString = theFkString.Left(theFkString.Count - 1)\n\n'retrive the area_lut\ntheSQLStatement = \"SELECT * FROM \" + \"interp_seismic_images\" + \" WHERE \" + \" int_seis_image_FK\" + \" in (\" + theFKString + \")\" \n
' Establish the connection\ntheSQL_Connection = av.run( \"geohaz.makesqlconnection\", {} )\nif (theSQL_Connection = nil) then\n  return nil\nend\n\n\n' Create a vTab from the SQL table\ntheQVtab = VTab.MakeSQL(theSQL_Connection, theSQLStatement)\n\nif (theQVtab = nil) then\n MsgBox.Error(\"Failed: Unable to create theme list!\",\"\")\n return nil\nelseif (theQVtab.HasError) then\n  MsgBox.Report(theSQLStatement,\"Error: Database Couldn't Retrieve Data\")\n  return nil  \nend\n\n'Bring up error messagebox and quit if no photo value\ni
f(theQVtab.GetNumRecords = 0) then\n  msgbox.info(\"No Scan with Record\",\"\")\n  return nil\nend\n\n'create a list of the photo paths\ntheScanNameList = list.make\ntheScanFileList = list.make\n\n'Add the name and filename to lists\nfor each rr in theQVTAB\n  'Create a new theme from the image filename and a new view named the filename\n  theScanName = theQVtab.ReturnValue(theQVtab.FindField(\"Name_of_seismic_Profile\"), rr)\n  theScanFile = theQVtab.ReturnValue(theQVtab.FindField(\"filename_path\"), rr)\n  theScanNameList.add(
theScanName)\n  theScanFileList.add(theScanFile)\nend\n\n'Open the dialog and define the listbox with theScanNameList and set the control object tag to thescanfilelist\ntheListbox = theDialog.FindByName(\"DlgHotlink.lstScansNames\")\ntheListBox.DefineFromList(theScanNameList)\ntheListBox.SetObjectTag(theScanFileList)\n'theDialog.Open\n'theDialog.Activate\n  \nreturn nil\n"
)

(Script.630
	Name:	"geohaz.onemany.close"
	SourceCode:	"'geohaz.themes.close\n'remove all tags and references from the dialog and it's controls\nself.SetObjectTag(nil)\n\n'get the checkbox controls for each dialog\ntheControlList = self.FindByClass(Listbox)\n\nfor each c in theControlList\n  c.SetObjectTag(nil)\n  c.GoRowColumn(0,0)\n  c.DeleteRows(c.GetRowCount)\n  c.DeleteColumns(c.GetColumnCount)\n  if (c.HasScript (\"geohaz.onemany.select\"))then\n    c.RemoveRangeSelect(\"geohaz.onemany.select\")\n  end  \n  c.Empty \nend\n\n\n\n"
)

(Script.631
	Name:	"geohaz.onemany.open"
	SourceCode:	"'geohaz.onemany.open"
)

(Script.632
	Name:	"geohaz.onemany.run"
	SourceCode:	"'geohaz.onemany.run\n\ntheDialog = av.FindDialog(\"geohaz.onemany\")\ntheFeatureListBox = theDialog.FindbyName(\"geohaz.onemany.features.lst\")\n\nif (theDialog.isOpen)then\n  theDialog.Close\nend\n\n\n'geohaz.onemany.run\ntheView = av.Getactivedoc\ntheIDControl = theDialog.FindbyName(\"MMS.geohazard.identify.lst\")\n\nav.run(\"view.selectpoint\",{})\n\ntheTheme = theView.GetActiveThemes.Get(0)\n\n'get the table of the evenetheme and it's selection\ntheFtab = thetheme.GetFtab\n\n'do not continue if the selection = 0\nif (theFtab.GetNumS
elRecords = 0)then\n  return nil\nend\n\ntheBitmap = theFtab.GetSelection\ntheFields = theFtab.GetFields\n\ntheVisibleFields = {}\nfor each f in theFields\n  if(f.isVisible)then\n    theVisibleFields.add(f)\n  end\nend\n\ntheVisibleFields.Remove(theVisibleFields.Count -1)\n\ntheFeatureListBox.DefineFromVTab(theFtab, theVisibleFields, true)\n'Set the first record in listbox as selected\ntheRange = Rect.Make( 0@0, 40@1)\ntheFeatureListBox.SetSelection (theRange, FALSE)\ntheFeatureListBox.FitColumns(0..(theFields.Count-1),False)\n
\n\ntheFeatureListBox.Select\n\n\ntheDialog.open\n"
)

(Script.633
	Name:	"geohaz.onemany.select"
	SourceCode:	"'geohaz.onemany.select\n'Populates the related records in the listbox\n'self = geohaz.onemany.features.lst\ntheView = av.GetActiveDoc\ntheTheme = theView.GetActiveThemes.Get(0)\ntheDialog = av.FindDialog(\"geohaz.onemany\")\ntheRelateListBox = theDialog.FindbyName(\"geohaz.onemany.relaterecords.lst\")\n\n'move to the sde_shp value selected in the list and retriev the value\nself.GoFirstSelected \nself.GoRight\ntheSDE_SHPValue = self.GetCurrentValue\n\n'Define the SQL Statement\ntheRelateTable = theTheme.GetObjectTag.Get(0).a
sString\ntheRelateField = theTheme.GetObjectTag.Get(1).asString\n\ntheSQLStatement = \"SELECT * FROM \" +theRelateTable++\"WHERE \"+theRelateField+\" = \"+theSDE_SHPValue\n\n' Establish the connection\ntheSQL_Connection = av.run( \"geohaz.makesqlconnection\", {} )\nif (theSQL_Connection = nil) then\n  return nil\nend\n  \n' Create a vTab from the SQL table\ntheQVtab = VTab.MakeSQL(theSQL_Connection, theSQLStatement)\n       \nif (theQVtab = nil) then\n MsgBox.Error(\"Failed: Unable to create theme list!\",\"\")\n return nil\nelseif (th
eQVtab.HasError) then\n  MsgBox.Report(theSQLStatement,\"Error: Database Couldn't Retrieve Data\")\n  return nil  \nend\n\n'Get the list of fields from the qvtab\ntheFields = theQVtab.GetFields\n\ntheRelateListBox.DefineFromVTab(theQVtab, theFields, FAlSE)\ntheRelateListBox.FitColumns(0..(theFields.Count-1),False)\n\n\n\n"
)

(Script.634
	Name:	"geohaz.onemany.sort"
	SourceCode:	"'geohaz.onemany.sort\n'Script Sorts the Listbox\n\nthecontrol = Self\n\ntheManyList = Self.GetDialog.FindByName(\"geohaz.onemany.relaterecords.lst\")\n\nif (theControl.AsString = \"geohaz.onemany.sortAsc.lbt\") then\n  theManyList.SortAscending (False)\nElse\n  theManyList.SortDescending (False)\nend"
)

(Script.635
	Name:	"geohaz.themes.arc.open"
	SourceCode:	"'geohaz.themes.arc.open\n\ntheSRC_FK_LIST = self.GetObjectTag.Get(0)\n\n'Control list\nthe8Chb = self.findbyName(\"geohaz.themes.ARC.bur.chb\")\ntheControlList = {the8Chb}\n\n'SOURCE NAME LIST\nthe8SRC = SrcName.Make(\"BURIED_CHANNEL.shp\")\ntheSrcList = {{the8SRC,nil}}\n\n'Anno Control List\nthe4ANNOChb = self.findbyName(\"geohaz.themes.ARC.annobur.chb\")\ntheANNOControlList = {the4ANNOChb}\n\n'ANNO SOURCE NAME LIST\nthe4ANNOSRC  = SrcName.Make(\"BURIED_CHANNEL_ANNO.shp\")\ntheANNOSrcList = {{the4ANNOSRC,nil}}\n\n\nfor each i in 0..0\n
  'Disable/Able controls based on selection\n  'Reset the controls to nil\n  theControlList.Get(i).SetObjectTag({nil,nil})\n  theControlList.Get(i).SetSelected(FALSE)\n\n  theFtab = Ftab.Make(theSrcList.get(i).get(0))\n  theBitmap = theFtab.GetSelection\n  'Create the Query String\n  theQString = \"\"\n  \n  'do the query only when not shotpoints because it takes too long OR if no sources to use for query do not run query\n\n  if (theSrc_Fk_List.count <> 0)then\n    for each a in theSRC_FK_LIST\n      theQString = theQStri
ng + \"( [Src_fk] = \"+a.asString+\") or\"\n    end ' for each a in theSRC_FK_LIST\n\n    theQString = theQString.Left(theQString.Count - 3)\n \n    ' query and apply selection\n    theFtab.Query(theQString, theBitmap, #VTAB_SELTYPE_NEW)\n    theFtab.UpdateSelection\n\n    if (theBitmap.count > 0)then\n      theControlList.Get(i).SetEnabled(TRUE)\n    else\n      theControlList.Get(i).SetEnabled(FALSE)\n    end '(theBitmap.count > 0)then\n  ELSE\n    theControlList.Get(i).SetEnabled(TRUE)\n  end '((i <> 0) OR (theSrc_Fk_List.c
ount <> 0))then\n\n  'pass the srcname and the qsting through the control\n  theControlList.Get(i).SetObjectTag({theSrcList.get(i), theQString})\n\nend  'for each i in 0..0\n\n\n'LOOP THROUGH THE CONTOLS AND CORRESPONDING SRCNAMES OF ANNO\nfor each i in 0..0\n  'Reset the controls to nil\n  theANNOControlList.Get(i).SetObjectTag({nil,nil})\n  theANNOControlList.Get(i).SetSelected(FALSE)\n  'pass the srcname and the qsting through the control\n  theANNOControlList.Get(i).SetObjectTag({theANNOSrcList.get(i), \"ANNO\"})\nend\n"
)

(Script.636
	Name:	"geohaz.themes.bor.open"
	SourceCode:	"'geohaz.themes.bor.open\n\ntheSRC_FK_LIST = self.GetObjectTag.Get(0)\n\nthe1Chb = self.findbyName(\"geohaz.themes.bor.Boring.chb\")\nthe2Chb = self.findbyName(\"geohaz.themes.bor.lithology.chb\")\nthe3Chb = self.findbyName(\"geohaz.themes.bor.cryology.chb\")\nthe4Chb = self.findbyName(\"geohaz.themes.bor.ground.chb\")\nthe5Chb = self.findbyName(\"geohaz.themes.bor.Pen.chb\")\nthe6Chb = self.findbyName(\"geohaz.themes.bor.core.chb\")\n\ntheControlList = {the1Chb,the2Chb,the3Chb,the4Chb,the5Chb,the6Chb}\n\nthe1SRC  = SrcName.Make(\"bo
ring_locations.shp\")\nthe1aRel = {\"coring_method_codes\",\"coring_me\", \"coring_met\"}\nthe1bRel = {\"navigation_codes\",\"nav_code\", \"nav_id\"}\nthe1cRel = {\"vert_datum_codes\",\"vert_datum_code\", \"vert_datum\"}\nthe1RelList = {the1aRel,the1bRel,the1cRel}\nthe1 = {the1SRC,the1RelList}\n\n\nthe2SRC = SrcName.Make(\"boring_locations.shp\")\nthe2aRel = {\"Lithology\",\"sde_shp_fk\", \"sde_shp\"}\n\nthe2RelList = {the2aRel}\nthe2 = {the2SRC,the2RelList}\n\nthe3SRC = SrcName.Make(\"boring_locations.shp\")\n'the3aRel = {\"Core_Cryology\",\"sde_shp_fk
\", \"sde_shp\"}\nthe3aRel = {\"Cryology\",\"sde_shp_fk\", \"sde_shp\"}\n\nthe3RelList = {the3aRel}\nthe3 = {the3SRC,the3RelList}\n\nthe4SRC = SrcName.Make(\"boring_locations.shp\")\nthe4aRel = {\"Ground_temp\",\"sde_shp_fk\", \"sde_shp\"}\nthe4RelList = {the4aRel}\nthe4 = {the4SRC,the4RelList}\n\nthe5SRC = SrcName.Make(\"boring_locations.shp\")\nthe5aRel = {\"Penetration_bcounts\",\"sde_shp_fk\", \"sde_shp\"}\nthe5RelList = {the5aRel}\nthe5 = {the5SRC,the5RelList}\n\nthe6SRC = SrcName.Make(\"boring_locations.shp\")\nthe6aRel = {\"Core_sample\",\"sde_sh
p_fk\", \"sde_shp\"}\nthe6RelList = {the6aRel}\nthe6 = {the6SRC,the6RelList}\n\ntheSrcList = {the1, the2, the3, the4, the5, the6}\n\nfor each i in 1..5  \n  'Disable/Able controls based on selection\n  'Reset the controls to nil\n  theControlList.Get(i).SetObjectTag({nil,nil})\n  theControlList.Get(i).SetSelected(FALSE)\n  theQString = \"\"\n\n  if (theSrc_Fk_List.count <> 0)then 'if all areas are specified query\n    theFtab = Ftab.Make(theSrcList.get(i).get(0))\n    theBitmap = theFtab.GetSelection\n    'Create the Query Stri
ng\n    'if (i <> 0)then 'Don't query against relate tables for boring locations without a relate\n      theRelateTable = theSrcList.Get(i).Get(1).Get(0).Get(0).asString\n      theSQLStatement = \"SELECT * FROM \" +theRelateTable\n      ' Establish the connection\n      theSQL_Connection = av.run( \"geohaz.makesqlconnection\", {} )\n      if (theSQL_Connection = nil) then\n        return nil\n      end\n    \n      ' Create a vTab from the SQL table\n      theQVtab = VTab.MakeSQL(theSQL_Connection, theSQLStatement)\n      
theRemainingField = theQVtab.GetFields.Get(0)\n  \n      if (theQVtab = nil) then\n        MsgBox.Error(\"Failed: Unable to create theme list!\",\"\")\n        return nil\n      elseif (theQVtab.HasError) then\n        MsgBox.Report(theSQLStatement,\"Error: Database Couldn't Retrieve Data\")\n        return nil  \n      end\n      \n      'Join the RELATE TABLE WITH THE THEME'S FTAB\n      theTOField = theFtab.FindField(theSrcList.Get(i).Get(1).Get(0).Get(2))\n      theFROMField = theQVtab.FindField(theSrcList.Get(i).Get(1).
Get(0).Get(1))\n      theFTAB.Join(theToField, theQVtab, theFromField)  \n    'end '  if (i <> 0)then\n\n    for each a in theSRC_FK_LIST\n     theQString = theQString + \"( [Src_fk] = \"+a.asString+\") or\"\n    end ' for each a in theSRC_FK_LIST\n    theQString = theQString.Left(theQString.Count - 3)\n    \n    ' query and apply selection, don't use the query for joined tables if there is no table joined\n      theQString2 = \"(\"+theQString+\") and \"+\"([\"+theRemainingField.asString +\"] > 0)\" \n      \n    theFtab.Query(the
QString2, theBitmap, #VTAB_SELTYPE_NEW)\n    theFtab.UpdateSelection\n\n    if (theBitmap.count > 0)then\n      theControlList.Get(i).SetEnabled(TRUE)\n    else\n      theControlList.Get(i).SetEnabled(FALSE)\n    end '(theBitmap.count > 0)then\n    theBitmap.Clear(theBitmap.Count)\n    theFTab.UnjoinAll \n    theFtab = nil\n  ELSE '   if (theSrc_Fk_List.count <> 0)then\n      theControlList.Get(i).SetEnabled(TRUE)\n  end '   if (theSrc_Fk_List.count <> 0)then\n\n  'Pass the srcname and the query string to the dialogs cont
rol\n  theControlList.Get(i).SetObjectTag({theSrcList.get(i), theQString})\n\nend  'for each i in 0..5\n\n'Run the normal routine of the this theme with no relates\nfor each i in 0..0\n  'Disable/Able controls based on selection\n  'Reset the controls to nil\n  theControlList.Get(i).SetObjectTag({nil,nil})\n  theControlList.Get(i).SetSelected(FALSE)\n\n  theFtab = Ftab.Make(theSrcList.get(i).get(0))\n  theBitmap = theFtab.GetSelection\n  'Create the Query String\n  theQString = \"\"\n  \n  'do the query only when not shotpoin
ts because it takes too long OR if no sources to use for query do not run query\n\n  if (theSrc_Fk_List.count <> 0)then\n    for each a in theSRC_FK_LIST\n      theQString = theQString + \"( [Src_fk] = \"+a.asString+\") or\"\n    end ' for each a in theSRC_FK_LIST\n\n    theQString = theQString.Left(theQString.Count - 3)\n \n    ' query and apply selection\n    theFtab.Query(theQString, theBitmap, #VTAB_SELTYPE_NEW)\n    theFtab.UpdateSelection\n\n    if (theBitmap.count > 0)then\n      theControlList.Get(i).SetEnabled(TRUE)
\n    else\n      theControlList.Get(i).SetEnabled(FALSE)\n    end '(theBitmap.count > 0)then\n    theBitmap.Clear(theBitmap.Count)\n    theFtab = nil\n  ELSE\n    theControlList.Get(i).SetEnabled(TRUE)\n  end '((i <> 0) OR (theSrc_Fk_List.count <> 0))then\n\n  'pass the srcname and the qsting through the control\n  theControlList.Get(i).SetObjectTag({theSrcList.get(i), theQString})\nend  'for each i in 0..0\n"
)

(Script.637
	Name:	"geohaz.themes.clear"
	SourceCode:	"'geohaz.themes.clear\n\ntheDialogList = av.GetProject.GetDialogs\n\ntheSrcNameList = {}\n\nfor each i in theDialogList\n  if (i.asString <> \"geohaz.dlgwarning\")then\n    i.setObjectTag(nil)\n    theControlList = i.FindByClass(Checkbox)\n    for each c in theControlList\n      c.SetObjectTag(nil)\n      c.SetSelected(FALSE)\n    end\n    i.close\n  end\nend\n\n"
)

(Script.638
	Name:	"geohaz.themes.close"
	SourceCode:	"'geohaz.themes.close\n\nself.SetObjectTag(nil)\n\n'get the checkbox controls for each dialog\ntheControlList = self.FindByClass(Checkbox)\n\nfor each c in theControlList\n  c.SetObjectTag(nil)\n  c.SetSelected(FALSE)\nend\n\n"
)

(Script.639
	Name:	"geohaz.themes.dat.open"
	SourceCode:	"'geohaz.themes.dat.open\n\ntheSRC_FK_LIST = self.GetObjectTag.Get(0)\n\ntheShotChb = self.findbyName(\"geohaz.themes.dat.shot.chb\")\ntheLinesChb = self.findbyName(\"geohaz.themes.dat.lines.chb\")\n\ntheControlList = {theShotChb,theLinesChb}\n\ntheShotSRC  = SrcName.Make(\"shot_pt.shp\")\nthe1aRel = {\"navigation_codes\", \"NAV_CODE\", \"NAV_CODE\"}\nthe1bRel = {\"acquisition_equip\", \"EQUIP_ID\", \"EQUIP_ID\"}\nthe1RelList = {the1aRel, the1bRel}\nthe1 = {theShotSRC, the1RelList}\n\ntheSurveySRC  = SrcName.Make(\"Surveylines.shp\")\nthe2 = {
theSurveySRC, nil}\n\n\ntheSrcList = {the1, the2}\n\n\n\nfor each i in 0..1\n  'Disable/Able controls based on selection\n  'Reset the controls to nil\n  theControlList.Get(i).SetObjectTag({nil,nil})\n  theControlList.Get(i).SetSelected(FALSE)\n\n  theFtab = Ftab.Make(theSrcList.get(i).get(0))\n  theBitmap = theFtab.GetSelection\n  'Create the Query String\n  theQString = \"\"\n  \n  'do the query only when not shotpoints because it takes too long OR if no sources to use for query do not run query\n\n  if (theSrc_Fk_List.count <
> 0) then\n    for each a in theSRC_FK_LIST\n      theQString = theQString + \"( [Src_fk] = \"+a.asString+\") or\"\n    end ' for each a in theSRC_FK_LIST\n\n    theQString = theQString.Left(theQString.Count - 3)\n    \n    if (i <> 0)then\n      ' query and apply selection\n      theFtab.Query(theQString, theBitmap, #VTAB_SELTYPE_NEW)\n      theFtab.UpdateSelection\n  \n      if (theBitmap.count > 0)then\n        theControlList.Get(i).SetEnabled(TRUE)\n      else\n        theControlList.Get(i).SetEnabled(FALSE)\n      end '(t
heBitmap.count > 0)then\n    end  \n      \n  ELSE\n    theControlList.Get(i).SetEnabled(TRUE)\n  end '((i <> 0) OR (theSrc_Fk_List.count <> 0))then\n\n  'pass the srcname and the qsting through the control\n  theControlList.Get(i).SetObjectTag({theSrcList.get(i), theQString})\n\nend  'for each i in 0..3\n\n\n\n"
)

(Script.640
	Name:	"geohaz.themes.dialogs.start"
	SourceCode:	"'Geohaz.themes.dialogs.start\n'self = control lable button\n\n'Close the current dialog and get it's src_fk list/object tag\ntheObjectTag = self.GetDialog.GetObjectTag\n\n'if a check box is selected minimize, else close dialog\ntheClose = TRUE\nfor each c in self.GetDialog.FindByClass(Checkbox)\n  if (c.isSelected)then\n    theClose = FALSE\n  end\nend  \n\n'close or minimize dialog\nif (theClose = TRUE) then\n  self.GetDialog.close\nelse\n  self.GetDialog.Minimize\nend\n\n'All theme dialogs are uniqe with 3 characters, same 1s
t 3 characters for the button label\ntheDString = self.getlabel.left(3)\n\n'open the corresponding dialog\ntheNewDialog = av.FindDialog(\"geohaz.themes.\"+theDString)\ntheNewDialog.SetObjectTag(theObjectTag)\n\n'if already opened/minimized don't reset everything, just restore window\nif (theNewDialog.IsOpen)then\n  theNewDialog.restore\nelse\n  theNewDialog.Open\nend\n"
)

(Script.641
	Name:	"geohaz.themes.haz.open"
	SourceCode:	"'geohaz.themes.haz.open\n\ntheSRC_FK_LIST = self.GetObjectTag.Get(0)\n\n'Control list\nthe1Chb = self.findbyName(\"geohaz.themes.haz.seis.chb\")\nthe2Chb = self.findbyName(\"geohaz.themes.haz.fault.chb\")\nthe3Chb = self.findbyName(\"geohaz.themes.haz.faultP.chb\")\nthe4Chb = self.findbyName(\"geohaz.themes.haz.ZONE.chb\")\nthe6Chb = self.findbyName(\"geohaz.themes.haz.SeaFloor.chb\")\nthe7Chb = self.findbyName(\"geohaz.themes.haz.Strat.chb\")\nthe8Chb = self.findbyName(\"geohaz.themes.ARC.bur.chb\")\nthe9Chb = self.findbyName(\"geoh
az.themes.haz.perm.chb\")\nthe10Chb = self.findbyName(\"geohaz.themes.haz.earth.chb\")\nthe11Chb = self.findbyName(\"geohaz.themes.ARC.bur_bdy.chb\")\n\ntheControlList = {the1Chb,the2Chb,the3Chb,the4Chb, the6Chb,the7Chb,the8Chb,the9Chb,the10Chb,the11Chb}\n\n'SOURCE NAME LIST\nthe1SRC  = SrcName.Make(\"seismic_anomaly_area.shp\")\nthe1aRel = {\"seismic_area_class\", \"SN_SEISMIC_class\", \"class_FK\"}\nthe1bRel = {\"seismic_type\", \"SEIS_TYPE_ID\", \"SEIS_TYPE_ID\"}\nthe1cRel = {\"vert_datum_codes\", \"vert_datum_code\", \"vert_datum_code\"}
\nthe1dRel = {\"meas_code\", \"meas_code\", \"meas_code\"}\nthe1ERel = {\"SEISMIC_SOURCE_CODES\", \"SEIS_SOURCE_ID\", \"SEIS_SOURCE_CODE\"}\nthe1FRel = {\"PGAS_CODES\", \"PGAS_CODE\", \"PGAS_CODE\"}\nthe1RelList = {the1aRel, the1bRel, the1cRel, the1dRel, the1ERel, the1FRel}\nthe1 = {the1src, the1RelList}\n\nthe2SRC  = SrcName.Make(\"FAULT_LINES.shp\")\nthe3SRC = SrcName.Make(\"FAULT_PLANE_BndY.shp\")\nthe4SRC = SrcName.Make(\"FAULT_ZONES.shp\")\n\n\nthe6SRC = SrcName.Make(\"unst_seafloor_sediments.shp\")\n\nthe7SRC = SrcName.Make(\"stratigraphy.sh
p\")\nthe7aRel = {\"STRATIGRAPHY_CODES\", \"STRAT_CODE\", \"STRAT_CODE\"}\nthe7bRel = {\"DEPOSITIONAL_ENV_CODES\", \"DEP_ENV_CODE\", \"DEP_ENV_CO\"}\nthe7RelList = {the7aRel, the7bRel}\nthe7 = {the7src, the7RelList}\n\nthe8SRC = SrcName.Make(\"BURIED_CHANNEL.shp\")\nthe8Rel = {\"CHAN_CODES\", \"CHAN_CODE\", \"CHAN_CODE\"}\nthe8RelList = {the8Rel}\nthe8 = {the8src, the8RelList}\n\nthe9SRC = SrcName.Make(\"permafrost.shp\")\nthe9 = {the9SRC, nil}\n\nthe10SRC = SrcName.Make(\"earthquakes.shp\")\n\nthe11SRC = SrcName.Make(\"buried_channel_bndy.shp\")\nth
e11aRel = {\"BURIED_CHANNEL.shp\", \"SDE_SHP\", \"SDE_SHP_FK\"}\nthe11bRel = {\"CONFIDENCE_LEVEL_CODES\", \"CONF_LEVEL_CODE\", \"CONF_LEVEL\"}\nthe11RelList = {the11aRel,the11bRel}\nthe11 = {the11src, the11RelList}\n\n\ntheSrcList = {the1,{the2SRC,nil},{the3SRC,nil},{the4SRC,nil},{the6SRC,nil},the7,the8,the9,{the10SRC,nil}, the11}\n\n'Anno Control List\nthe1ANNOChb = self.findbyName(\"geohaz.themes.haz.ANNOseis.chb\")\nthe2ANNOChb = self.findbyName(\"geohaz.themes.haz.ANNOfault.chb\")\nthe3ANNOChb = self.findbyName(\"geohaz.themes.haz
.faultPANNO.chb\")\nthe4ANNOChb = self.findbyName(\"geohaz.themes.ARC.annobur.chb\")\n\ntheANNOControlList = {the1ANNOChb, the2ANNOChb, the3ANNOChb, the4ANNOChb}\n\n'ANNO SOURCE NAME LIST\nthe1ANNOSRC  = SrcName.Make(\"seismic_anomaly_anno.shp\")\nthe1aAnnoRel = {\"seismic_anomaly_area.shp\", \"SDE_SHP\", \"SDE_SHP_FK\"}\nthe1bAnnoRel = {\"meas_code\", \"meas_code\", \"meas_code\"}\nthe1AnnoRelList = {the1aAnnoRel,the1bAnnoRel}\n\nthe2ANNOSRC  = SrcName.Make(\"FAULT_ANNO.shp\")\nthe2aAnnoRel = {\"FAULT_LINES.shp\", \"SDE_SHP\", \"SDE_SHP_FK\"}
\nthe2bAnnoRel = {\"meas_code\", \"meas_code\", \"meas_code\"}\nthe2AnnoRelList = {the2aAnnoRel,the2bAnnoRel}\n\nthe3ANNOSRC  = SrcName.Make(\"FAULT_BNDY_ANNO.shp\")\nthe3aAnnoRel = {\"FAULT_PLANE_BndY.shp\", \"SDE_SHP\", \"SDE_SHP_FK\"}\nthe3bAnnoRel = {\"meas_code\", \"meas_code\", \"meas_code\"}\nthe3AnnoRelList = {the3aAnnoRel,the3bAnnoRel}\n\nthe4ANNOSRC  = SrcName.Make(\"BURIED_CHANNEL_ANNO.shp\")\nthe4aAnnoRel = {\"BURIED_CHANNEL.shp\", \"SDE_SHP\", \"SDE_SHP_FK\"}\nthe4bAnnoRel = {\"meas_code\", \"meas_code\", \"meas_code\"}\nthe4AnnoRelList = 
{the4aAnnoRel,the4bAnnoRel}\n\n\ntheANNOSrcList = {{the1ANNOSRC,the1AnnoRelList},{the2ANNOSRC,the2AnnoRelList},{the3ANNOSRC,the3AnnoRelList},{the4ANNOSRC,the4AnnoRelList}}\n\n\nfor each i in 0..9\n  'Disable/Able controls based on selection\n  'Reset the controls to nil\n  theControlList.Get(i).SetObjectTag({nil,nil})\n  theControlList.Get(i).SetSelected(FALSE)\n\n  theFtab = Ftab.Make(theSrcList.get(i).get(0))\n  \n  if (theControlList.Get(i).GetLabel = \"Burried Channel Boundaries\") then 'make this exception because thi
s theme dosen't containg src_fk but will after join with assoc. theme\n    theburriedSrc = Srcname.make(theSrcList.Get(i).Get(1).Get(0).Get(0))\n    theJoinFtab = Ftab.Make(theburriedSrc)\n    theToField = theFtab.FindField(theSrcList.Get(i).Get(1).Get(0).Get(2))\n    theFromField = theJoinFtab.FindField(theSrcList.Get(i).Get(1).Get(0).Get(1))\n    theFtab.Join (theToField,theJoinFtab,theFromField)\n  end\n  \n  theBitmap = theFtab.GetSelection\n  'Create the Query String\n  theQString = \"\"\n  \n  if (theSrc_Fk_List.co
unt <> 0)then\n    for each a in theSRC_FK_LIST\n      theQString = theQString + \"( [Src_fk] = \"+a.asString+\") or\"\n    end ' for each a in theSRC_FK_LIST\n\n    theQString = theQString.Left(theQString.Count - 3)\n \n    ' query and apply selection\n    theFtab.Query(theQString, theBitmap, #VTAB_SELTYPE_NEW)\n    theFtab.UpdateSelection\n\n    if (theBitmap.count > 0)then\n      theControlList.Get(i).SetEnabled(TRUE)\n    else\n      theControlList.Get(i).SetEnabled(FALSE)\n    end '(theBitmap.count > 0)then\n  ELSE\n    th
eControlList.Get(i).SetEnabled(TRUE)\n  end '((i <> 0) OR (theSrc_Fk_List.count <> 0))then\n\n  'pass the srcname and the qsting through the control\n  theControlList.Get(i).SetObjectTag({theSrcList.get(i), theQString})\n\nend  'for each i in 0..6\n\n\n'LOOP THROUGH THE CONTOLS AND CORRESPONDING SRCNAMES OF ANNO\nfor each i in 0..3\n  'Disable/Able controls based on selection\n  'Reset the controls to nil\n  theANNOControlList.Get(i).SetObjectTag({nil,nil})\n  theANNOControlList.Get(i).SetSelected(FALSE)\n\n\n  theJoinSrcNa
me = srcname.make(theANNOSrcList.Get(i).Get(1).Get(0).Get(0))\n\n  theFtab = Ftab.Make(theANNOSrcList.get(i).get(0))\n  theJoinFtab = Ftab.Make(theJoinSrcName)\n  theAnnoToField = theFtab.FindField(theANNOSrcList.Get(i).Get(1).Get(0).Get(2))\n  theAnnoFromField = theJoinFtab.FindField(theaNNOSrcList.Get(i).Get(1).Get(0).Get(1))\n  \n  theFtab.Join (theAnnoToField,theJoinFtab,theAnnoFromField)\n  \n  theBitmap = theFtab.GetSelection\n  'Create the Query String\n  theQString = \"\"\n  \n  if (theSrc_Fk_List.count <> 0)then\n
    for each a in theSRC_FK_LIST\n      theQString = theQString + \"( [Src_fk] = \"+a.asString+\") or\"\n    end ' for each a in theSRC_FK_LIST\n\n    theQString = theQString.Left(theQString.Count - 3)\n    ' query and apply selection\n    theFtab.Query(theQString, theBitmap, #VTAB_SELTYPE_NEW)\n    theFtab.UpdateSelection\n\n    if (theBitmap.count > 0)then\n      theAnnoControlList.Get(i).SetEnabled(TRUE)\n    else\n      theAnnoControlList.Get(i).SetEnabled(FALSE)\n    end '(theBitmap.count > 0)then\n  ELSE\n    theAnnoCon
trolList.Get(i).SetEnabled(TRUE)\n  end '((i <> 0) OR (theSrc_Fk_List.count <> 0))then\n\n  'pass the srcname and the qsting through the control\n  theANNOControlList.Get(i).SetObjectTag({theAnnoSrcList.get(i), theQString})\n\nend\n\n"
)

(Script.642
	Name:	"geohaz.themes.ice.open"
	SourceCode:	"'geohaz.themes.ice.open\n\ntheSRC_FK_LIST = self.GetObjectTag.Get(0)\n\nthe1Chb = self.findbyName(\"geohaz.themes.ice.area.chb\")\nthe2Chb = self.findbyName(\"geohaz.themes.ice.discrete.chb\")\nthe3Chb = self.findbyName(\"geohaz.themes.ice.strudel.chb\")\nthe4Chb = self.findbyName(\"geohaz.themes.ice.drain.chb\")\nthe5Chb = self.findbyName(\"geohaz.themes.ice.overflood.chb\")\nthe6Chb = self.findbyName(\"geohaz.themes.ice.DRAINpts.chb\")\n'the7Chb = self.findbyName(\"geohaz.themes.ice.perm.chb\")\n\ntheControlList = {the1Chb, the2Ch
b, the3Chb, the4Chb, the5Chb , the6Chb}\n'theControlList = {the1Chb, the2Chb, the3Chb, the4Chb, the5Chb , the6Chb,the7Chb }\n\nthe1SRC  = SrcName.Make(\"ICE_GOUGE.shp\")\nthe1aRel = {\"ICE_GOUGE_AREA_CODES\", \"IG_AREA_CODE\", \"IG_AREA_CO\"}\nthe1RelList = {the1aRel}\nthe1 = {the1SRC, the1RelList}\n\nthe2SRC = SrcName.Make(\"LINES_OF_ICE_GOUGE.shp\")\nthe2aRel = {\"ICE_GOUGE_ARC_CODES\", \"IG_ARC_CODE\", \"IG_ARC_COD\"}\nthe2BRel = {\"CONFIDENCE_LEVEL_CODES\", \"CONF_LEVEL_CODE\", \"CONF_LEVEL\"}\nthe2RelList = {the2aRel,the2BRel}\nthe2 = 
{the2SRC, the2RelList}\n\nthe3SRC = SrcName.Make(\"STRUDEL_SCOUR.shp\")\nthe3aRel = {nil, nil, nil}\nthe3RelList = {the3aRel}\nthe3 = {the3SRC, the3RelList}\n\nthe4SRC = SrcName.Make(\"DRAIN_CRACKS.shp\")\nthe4aRel = {\"drain_crack_type\", \"drain_crack_type_id\", \"type_id\"}\nthe4RelList = {the4aRel}\nthe4 = {the4SRC, the4RelList}\n\nthe5SRC = SrcName.Make(\"OVERFLOOD_LIMITS.shp\")\nthe5aRel = {\"overflood_type\", \"overflood_type_id\", \"type_id\"}\nthe5RelList = {the5aRel}\nthe5 = {the5SRC, the5RelList}\n\nthe6SRC = SrcName.Make(\"DRAIN_C
RACK_PTS.shp\")\nthe6aRel = {\"drain_crack_type\", \"drain_crack_type_id\", \"type_id\"}\nthe6RelList = {the6aRel}\nthe6 = {the6SRC, the6RelList}\n\n'the7SRC = SrcName.Make(\"permafrost.shp\")\n'the7aRel = {nil, nil, nil}\n'the7RelList = {the7aRel}\n'the7 = {the7SRC, the7RelList}\n\ntheSrcList = {the1,the2,{the3SRC,nil},the4,the5,the6}\n'theSrcList = {the1,the2,{the3SRC,nil},the4,the5,the6,{the7SRC,nil}}\n'theSrcList = {the1,the2,the3,the4,the5,the6,the7}\n\nfor each i in 0..5\n  'Disable/Able controls based on selection\n  'Reset 
the controls to nil\n   'theControlList.Get(i).SetObjectTag({nil,nil})\n\n\n  theControlList.Get(i).SetSelected(FALSE)\n\n  theFtab = Ftab.Make(theSrcList.get(i).get(0))\n  theBitmap = theFtab.GetSelection\n  'Create the Query String\n  theQString = \"\"\n  \n  'do the query only when not shotpoints because it takes too long OR if no sources to use for query do not run query\n\n  if (theSrc_Fk_List.count <> 0)then\n    for each a in theSRC_FK_LIST\n      theQString = theQString + \"( [Src_fk] = \"+a.asString+\") or \"\n    end '
 for each a in theSRC_FK_LIST\n\n    theQString = theQString.Left(theQString.Count - 3)\n \n    ' query and apply selection\n    if (theFtab.Query(theQString, theBitmap, #VTAB_SELTYPE_NEW).not)then\n      msgbox.error(\"Problem on \"+theSrcList.get(i).get(0).asString+\" Query\",\"\")\n    end\n\n    theFtab.UpdateSelection\n\n    if (theBitmap.count > 0)then\n      theControlList.Get(i).SetEnabled(TRUE)\n    else\n      theControlList.Get(i).SetEnabled(FALSE)\n    end '(theBitmap.count > 0)then\n    \n  ELSE\n    theControlList.Ge
t(i).SetEnabled(TRUE)\n  end '((i <> 0) OR (theSrc_Fk_List.count <> 0))then\n\n  'pass the srcname and the qsting through the control\n  theFtab = nil\n  theControlList.Get(i).SetObjectTag({theSrcList.get(i), theQString})\n\nend  'for each i in 0..5\n\n\n\n\n\n\n\n\n"
)

(Script.643
	Name:	"geohaz.themes.lim.open"
	SourceCode:	"'geohaz.themes.lim.open\n\ntheSRC_FK_LIST = self.GetObjectTag.Get(0)\n\nthe1Chb = self.findbyName(\"geohaz.themes.lim.eros.chb\")\nthe2Chb = self.findbyName(\"geohaz.themes.lim.Dip.chb\")\nthe3Chb = self.findbyName(\"geohaz.themes.lim.crest.chb\")\nthe4Chb = self.findbyName(\"geohaz.themes.lim.mag.chb\")\nthe5Chb = self.findbyName(\"geohaz.themes.lim.interp.chb\")\n\ntheControlList = {the1Chb, the2Chb, the3Chb, the4Chb, the5Chb}\n\nthe1SRC  = SrcName.Make(\"erosional_cutouts.shp\")\nthe2SRC = SrcName.Make(\"dip_points_sde.shp\")\n\nthe
3SRC = SrcName.Make(\"crest.shp\")\nthe3aRel = {\"CREST_CODES\", \"CREST_CODE\", \"CREST_CODE\"}\nthe3RelList = {the3aRel}\nthe3 = {the3SRC, the3RelList}\n\nthe4SRC = SrcName.Make(\"magnetic_intensity_contours.shp\")\nthe4aRel = {\"CONFIDENCE_LEVEL_CODES\", \"CONF_LEVEL_CODE\", \"CONF_LEVEL\"}\nthe4RelList = {the4aRel}\nthe4 = {the4SRC, the4RelList}\n\n'the5SRC  = SrcName.Make(\"inter_section_loc.shp\")\n\ntheSrcList = {{the1SRC,nil},{the2SRC,nil},the3,the4}\n'theSrcList = {{the1SRC,nil},{the2SRC,nil},the3,the4, {the5SRC, nil}}\n\n\n\nfor ea
ch i in 0..3\n  'Disable/Able controls based on selection\n  'Reset the controls to nil\n  theControlList.Get(i).SetObjectTag({nil,nil})\n  theControlList.Get(i).SetSelected(FALSE)\n\n  theFtab = Ftab.Make(theSrcList.get(i).get(0))\n  theBitmap = theFtab.GetSelection\n  'Create the Query String\n  theQString = \"\"\n  \n  'do the query only when not shotpoints because it takes too long OR if no sources to use for query do not run query\n\n  if (theSrc_Fk_List.count <> 0)then\n    for each a in theSRC_FK_LIST\n      theQStri
ng = theQString + \"( [Src_fk] = \"+a.asString+\") or\"\n    end ' for each a in theSRC_FK_LIST\n\n    theQString = theQString.Left(theQString.Count - 3)\n \n    ' query and apply selection\n    theFtab.Query(theQString, theBitmap, #VTAB_SELTYPE_NEW)\n    theFtab.UpdateSelection\n\n    if (theBitmap.count > 0)then\n      theControlList.Get(i).SetEnabled(TRUE)\n    else\n      theControlList.Get(i).SetEnabled(FALSE)\n    end '(theBitmap.count > 0)then\n  ELSE\n    theControlList.Get(i).SetEnabled(TRUE)\n  end '((i <> 0) OR (the
Src_Fk_List.count <> 0))then\n\n  'pass the srcname and the qsting through the control\n  theControlList.Get(i).SetObjectTag({theSrcList.get(i), theQString})\n\nend  'for each i in 0..3\n\n\n\n\n\n\n\n"
)

(Script.644
	Name:	"geohaz.themes.minimize"
	SourceCode:	"'geohaz.themes.minimize\n\n'minimize the dialog\nself.getDialog.minimize"
)

(Script.645
	Name:	"geohaz.themes.OK"
	SourceCode:	"'geohaz.themes.OK\ntheView = av.GetActiveDoc\n\n'ObjectTag Structure\n'                                Control\n'                            /      |     \\\n'         (0)src&relatelist  (1)qrysting  (2)ftab   \n'             /     \\\n'(0).(0)theSrc    (0).(1)relateList    \n'                             |\n'                       (0).(1).(n)relate\n'                /             |                \\\n'(0).(1).(n).(0)table  (0).(1).(n).(1)FromField  (0).(1).(n).(2)ToField\n\n\n'set up list of dialogs\nthedatDialog = av.FindDi
alog(\"geohaz.themes.sho\")\ntheiceDialog = av.FindDialog(\"geohaz.themes.ice\")\ntheSTRDialog = av.FindDialog(\"geohaz.themes.STR\")\n'theARCDialog = av.FindDialog(\"geohaz.themes.ARC\")\ntheBORDialog = av.FindDialog(\"geohaz.themes.BOR\")\ntheSEADialog = av.FindDialog(\"geohaz.themes.SEA\")\ntheHAZDialog = av.FindDialog(\"geohaz.themes.HAZ\")\ntheLIMDialog = av.FindDialog(\"geohaz.themes.LIM\")\n                           \ntheDialogList = {thedatDialog,theiceDialog,theSTRDialog, theBORDialog,theSEADialog,theHAZDialog,theLIMDialo
g}\n\ntheSrcNameList = {}\n\nfor each i in theDialogList\n  theControlList = i.FindByClass(Checkbox)\n  for each c in theControlList\n    if (c.isSelected)then\n      theSrcName = c.GetObjectTag.Get(0).Get(0)\n      theQString = c.GetObjectTag.Get(1)\n      theTheme = Theme.make(theSrcName)   \n      theFtab = thetheme.GetFtab\n      theThemeobj = nil\n    \n      'if a anno theme join with associated theme to grab src_fk values \n      'and set up legend\n      if ((c.GetLabel.Contains(\"Anno\")) or (c.GetLabel = \"Burried C
hannel Boundaries\"))then  \n        theQVtab = Ftab.Make(srcname.make(c.GetObjectTag.Get(0).Get(1).Get(0).Get(0)))\n        'Turn of visiblity of fields, only want the src_fk\n        for each ff in theQVtab.GetFields\n          if (ff.asString <> \"Src_FK\")then\n             ff.setVisible(FALSE)\n          end'if (ff.asString <> \"Src_FK\")then\n        end 'for each ff in theQVtab.GetFields\n        \n        'Join the RELATE TABLE WITH THE THEME'S FTAB\n        theFTAB = theTheme.GetFTAB\n        theTOField = theFtab.
FindField(c.GetObjectTag.Get(0).Get(1).Get(0).Get(2))\n        theFROMField = theQVtab.FindField(c.GetObjectTag.Get(0).Get(1).Get(0).Get(1))\n        theFTAB.Join(theToField, theQVtab, theFromField) \n        \n        if (c.GetLabel.Contains(\"Anno\")) then 'edit legend if anno\n          'set avl for anno shapefiles\n          theLegendfile = \"anno.avl\"\n          newLegend = theTheme.ReturnDefaultLegend\n          if (File.Exists(theLegendFile.AsFileName) and theLegendFile.AsFileName.IsFile) then\n            loade
d = newLegend.Load(theLegendFile.AsFileName, #LEGEND_LOADTYPE_ALL)\n            if (loaded = False) then\n              MsgBox.Error(\"Legend File:\"++theLegendFile++\"doesn't exist.\",\"MMS: Geohazards\")\n            end 'if (loaded = False) then\n          end   '  if (File.Exists(theLegendFile.AsFileName) and theLegendFile.AsFileName.IsFile) then\n          \n          theTheme.SetLegend(newLegend)\n        end\n      end '    if (c.GetLabel.Contains(\"Anno\"))then  \n    \n      'set up theme definition if query string 
is not blank  \n      if (theQString = \"\")then  \n        'do nothing\n      else\n        ' query and apply selection\n        theFtab.SetDefinition (theQString)\n        theFtab.UpdateDefBitmap \n      end  '      if (theQString = \"\")then  'do nothing\n    \n    \n      'add the theme,turn visible, and set the name according to the control\n      theView.Addtheme(theTheme)\n      theTheme.SetVisible(TRUE)  \n      thetheme.SetName(c.GetLabel)\n    \n      'JOIN RELATE TABELS IF NECESSARY\n      'if \"relatelist\" does have
 elements in it, then move forward\n      if (c.GetObjectTag.Get(0).Get(1) <> nil) then\n        for each ii in c.GetObjectTag.Get(0).Get(1)\n        \n          'Define the SQL Statement\n          theRelateTable = ii.Get(0).asString\n          \n          'work the anno join differently, the anno join is shapefile 2 shapefile\n          if (theRelateTable.Contains(\".shp\") = False)then\n          \n            theSQLStatement = \"SELECT * FROM \" +theRelateTable\n            ' Establish the connection\n            theSQ
L_Connection = av.run( \"geohaz.makesqlconnection\", {} )\n            \n            if (theSQL_Connection = nil) then\n              return nil\n            end 'if (theSQL_Connection = nil) then\n        \n            ' Create a vTab from the SQL table\n            theQVtab = VTab.MakeSQL(theSQL_Connection, theSQLStatement)\n            'table.make(theQVtab)\n        \n            if (theQVtab = nil) then\n              MsgBox.Error(\"Failed: Unable to create theme list!\",\"\")\n              return nil\n            elseif
 (theQVtab.HasError) then\n              MsgBox.Report(theSQLStatement,\"Error: Database Couldn't Retrieve Data\")\n              return nil  \n            end 'if (theQVtab = nil) then\n        \n            'Join the RELATE TABLE WITH THE THEME'S FTAB\n            theFTAB = theTheme.GetFTAB\n            theTOField = theFtab.FindField(ii.Get(2))\n            theFROMField = theQVtab.FindField(ii.Get(1))\n            \n            theFTAB.Join(theToField, theQVtab, theFromField)     \n          end '          if (theRela
teTable.Contains(\".shp\") = False)then\n        end '      for each ii in c.GetObjectTag.Get(0)\n    \n       'rename boring themes and, Pass the one to many relationships\n       if ((i.asString = \"geohaz.themes.BOR\")) then\n           thetheme.SetName(c.GetLabel)\n          'Set The Object Tag for the theme to use the identify tool and retrive many to one records\n          theThemeobj = (c.GetObjectTag.Get(0).Get(1).Get(0))\n          'set the relate table records' visibility off\n          theVtabFields = theQVta
b.getFields\n          theRemainingField = theVtabFields.Get(0)\n      \n          'create a list of fields except the first on\n          theFieldList = {}\n          FOR each ff in 1..(theVtabFields.Count - 1) \n            theFieldList.add(theVtabFields.Get(ff).asString)\n          end\n                      \n          for each thefieldv in theFieldList\n            theField = theFtab.FindField(theFieldv)\n            theField.SetVisible(False)\n          end 'for each thefieldv in theFieldList\n          \n         
 'set the Query String and Execute the Theme Definition  \n          if (theQString = \"\")then\n            theQString = \"([\"+theRemainingField.asString +\"] > 0)\"\n          else \n            theQString = \"(\"+theQString+\") and \"+\"([\"+theRemainingField.asString +\"] > 0)\" \n          end '        if (theQString = \"\")then\n          ' query and apply selection\n          theFtab.SetDefinition(\"\")\n          theFtab.SetDefinition(theQString)\n          theFtab.UpdateDefBitmap \n          theQString = \"\"\n  \n          theT
heme.SetObjectTag(theThemeobj.add(\"MMS.Geohaz\"))\n        end   '(i.asString = \"geohaz.themes.BOR\")then\n       end '(c.GetObjectTag.Get(0).Get(1) <> nil) then if there is relate info passed\n     end  '(c.isSelected)then\n\n      'reset all the selected to false\n      c.SetSelected(FALSE)\n     'Reset the controls to nil\n      c.SetObjectTag(nil)\n  end  '  for each c in theControlList\n  i.SetObjectTag(nil)\n  i.close\nend  'for each i in theDialogList\n\n\n"
)

(Script.646
	Name:	"geohaz.themes.SEA.open"
	SourceCode:	"'geohaz.themes.sea.open\n\ntheSRC_FK_LIST = self.GetObjectTag.Get(0)\n\n'Control list\nthe1Chb = self.findbyName(\"geohaz.themes.sea.regbath.chb\")\nthe2Chb = self.findbyName(\"geohaz.themes.sea.contours.chb\")\nthe3Chb = self.findbyName(\"geohaz.themes.sea.spotelev.chb\")\nthe4Chb = self.findbyName(\"geohaz.themes.sea.boulder.chb\")\nthe5Chb = self.findbyName(\"geohaz.themes.sea.various.chb\")\nthe6Chb = self.findbyName(\"geohaz.themes.sea.unstable.chb\")\nthe7Chb = self.findbyName(\"geohaz.themes.sea.visual.chb\")\nthe8Chb = self.
findbyName(\"geohaz.themes.sea.visualpnt.chb\")\nthe9Chb = self.findbyName(\"geohaz.themes.sea.u_sonar.chb\")\ntheControlList = {the1Chb,the2Chb,the3Chb,the4Chb,the5Chb,the6chb,the7Chb,the8Chb,the9Chb}\n\n'SOURCE NAME LIST\nthe1SRC = SrcName.Make(\"regional_bathy.shp\")\n\nthe2SRC = SrcName.Make(\"bathy_contour.shp\")\nthe2ARel = {\"bathy_class\", \"SN_BATHY_CLASS\", \"CLASS_FK\"}\nthe2BRel = {\"VERT_DATUM_CODES\", \"VERT_DATUM_CODE\", \"VERT_DATUM_CODE\"}\nthe2CRel = {\"CONFIDENCE_LEVEL_CODES\",\"CONF_LEVEL_CODE\",\"CONF_LEVEL\"}\nthe2RelList
 = {the2aRel,the2BRel,THE2CRel}\nthe2 = {the2SRC, the2RelList}\n\nthe3SRC = SrcName.Make(\"bathy_spot_elev.shp\")\nthe3ARel = {\"bathy_SPOT_class\", \"SN_BATHY_SPOT_CLASS\", \"CLASS_FK\"}\nthe3BRel = {\"VERT_DATUM_CODES\", \"VERT_DATUM_CODE\", \"VERT_DATUM_CODE\"}\nthe3RelList = {the3aRel,the3BRel}\nthe3 = {the3SRC, the3RelList}\n\nthe4SRC = SrcName.Make(\"boulder_patch.shp\")\nthe4ARel = {\"B_PATCH_CODES\", \"BPATCH_CODE\", \"BPATCH_COD\"}\nthe4RelList = {the4aRel}\nthe4 = {the4SRC, the4RelList}\n\nthe5SRC = SrcName.Make(\"seafloor_features.s
hp\")\nthe5ARel = {\"SEAFLOOR_CODES\", \"SEAFLOOR_CODE\", \"SEAF_CODE\"}\nthe5RelList = {the5aRel}\nthe5 = {the5SRC, the5RelList}\n\nthe6SRC = SrcName.Make(\"unst_seafloor_sediments.shp\")\nthe6ARel = {\"UNST_SEA_TYPE\", \"UNST_SEA_TYPE_ID\", \"TYPE_ID\"}\nthe6RelList = {the6aRel}\nthe6 = {the6SRC, the6RelList}\n\nthe7SRC = SrcName.Make(\"seafloor_visual_obs.shp\")\nthe7ARel = {\"seavis_codes\", \"seavis_code\", \"seavis_cod\"}\nthe7BRel = {\"kelp_codes\", \"kelp_CODE\", \"kelp_CODE\"}\nthe7RelList = {the7aRel,the7BRel}\nthe7 = {the7SRC, the7RelList
}\n\nthe8SRC = SrcName.Make(\"seafloor_vis_pt_obs.shp\")\nthe8ARel = {\"seavis_codes\", \"seavis_code\", \"seavis_cod\"}\nthe8BRel = {\"kelp_codes\", \"kelp_CODE\", \"kelp_CODE\"}\nthe8RelList = {the8aRel,the8BRel}\nthe8 = {the8SRC, the8RelList}\n\nthe9SRC = SrcName.Make(\"u_sonar_targets.shp\")\nthe9aRel = {\"ust_type\", \"ust_type_i\", \"ust_type_i\"}\nthe9RelList = {the9aRel}\nthe9 = {the9SRC, the9RelList}\n\n\ntheSrcList = {{the1SRC,nil},the2,the3,the4,the5,the6,the7,the8, the9}\n\n\n'LOOP THROUGH THE CONTOLS AND CORRESPONDING SRCNAMES\nfor e
ach i in 0..8\n  'Disable/Able controls based on selection\n  'Reset the controls to nil\n  theControlList.Get(i).SetObjectTag({nil,nil})\n  theControlList.Get(i).SetSelected(FALSE)\n\n  theFtab = Ftab.Make(theSrcList.get(i).get(0))\n  theBitmap = theFtab.GetSelection\n  'Create the Query String\n  theQString = \"\"\n  \n  'do the query only when not shotpoints because it takes too long OR if no sources to use for query do not run query\n\n  if (theSrc_Fk_List.count <> 0)then\n    for each a in theSRC_FK_LIST\n      theQStr
ing = theQString + \"( [Src_fk] = \"+a.asString+\") or\"\n    end ' for each a in theSRC_FK_LIST\n\n    theQString = theQString.Left(theQString.Count - 3)\n \n    ' query and apply selection\n    theFtab.Query(theQString, theBitmap, #VTAB_SELTYPE_NEW)\n    theFtab.UpdateSelection\n\n    if (theBitmap.count > 0)then\n      theControlList.Get(i).SetEnabled(TRUE)\n    else\n      theControlList.Get(i).SetEnabled(FALSE)\n    end '(theBitmap.count > 0)then\n  ELSE\n    theControlList.Get(i).SetEnabled(TRUE)\n  end '((i <> 0) OR (th
eSrc_Fk_List.count <> 0))then\n\n  'pass the srcname and the qsting through the control\n  theControlList.Get(i).SetObjectTag({theSrcList.get(i), theQString})\n\nend  'for each i in 0..7\n"
)

(Script.647
	Name:	"geohaz.themes.str.open"
	SourceCode:	"'geohaz.themes.str.open\n\ntheSRC_FK_LIST = self.GetObjectTag.Get(0)\n\n'Control list\nthe1Chb = self.findbyName(\"geohaz.themes.str.fautl.chb\")\nthe2Chb = self.findbyName(\"geohaz.themes.str.fautP.chb\")\nthe3Chb = self.findbyName(\"geohaz.themes.str.zone.chb\")\nthe4Chb = self.findbyName(\"geohaz.themes.str.structAxis.chb\")\nthe5Chb = self.findbyName(\"geohaz.themes.str.Paleo.chb\")\nthe6Chb = self.findbyName(\"geohaz.themes.str.structCont.chb\")\nthe7Chb = self.findbyName(\"geohaz.themes.str.structspot.chb\")\nthe10Chb = self.f
indbyName(\"geohaz.themes.str.dippoints.chb\")\nthe11Chb = self.findbyName(\"geohaz.themes.str.zonearc.chb\")\nthe12Chb = self.findbyName(\"geohaz.themes.str.fautPArcs.chb\")\nthe13Chb = self.findbyName(\"geohaz.themes.str.POSSPaleo.chb\")\nthe14Chb = self.findbyName(\"geohaz.themes.str.isopach.chb\")\n\ntheControlList = {the1Chb, the2Chb, the3Chb, the4Chb, the5Chb, the6Chb, the7Chb,  the10Chb, the11Chb, the12Chb, the13Chb, the14Chb}\n\n'SOURCE NAME LIST\nthe1SRC  = SrcName.Make(\"FAULT_LINES.shp\")\nthe1aRel = {\"fault_lines_cla
ss\", \"SN_FAULT_Lines_class\", \"class_ID\"}\nthe1bRel = {\"fault_depth_codes\", \"fault_depth_code\", \"fault_depth_codes\"}\nthe1cRel = {\"confidence_level_codes\", \"CONF_LEVEL_CODE\", \"CONF_LEVEL\"}\nthe1RelList = {the1aRel, the1bRel, the1cRel}\nthe1 = {the1src, the1RelList}\n\nthe2SRC = SrcName.Make(\"FAULT_PLANE_BndY.shp\")\nthe2aRel = {\"fault_plane_bdny_class\", \"sn_flt_plane_class\", \"class_fk\"}\nthe2bRel = {\"vert_datum_codes\", \"vert_datum_code\", \"vert_datum_id\"}\nthe2RelList = {the2aRel, the2bRel}\nthe2 = {the2src, the2RelList
}\n\nthe3SRC = SrcName.Make(\"FAULT_ZONES.shp\")\nthe3aRel = {\"fault_Zones_Class\", \"SN_Flt_zone_class\", \"class_id\"}\nthe3bRel = {\"fault_zones_type\", \"FAULT_ZONEs_type_id\", \"fault_zones_type_id\"}\nthe3cRel = {\"fault_depth_codes\", \"fault_depth_code\", \"fault_depth_code\"}\nthe3RelList = {the3aRel, the3bRel, the3cRel}\nthe3 = {the3src, the3RelList}\n\nthe4SRC = SrcName.Make(\"STRUCTURAL_AXIS.shp\")\nthe4aRel = {\"axis_codes\", \"axis_code\", \"axis_code\"}\nthe4RelList = {the4aRel}\nthe4 = {the4src, the4RelList}\n\nthe5SRC = SrcName.Ma
ke(\"PALEO_STRUCTURE.shp\")\nthe5aRel = {\"paleo_struct_type\", \"PALEO_STRU\", \"type_id\"}\nthe5bRel = {\"stratigraphy_codes\", \"STRAT_CODE\", \"STRAT_CODE\"}\nthe5RelList = {the5aRel, the5bRel}\nthe5 = {the5src, the5RelList}\n\n\nthe6SRC = SrcName.Make(\"STRUCTURE_CONTOURS.shp\")\nthe6aRel = {\"structure_class\", \"sn_structure_class\", \"str_horiz\"}\nthe6bRel = {\"vert_datum_codes\", \"VERT_DATUM_code\", \"vert_datum_code\"}\nthe6cRel = {\"confidence_level_codes\", \"CONF_LEVEL_CODE\", \"CONF_LEVEL\"}\nthe6dRel = {\"MEAS_CODE\", \"Meas_CODE\", \"MEAS
_CODE\"}\nthe6RelList = {the6aRel, the6bRel, the6cRel, the6dRel}\nthe6 = {the6src, the6RelList}\n\nthe7SRC = SrcName.Make(\"STRUCTURE_SPOTS.shp\")\nthe7aRel = {\"vert_datum_codes\", \"VERT_DATUM_code\", \"vert_datum\"}\nthe7RelList = {the7aRel}\nthe7 = {the7src,the7RelList}\n\nthe10SRC = SrcName.Make(\"dip_points_sde.shp\")\n\nthe11SRC = SrcName.Make(\"fault_zone_arcs.shp\")\nthe11aRel = {\"confidence_level_codes\",\"CONF_LEVEL_CODE\",\"conf_level\"}\nthe11RelList = {the11aRel}\nthe11 = {the11src, the11RelList}\n\nthe12SRC = SrcName.Make(\"fa
ult_plane_str_cntr.shp\")\n\nthe13SRC = SrcName.Make(\"poss_paleo_shoreline.shp\")\nthe13aRel = {\"paleo_shoreline_codes\",\"paleo_shoreline_code\",\"paleo_shor\"}\nthe13RelList = {the13aRel}\nthe13 = {the13src, the13RelList}\n\nthe14SRC = SrcName.Make(\"isopach.shp\")\nthe14ARel = {\"ISOPACH_CLASS\", \"SN_ISOPACH_CLASS\", \"iso_horiz\"}\nthe14BRel = {\"STRATIGRAPHY_CODES\", \"STRAT_CODE\", \"STRAT_CODE\"}\nthe14CRel = {\"CONFIDENCE_LEVEL_CODES\", \"CONF_LEVEL_CODE\", \"CONF_LEVEL\"}\nthe14DRel = {\"MEAS_CODE\", \"Meas_CODE\", \"MEAS_CODE\"}\nthe14ERel 
= {\"VERT_DATUM_CODES\", \"VERT_DATUM_CODE\", \"VERT_DATUM_CODE\"}\nthe14RelList = {the14aRel,the14BRel,the14CRel,the14DRel,the14ERel}\nthe14 = {the14SRC, the14RelList}\n\n\ntheSrcList = {the1,the2,the3,the4,the5,the6 ,the7,{the10SRC,nil},the11,{the12SRC,nil},the13,the14}\n\n'Anno Control List\nthe1ANNOChb = self.findbyName(\"geohaz.themes.str.annofautl.chb\")\nthe2ANNOChb = self.findbyName(\"geohaz.themes.str.annofautP.chb\")\nthe3ANNOChb = self.findbyName(\"geohaz.themes.str.ANNOstructAxis.chb\")\ntheANNOControlList = {the1ANNO
Chb, the2ANNOChb, the3ANNOChb}\n\n\n'ANNO SOURCE NAME LIST\nthe1ANNOSRC  = SrcName.Make(\"FAULT_ANNO.shp\")\nthe1aAnnoRel = {\"fault_lines.shp\", \"SDE_SHP\", \"SDE_SHP_FK\"}\nthe1bAnnoRel = {\"meas_code\", \"meas_code\", \"meas_code\"}\nthe1AnnoRelList = {the1aAnnoRel,the1bAnnoRel}\n\nthe2ANNOSRC  = SrcName.Make(\"FAULT_BNDY_ANNO.shp\")\nthe2aAnnoRel = {\"FAULT_PLANE_BndY.shp\", \"SDE_SHP\", \"SDE_SHP_FK\"}\nthe2bAnnoRel = {\"meas_code\", \"meas_code\", \"meas_code\"}\nthe2AnnoRelList = {the2aAnnoRel,the2bAnnoRel}\n\nthe3ANNOSRC  = SrcName.Make(\"S
TRUCT_AXIS_ANNO.shp\")\nthe3aAnnoRel = {\"STRUCTURAL_AXIS.shp\", \"SDE_SHP\", \"SDE_SHP_FK\"}\nthe3bAnnoRel = {\"meas_code\", \"meas_code\", \"meas_code\"}\nthe3AnnoRelList = {the3aAnnoRel,the3bAnnoRel}\n\n\ntheANNOSrcList = {{the1ANNOSRC,the1AnnoRelList},{the2ANNOSRC,the2AnnoRelList},{the3ANNOSRC,the3AnnoRelList}}\n\nfor each i in 0..11\n  'Disable/Able controls based on selection\n  'Reset the controls to nil\n  theControlList.Get(i).SetObjectTag({nil,nil})\n  theControlList.Get(i).SetSelected(FALSE)\n\n  theFtab = Ftab.Make(theSrc
List.get(i).get(0))\n  theBitmap = theFtab.GetSelection\n  'Create the Query String\n  theQString = \"\"\n  \n  if (theSrc_Fk_List.count <> 0)then\n    for each a in theSRC_FK_LIST\n      theQString = theQString + \"( [Src_fk] = \"+a.asString+\") or\"\n    end ' for each a in theSRC_FK_LIST\n\n    theQString = theQString.Left(theQString.Count - 3)\n \n    ' query and apply selection\n    theFtab.Query(theQString, theBitmap, #VTAB_SELTYPE_NEW)\n    theFtab.UpdateSelection\n\n    if (theBitmap.count > 0)then\n      theControlList.G
et(i).SetEnabled(TRUE)\n    else\n      theControlList.Get(i).SetEnabled(FALSE)\n    end '(theBitmap.count > 0)then\n  ELSE\n    theControlList.Get(i).SetEnabled(TRUE)\n  end '((i <> 0) OR (theSrc_Fk_List.count <> 0))then\n\n  'pass the srcname and the qsting through the control\n  theControlList.Get(i).SetObjectTag({theSrcList.get(i), theQString})\n\nend  'for each i in 0..11\n\n\n'LOOP THROUGH THE CONTOLS AND CORRESPONDING SRCNAMES OF ANNO\nfor each i in 0..2\n  'Disable/Able controls based on selection\n  'Reset the cont
rols to nil\n  theANNOControlList.Get(i).SetObjectTag({nil,nil})\n  theANNOControlList.Get(i).SetSelected(FALSE)\n\n\n  theJoinSrcName = srcname.make(theANNOSrcList.Get(i).Get(1).Get(0).Get(0))\n\n  theFtab = Ftab.Make(theANNOSrcList.get(i).get(0))\n  theJoinFtab = Ftab.Make(theJoinSrcName)\n  theAnnoToField = theFtab.FindField(theANNOSrcList.Get(i).Get(1).Get(0).Get(2))\n  theAnnoFromField = theJoinFtab.FindField(theaNNOSrcList.Get(i).Get(1).Get(0).Get(1))\n  \n  theFtab.Join (theAnnoToField,theJoinFtab,theAnnoFromFie
ld)\n  \n  theBitmap = theFtab.GetSelection\n  'Create the Query String\n  theQString = \"\"\n  \n  if (theSrc_Fk_List.count <> 0)then\n    for each a in theSRC_FK_LIST\n      theQString = theQString + \"( [Src_fk] = \"+a.asString+\") or\"\n    end ' for each a in theSRC_FK_LIST\n\n    theQString = theQString.Left(theQString.Count - 3)\n    ' query and apply selection\n    theFtab.Query(theQString, theBitmap, #VTAB_SELTYPE_NEW)\n    theFtab.UpdateSelection\n\n    if (theBitmap.count > 0)then\n      theAnnoControlList.Get(i).SetEn
abled(TRUE)\n    else\n      theAnnoControlList.Get(i).SetEnabled(FALSE)\n    end '(theBitmap.count > 0)then\n  ELSE\n    theAnnoControlList.Get(i).SetEnabled(TRUE)\n  end '((i <> 0) OR (theSrc_Fk_List.count <> 0))then\n\n  'pass the srcname and the qsting through the control\n  theANNOControlList.Get(i).SetObjectTag({theAnnoSrcList.get(i), theQString})\n\nend\n"
)

(Script.648
	Name:	"MMS.DlgSourceInfo.Close"
	SourceCode:	"'geohaz.themes.close\n'remove all tags and references from the dialog and it's controls\n\nself.SetObjectTag(nil)\n\n'get the checkbox controls for each dialog\ntheControlList = self.FindByClass(Listbox)\n\nfor each c in theControlList\n  c.SetObjectTag(nil)\n  c.GoRowColumn(0,0)\n  c.DeleteRows(c.GetRowCount)\n  c.DeleteColumns(c.GetColumnCount)\n  if (c.HasScript (\"MMS.DlgSourceInfo.lstSource_Select\"))then\n    c.RemoveRangeSelect(\"MMS.DlgSourceInfo.lstSource_Select\")\n  end\n  c.Empty \nend\n\n\n"
)

(Script.649
	Name:	"MMS.DlgSourceInfo.lstFeature_Select"
	SourceCode:	"'MMS.DlgSourceInfo.lstFeature_Select\n\ntheFeatureListBox = Self\ntheDialog = Self.GetDialog\ntheSourceListBox = theDialog.FindByName(\"MMS.DlgSourceInfo.lstSource\")\n\n'Populate the source list box\ntheFeatureTab = theFeatureListBox.GetVTab\ntheFeatureSourceField = theFeatureTab.FindField(\"src_fk\")\n'theFeatureSourceField = theFeatureTab.FindField(\"sn_envm_src_fk\")\nif (theFeatureSourceField = nil) then\n  theFeatureSourceField = theFeatureTab.FindField(\"sn_envm_sr\")\n  if (theFeatureSourceField = nil) then\n    MsgBox.
Error(\"The feature table doesn't contain a link to the evnm_sources table\",\"\")\n    return nil\n  end\nend\ntheFeatureRecord = theFeatureListbox.GetCurrentRecord\ntheFeatureSourceValue = theFeatureTab.ReturnValueString(theFeatureSourceField,theFeatureRecord)\n\nav.GetActiveDoc.GetDisplay.FlashShape(theFeatureTab.ReturnValue(theFeatureTab.FindField(\"Shape\"),theFeatureRecord),Symbol.Make(#SYMBOL_PEN),1,2)\n'theFeatureSelection = theFeatureTab.GetSelection\n'theFeatureSelection.ClearAll\n'theFeatureSelection.Set(theFeat
ureRecord)\n'theFeatureTab.UpdateSelection\n\n\ntheSQLStatement = \"SELECT * FROM envm_sources\"\n' Establish the connection\ntheSQL_Connection = av.run( \"geohaz.makesqlconnection\", {} )\nif (theSQL_Connection = nil) then\n  return nil\nend\n  \n' Create a vTab from the SQL table\ntheSourceVTab = VTab.MakeSQL(theSQL_Connection, theSQLStatement)\n  'table.make(theQVtab)\n\nif (theSourceVTab = nil) then\n MsgBox.Error(\"Failed: Unable to create theme list!\",\"\")\n return nil\nelseif (theSourceVTab.HasError) then\n MsgBox.Report(the
SQLStatement,\"Error: Database Couldn't Retrieve Data\")\n return nil  \nend\n'theSourceVTab = av.FindDoc(\"envm_sources.dbf\").GetVTab\n\ntheSourceVTab.Query(\"([sn_envm_src_PK] =\"++theFeatureSourceValue++\")\",theSourceVTab.GetSelection,#VTAB_SELTYPE_NEW)\ntheSourceFields = {}\ntheSourceFields.Add(theSourceVTab.FindField(\"sn_envm_src_fk\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"envm_source_title\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"envm_source_date\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"spatia
l_data_fmt\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"biblio_ref\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"map_data_quality\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"plate_num\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"map_type\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"envm_src_scale\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"envm_src_period\"))\n\ntheSourceListBox.DefineFromVTab(theSourceVTab,theSourceFields,True)\ntheSourceListBox.FitColumns(0..(theSourceFields.Count-1),False)
\ntheSourceListBox.SelectCurrent(False)\n\nav.Run(\"MMS.DlgSourceInfo.lstSource_Select\",theSourceListBox)\n\nreturn nil\n"
)

(Script.650
	Name:	"MMS.DlgSourceInfo.lstSource_Select"
	SourceCode:	"'MMS.DlgSourceInfo.lstSource_Select\ntheSourceListBox = Self\ntheDialog = Self.GetDialog\ntheReportListBox = theDialog.FindByName(\"MMS.DlgSourceInfo.lstReport\")\n\n'Populate the report list box\ntheSourceVTab = theSourceListBox.GetVTab \ntheSourceFKField = theSourceVTab.FindField(\"sn_envm_src_fk\")\ntheSourceRecord = theSourceListBox.GetCurrentRecord\ntheSourceFKValue = theSourceVTab.ReturnValueString(theSourceFKField,theSourceRecord)\ntheSourceVTab.Query(\"([sn_envm_src_pk] =\"++theSourceFKValue++\")\",theSourceVTab.GetS
election,#VTAB_SELTYPE_NEW)\n\ntheSourceFields = {}\ntheSourceFields.Add(theSourceVTab.FindField(\"envm_source_title\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"envm_src_period\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"envm_source_date\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"biblio_ref\"))\ntheSourceFields.Add(theSourceVTab.FindField(\"map_data_quality\"))\n\ntheReportListBox.DefineFromVTab(theSourceVTab,theSourceFields,True)\n\ntheReportListBox.FitColumns(0..(theSourceFields.Count-1),False)\n\nreturn n
il\n"
)

(Script.651
	Name:	"MMS.ShowSourceInfoTool"
	SourceCode:	"'MMS.ShowSourceInfoTool\n\ntheDialog = av.FindDialog(\"MMS.DlgSourceInfo\")\n\ntheFeatureListBox = theDialog.FindByName(\"MMS.DlgSourceInfo.lstFeature\")\ntheSourceListBox = theDialog.FindByName(\"MMS.DlgSourceInfo.lstSource\")\ntheReportListBox = theDialog.FindByName(\"MMS.DlgSourceInfo.lstReport\")\n\ntheView = av.GetActiveDoc\n\n'Get the active theme\ntheActiveThemes = theView.GetActiveThemes\nif (theActiveThemes = nil) then\n  MsgBox.Warning(\"Please make a theme active\",\"Show source info tool\")\n  return nil\nend\ntheTheme = t
heActiveThemes.Get(0)\ntheFeatureTab = theTheme.GetFTab\n\n'Select a feature\nthePoint = theView.GetDisplay.ReturnUserPoint\ntheFeatureTab.SelectByPoint(thePoint, theView.GetDisplay.ReturnVisExtent.GetWidth/100,#VTAB_SELTYPE_NEW)\nif (theFeatureTab.GetNumSelRecords = 0) Then\n  system.beep\n  return nil\nend\n\n'Populate the feature list box\ntheFeatureFields = List.Make\nfor each theField in theFeatureTab.GetFields\n  if (theField.IsVisible) then\n    theFeatureFields.Add(theField)\n  end\nend\ntheFeatureListBox.DefineFromV
Tab(theFeatureTab,theFeatureFields,True)\ntheFeatureListBox.FitColumns(0..(theFeatureFields.Count-1),False)\ntheFeatureListBox.SelectCurrent(False)\n\nav.Run(\"MMS.DlgSourceInfo.lstFeature_Select\",theFeatureListBox)\n\ntheDialog.Open\n\nreturn nil\n"
)

(Script.652
	Name:	"view.identify"
	SourceCode:	"'view.identify\n'script configured to identify accross many MMS arcview extensions\n\n\ntheView = av.GetActiveDoc\n\n'UseStandardIdentify = False\ntheCustomIdentifyTag = \"\"\n\nfor each t in theView.GetActiveThemes\n  if (t.GetObjectTag <> nil) then\n    if (t.GetObjectTag <> \"\")then\n      if((t.GetObjectTag.Get(t.GetObjectTag.Count - 1) = \"MMS.HumanAct\") or (t.GetObjectTag.Get(t.GetObjectTag.Count - 1) = \"MMS.Geohaz\") or (t.GetObjectTag.Get(t.GetObjectTag.Count - 1) = \"MMS.Geohaz_cry_lith\")) then\n        theCustomIden
tifyTag = t.GetObjectTag.Get(t.GetObjectTag.Count - 1)\n      end   '      if((t.GetObjectTag.Get(t.GetObject.....\n    else   'if (t.GetObjectTag.Count <> nil)then\n      if((t.GetObjectTag = \"MMS.HumanAct\") or (t.GetObjectTag = \"MMS.Geohaz\") or (t.GetObjectTag = \"MMS.Geohaz_cry_lith\")) then \n        theCustomIdentifyTag = t.GetObjectTag\n      end   'if((t.GetObjectTag = \"MMS.HumanAct\") or (t.GetObj......\n    end  'if (t.GetObjectTag.Count <> nil)then\n  end  '   if (t.GetObjectTag <> nil) then\nend  'for each 
t in theView.GetActiveThemes\n\n\nif (theCustomIdentifyTag <> \"\") then\n  'Turn off activitiy of all themes except for the themes = to theCustomIdentifyTag to prevent problems\n  for each t in theView.GetActiveThemes\n    if (t.GetObjectTag <> nil)then\n      if ((t.GetObjectTag <> theCustomIdentifyTag) and (t.GetObjectTag.Get(t.GetObjectTag.Count - 1) <> theCustomIdentifyTag)) then\n        t.SetActive(FALSE)\n      end\n    end\n  end\n\n  if (theCustomIdentifyTag= \"MMS.HumanAct\")then\n    av.Run(\"MMS.HumanAct.DlgIdent
ify_Show\",{})\n    return nil\n  elseif (theCustomIdentifyTag= \"MMS.Geohaz\")then\n    av.Run(\"geohaz.onemany.run\",{})\n    return nil\n  elseif (theCustomIdentifyTag= \"MMS.Geohaz_cry_lith\")then\n    av.Run(\"MMS.geohazard.Identify.run\",{})\n    return nil\n  end\nend\n\nfound = FALSE\np = theView.GetDisplay.ReturnUserPoint\nfor each t in theView.GetActiveThemes\n  if (t.CanFindByPoint) then\n    thmClass = t.GetClass.GetClassName\n    scriptName = thmClass+\".Identify\"\n    if (av.FindScript(scriptName) <> nil) then\n      fou
nd = av.run(scriptName, {p,t,found})\n    else\n      keys = t.FindByPoint(p)\n      for each key in keys\n        found = TRUE\n        idlabel = t.GetName++\"-\"\n        f = NIL\n        if (t.CanLabel) then\n           f = t.GetLabelField\n        end\n        if (f = NIL) then\n          if (key.Is(Number)) then\n           idlabel = idlabel++key.SetFormat(\"d\").AsString\n          else\n           idlabel = idlabel++\" X :\"++key.GetX.AsString++\" Y :\"++key.GetY.AsString\n          end\n        else\n          s = t.ReturnV
alueString(f.GetName, key)\n          idlabel = idlabel++s\n        end\n        t.Identify(key, idlabel)\n      end\n    end       \n  end\nend\nif (not found) then\n  System.Beep\nend\n\n"
)

(Script.653
	Name:	"geohaz.dlgwarning.rdbClick"
	SourceCode:	"'geohaz.dlgwarning.rdbClick\n'closes the warning dialog\n\ntheWarningDLG = self.GetDialog\ntheWarningDLG.Close\n\n"
)

(Script.654
	Name:	"geohaz.dlgwarning.close"
	SourceCode:	"'geohaz.dlgwarning.close\n'runs when dialog closes\n\n'theWarningDLG = av.FindDialog(\"geohaz.dlgwarning\")\n\n'exit if no is checked\n'  'if user dosen't check yes unload the extension\n'if (theWarningDLG.FindByName(\"geohaz.dlgwarning.rdbYes\").IsSelected.Not) then\n'  msgbox.info(\"Unloading 'MMS: Geohazards' Extension\",\"\") \n'  Extension.Find (\"MMS: Geohazards\").unload\n'  return nil\n \n'end\n\n"
)

(Script.655
	Name:	"geohaz.hotlink.pick"
	SourceCode:	"'geohaz.menu1.pic\n\ntheView = av.GetActiveDoc\n\ntheActivethemes = theView.Getactivethemes\n\n'deal with pathing if not in present dir try 2 other places, then ask for user input\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  'Set the working directory\n  theWorkDirectory = \"C:\\mms_data\".asfilename\n  theWorkDirectory.SetCWD\nend\n\n\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  'Set the working directory\n  theWorkDirectory = \"L:\\geohazards\\geohazards_database\\mms_data\".asfilename\n  theWorkDirectory.SetCWD\ne
nd\n\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  FileWin.SHOW(\"areas.shp\",\"\",\"Navigate to the areas.shp shapefile of the Geohazards Dataset to set the path for the ArcView session\")\nend\n\nif (File.Exists(\"areas.shp\".asFilename).not)then\n  msgbox.info(\"Wrong path entered, try again\",\"\")\n  return nil\nend\n\n\n\n\n'Ensure Seismic Cross-Sections Survey Lines is selected\nfor each ttt in theActivethemes\n  ttt.SetActive(FALSE)\nend\n\ntheArea = nil\n\nfor each tttt in theView.Getthemes\n  if (tttt.GetName = \"Seismic Cro
ss-Sections Survey Lines\")then\n    theArea = tttt\n  end\nend\n\n'If the theme isn't in the TOC then quit\nif (theArea = nil)then\n  msgbox.info(\"First Load the Theme, 'Seismic Cross-Sections Survey Lines'\",\"\")\n  return nil\nend\n\n\ntheArea.SetActive(TRUE)\nav.run(\"view.selectpoint\",\"\")\n\ntheftab = theArea.Getftab\nthefieldNum = theftab.findfield(\"Sde_shp\")\n\ntheNumValueList = {}\n\n'if nothing selected then quit\nif (theftab.GetSelection.count = 0)then\n  return nil\nend\n\n'run throught the area and grab the name and area_ID
 of areas selected\nfor each r in theftab.GetSelection\n  theNumValue = theftab.ReturnValue(thefieldNum,r)\n  theNumValueList.add(theNumValue)\nend\n\n'Set obeject tag to the opening data dialog and open it\ntheHOTDialog = av.FindDialog(\"geohaz.DlgHotlink\")\ntheHOTDialog.SetObjectTag(theNumValueList)\ntheHOTDialog.Open\n\n"
)

(Script.656
	Name:	"geohaz.ext.install"
	SourceCode:	"'DO NOT EDIT!!!\n\nif (av.getproject=nil) then return(nil) end\n\n\ntheDocs = SELF.get(0)\ntheDialogs = SELF.get(1)\ntheControlList = SELF.get(2)\ntheMenuList = SELF.get(3)\ntheToolMenuList=SELF.Get(4)\ntheProject=Av.getproject\n\n\n'Add the Docs\n'\nfor each adoc in theDocs\n theProject.addDoc(adoc)\nend\n\n'Add the Dialogs\n'\nfor each adialog in theDialogs\n theProject.addDialog(adialog)\nend\n\n'Add the Controls\n'\nfor each totalControl in theControlList\n   'The Control list\n   acontrol=totalControl.get(0)\n   \n   'The physical c
ontrol\n   theControl = totalControl.get(1)\n   \n   'The control Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" cannot be found in the current project.\",\"Script Eror\")\n       return(nil)\n     end\n   \n   'This finds the control set  \n  thecommand=\"av.getproject.findGUI(\"\"\"+aControl.get(0)+\"\"\").Get\"+acontrol.get(1)\n  thescript1=Script.Make(thecommand)\n  thec
ontrolset=thescript1.doit(\"\")\n  \n  'Add the control to the control set\n  theControlSet.Add(theControl,theCindex)\nend\n\n\n'Add the menus\nfor each totalcontrol in theMenuList\n  \n   'The Control list\n   acontrol=totalControl.get(0)\n      mDoc=acontrol.get(0)\n      mMenu=acontrol.get(1)\n      mMenuItem=acontrol.get(2)\n\n   'The physical control\n   theControl = totalControl.get(1)\n   \n   'The control Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n
     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" cannot be found in the current project.\",\"Script Eror\")\n       return(nil)\n     end\n   \n  theMbar=av.getproject.findGUI(mDoc).GetMenuBar\n  themenu=theMbar.findbylabel(mMenu)\n  if (themenu=NiL) then\n      themenu=menu.make\n      themenu.setlabel(mMenu)\n      theMbar.add(themenu,999)\n  end\n  \n  themenu.add(thecontrol, theCindex)\nend\n   \n   \n'Add the Tool Menus\n\nfor each totalControl in theToolMenuList\n   'The Control list\n 
  acontrol=totalControl.get(0)\n   \n   'The physical control\n   theControl = totalControl.get(1)\n   \n   'The control Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" cannot be found in the current project.\",\"Script Eror\")\n       return(nil)\n     end\n   \n   'This finds the control set  \n  thecommand=\"av.getproject.findGUI(\"\"\"+aControl.get(0)+\"\"\").Get\"+acontr
ol.get(1)\n  thescript1=Script.Make(thecommand)\n  thecontrolset=av.getproject.findGUI(aControl.get(0)).GetToolBar\n  \n  'Add the control to the control set\n  theControlSet.Add(theControl,theCindex)\nend\n\n\nav.getproject.setmodified(true)\n\n\n\n"
)

(Script.657
	Name:	"geohaz.ext.uninstall"
	SourceCode:	"'geohaz.ext.uninstall\n'DO NOT EDIT!!!\n\n'The SELF is the Extension\n\ntheDocs = SELF.get(0)\ntheDialogs = SELF.get(1)\ntheControlList = SELF.get(2)\ntheMenuList = SELF.get(3)\ntheToolMenuList=SELF.get(4)\ntheProject=Av.getproject\n\n\n'Remove the Docs\n'\nfor each adoc in theDocs\n If (theProject.finddoc(adoc.getname)<>NIL) then \n  theAnswer=msgbox.yesno(\"Remove the Document \"+adoc.getname+\"?\",\"Remove Document?\",TRUE)\n  if (theAnswer=TRUE) then theProject.RemoveDoc(adoc) end\n end\nend\n\n'Remove the Dialogs\n'\nfor each adial
og in theDialogs\n  theProject.RemoveDialog(adialog.AsString)\nend\n\n'Removethe Controls\n'\nfor each totalControl in theControlList\n   'Get the control list from the Ext\n   acontrol=totalControl.get(0)\n   \n   'Get the physical Control\n   theControl = totalControl.get(1)\n   \n   'Get the Controls Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI for the Control\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" c
annot be found in the current project.\",\"Script Eror\")\n       return(nil)\n     end\n   \n   'This sequence finds the appropiate control set\n   thecommand=\"av.getproject.findGUI(\"\"\"+aControl.get(0)+\"\"\").Get\"+acontrol.get(1)\n   thescript1=Script.Make(thecommand)\n   thecontrolset=thescript1.doit(\"\")\n\n   'See if the control is in the set , if so remove it\n    if (theControlSet.GetControls.find(theControl)<>NIL) then\n      theControlSet.remove(theControl)\n      if (thecontrol = \"ToolBar\") then\n        theControlSe
t.selectdefault\n      end\n    end\nend\n\n\n'Remove the Menus\n'\nfor each totalcontrol in theMenuList\n  \n   'The Control list\n    acontrol=totalControl.get(0)\n      mDoc=acontrol.get(0)\n      mMenu=acontrol.get(1)\n      mMenuItem=acontrol.get(2)\n\n   'The physical control\n   theControl = totalControl.get(1)\n   \n   'The control Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aCon
trol.get(0)+\" cannot be found in the current project.\",\"Script Eror\")\n       return(nil)\n     end\n   \n  theMbar=av.getproject.findGUI(mDoc).GetMenuBar\n  themenu=theMbar.findbylabel(mMenu)\n  if (themenu=NiL) then\n       MsgBox.Warning(\"The menu named \"+mMenu+\" is not here.\",\"Script Eror\")\n      'return(nil)\n  else\n  \n    thething=themenu.getcontrols.find(thecontrol)\n    if (thething<>NIL) then \n      themenu.remove(thecontrol) \n    end\n    'msgbox.info(themenu.GetControls.count.asstring,\"\")\n    if (themenu.G
etControls.count<1) then\n      theMbar.remove(themenu)\n    end\n  end\nend\n   \nfor each totalControl in theToolMenuList\n   'Get the control list from the Ext\n   acontrol=totalControl.get(0)\n   \n   'Get the physical Control\n   theControl = totalControl.get(1)\n   \n   'Get the Controls Index\n   theCindex=totalControl.get(2)\n\n   'Find the DocGUI for the Control\n   theControlDoc=av.getproject.findGUI(aControl.get(0))\n     if (theControlDoc=NIL) then   \n       MsgBox.Warning(\"The GUI \"+aControl.get(0)+\" cannot be f
ound in the current project.\",\"Script Eror\")\n       return(nil)\n     end\n   \n   'This sequence finds the appropiate control set\n   thecontrolset=av.getproject.findGUI(aControl.get(0)).GetToolBar\n\n \n    'See if the control is in the set , if so remove it\n    if (theControlSet.GetControls.find(theControl)<>NIL) then\n \n      theControlSet.remove(theControl)\n      theControlSet.selectdefault\n    end\n\nend\n   \n\n'And the scripts delete themselves\n\n\nav.getproject.setmodified(true)\n"
)

