/3.1
(Extension.1
	Name:	"Dialog Designer"
	Dependencies:	"$AVBIN/avdlog.dll\n"
	FirstRootClassName:	"DocGUI"
	Roots:	2
	Roots:	119
	Roots:	121
	Roots:	122
	Roots:	123
	Roots:	124
	Roots:	125
	Roots:	194
	Roots:	229
	Roots:	255
	Roots:	296
	Roots:	322
	Roots:	323
	Roots:	324
	Roots:	325
	Roots:	326
	Roots:	327
	Roots:	328
	Roots:	329
	Roots:	330
	Roots:	331
	Roots:	332
	Roots:	333
	Roots:	334
	Roots:	335
	Roots:	336
	Roots:	337
	Roots:	338
	Roots:	339
	Roots:	340
	Roots:	341
	Roots:	342
	Roots:	343
	Roots:	344
	Roots:	345
	Roots:	346
	Roots:	347
	Roots:	348
	Roots:	349
	Roots:	350
	Roots:	351
	Roots:	352
	Roots:	353
	Roots:	354
	Roots:	355
	Roots:	356
	Roots:	357
	Roots:	358
	Roots:	359
	Roots:	360
	Roots:	361
	Roots:	362
	Roots:	363
	Roots:	364
	Roots:	365
	Roots:	366
	Roots:	367
	Roots:	368
	Roots:	369
	Roots:	370
	Roots:	371
	Roots:	372
	Roots:	373
	Roots:	374
	Roots:	375
	Roots:	376
	Roots:	377
	Roots:	378
	Roots:	379
	Roots:	380
	Roots:	381
	Roots:	382
	Roots:	383
	Roots:	384
	Roots:	385
	Roots:	386
	Roots:	387
	Roots:	388
	Roots:	389
	Roots:	390
	Roots:	391
	Roots:	392
	Roots:	393
	Roots:	394
	Roots:	395
	Roots:	396
	Roots:	397
	Roots:	398
	Roots:	399
	Version:	30
	About:	"Extends ArcView to support custom dialog creation (v3.1)."
	LoadScript:	400
	CanUnloadScript:	401
	UnloadScript:	402
	InstallScript:	403
	UninstallScript:	404
	ProjectSaveScript:	405
	ExtVersion:	3100
)

(DocGUI.2
	Name:	"DialogEditor"
	DocBaseName:	"Dialog"
	Type:	"Layout"
	Modified:	1
	Visible:	1
	MenuBar:	3
	ButnBar:	49
	Popups:	77
	ToolBar:	85
	NewScript:	"Dialog Editor.New"
	OpenScript:	"Doc.Open"
	ActionScript:	"Dialog Editor.Action"
	NewUpdateScript:	"Doc.NewUpdate"
	OpenUpdateScript:	"Doc.OpenUpdate"
	ActionUpdateScript:	"Dialog Editor.ActionUpdate"
	Title:	"Dialogs"
	Icon:	118
)

(MenuBar.3
	Child:	4
	Child:	11
	Child:	19
	Child:	28
	Child:	36
	Child:	44
)

(PMenu.4
	Child:	5
	Child:	6
	Child:	7
	Child:	8
	Child:	9
	Child:	10
	Label:	"&File"
)

(Choice.5
	Help:	"Closes the active component"
	HelpTopic:	"Close"
	Label:	"&Close"
	Click:	"Project.CloseDoc"
	Shortcut:	"Keys.None"
)

(Choice.6
	Help:	"Closes all components"
	HelpTopic:	"Close_All"
	Label:	"Close &All"
	Click:	"Project.CloseAll"
	Shortcut:	"Keys.None"
)

(Space.7
)

(Choice.8
	Help:	"Saves the current project"
	HelpTopic:	"Save_Project"
	Label:	"&Save Project"
	Click:	"Project.Save"
	Shortcut:	"Keys.Ctrl+S"
)

(Space.9
)

(Choice.10
	Help:	"Exits ArcView"
	HelpTopic:	"Exit"
	Label:	"E&xit"
	Click:	"Project.Exit"
	Shortcut:	"Keys.None"
)

(PMenu.11
	Child:	12
	Child:	13
	Child:	14
	Child:	16
	Child:	17
	Child:	18
	Label:	"&Edit"
)

(Choice.12
	Disabled:	1
	Help:	"Copies selected controls to the clipboard and removes them from the dialog editor"
	HelpTopic:	"Cut@dlog.hlp"
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"Cu&t"
	Click:	"Dialog Editor.Cut"
	Shortcut:	"Keys.Ctrl+X"
)

(Choice.13
	Disabled:	1
	Help:	"Copies the controls to the clipboard"
	HelpTopic:	"Copy@dlog.hlp"
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"&Copy"
	Click:	"Dialog Editor.Copy"
	Shortcut:	"Keys.Ctrl+C"
)

(Choice.14
	Disabled:	1
	Help:	"Inserts the contents of the clipboard"
	HelpTopic:	"Paste@dlog.hlp"
	ObjectTag:	15
	Update:	"Dialog Editor.PasteUpdate"
	Label:	"&Paste"
	Click:	"Dialog Editor.Paste"
	Shortcut:	"Keys.Ctrl+V"
)

(PointD.15
	x:	0.30000000000000
	y:	-0.30000000000000
)

(Choice.16
	Disabled:	1
	Help:	"Removes the selected controls from the dialog editor"
	HelpTopic:	"Delete@dlog.hlp"
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"&Delete"
	Click:	"Layout.Clear"
	Shortcut:	"Keys.Del"
)

(Space.17
)

(Choice.18
	Help:	"Selects all controls in the dialog editor"
	HelpTopic:	"Select_All@dlog.hlp"
	Update:	"Layout.HasGraphicsUpdate"
	Label:	"Select &All"
	Click:	"Graphic.SelectAll"
	Shortcut:	"Keys.None"
)

(PMenu.19
	Child:	20
	Child:	21
	Child:	22
	Child:	23
	Child:	24
	Child:	25
	Child:	26
	Child:	27
	Label:	"&Dialog Editor"
)

(Choice.20
	Help:	"Edit properties of the dialog"
	HelpTopic:	"Dialog_Properties@dlog.hlp"
	Label:	"&Properties..."
	Click:	"Dialog Editor.Properties"
	Shortcut:	"Keys.None"
)

(Choice.21
	Help:	"Set the dialog height and width"
	HelpTopic:	"Dialog_Size@dlog.hlp"
	Label:	"Size..."
	Click:	"Dialog Editor.Size"
	Shortcut:	"Keys.None"
)

(Space.22
)

(Choice.23
	Disabled:	1
	Help:	"Creates a dialog from the controls in the dialog editor"
	HelpTopic:	"Compile@dlog.hlp"
	Update:	"Dialog.CompileUpdate"
	Label:	"&Compile"
	Click:	"Dialog.Compile"
	Shortcut:	"Keys.None"
)

(Choice.24
	Help:	"Displays the last compiled version of the dialog"
	HelpTopic:	"Run@dlog.hlp"
	Update:	"Dialog.RunUpdate"
	Label:	"&Run"
	Click:	"Dialog.Run"
	Shortcut:	"Keys.F5"
)

(Space.25
)

(Choice.26
	Help:	"Load the dialog and associated scripts from a text file"
	HelpTopic:	"Load_Text_File@dlog.hlp"
	Label:	"Load &Text file..."
	Click:	"Dialog Editor.FileLoad"
	Shortcut:	"Keys.None"
)

(Choice.27
	Help:	"Write the dialog and associated scripts to a text file"
	HelpTopic:	"Write_Text_File@dlog.hlp"
	Label:	"&Write Text File..."
	Click:	"Dialog Editor.FileWrite"
	Shortcut:	"Keys.None"
)

(PMenu.28
	Child:	29
	Child:	30
	Child:	31
	Child:	32
	Child:	33
	Child:	34
	Child:	35
	Label:	"&Controls"
)

(Choice.29
	Help:	"Edit the properties of the selected control or the dialog"
	HelpTopic:	"Control_Properties@dlog.hlp"
	Label:	"&Properties..."
	Click:	"Dialog.Properties"
	Shortcut:	"Keys.None"
)

(Space.30
)

(Choice.31
	Disabled:	1
	Help:	"Edit the size and alignment of the selected controls"
	HelpTopic:	"Size_and_Align@dlog.hlp"
	Update:	"Dialog.AlignUpdate"
	Label:	"&Size and Align..."
	Click:	"Graphic.Align"
	Shortcut:	"Keys.Ctrl+A"
)

(Choice.32
	Disabled:	1
	Help:	"Edit how controls respond to dialog width or height changes"
	HelpTopic:	"Control_Fasteners@dlog.hlp"
	Update:	"Dialog.ControlFastenersUpdate"
	Label:	"&Control Fasteners..."
	Click:	"Dialog.ControlFasteners"
	Shortcut:	"Keys.None"
)

(Space.33
)

(Choice.34
	Disabled:	1
	Help:	"Moves selected controls in front of other controls"
	HelpTopic:	"Bring_to_Front@dlog.hlp"
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"Bring to &Front"
	Click:	"Graphic.ToFront"
	Shortcut:	"Keys.None"
)

(Choice.35
	Disabled:	1
	Help:	"Moves selected controls behind other controls"
	HelpTopic:	"Send_to_Back@dlog.hlp"
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"Send to &Back"
	Click:	"Graphic.ToBack"
	Shortcut:	"Keys.None"
)

(PMenu.36
	Child:	37
	Child:	38
	Child:	39
	Child:	40
	Child:	41
	Child:	42
	Label:	"&Window"
)

(Choice.37
	Help:	"Arranges windows as non-overlapping tiles"
	HelpTopic:	"Tile"
	Label:	"&Tile"
	Click:	"Project.Tile"
	Shortcut:	"Keys.None"
)

(Choice.38
	Help:	"Arranges windows"
	HelpTopic:	"Cascade"
	Label:	"&Cascade"
	Click:	"Project.Cascade"
	Shortcut:	"Keys.None"
)

(Choice.39
	Help:	"Arranges iconified windows"
	HelpTopic:	"Arrange_Icons"
	Label:	"&Arrange Icons"
	Click:	"Project.ArrangeIcons"
	Shortcut:	"Keys.None"
)

(Space.40
)

(Choice.41
	Help:	"Shows the Dialog Designer control tools"
	HelpTopic:	"Show_Control_Tools@dlog.hlp"
	Update:	"GraphicControl.ShowHideToolsUpdate"
	Label:	"S&how Control Tools..."
	Click:	"GraphicControl.ShowHideTools"
	Shortcut:	"Keys.None"
)

(Space.42
	ObjectTag:	43
	Update:	"WindowMenuUpdate"
)

(Nil.43
)

(PMenu.44
	Child:	45
	Child:	46
	Child:	47
	Child:	48
	Label:	"&Help"
)

(Choice.45
	Help:	"Displays the dialog for browsing and searching ArcView's help system"
	HelpTopic:	"Help_on_Help_Topics"
	Label:	"Help &Topics..."
	Click:	"Project.HelpTopics"
	Shortcut:	"Keys.None"
)

(Choice.46
	Help:	"Provides instructions for how to obtain help from ArcView"
	HelpTopic:	"Help_on_How_to_Get_Help"
	Label:	"&How to Get Help..."
	Click:	"Project.HelpHelp"
	Shortcut:	"Keys.None"
)

(Space.47
)

(Choice.48
	Help:	"Provides information about ArcView"
	HelpTopic:	"About"
	Label:	"&About ArcView..."
	Click:	"Project.About"
	Shortcut:	"Keys.None"
)

(ButnBar.49
	Child:	50
	Child:	52
	Child:	53
	Child:	55
	Child:	57
	Child:	59
	Child:	60
	Child:	62
	Child:	64
	Child:	65
	Child:	67
	Child:	69
	Child:	70
	Child:	72
	Child:	74
	Child:	75
)

(Butn.50
	Help:	"Save Project//Saves the current project"
	HelpTopic:	"Save_Project"
	Icon:	51
	Click:	"Project.Save"
)

(AVIcon.51
	Name:	"Save"
	Res:	"Icons.Save"

)

(Space.52
)

(Butn.53
	Disabled:	1
	Help:	"Cut//Cuts the selection and puts it into the clipboard"
	HelpTopic:	"Cut@dlog.hlp"
	Update:	"Graphic.HasSelectionUpdate"
	Icon:	54
	Click:	"Dialog Editor.Cut"
)

(AVIcon.54
	Name:	"Cut"
	Res:	"Icons.Cut"

)

(Butn.55
	Disabled:	1
	Help:	"Copy//Copies the selected controls to the clipboard"
	HelpTopic:	"Copy@dlog.hlp"
	Update:	"Graphic.HasSelectionUpdate"
	Icon:	56
	Click:	"Dialog Editor.Copy"
)

(AVIcon.56
	Name:	"Copy"
	Res:	"Icons.Copy"

)

(Butn.57
	Disabled:	1
	Help:	"Paste//Inserts the contents of the clipboard"
	HelpTopic:	"Paste@dlog.hlp"
	Update:	"Dialog Editor.PasteUpdate"
	Icon:	58
	Click:	"Dialog Editor.Paste"
)

(AVIcon.58
	Name:	"Paste"
	Res:	"Icons.Paste"

)

(Space.59
)

(Butn.60
	Disabled:	1
	Help:	"Bring To Front//Moves selected controls in front of other controls"
	HelpTopic:	"Bring_to_Front@dlog.hlp"
	Update:	"Graphic.HasSelectionUpdate"
	Icon:	61
	Click:	"Graphic.ToFront"
)

(AVIcon.61
	Name:	"MoveToFront"
	Res:	"Icons.MoveToFront"

)

(Butn.62
	Disabled:	1
	Help:	"Send To Back//Moves selected controls behind other controls"
	HelpTopic:	"Send_to_Back@dlog.hlp"
	Update:	"Graphic.HasSelectionUpdate"
	Icon:	63
	Click:	"Graphic.ToBack"
)

(AVIcon.63
	Name:	"SendToBack"
	Res:	"Icons.SendToBack"

)

(Space.64
)

(Butn.65
	Disabled:	1
	Help:	"Compile//Creates a dialog from controls in the dialog editor"
	HelpTopic:	"Compile@dlog.hlp"
	Update:	"Dialog.CompileUpdate"
	Icon:	66
	Click:	"Dialog.Compile"
)

(AVIcon.66
	Name:	"Check"
	Res:	"Icons.Check"

)

(Butn.67
	Help:	"Run//Displays the last compiled version of the dialog"
	HelpTopic:	"Run@dlog.hlp"
	Update:	"Dialog.RunUpdate"
	Icon:	68
	Click:	"Dialog.Run"
)

(AVIcon.68
	Name:	"Run"
	Res:	"Icons.Run"

)

(Space.69
)

(Butn.70
	Help:	"Load Text File//Load the dialog and associated scripts from a text file"
	HelpTopic:	"Load_Text_File@dlog.hlp"
	Icon:	71
	Click:	"Dialog Editor.FileLoad"
)

(AVIcon.71
	Name:	"Open"
	Res:	"Icons.Open"

)

(Butn.72
	Help:	"Write Text File//Write the dialog and associated scripts to a text file"
	HelpTopic:	"Write_Text_File@dlog.hlp"
	Icon:	73
	Click:	"Dialog Editor.FileWrite"
)

(AVIcon.73
	Name:	"Write"
	Res:	"Icons.Write"

)

(Space.74
)

(Butn.75
	Help:	"Help//Gets help about the next button, tool, or menu choice you click"
	HelpTopic:	"Help_button"
	Icon:	76
	Click:	"Help.Tool"
)

(AVIcon.76
	Name:	"HelpTool"
	Res:	"Icons.HelpTool"

)

(PopupSet.77
	Child:	78
)

(Popup.78
	Child:	79
	Child:	80
	Child:	81
	Child:	82
	Child:	83
	Child:	84
	Label:	"Object"
)

(Choice.79
	Label:	"&Properties..."
	Click:	"Dialog.Properties"
	Shortcut:	"Keys.None"
)

(Space.80
)

(Choice.81
	Disabled:	1
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"Cu&t"
	Click:	"Dialog Editor.Cut"
	Shortcut:	"Keys.None"
)

(Choice.82
	Disabled:	1
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"&Copy"
	Click:	"Dialog Editor.Copy"
	Shortcut:	"Keys.None"
)

(Choice.83
	Disabled:	1
	Update:	"Dialog Editor.PasteUpdate"
	Label:	"P&aste"
	Click:	"Dialog Editor.Paste"
	Shortcut:	"Keys.None"
)

(Choice.84
	Disabled:	1
	Update:	"Graphic.HasSelectionUpdate"
	Label:	"&Delete"
	Click:	"Layout.Clear"
	Shortcut:	"Keys.None"
)

(ToolBar.85
	Child:	86
	Child:	88
	Child:	89
	Child:	96
	Child:	101
	Child:	106
	Child:	108
	Child:	110
	Child:	112
	Child:	114
	Child:	116
)

(Tool.86
	Help:	"Pointer//Selects graphic controls by pointing or dragging"
	HelpTopic:	"Pointer_tool@dlog.hlp"
	Icon:	87
	Cursor:	"Cursors.Select"
	Apply:	"Dialog Editor.Select"
	Click:	"Layout.SelectTool"
)

(AVIcon.87
	Name:	"Select"
	Res:	"Icons.Select"

)

(Space.88
)

(ToolMenu.89
	Help:	"Label Button//Creates a label button"
	HelpTopic:	"Label_Button_Tool@dlog.hlp"
	Icon:	90
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeLabelButton"
	Click:	"Dialog.DoNothing"
	Child:	91
	Child:	92
	Child:	94
)

(AVIcon.90
	Name:	"LabelButton"
	Res:	"DLogIcons.LabelButton"

)

(Tool.91
	Help:	"Label Button//Creates a label button"
	HelpTopic:	"Label_Button_Tool@dlog.hlp"
	Icon:	90
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeLabelButton"
	Click:	"Dialog.DoNothing"
)

(Tool.92
	Help:	"Button//Creates a button"
	HelpTopic:	"Button_Tool@dlog.hlp"
	Icon:	93
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeButton"
	Click:	"Dialog.DoNothing"
)

(AVIcon.93
	Name:	"PushButton"
	Res:	"DLogIcons.PushButton"

)

(Tool.94
	Help:	"Tool//Creates a tool"
	HelpTopic:	"Tool_Tool@dlog.hlp"
	Icon:	95
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeTool"
	Click:	"Dialog.DoNothing"
)

(AVIcon.95
	Name:	"Tool"
	Res:	"DLogIcons.Tool"

)

(ToolMenu.96
	Help:	"Text Line//Creates a single line text editor"
	HelpTopic:	"Text_Line_Tool@dlog.hlp"
	Icon:	97
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeTextLine"
	Click:	"Dialog.DoNothing"
	Child:	98
	Child:	99
)

(AVIcon.97
	Name:	"TextLine"
	Res:	"DLogIcons.TextLine"

)

(Tool.98
	Help:	"Text Line//Creates a single line text editor"
	HelpTopic:	"Text_Line_Tool@dlog.hlp"
	Icon:	97
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeTextLine"
	Click:	"Dialog.DoNothing"
)

(Tool.99
	Help:	"Text Box//Creates a multi-line text editor"
	HelpTopic:	"Text_Box_Tool@dlog.hlp"
	Icon:	100
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeTextBox"
	Click:	"Dialog.DoNothing"
)

(AVIcon.100
	Name:	"TextBox"
	Res:	"DLogIcons.TextBox"

)

(ToolMenu.101
	Help:	"List Box//Creates a list box"
	HelpTopic:	"List_Box_Tool@dlog.hlp"
	Icon:	102
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeListBox"
	Click:	"Dialog.DoNothing"
	Child:	103
	Child:	104
)

(AVIcon.102
	Name:	"ListBox"
	Res:	"DLogIcons.ListBox"

)

(Tool.103
	Help:	"List Box//Creates a list box"
	HelpTopic:	"List_Box_Tool@dlog.hlp"
	Icon:	102
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeListBox"
	Click:	"Dialog.DoNothing"
)

(Tool.104
	Help:	"Combo Box//Creates a drop-down combo box"
	HelpTopic:	"Combo_Box_Tool@dlog.hlp"
	Icon:	105
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeComboBox"
	Click:	"Dialog.DoNothing"
)

(AVIcon.105
	Name:	"ComboBox"
	Res:	"DLogIcons.ComboBox"

)

(Tool.106
	Help:	"Text Label//Creates a read-only text label"
	HelpTopic:	"Text_Label_Tool@dlog.hlp"
	Icon:	107
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeTextLabel"
	Click:	"Dialog.DoNothing"
)

(AVIcon.107
	Name:	"TextLabel"
	Res:	"Dlogicons.TextLabel"

)

(Tool.108
	Help:	"Check Box//Creates a check box"
	HelpTopic:	"Check_Box_Tool@dlog.hlp"
	Icon:	109
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeCheckBox"
	Click:	"Dialog.DoNothing"
)

(AVIcon.109
	Name:	"CheckBox"
	Res:	"dlogicons.CheckBox"

)

(Tool.110
	Help:	"Radio Button//Creates a radio button"
	HelpTopic:	"Radio_Button_tool@dlog.hlp"
	Icon:	111
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeRadioButton"
	Click:	"Dialog.DoNothing"
)

(AVIcon.111
	Name:	"RadioButton"
	Res:	"Dlogicons.RadioButton"

)

(Tool.112
	Help:	"Slider//Creates a slider"
	HelpTopic:	"Slider_Tool@dlog.hlp"
	Icon:	113
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeSlider"
	Click:	"Dialog.DoNothing"
)

(AVIcon.113
	Name:	"Slider"
	Res:	"DLogIcons.Slider"

)

(Tool.114
	Help:	"Icon Box//Creates a box to hold an icon"
	HelpTopic:	"Icon_Box_Tool@dlog.hlp"
	Icon:	115
	Cursor:	"Cursors.CrossHair"
	Apply:	"DIalog.MakeIconBox"
	Click:	"Dialog.DoNothing"
)

(AVIcon.115
	Name:	"IconBox"
	Res:	"DLogIcons.IconBox"

)

(Tool.116
	Help:	"Control Panel//Creates a panel that can contain other controls"
	HelpTopic:	"Control_Panel_Tool@dlog.hlp"
	Icon:	117
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeControlPanel"
	Click:	"Dialog.DoNothing"
)

(AVIcon.117
	Name:	"ControlPanel"
	Res:	"DLogIcons.ControlPanel"

)

(AVIcon.118
	Name:	"DEd"
	Res:	"DLogIcons.DEd"

)

(Choice.119
	Disabled:	1
	ObjectTag:	120
	Update:	"GraphicControl.DesignRunUpdate"
	Label:	"&Run Controls"
	Click:	"GraphicControl.DesignRun"
	Shortcut:	"Keys.None"
)

(Bool.120
)

(Choice.121
	Disabled:	1
	ObjectTag:	120
	Update:	"GraphicControl.DesignRunUpdate"
	Label:	"&Run Controls"
	Click:	"GraphicControl.DesignRun"
	Shortcut:	"Keys.None"
)

(Choice.122
	Help:	"Shows the Dialog Designer control tools"
	Update:	"GraphicControl.ShowHideToolsUpdate"
	Label:	"S&how Control Tools..."
	Click:	"GraphicControl.ShowHideTools"
	Shortcut:	"Keys.None"
)

(Choice.123
	Help:	"Shows the Dialog Designer control tools"
	Update:	"GraphicControl.ShowHideToolsUpdate"
	Label:	"S&how Control Tools..."
	Click:	"GraphicControl.ShowHideTools"
	Shortcut:	"Keys.None"
)

(Choice.124
	Help:	"Saves the current project with a new name and detaches it from the Dialog Designer"
	HelpTopic:	"Save_Detached@dlog.hlp"
	Label:	"Save &Detached..."
	Click:	"Dialog Editor.SaveDetached"
	Shortcut:	"Keys.None"
)

(AVDLog.125
	Name:	"Control Tools"
	X:	317
	Y:	174
	W:	241
	H:	74
	HelpTopic:	"Control_tools_dialog_box@dlog.hlp"
	DocActivate:	"Control Tools.DocActivate"
	ConstrainedControlNames:	126
	ConstrainedControlNames:	127
	ConstrainedControlNames:	128
	ConstrainedControlNames:	129
	ConstrainedControlNames:	130
	ConstrainedControlNames:	131
	ConstrainedControlNames:	132
	ConstrainedControlNames:	133
	ConstrainedControlNames:	134
	ConstrainedControlNames:	135
	ConstrainedControlNames:	136
	ConstrainedControlNames:	137
	ConstrainedControlNames:	138
	Constraints:	139
	Constraints:	140
	Constraints:	141
	Constraints:	142
	Constraints:	143
	Constraints:	144
	Constraints:	145
	Constraints:	146
	Constraints:	147
	Constraints:	148
	Constraints:	149
	Constraints:	150
	Constraints:	151
	Server:	152
	ControlPanel:	153
	Title:	"Control Tools"
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Close:	"Control Tools.Close"
	Open:	"Control Tools.Open"
	DefaultButton:	193
)

(AVStr.126
	S:	"LabelButtonTool"
)

(AVStr.127
	S:	"ControlPanelTool"
)

(AVStr.128
	S:	"IconBoxTool"
)

(AVStr.129
	S:	"SliderTool"
)

(AVStr.130
	S:	"ToolTool"
)

(AVStr.131
	S:	"TextBoxTool"
)

(AVStr.132
	S:	"RadioButtonTool"
)

(AVStr.133
	S:	"ButtonTool"
)

(AVStr.134
	S:	"CheckBoxTool"
)

(AVStr.135
	S:	"TextLineTool"
)

(AVStr.136
	S:	"TextLabelTool"
)

(AVStr.137
	S:	"ListBoxTool"
)

(AVStr.138
	S:	"ComboBoxTool"
)

(Numb.139
	N:	85.00000000000000
)

(Numb.140
	N:	85.00000000000000
)

(Numb.141
	N:	85.00000000000000
)

(Numb.142
	N:	85.00000000000000
)

(Numb.143
	N:	85.00000000000000
)

(Numb.144
	N:	85.00000000000000
)

(Numb.145
	N:	85.00000000000000
)

(Numb.146
	N:	85.00000000000000
)

(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
)

(Nil.152
)

(CPanel.153
	Child:	154
	Child:	156
	Child:	158
	Child:	160
	Child:	162
	Child:	164
	Child:	166
	Child:	168
	Child:	170
	Child:	172
	Child:	174
	Child:	176
	Child:	178
	ResBox:	180
	ResBox:	181
	ResBox:	182
	ResBox:	183
	ResBox:	184
	ResBox:	185
	ResBox:	186
	ResBox:	187
	ResBox:	188
	ResBox:	189
	ResBox:	190
	ResBox:	191
	ResBox:	192
)

(Tool.154
	InternalName:	"LabelButtonTool"
	Help:	"Label Button//Creates a label button"
	Icon:	155
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeLabelButton"
	Click:	"Dialog.DoNothing"
)

(AVIcon.155
	Name:	"LabelButton"
	Res:	"DLogIcons.LabelButton"

)

(Tool.156
	InternalName:	"ControlPanelTool"
	Help:	"Control Panel//Creates a panel that can contain other control"
	Icon:	157
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeControlPanel"
	Click:	"Dialog.DoNothing"
)

(AVIcon.157
	Name:	"ControlPanel"
	Res:	"DLogIcons.ControlPanel"

)

(Tool.158
	InternalName:	"IconBoxTool"
	Help:	"Icon Box//Creates a box to hold an icon"
	Icon:	159
	Cursor:	"Cursors.CrossHair"
	Apply:	"DIalog.MakeIconBox"
	Click:	"Dialog.DoNothing"
)

(AVIcon.159
	Name:	"IconBox"
	Res:	"DLogIcons.IconBox"

)

(Tool.160
	InternalName:	"SliderTool"
	Help:	"Slider//Creates a slider"
	Icon:	161
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeSlider"
	Click:	"Dialog.DoNothing"
)

(AVIcon.161
	Name:	"Slider"
	Res:	"DLogIcons.Slider"

)

(Tool.162
	InternalName:	"ToolTool"
	Help:	"Tool//Creates a tool"
	Icon:	163
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeTool"
	Click:	"Dialog.DoNothing"
)

(AVIcon.163
	Name:	"Tool"
	Res:	"DLogIcons.Tool"

)

(Tool.164
	InternalName:	"TextBoxTool"
	Help:	"Text Box//Creates a multi-line text editor"
	Icon:	165
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeTextBox"
	Click:	"Dialog.DoNothing"
)

(AVIcon.165
	Name:	"TextBox"
	Res:	"DLogIcons.TextBox"

)

(Tool.166
	InternalName:	"RadioButtonTool"
	Help:	"Radio Button//Creates a radio button"
	Icon:	167
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeRadioButton"
	Click:	"Dialog.DoNothing"
)

(AVIcon.167
	Name:	"RadioButton"
	Res:	"DLogIcons.RadioButton"

)

(Tool.168
	InternalName:	"ButtonTool"
	Help:	"Button//Creates a button"
	Icon:	169
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeButton"
	Click:	"Dialog.DoNothing"
)

(AVIcon.169
	Name:	"PushButton"
	Res:	"DLogIcons.PushButton"

)

(Tool.170
	InternalName:	"CheckBoxTool"
	Help:	"Check Box//Creates a check box"
	Icon:	171
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeCheckBox"
	Click:	"Dialog.DoNothing"
)

(AVIcon.171
	Name:	"CheckBox"
	Res:	"DLogIcons.CheckBox"

)

(Tool.172
	InternalName:	"TextLineTool"
	Help:	"Text Line//Creates a single line text editor"
	Icon:	173
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeTextLine"
	Click:	"Dialog.DoNothing"
)

(AVIcon.173
	Name:	"TextLine"
	Res:	"DLogIcons.TextLine"

)

(Tool.174
	InternalName:	"TextLabelTool"
	Help:	"Text Label//Creates a read-only text label"
	Icon:	175
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeTextLabel"
	Click:	"Dialog.DoNothing"
)

(AVIcon.175
	Name:	"TextLabel"
	Res:	"DLogIcons.TextLabel"

)

(Tool.176
	InternalName:	"ListBoxTool"
	Help:	"List Box//Creates a list box"
	Icon:	177
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeListBox"
	Click:	"Dialog.DoNothing"
)

(AVIcon.177
	Name:	"ListBox"
	Res:	"DLogIcons.ListBox"

)

(Tool.178
	InternalName:	"ComboBoxTool"
	Help:	"Combo Box//Creates a drop-down combo box"
	Icon:	179
	Cursor:	"Cursors.CrossHair"
	Apply:	"Dialog.MakeComboBox"
	Click:	"Dialog.DoNothing"
)

(AVIcon.179
	Name:	"ComboBox"
	Res:	"DLogIcons.ComboBox"

)

(RectD.180
	Left:	5.00000000000000
	Top:	24.00000000000000
	Right:	29.00000000000000
	Bottom:	3.00000000000000
)

(RectD.181
	Left:	212.00000000000000
	Top:	24.00000000000000
	Right:	236.00000000000000
	Bottom:	3.00000000000000
)

(RectD.182
	Left:	186.00000000000000
	Top:	24.00000000000000
	Right:	210.00000000000000
	Bottom:	3.00000000000000
)

(RectD.183
	Left:	160.00000000000000
	Top:	24.00000000000000
	Right:	184.00000000000000
	Bottom:	3.00000000000000
)

(RectD.184
	Left:	5.00000000000000
	Top:	70.00000000000000
	Right:	29.00000000000000
	Bottom:	48.00000000000000
)

(RectD.185
	Left:	30.00000000000000
	Top:	47.00000000000000
	Right:	54.00000000000000
	Bottom:	25.00000000000000
)

(RectD.186
	Left:	134.00000000000000
	Top:	24.00000000000000
	Right:	158.00000000000000
	Bottom:	3.00000000000000
)

(RectD.187
	Left:	5.00000000000000
	Top:	47.00000000000000
	Right:	29.00000000000000
	Bottom:	25.00000000000000
)

(RectD.188
	Left:	108.00000000000000
	Top:	24.00000000000000
	Right:	132.00000000000000
	Bottom:	3.00000000000000
)

(RectD.189
	Left:	30.00000000000000
	Top:	24.00000000000000
	Right:	54.00000000000000
	Bottom:	3.00000000000000
)

(RectD.190
	Left:	82.00000000000000
	Top:	24.00000000000000
	Right:	106.00000000000000
	Bottom:	3.00000000000000
)

(RectD.191
	Left:	56.00000000000000
	Top:	24.00000000000000
	Right:	80.00000000000000
	Bottom:	3.00000000000000
)

(RectD.192
	Left:	56.00000000000000
	Top:	47.00000000000000
	Right:	80.00000000000000
	Bottom:	25.00000000000000
)

(Nil.193
)

(AVDLog.194
	Name:	"Control Fasteners"
	X:	138
	Y:	201
	W:	383
	H:	236
	HelpTopic:	"Control_fasteners_dialog_box@dlog.hlp"
	ConstrainedControlNames:	195
	ConstrainedControlNames:	196
	ConstrainedControlNames:	197
	ConstrainedControlNames:	198
	Constraints:	199
	Constraints:	200
	Constraints:	201
	Constraints:	202
	Server:	203
	ControlPanel:	204
	Title:	"Control Fasteners"
	Modal:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Open:	"Control Fasteners.Open"
	DefaultButton:	213
)

(AVStr.195
	S:	"lbtOK"
)

(AVStr.196
	S:	"lbtCancel"
)

(AVStr.197
	S:	"lbtDefault"
)

(AVStr.198
	S:	"lbtHelp"
)

(Numb.199
	N:	85.00000000000000
)

(Numb.200
	N:	85.00000000000000
)

(Numb.201
	N:	85.00000000000000
)

(Numb.202
	N:	85.00000000000000
)

(Nil.203
)

(CPanel.204
	Child:	205
	Child:	206
	Child:	207
	Child:	209
	Child:	208
	Child:	210
	Child:	211
	Child:	212
	Child:	213
	Child:	214
	Child:	215
	Child:	216
	ResBox:	217
	ResBox:	218
	ResBox:	219
	ResBox:	220
	ResBox:	221
	ResBox:	222
	ResBox:	223
	ResBox:	224
	ResBox:	225
	ResBox:	226
	ResBox:	227
	ResBox:	228
)

(TextLabel.205
	InternalName:	"txtDialogWidth"
	Constraints:	0x55
	Label:	"If the dialog width changes, the control will maintain its:"
	Listening:	1
)

(TextLabel.206
	InternalName:	"txtDialogHeight"
	Constraints:	0x55
	Label:	"If the dialog height changes, the control will maintain its:"
	Listening:	1
)

(AVCBox.207
	InternalName:	"chkLeft"
	Update:	"Control Fasteners.chkLeft.Update"
	Listener:	208
	Listener:	209
	Listening:	1
	Selected:	1
	Label:	"distance from the left side of the dialog"
	Click:	"Control Fasteners.chk.Click"
	Constraints:	0x55
)

(AVCBox.208
	InternalName:	"chkRight"
	Update:	"Control Fasteners.chkRight.Update"
	Listener:	207
	Listener:	209
	Listening:	1
	Selected:	1
	Label:	"distance from the right side of the dialog"
	Click:	"Control Fasteners.chk.Click"
	Constraints:	0x55
)

(AVCBox.209
	InternalName:	"chkWidth"
	Disabled:	1
	Update:	"Control Fasteners.chkWidth.Update"
	Listener:	207
	Listener:	208
	Listening:	1
	Label:	"width"
	Click:	"Control Fasteners.chk.Click"
	Constraints:	0x55
)

(AVCBox.210
	InternalName:	"chkTop"
	Update:	"Control Fasteners.chkTop.Update"
	Listener:	211
	Listener:	212
	Listening:	1
	Selected:	1
	Label:	"distance from the top of the dialog"
	Click:	"Control Fasteners.chk.Click"
	Constraints:	0x55
)

(AVCBox.211
	InternalName:	"chkBottom"
	Disabled:	1
	Update:	"Control Fasteners.chkBottom.Update"
	Listener:	210
	Listener:	212
	Listening:	1
	Label:	"distance from the bottom of the dialog"
	Click:	"Control Fasteners.chk.Click"
	Constraints:	0x55
)

(AVCBox.212
	InternalName:	"chkHeight"
	Update:	"Control Fasteners.chkHeight.Update"
	Listener:	210
	Listener:	211
	Listening:	1
	Selected:	1
	Label:	"height"
	Click:	"Control Fasteners.chk.Click"
	Constraints:	0x55
)

(LButn.213
	InternalName:	"lbtOK"
	Label:	"OK"
	Click:	"Control Fasteners.lbtOK.Click"
)

(LButn.214
	InternalName:	"lbtCancel"
	Label:	"Cancel"
	Click:	"Control Fasteners.lbtCancel.Click"
)

(LButn.215
	InternalName:	"lbtDefault"
	Label:	"Default"
	Click:	"Control Fasteners.lbtDefault.Click"
)

(LButn.216
	InternalName:	"lbtHelp"
	Label:	"Help"
	Click:	"Control Fasteners.lbtHelp.Click"
)

(RectD.217
	Left:	5.00000000000000
	Top:	27.00000000000000
	Right:	381.00000000000000
	Bottom:	6.00000000000000
)

(RectD.218
	Left:	5.00000000000000
	Top:	125.00000000000000
	Right:	378.00000000000000
	Bottom:	102.00000000000000
)

(RectD.219
	Left:	26.00000000000000
	Top:	51.00000000000000
	Right:	301.00000000000000
	Bottom:	25.00000000000000
)

(RectD.220
	Left:	26.00000000000000
	Top:	70.00000000000000
	Right:	301.00000000000000
	Bottom:	50.00000000000000
)

(RectD.221
	Left:	26.00000000000000
	Top:	97.00000000000000
	Right:	331.00000000000000
	Bottom:	70.00000000000000
)

(RectD.222
	Left:	26.00000000000000
	Top:	146.00000000000000
	Right:	348.00000000000000
	Bottom:	122.00000000000000
)

(RectD.223
	Left:	26.00000000000000
	Top:	195.00000000000000
	Right:	329.00000000000000
	Bottom:	172.00000000000000
)

(RectD.224
	Left:	26.00000000000000
	Top:	171.00000000000000
	Right:	301.00000000000000
	Bottom:	145.00000000000000
)

(RectD.225
	Left:	31.00000000000000
	Top:	229.00000000000000
	Right:	104.00000000000000
	Bottom:	204.00000000000000
)

(RectD.226
	Left:	110.00000000000000
	Top:	229.00000000000000
	Right:	181.00000000000000
	Bottom:	204.00000000000000
)

(RectD.227
	Left:	188.00000000000000
	Top:	229.00000000000000
	Right:	260.00000000000000
	Bottom:	204.00000000000000
)

(RectD.228
	Left:	266.00000000000000
	Top:	229.00000000000000
	Right:	338.00000000000000
	Bottom:	204.00000000000000
)

(AVDLog.229
	Name:	"Dialog Size"
	X:	171
	Y:	199
	W:	180
	H:	110
	HelpTopic:	"Dialog_Size@dlog.hlp"
	ConstrainedControlNames:	230
	ConstrainedControlNames:	231
	Constraints:	232
	Constraints:	233
	Server:	234
	ControlPanel:	235
	Title:	"Dialog Size"
	Modal:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Open:	"Dialog Size.Open"
	DefaultButton:	254
)

(AVStr.230
	S:	"btn_OK"
)

(AVStr.231
	S:	"btn_Cancel"
)

(Numb.232
	N:	85.00000000000000
)

(Numb.233
	N:	85.00000000000000
)

(Nil.234
)

(CPanel.235
	Child:	236
	Child:	239
	Child:	240
	Child:	241
	Child:	244
	Child:	245
	Child:	246
	ResBox:	247
	ResBox:	248
	ResBox:	249
	ResBox:	250
	ResBox:	251
	ResBox:	252
	ResBox:	253
)

(TextLine.236
	InternalName:	"txl_width"
	Label:	"Width:"
	LabelSize:	50
	Constraints:	0x55
	Listening:	1
	TextType:	237
	Empty:	"Dialog Size.txl_width.Empty"
	NextControl:	238
)

(AVEnum.237
	Name:	"TEXTLINE_TYPE_REAL"
)

(Nil.238
)

(TextLabel.239
	InternalName:	"txt_width"
	Constraints:	0x55
	Label:	"Inches"
	Listening:	1
)

(TextLabel.240
	InternalName:	"txt_height"
	Constraints:	0x55
	Label:	"Inches"
	Listening:	1
)

(TextLine.241
	InternalName:	"txl_height"
	Label:	"Height:"
	LabelSize:	50
	Constraints:	0x55
	Listening:	1
	TextType:	242
	Empty:	"Dialog Size.txl_width.Empty"
	NextControl:	243
)

(AVEnum.242
	Name:	"TEXTLINE_TYPE_REAL"
)

(Nil.243
)

(LButn.244
	InternalName:	"btn_OK"
	Update:	"Dialog Size.btn_OK.Update"
	Label:	"OK"
	Click:	"Dialog Size.OK.Click"
)

(LButn.245
	InternalName:	"btn_Cancel"
	Label:	"Cancel"
	Click:	"Dialog Size.Cancel.Click"
)

(AVCBox.246
	InternalName:	"chk_units"
	Update:	"Dialog Size.btn_OK.Update"
	Listening:	1
	Label:	"Show Metric units"
	Click:	"Dialog Size.chk_units.Click"
	Constraints:	0x55
)

(RectD.247
	Left:	7.00000000000000
	Top:	28.00000000000000
	Right:	122.00000000000000
	Bottom:	8.00000000000000
)

(RectD.248
	Left:	131.00000000000000
	Top:	30.00000000000000
	Right:	175.00000000000000
	Bottom:	9.00000000000000
)

(RectD.249
	Left:	131.00000000000000
	Top:	56.00000000000000
	Right:	175.00000000000000
	Bottom:	35.00000000000000
)

(RectD.250
	Left:	7.00000000000000
	Top:	54.00000000000000
	Right:	122.00000000000000
	Bottom:	34.00000000000000
)

(RectD.251
	Left:	29.00000000000000
	Top:	104.00000000000000
	Right:	87.00000000000000
	Bottom:	83.00000000000000
)

(RectD.252
	Left:	93.00000000000000
	Top:	104.00000000000000
	Right:	152.00000000000000
	Bottom:	83.00000000000000
)

(RectD.253
	Left:	4.00000000000000
	Top:	75.00000000000000
	Right:	149.00000000000000
	Bottom:	59.00000000000000
)

(Nil.254
)

(AVDLog.255
	Name:	"Write Dialogs"
	X:	53
	Y:	169
	W:	494
	H:	219
	HelpTopic:	"Write_Text_File_Dialog_Box@dlog.hlp"
	ConstrainedControlNames:	256
	ConstrainedControlNames:	257
	ConstrainedControlNames:	258
	Constraints:	259
	Constraints:	260
	Constraints:	261
	Server:	262
	ControlPanel:	263
	Title:	"Write Text File"
	Modal:	1
	Resizable:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Close:	"Write Dialog.Close"
	Open:	"Write Dialog.Open"
	DefaultButton:	277
)

(AVStr.256
	S:	"lbt_OK"
)

(AVStr.257
	S:	"lbt_Cancel"
)

(AVStr.258
	S:	"btn_File_Browser"
)

(Numb.259
	N:	101.00000000000000
)

(Numb.260
	N:	101.00000000000000
)

(Numb.261
	N:	86.00000000000000
)

(Nil.262
)

(CPanel.263
	Child:	264
	Child:	267
	Child:	270
	Child:	272
	Child:	275
	Child:	277
	Child:	278
	Child:	279
	Child:	280
	Child:	281
	Child:	284
	ResBox:	285
	ResBox:	286
	ResBox:	287
	ResBox:	288
	ResBox:	289
	ResBox:	290
	ResBox:	291
	ResBox:	292
	ResBox:	293
	ResBox:	294
	ResBox:	295
	Listening:	1
)

(TextLine.264
	InternalName:	"txl_Dialog_Name"
	Label:	"Dialog Name:"
	Constraints:	0x55
	Listening:	1
	TextType:	265
	NextControl:	266
)

(AVEnum.265
	Name:	"TEXTLINE_TYPE_ALL"
)

(Nil.266
)

(TextLine.267
	InternalName:	"txl_Creator_Name"
	Label:	"Creator:"
	Constraints:	0x55
	Listening:	1
	TextType:	268
	NextControl:	269
)

(AVEnum.268
	Name:	"TEXTLINE_TYPE_ALL"
)

(Nil.269
)

(TextBox.270
	InternalName:	"tbx_Comments"
	Listening:	1
	Label:	"Comments:"
	Constraints:	0x35
	VerticalScroll:	1
	NextControl:	271
)

(Nil.271
)

(AVLBox.272
	InternalName:	"lbx_Scripts"
	NextControl:	273
	ContentKind:	4
	Constraints:	0x33
	RowCount:	1
	ColumnCount:	1
	Listening:	1
	VerticalScroll:	1
	SelectionStyle:	274
)

(Nil.273
)

(AVEnum.274
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(Butn.275
	InternalName:	"btn_File_Browser"
	Help:	"File Browser//"
	Icon:	276
	Click:	"Write Dialog.btn_file_browser.Click"
)

(AVIcon.276
	Name:	"Open"
	Res:	"Icons.Open"

)

(LButn.277
	InternalName:	"lbt_OK"
	Update:	"Write Dialog.lbt_OK.Update"
	Label:	"OK"
	Click:	"Write Dialog.lbt.OK.Click"
)

(LButn.278
	InternalName:	"lbt_Cancel"
	Label:	"Cancel"
	Click:	"Write Dialog.lbt_Cancel.Click"
)

(TextLabel.279
	InternalName:	"txt_message1"
	Constraints:	0x55
	Label:	"The selected scripts in the list"
	Listening:	1
)

(TextLabel.280
	InternalName:	"txt_message3"
	Constraints:	0x55
	Label:	"Choose those you want to write out:"
	Listening:	1
)

(TextLine.281
	InternalName:	"txl_File_Name"
	Label:	"File Name:"
	Constraints:	0x53
	Listening:	1
	TextType:	282
	Empty:	"Write Dialog.txl_file_name.Empty"
	NextControl:	283
)

(AVEnum.282
	Name:	"TEXTLINE_TYPE_ALL"
)

(Nil.283
)

(TextLabel.284
	InternalName:	"txt_message2"
	Constraints:	0x55
	Label:	"below are referenced by the dialog."
	Listening:	1
)

(RectD.285
	Left:	8.00000000000000
	Top:	60.00000000000000
	Right:	238.00000000000000
	Bottom:	40.00000000000000
)

(RectD.286
	Left:	8.00000000000000
	Top:	84.00000000000000
	Right:	238.00000000000000
	Bottom:	64.00000000000000
)

(RectD.287
	Left:	8.00000000000000
	Top:	188.00000000000000
	Right:	244.00000000000000
	Bottom:	83.00000000000000
)

(RectD.288
	Left:	250.00000000000000
	Top:	212.00000000000000
	Right:	487.00000000000000
	Bottom:	90.00000000000000
)

(RectD.289
	Left:	450.00000000000000
	Top:	31.00000000000000
	Right:	488.00000000000000
	Bottom:	8.00000000000000
)

(RectD.290
	Left:	41.00000000000000
	Top:	213.00000000000000
	Right:	118.00000000000000
	Bottom:	192.00000000000000
)

(RectD.291
	Left:	128.00000000000000
	Top:	213.00000000000000
	Right:	206.00000000000000
	Bottom:	192.00000000000000
)

(RectD.292
	Left:	250.00000000000000
	Top:	54.00000000000000
	Right:	531.00000000000000
	Bottom:	37.00000000000000
)

(RectD.293
	Left:	250.00000000000000
	Top:	92.00000000000000
	Right:	536.00000000000000
	Bottom:	67.00000000000000
)

(RectD.294
	Left:	8.00000000000000
	Top:	30.00000000000000
	Right:	443.00000000000000
	Bottom:	10.00000000000000
)

(RectD.295
	Left:	251.00000000000000
	Top:	76.00000000000000
	Right:	539.00000000000000
	Bottom:	52.00000000000000
)

(AVDLog.296
	Name:	"Load Dialogs"
	X:	70
	Y:	143
	W:	341
	H:	296
	HelpTopic:	"Load_Text_File_Dialog_box@dlog.hlp"
	ConstrainedControlNames:	297
	ConstrainedControlNames:	298
	Constraints:	299
	Constraints:	300
	Server:	262
	ControlPanel:	301
	ObjectTag:	203
	Title:	"Load Text File"
	Modal:	1
	Resizable:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Close:	"Load Dialog.Close"
	Open:	"Load Dialog.Open"
	DefaultButton:	254
)

(AVStr.297
	S:	"lbt_OK"
)

(AVStr.298
	S:	"lbt_Cancel"
)

(Numb.299
	N:	86.00000000000000
)

(Numb.300
	N:	86.00000000000000
)

(CPanel.301
	Child:	302
	Child:	305
	Child:	307
	Child:	310
	Child:	312
	Child:	313
	Child:	314
	ResBox:	315
	ResBox:	316
	ResBox:	317
	ResBox:	318
	ResBox:	319
	ResBox:	320
	ResBox:	321
	Listening:	1
)

(TextLine.302
	InternalName:	"txl_Dialog_Name"
	Label:	"Dialog Name:"
	LabelSize:	90
	Constraints:	0x53
	Listening:	1
	TextType:	303
	NextControl:	304
)

(AVEnum.303
	Name:	"TEXTLINE_TYPE_ALL"
)

(Nil.304
)

(TextLine.305
	InternalName:	"txl_Creator"
	Label:	"Creator:"
	LabelSize:	90
	Constraints:	0x53
	Listening:	1
	TextType:	303
	NextControl:	306
)

(Nil.306
)

(AVLBox.307
	InternalName:	"lbx_Scripts"
	NextControl:	308
	ContentKind:	4
	Constraints:	0x53
	RowCount:	1
	ColumnCount:	1
	Listening:	1
	VerticalScroll:	1
	Select:	"Load Dialog.lbx_scripts.Select"
	SelectionStyle:	309
)

(Nil.308
)

(AVEnum.309
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(TextBox.310
	InternalName:	"tbx_Source"
	Listening:	1
	Label:	"Source:"
	Constraints:	0x33
	VerticalScroll:	1
	NextControl:	311
)

(Nil.311
)

(LButn.312
	InternalName:	"lbt_OK"
	Label:	"OK"
	Click:	"Load Dialog.lbt_OK.Click"
)

(LButn.313
	InternalName:	"lbt_Cancel"
	Label:	"Cancel"
	Click:	"Load Dialog.lbt_Cancel.Click"
)

(TextLabel.314
	InternalName:	"txt_comment"
	Constraints:	0x55
	Label:	"Choose the scripts to load into the project:"
	Listening:	1
)

(RectD.315
	Left:	11.00000000000000
	Top:	31.00000000000000
	Right:	332.00000000000000
	Bottom:	11.00000000000000
)

(RectD.316
	Left:	11.00000000000000
	Top:	57.00000000000000
	Right:	330.00000000000000
	Bottom:	37.00000000000000
)

(RectD.317
	Left:	11.00000000000000
	Top:	169.00000000000000
	Right:	262.00000000000000
	Bottom:	81.00000000000000
)

(RectD.318
	Left:	10.00000000000000
	Top:	289.00000000000000
	Right:	333.00000000000000
	Bottom:	167.00000000000000
)

(RectD.319
	Left:	273.00000000000000
	Top:	117.00000000000000
	Right:	330.00000000000000
	Bottom:	98.00000000000000
)

(RectD.320
	Left:	273.00000000000000
	Top:	147.00000000000000
	Right:	330.00000000000000
	Bottom:	128.00000000000000
)

(RectD.321
	Left:	10.00000000000000
	Top:	80.00000000000000
	Right:	330.00000000000000
	Bottom:	60.00000000000000
)

(Script.322
	Name:	"Control Fasteners.chk.Click"
	SourceCode:	"'Generic click event script for all checkboxes that\n'broadcasts an update event to other checkboxes\n'to disable/enable a check box. List of listeners\n'set in Control Fasteners.Open\nself.BroadcastUpdate"
)

(Script.323
	Name:	"Control Fasteners.chkBottom.Update"
	SourceCode:	"'Disable this check box if Top and Height are checked\naChkHeight = self.GetDialog.FindByName(\"chkHeight\")\naChkTop = self.GetDialog.FindByName(\"chkTop\")\nself.SetEnabled(Not (aChkHeight.IsSelected and aChkTop.IsSelected))"
)

(Script.324
	Name:	"Control Fasteners.chkHeight.Update"
	SourceCode:	"'Disable this check box if Top and Bottom are checked\naChkBottom = self.GetDialog.FindByName(\"chkBottom\")\naChkTop = self.GetDialog.FindByName(\"chkTop\")\nself.SetEnabled(Not (aChkBottom.IsSelected and aChkTop.IsSelected))"
)

(Script.325
	Name:	"Control Fasteners.chkLeft.Update"
	SourceCode:	"'Disable this check box if Width and Right are checked\naChkWidth = self.GetDialog.FindByName(\"chkWidth\")\naChkRight = self.GetDialog.FindByName(\"chkRight\")\nself.SetEnabled(Not (aChkWidth.IsSelected and aChkRight.IsSelected))"
)

(Script.326
	Name:	"Control Fasteners.chkRight.Update"
	SourceCode:	"'Disable this check box if Left and Width are checked\naChkLeft = self.GetDialog.FindByName(\"chkLeft\")\naChkWidth = self.GetDialog.FindByName(\"chkWidth\")\nself.SetEnabled(Not (aChkLeft.IsSelected and aChkWidth.IsSelected))"
)

(Script.327
	Name:	"Control Fasteners.chkTop.Update"
	SourceCode:	"'Disable this check box if Bottom and Height are checked\naChkHeight = self.GetDialog.FindByName(\"chkHeight\")\naChkBottom = self.GetDialog.FindByName(\"chkBottom\")\nself.SetEnabled(Not (aChkHeight.IsSelected and aChkBottom.IsSelected))"
)

(Script.328
	Name:	"Control Fasteners.chkWidth.Update"
	SourceCode:	"'Disable this check box if Left and Right are checked\naChkLeft = self.GetDialog.FindByName(\"chkLeft\")\naChkRight = self.GetDialog.FindByName(\"chkRight\")\nself.SetEnabled(Not (aChkLeft.IsSelected and aChkRight.IsSelected))"
)

(Script.329
	Name:	"Control Fasteners.lbtCancel.Click"
	SourceCode:	"'Close the Control Fasteners dialog\nself.GetDialog.Close"
)

(Script.330
	Name:	"Control Fasteners.lbtDefault.Click"
	SourceCode:	"'Set default values, namely left, width, top and height = true\ntheDialog = self.GetDialog\ntheDialog.FindByName(\"chkRight\").SetSelected(false)\ntheDialog.FindByName(\"chkLeft\").SetSelected(true)\ntheDialog.FindByName(\"chkWidth\").SetSelected(true)\ntheDialog.FindByName(\"chkBottom\").SetSelected(false)\ntheDialog.FindByName(\"chkTop\").SetSelected(true)\ntheDialog.FindByName(\"chkHeight\").SetSelected(true)\n'Broadcast Update to enable/disable appropriate check boxes\n'List of Listeners set in Control Fasteners.Open\nself.B
roadcastUpdate"
)

(Script.331
	Name:	"Control Fasteners.lbtOK.Click"
	SourceCode:	"'Finds which fasteners are selected from the dialog and applies \n'those fasteners to the selected set of controls\n\ntheConstTypes = {\"left\",\"width\",\"right\",\"top\",\"height\",\"bottom\"}\ntheConstList = {}\ncontrolFasteners = av.FindDialog(\"Control Fasteners\")\n\nfor each c in theConstTypes\n  'loop thru all check boxes in dialog and find those checked\n  'build list of enumerations based on checked boxes\n  'control names in dialog are, eg chkLeft, chkRight etc.\n  if (controlFasteners.FindByName(\"chk\"+c).IsSelected) the
n\n    theConstList.Add((\"#CONTROL_FASTENER_\"+c).asEnum)\n  end\nend\n\n'Set constraints to selected controls in dialog being edited\ntheDialogEd = av.GetActiveDoc\ntheControls = theDialogEd.GetGraphics.GetSelected\nfor each c in theControls\n  ok = c.SetControlFasteners(theConstList)\nend\ntheDialogEd.NeedsCompile\nself.GetDialog.Close"
)

(Script.332
	Name:	"Control Fasteners.Open"
	SourceCode:	"'Get Control Fasteners dialog controls\naChkLeft = self.FindByName(\"chkLeft\")\naChkRight = self.FindByName(\"chkRight\")\naChkWidth = self.FindByName(\"chkWidth\")\naChkTop = self.FindByName(\"chkTop\")\naChkBottom = self.FindByName(\"chkBottom\")\naChkHeight = self.FindByName(\"chkHeight\")\naLbtDefault = self.FindByName(\"lbtDefault\")\n\n'Set Listeners for broadcasting Updates\naChkLeft.SetListeners({aChkRight, aChkWidth})\naChkRight.SetListeners({aChkLeft, aChkWidth})\naChkWidth.SetListeners({aChkLeft, aChkRight})\naChkTop.SetL
isteners({aChkBottom, aChkHeight})\naChkBottom.SetListeners({aChkTop, aChkHeight})\naChkHeight.SetListeners({aChkTop, aChkBottom})\naLbtDefault.SetListeners({aChkLeft, aChkWidth, aChkRight,\n                          aChkTop, aChkHeight, aChkBottom})\n                          \n'Initialize checked values based on first control\ntheDialogEditor = av.GetActiveDoc\nfirstControl = theDialogEditor.GetGraphics.GetSelected.Get(0)\naChkLeft.SetSelected(firstControl.HasControlFastener(#CONTROL_FASTENER_LEFT))\naChkWidth.SetS
elected(firstControl.HasControlFastener(#CONTROL_FASTENER_WIDTH))\naChkTop.SetSelected(firstControl.HasControlFastener(#CONTROL_FASTENER_TOP))\naChkHeight.SetSelected(firstControl.HasControlFastener(#CONTROL_FASTENER_HEIGHT))\naChkBottom.SetSelected(firstControl.HasControlFastener(#CONTROL_FASTENER_BOTTOM))\naChkRight.SetSelected(firstControl.HasControlFastener(#CONTROL_FASTENER_RIGHT))\n\n'Dim out appropriate check boxes\naLbtDefault.BroadcastUpdate"
)

(Script.333
	Name:	"Control Fasteners.lbtHelp.Click"
	SourceCode:	"av.Help.ShowTopic(\"Control_fasteners_dialog_box@dlog.hlp\")"
)

(Script.334
	Name:	"Dialog.Properties"
	SourceCode:	"theDEd = av.GetActiveDoc\ngl = theDEd.GetGraphics\nif (gl.HasSelected) then\n  PropWin.The.Open(theDEd.GetGraphics,\n                   theDEd.GetGraphics.GetSelected.Get(0))\nelse\n  PropWin.The.OpenOnDialogEditor(theDEd)\nend"
)

(Script.335
	Name:	"Dialog.MakeLabelButton"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nb      = LabelButton.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 1@0.3  'control will be 1\" by .3\"\n  else\n    'In case of a View or Layout, size control to\n    '20% by 7% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.2)@(aWidth * 0.07)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngb = Graphi
cControl.Make(b, r)\ngl.UnselectAll\ngb.SetSelected(true)\ngl.AddName(gb) 'this also sets name of label button\nb.SetLabel(b.GetName)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gb)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n    \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend\n"
)

(Script.336
	Name:	"Dialog.MakeCheckBox"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nc      = CheckBox.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 1@0.3  'control will be 1\" by .3\" \n  else\n    'In case of a View or Layout, size control to\n    '20% by 7% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.2)@(aWidth * 0.07)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngc = GraphicC
ontrol.Make(c, r)\ngl.UnselectAll\ngc.SetSelected(true)\ngl.AddName(gc) 'this also sets name of checkbox\nc.SetLabel(c.GetName)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gc)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n  \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.337
	Name:	"Dialog.MakeListBox"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nb      = ListBox.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 1@1  'control will be 1\" square\n  else\n    'In case of a View or Layout, size control to\n    '20% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.2)@(aWidth * 0.2)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngb = GraphicControl.Make
(b, r)\ngl.UnselectAll\ngb.SetSelected(true)\ngl.AddName(gb)\nav.GetProject.SetModified(true)\nSystem.RefreshWindows\nPropWin.The.Update(gl, gb)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n    \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.338
	Name:	"Dialog.MakeComboBox"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nc      = ComboBox.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 1@1  'control will be 1\" square\n  else\n    'In case of a View or Layout, size control to\n    '20% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.2)@(aWidth * 0.2)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngc = GraphicControl.Mak
e(c, r)\ngl.UnselectAll\ngc.SetSelected(true)\ngl.AddName(gc)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gc)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n    \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.339
	Name:	"Dialog.MakeButton"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nb      = Button.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 0.3@0.3  'control will be .3\" square\n  else\n    'In case of a View or Layout, size control to\n    '7% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.07)@(aWidth * 0.07)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngb = GraphicControl
.Make(b, r)\ngl.UnselectAll\ngb.SetSelected(true)\ngl.AddName(gb)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gb)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n\nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.340
	Name:	"Dialog.MakeRadioButton"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nb      = RadioButton.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 1@0.3  'control will be 1\" by .3\" \n  else\n    'In case of a View or Layout, size control to\n    '20% by 7% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.2)@(aWidth * 0.07)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngb = Graph
icControl.Make(b, r)\ngl.UnselectAll\ngb.SetSelected(true)\ngl.AddName(gb) 'this also sets name of radio button\nb.SetLabel(b.GetName)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gb)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n    \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.341
	Name:	"Dialog.MakeSlider"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\ns      = Slider.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 1@0.3  'control will be 1\" by .3\" \n  else\n    'In case of a View or Layout, size control to\n    '20% by 7% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.2)@(aWidth * 0.07)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngs = GraphicCon
trol.Make(s, r)\ngl.UnselectAll\ngs.SetSelected(true)\ngl.AddName(gs)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gs)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n    \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.342
	Name:	"Dialog.MakeTextBox"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nb      = TextBox.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 1@1  'control will be 1\" square\n  else\n    'In case of a View or Layout, size control to\n    '20% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.2)@(aWidth * 0.2)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngb = GraphicControl.Make
(b, r)\ngl.UnselectAll\ngb.SetSelected(true)\ngl.AddName(gb)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gb)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n    \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.343
	Name:	"Dialog.MakeTextLine"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nt      = TextLine.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 1.5@0.3  'control will be 1.5\" by .3\" \n  else\n    'In case of a View or Layout, size control to\n    '25% by 7% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.3)@(aWidth * 0.07)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngt = Grap
hicControl.Make(t, r)\ngl.UnselectAll\ngt.SetSelected(true)\ngl.AddName(gt) 'this also sets name of textline\nt.SetLabel(t.GetName+\":\")\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gt)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n    \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.344
	Name:	"Dialog.MakeTextLabel"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nt      = TextLabel.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 1@0.3  'control will be 1\" by .3\" \n  else\n    'In case of a View or Layout, size control to\n    '20% by 7% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.2)@(aWidth * 0.07)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngt = Graphic
Control.Make(t, r)\ngl.UnselectAll\ngt.SetSelected(true)\ngl.AddName(gt)\nt.SetLabel(t.GetName)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gt)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n    \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.345
	Name:	"Dialog Editor.Properties"
	SourceCode:	"theDEd = av.GetActiveDoc\ntheDEd.EditProperties"
)

(Script.346
	Name:	"Dialog.MakeTool"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nt      = Tool.Make\nr      = theDoc.ReturnUserRect\n\nt.SetIcon(Self.GetIcon.Clone)\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 0.25@0.25  'control will be .25\" square\n  else\n    'In case of a View or Layout, size control to\n    '6% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.06)@(aWidth * 0.06)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset)
, aSize)\nend\ngt = GraphicControl.Make(t, r)\ngl.UnselectAll\ngt.SetSelected(true)\ngl.AddName(gt)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gt)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n    \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.347
	Name:	"Dialog.Run"
	SourceCode:	"theDialogEditor = av.GetActiveDoc\ntheDialogEditor.GetDialog.Open"
)

(Script.348
	Name:	"Dialog Editor.New"
	SourceCode:	"newDialogEditor = DialogEditor.MakeWithGUI(av.GetProject.GetSelectedGUI.GetName)\nnewDialogEditor.GetWin.Open"
)

(Script.349
	Name:	"Dialog Editor.Paste"
	SourceCode:	"'Pastes controls on DEd, offsetting them from originals\n'Successive pastes offset incrementally using object tag.\nPasteChoice = av.GetActiveGUI.GetMenuBar.FindByScript(\"Dialog Editor.Paste\")\nif (PasteChoice <> NIL) then\n  OffsetAmount = PasteChoice.GetObjectTag\nelse\n  OffsetAmount = (0.1@(-0.1))\nend\ntheDialogEditor = av.GetActiveDoc\nav.Run(\"Layout.Paste\", nil)\ngl  = theDialogEditor.GetGraphics\nsel = gl.GetSelected\nfor each c in 0..(sel.count - 1)\n  g = sel.Get(c)\n  gl.RemoveGraphic(g)\n  gl.AddName(g)\n  g.of
fset(OffsetAmount)\nend\nSystem.RefreshWindows\nPropWin.The.Update(gl, g)\nif (PasteChoice <> NIL) then\n  PasteChoice.SetObjectTag(OffsetAmount + (0.1@(-0.1)))\nend\n"
)

(Script.350
	Name:	"Dialog Editor.Cut"
	SourceCode:	"theDEd = av.GetActiveDoc\nif (theDEd.GetGraphics.HasSelected) then\n  av.GetProject.SetModified(true)\nend\ntheDEd.GetGraphics.CutSelected\n'Initial offset amount set as point on menu choice\n'for Dialog Editor.Paste script\nPasteChoice = av.GetActiveGUI.GetMenuBar.FindByScript(\"Dialog Editor.Paste\")\nif (PasteChoice <> NIL) then\n  PasteChoice.SetObjectTag(0.1@(-0.1))\nend\n"
)

(Script.351
	Name:	"Dialog Editor.Copy"
	SourceCode:	"theDEd = av.GetActiveDoc\nif (theDEd.GetGraphics.HasSelected) then\n  av.GetProject.SetModified(true)\nend\ntheDEd.GetGraphics.CopySelected\n'Initial offset amount set as point on menu choice\n'for Dialog Editor.Paste script\nPasteChoice = av.GetActiveGUI.GetMenuBar.FindByScript(\"Dialog Editor.Paste\")\nif (PasteChoice <> NIL) then\n  PasteChoice.SetObjectTag(0.1@(-0.1))\nend\n"
)

(Script.352
	Name:	"Dialog.MakeControlPanel"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nc      = ControlPanel.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 1@1  'control will be 1\" square\n  else\n    'In case of a View or Layout, size control to\n    '20% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.2)@(aWidth * 0.2)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngc = GraphicControl
.Make(c, r)\ngl.UnselectAll\ngc.SetSelected(true)\ngl.AddName(gc) 'this also sets name of control panel\nc.SetLabel(c.GetName)\nc.SetVisibleBorder(true)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gc)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n\nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.353
	Name:	"Dialog.AlignUpdate"
	SourceCode:	"self.SetEnabled(\n  av.GetActiveDoc.GetGraphics.GetSelected.Count >= 1)"
)

(Script.354
	Name:	"Dialog.Compile"
	SourceCode:	"theDialogEditor = av.GetActiveDoc\ngraphicControls = theDialogEditor.GetGraphics\ndupNameDict = Dictionary.Make(21)\nfor each gc in theDialogEditor.GetGraphics\n  if (dupNameDict.Add(gc.GetName, gc).Not) then\n    MsgBox.Error(\"'\"+gc.GetName+\"' is used more than once as the name of a control.\",\n                 \"Duplicate Control Name\")\n    return nil\n  end\n  if (gc.GetControl.Is(TextLine) or gc.GetControl.Is(TextBox) or\n      gc.GetControl.Is(Slider)   or gc.GetControl.Is(ListBox) or\n      gc.GetControl.Is(Comb
oBox)                                 )then\n    if ((gc.GetControl.GetNextControl <> nil) and \n        (graphicControls.FindByName(gc.GetControl.GetNextControl.GetName) = nil)) then\n      MsgBox.Error(\"Next Control \"+gc.GetControl.GetNextControl.GetName+\" doesn't exist\",\n                   \"Control doesn't exist\")\n      gc.GetControl.SetNextControl(nil)\n      return nil\n    elseif (gc.GetControl.GetNextControl <> nil) then\n      nextControlName = gc.GetControl.GetNextControl.GetName\n      gc.GetControl.SetNextControl(graphicControls.FindByName(nextCon
trolName).GetControl)\n    end\n  end\nend\ndupNameDict.Empty\ntheDialogEditor.GetDialog.SetServer(nil)\ntheDialogEditor.Compile\n"
)

(Script.355
	Name:	"Dialog.ControlFasteners"
	SourceCode:	"av.FindDialog(\"Control Fasteners\").Open"
)

(Script.356
	Name:	"Dialog Editor.PasteUpdate"
	SourceCode:	"SELF.SetEnabled(Clipboard.The.HasKindOf(GraphicControl)) \n"
)

(Script.357
	Name:	"Dialog.ControlFastenersUpdate"
	SourceCode:	"theDlog = av.GetActiveDoc\nSELF.SetEnabled(theDlog.GetGraphics.GetSelected.Count > 0) \n"
)

(Script.358
	Name:	"Dialog.DoNothing"
	SourceCode:	"'\n' This script does nothing, but it\n' is attached to the click event of\n' tools in the dialog editor so that the\n' application framework will trigger\n' an update event for those tools.\n'\n' In other words, when you click on\n' a tool, the docgui containing the\n' tool will be updated only if that\n' tool has a click script defined for it.\n'"
)

(Script.359
	Name:	"DIalog.MakeIconBox"
	SourceCode:	"theDoc = av.GetActiveDoc\ngl     = theDoc.GetGraphics\nd      = theDoc.GetDisplay\nb      = IconBox.Make\nr      = theDoc.ReturnUserRect\n\nif (r.IsNull) then\n  if (theDoc.Is(DialogEditor)) then\n    aSize = 0.5@0.5  'control will be .5\" square\n  else\n    'In case of a View or Layout, size control to\n    '10% of display width\n    aWidth = d.ReturnVisExtent.GetWidth\n    aSize = (aWidth * 0.1)@(aWidth * 0.1)\n  end\n  aOffset = aSize / (2@2)\n  r = Rect.Make((d.ReturnUserPoint - aOffset), aSize)\nend\ngb = GraphicControl
.Make(b, r)\ngl.UnselectAll\ngb.SetSelected(true)\ngl.AddName(gb)\nav.GetProject.SetModified(true)\nPropWin.The.Update(gl, gb)\n\nav.Run(\"Dialog Editor.ActivateSelectTool\", theDoc)\n    \nif (theDoc.Is(DialogEditor)) then\n  theDoc.NeedsCompile\nend"
)

(Script.360
	Name:	"Dialog.CompileUpdate"
	SourceCode:	"theDialogEditor = av.GetActiveDoc\nself.SetEnabled(\n  theDialogEditor.IsCompiled.Not)\n"
)

(Script.361
	Name:	"Dialog.RunUpdate"
	SourceCode:	"theDialogEditor = av.GetActiveDoc\nself.SetEnabled(\n  theDialogEditor.IsCompiled = true)"
)

(Script.362
	Name:	"Dialog Editor.SaveDetached"
	SourceCode:	"theProject = av.GetProject\n\n'Save changes to current project before creating the new one\nif (theProject.IsModified) then\n  res = MsgBox.YesNo(\"Changes will be saved to \"+ theProject.GetName\n                     + \" before the new detached project is written. Do you want to continue?\",\n                     \"Save Detached\", TRUE)\n  if (res = FALSE) then return nil end\n  if (res) then\n    av.Run(\"Project.Save\", nil)\n    if (theProject.IsModified) then return nil end\n  end\nend\n\n'Load the dialog core extension\nc
oreExt = Extension.Open(\"$AVEXT/dlogcore.___\".AsFilename)\nif (coreExt = nil) then\n  msgbox.Error(\"Can't unload the Dialog Designer because $AVEXT/avdlogcore.___ failed to load.\",\"Error\")\n  return nil\nend\n\n'Get new filename\nif ((System.GetEnvVar(\"HOME\") <> nil) and File.IsWritable(\"$HOME\".AsFileName)) then\n  defName = FileName.Make(\"$HOME\").MakeTmp(\"proj\", \"apr\")\nelse\n  defName = FileName.Make(\"proj1.apr\")\nend\n\ntheFName = FileDialog.Put(defName, \"*.apr\", \"Save Detached\")\nif (theFName = nil) then return nil e
nd\ntheProject.SetFileName(theFName)\n\n'Embed the dialogs\n\nddext = Extension.GetExtensions.Get(\"Dialog Designer\")\ndedGUI = Extension.FindGui(\"DialogEditor\")\ntheDialogEditors = theProject.GetDocsWithGUI(dedGUI)\n\nfor each d in theDialogEditors\n  'See if a dialog with the same name is already in the project\n  if ( av.GetProject.GetDialogs.Get(d.GetName) <> nil) then\n    replace = MsgBox.YesNo( \"There is already a dialog called\"++d.GetName+\" in the project.\"\n                            +\"Do you want to overwrite 
it?\",\n                             \"Embed Dialog\", TRUE)\n    if (replace.Not) then\n      msgbox.Error(\"Save Detached failed because there is more than one dialog with the same name.\",\"Error\")\n      coreExt.Unload   \n      return nil\n    end\n  end\n  \n  theProject.AddDialog(d.GetDialog)\n  theProject.RemoveDoc(d)\n  \nend  \n\n'Put all graphic controls on views and layouts in run mode\ndocList = theProject.GetDocs\nfor each d in docList\n  if ((d.Is(View)) or (d.Is(Layout) and d.Is(DialogEditor).Not)) then\n    graLis
t = d.GetGraphics\n    gcList = graList.FindAllByClass(GraphicControl)\n    if (gcList <> nil) then\n      for each gc in gcList\n        gc.SetEditable(False)\n      end\n    end\n  end  \nend\n\nPropWin.The.Close\n\nif (av.FindDialog(\"Control Tools\").IsOpen) then \n  av.FindDialog(\"Control Tools\").Close \nend   \n\n'Set the Dialog Designer CanUnload script to nil\nddext.SetCanunloadScript(nil)\n\n'Unload the Dialog Designer extension\nwhile (ddext <> nil)\n  if (ddext.Unload) then \n    ddext = Extension.GetExtensions.Get(\"Dia
log Designer\")\n  else\n    msgbox.Error(\"Can't unload the Dialog Designer\",\"Error\")\n    coreExt.Unload\n    break\n  end\nend\n\n'Save the new detached project\nif (theProject.Save) then\n  av.ShowMsg( \"Detached Project saved to '\"+theProject.GetFileName.GetBaseName+\"'\")\n  if (System.GetOS = #SYSTEM_OS_MAC) then\n    realFName = theProject.GetFileName\n    if (nil <> realFName) then\n      Script.Make(\"MacClass.SetDocInfo(SELF, Project)\").DoIt(realFName)\n    end\n  end\nend\n\n\n\n"
)

(Script.363
	Name:	"Dialog Editor.SaveDetachedUpdate"
	SourceCode:	"ddExt = Extension.GetExtensions.Get(\"Dialog Designer\")\ndedGUI = Extension.FindGui(\"DialogEditor\")\ntheDialogEditors = av.GetProject.GetDocsWithGUI(dedGUI)\n\n\nallCompiled = TRUE\nfor each d in theDialogEditors\n  if (d.IsCompiled.Not) then\n    allCompiled = False\n  end\nend\n    \nself.SetEnabled(ddExt.CanUnload.not and allCompiled)\n\n\n"
)

(Script.364
	Name:	"GraphicControl.DesignRun"
	SourceCode:	"'\n' The object tag of this control is either TRUE or\n' FALSE. When its FALSE, this script puts all graphic controls\n' into Run mode. When its TRUE, this script puts all\n' graphic controls into design mode.\n'\n' In either case, the value of the object tag is then\n' toggle. Then, if its TRUE, the label is set to \"&Design\n' Controls\", otherwise its set to \"&Run Controls\".\n'\n\ntheView = av.GetActiveDoc\ndesignThem = self.GetObjectTag\nfor each gc in theView.GetGraphics\n  if (gc.Is(GraphicControl)) then\n    gc.SetEd
itable(designThem)\n  end\nend\nself.SetObjectTag(designThem.Not)\n\nif (self.GetObjectTag) then\n  self.SetLabel(\"&Design Controls\")\nelse\n  self.SetLabel(\"&Run Controls\")\nend\n    \n"
)

(Script.365
	Name:	"GraphicControl.DesignRunUpdate"
	SourceCode:	"theLayoutOrView = av.GetActiveDoc\nself.SetEnabled(theLayoutOrView.GetGraphics.Count > 0)"
)

(Script.366
	Name:	"GraphicControl.ShowHideTools"
	SourceCode:	"theView = av.GetActiveDoc\ncontrolTools = av.FindDialog(\"Control Tools\")\nif (controlTools = nil) then\n  return nil\nend\n\nif (controlTools.IsOpen) then\n  controlTools.Close\nelse\n  controlTools.Open\nend"
)

(Script.367
	Name:	"Dialog Editor.ActivateSelectTool"
	SourceCode:	"'\n' self is the active dialog editor, layout, or view document\n'\n\ntb         = av.GetActiveGUI.GetToolBar\nselectTool = nil\n\nif (self.Is(View)) then\n  selectTool = tb.FindByScript(\"View.Select\")\nelseif (self.Is(DialogEditor)) then\n  selectTool = tb.FIndByScript(\"Dialog Editor.Select\")\nelseif (self.Is(Layout)) then\n  selectTool = tb.FindByScript(\"Layout.Select\")\nend\n\nif (selectTool <> nil) then\n  selectTool.Select\nend\n"
)

(Script.368
	Name:	"GraphicControl.ShowHideToolsUpdate"
	SourceCode:	"controlTools = av.FindDialog(\"Control Tools\")\nif (controlTools = nil) then\n  return nil\nend\nif (controlTools.IsOpen) then\n  self.SetLabel(\"&Hide Control Tools\")\n  self.SetHelp(\"Hides the Dialog Designer control tools\")\nelse\n  self.SetLabel(\"S&how Control Tools...\")\n  self.SetHelp(\"Shows the Dialog Designer control tools\")\nend\n"
)

(Script.369
	Name:	"Control Tools.DocActivate"
	SourceCode:	"theDoc = self.GetActiveDoc\nenabled = theDoc.Is(View) or theDoc.Is(Layout)\n\ntheControlPanel = self.GetControlPanel\ntheRadioBtn = self.FindByName(\"RadioButtonTool\")\ntheCheckBox = self.FindByName(\"CheckBoxTool\")\n\n'Dim controls when active doc is not view,layout or dialog\n'NOTE: To workaround a Known Limit, dim Check box and \n'      Radio button in View document.\n\nIf (enabled) then\n  theControlPanel.Setenabled(true)\n  if (theDoc.Is(View)) then\n    theRadioBtn.Setenabled(false)\n    theCheckBox.SetEnabled(false)\n
  else\n    theRadioBtn.Setenabled(true)\n    theCheckBox.SetEnabled(true) \n  end\nelse\n  theControlPanel.SetEnabled(false)\nend\n"
)

(Script.370
	Name:	"Control Tools.Close"
	SourceCode:	"'Trigger update event to enable menu item\nav.GetActiveGUI.Update"
)

(Script.371
	Name:	"Control Tools.Open"
	SourceCode:	"theDoc = self.GetActiveDoc\nenabled = theDoc.Is(View) or theDoc.Is(Layout)\n\ntheControlPanel = self.GetControlPanel\ntheRadioBtn = self.FindByName(\"RadioButtonTool\")\ntheCheckBox = self.FindByName(\"CheckBoxTool\")\n\n'NOTE: To workaround a Known Limit, dim Check box and \n'      Radio button in View document.\n\ntheControlPanel.Setenabled(true)\nif (theDoc.Is(View)) then\n  theRadioBtn.Setenabled(false)\n  theCheckBox.SetEnabled(false)\nelse\n  theRadioBtn.Setenabled(true)\n  theCheckBox.SetEnabled(true)\nend\n"
)

(Script.372
	Name:	"Dialog Editor.Select"
	SourceCode:	"theDialogEditor = av.GetActiveDoc\ntheDialogEditor.Select\nif (System.IsDoubleClick and\n    theDialogEditor.GetGraphics.HasSelected.Not) then\n  PropWin.The.OpenOnDialogEditor(theDialogEditor)\nend"
)

(Script.373
	Name:	"View.Layout"
	SourceCode:	"'View.Layout\n'\n' This version of View.Layout ensures that Dialog Editors\n' (which are subclasses of the layout document) don't\n' appear in the list of layouts presented to the user\n'\nt = TemplateMgr.Show\nif (t <> nil) then\n  theView = av.GetActiveDoc\n  \n  '\n  'Build list of objects used to fill frames\n  '\n  docs = av.GetProject.GetDocs\n  docs.Shuffle(theView, 0)\n  objs = List.Make\n  objs.Add(theView.GetName)\n  objs.Merge(docs)\n\n  '\n  'Check if any layouts exist.  If so, give user choice of which layout to u
se.\n  '\n  layouts = List.Make\n  for each d in docs\n    if (d.Is(Layout) and d.Is(DialogEditor).Not) then\n      layouts.Add(d)\n    end\n  end\n  if (layouts.Count = 0) then\n    l = Layout.Make\n  else\n    new = Layout.Make\n    name = new.GetName\n    new.SetName(\"<New Layout>\")\n    layouts.Insert(new)\n    l = MsgBox.List(layouts, \"Select a Layout\", \"View - Layout\")\n    if (l = new) then\n      l.SetName(name)\n    else\n      av.GetProject.RemoveDoc(new)\n    end\n  end\n  \n  \n  '\n  ' Format the layout with the select
ed template\n  ' and fill with objs\n  '\n  if (l <> nil) then\n    l.UseTemplate(t)\n    l.GetGraphics.FillFrames(objs)\n    l.GetWin.Open\n  end\nend"
)

(Script.374
	Name:	"Dialog Editor.Action"
	SourceCode:	"'\n' open dialogs contained in selected\n' dialog editor documents\n' \nfor each d in av.GetProject.GetSelectedDocs\n d.GetDialog.Open\nend\n"
)

(Script.375
	Name:	"Dialog Editor.ActionUpdate"
	SourceCode:	"SELF.SetEnabled(av.GetProject.GetSelectedDocs.Count > 0)\nSELF.SetLabel(\"&Run\")\nSELF.SetHelpTopic(\"OpenDialogs_button\")"
)

(Script.376
	Name:	"Dialog Editor.Size"
	SourceCode:	"av.FindDialog(\"Dialog Size\").Open"
)

(Script.377
	Name:	"Dialog Size.Open"
	SourceCode:	"aDEd = av.GetActiveDoc\nbtn_OK = self.FindByName(\"btn_OK\")\ntxl_width = self.FindByName(\"txl_width\")\ntxl_height = self.FindByName(\"txl_height\")\nchk_units = self.FindByName(\"chk_units\")\nCurrentSize = aDEd.ReturnDialogBox\nwdt = CurrentSize.GetWidth\nht  = CurrentSize.GetHeight\nif (chk_units.IsSelected) then\n  wdt = wdt*2.54\n  ht  = ht*2.54\nend\ntxl_width.SetText(wdt.SetFormat(\"d.dd\").AsString)\ntxl_height.SetText(ht.SetFormat(\"d.dd\").AsString)\ntxl_width.focus\n'setup the listeners\ntxl_width.SetListeners({btn_OK,chk
_units})\ntxl_height.SetListeners({btn_OK,chk_units})\nbtn_OK.SetEnabled(true)\n\n\n\n"
)

(Script.378
	Name:	"Dialog Size.OK.Click"
	SourceCode:	"aDEd = av.GetActiveDoc\nCurrentSize = aDEd.ReturnDialogBox\nCurrentOrigin = CurrentSize.ReturnOrigin\nnew_width = self.getdialog.findbyname(\"txl_width\").GetText.AsNumber.Abs\nnew_height = self.getdialog.findbyname(\"txl_height\").GetText.AsNumber.Abs\nchk_units = self.GetDialog.FindByName(\"chk_units\")\nif (chk_units.IsSelected) then\n  new_width  = new_width/2.54\n  new_height = new_height/2.54\nend\naDEd.SetDialogBox(rect.Make(CurrentOrigin,new_width@new_height))\nSelf.GetDialog.Close\n"
)

(Script.379
	Name:	"Dialog Size.Cancel.Click"
	SourceCode:	"Self.GetDialog.Close\n"
)

(Script.380
	Name:	"Dialog Size.txl_width.Empty"
	SourceCode:	"self.BroadcastUpdate"
)

(Script.381
	Name:	"Dialog Size.btn_OK.Update"
	SourceCode:	"txl_width = self.GetDialog.FindByName(\"txl_width\")\ntxl_height = self.GetDialog.FindByName(\"txl_height\")\nCurWidth = txl_width.GetText\nCurHeight = txl_height.GetText\n\nif ((CurWidth = \"\") or (CurHeight = \"\")) then\n  Self.SetEnabled(false)\nelse\n  Self.SetEnabled(true)\nend"
)

(Script.382
	Name:	"Dialog Size.chk_units.Click"
	SourceCode:	"txl_width = self.GetDialog.FindByName(\"txl_width\")\ntxl_height = self.GetDialog.FindByName(\"txl_height\")\ntxt_width = self.GetDialog.FindByName(\"txt_width\")\ntxt_height = self.GetDialog.FindByName(\"txt_height\")\n\nwdt = txl_width.GetText.AsNumber.Abs\nht  = txl_height.GetText.AsNumber.Abs\n\nif (self.IsSelected) then\n  txt_width.SetLabel(\"cm\")\n  txt_height.SetLabel(\"cm\")\n  txl_width.SetText((wdt*2.54).SetFormat(\"d.dd\").AsString)\n  txl_height.SetText((ht*2.54).SetFormat(\"d.dd\").AsString)\nelse\n  txt_width.SetLabel(\"I
nches\")\n  txt_height.SetLabel(\"Inches\")\n  txl_width.SetText((wdt/2.54).SetFormat(\"d.dd\").AsString)\n  txl_height.SetText((ht/2.54).SetFormat(\"d.dd\").AsString)\nend\n"
)

(Script.383
	Name:	"Write Dialog.btn_file_browser.Click"
	SourceCode:	"FName_ctl = self.GetDialog.FindByName(\"txl_file_name\")\n\nif ((System.GetEnvVar(\"HOME\") <> nil) and File.IsWritable(\"$HOME\".AsFileName)) then\n  defName = FileName.Make(\"$HOME\").MakeTmp(\"dlog\", \"ded\")\nelse\n  defName = FileName.Make(\"dlog1.ded\")\nend\n\ntheFName = FileDialog.Put(defName, \"*.ded\", \"Save Dialog As\")\n\nif (theFName <> nil) then\n  FName_ctl.SetText(theFName.AsString)\n  Self.GetDialog.FindByName(\"lbt_OK\").Update\nend\n"
)

(Script.384
	Name:	"Write Dialog.lbt.OK.Click"
	SourceCode:	"aDEd = av.GetActiveDoc\n'Get current values from controls\ntheFName         = Self.GetDialog.FindByName(\"txl_file_name\").GetText.AsFileName\ntheDialogName    = Self.GetDialog.FindByName(\"txl_dialog_name\").GetText\ntheCreator       = Self.GetDialog.FindByName(\"txl_creator_name\").GetText\ntheComments      = Self.GetDialog.FindByName(\"tbx_comments\").GetText\nScripts_List_ctl = Self.GetDialog.FindByName(\"lbx_scripts\")\n\n'Get selected script list from the scripts list box.\nSelectScripts = {}\nsList = Scripts_List_ctl.Ge
tList\nif (sList.Count > 0) then\n  for each i in 1..(sList.count)\n    subList = slist.get(i-1)\n    if (subList.get(0).AsString = \"check\") then\n      SelectScripts.Add(subList.get(1).AsString)\n    end\n  end\nend\n\n'Change the active document name,creator and comments\naDEd.SetName(theDialogName)\naDEd.SetCreator(theCreator)\naDEd.SetComments(theComments)\n'the following two lines are required to remove any VTab refernces in the ODB file\naDEd.GetDialog.SetServer(nil)\naDEd.Compile\n'Make an odb file\nmyODB = ODB.Make(t
heFName)\n\n'Add the dialog designer extension dependency to the ODB file\nmyODB.GetDependencies.Add(\"$AVEXT/dialog.avx\".asFileName)\n\n'Add the DialogEditor to the ODB file\nmyODB.Add(aDEd)\n'Add all associated dialog scripts to the ODB file\nfor each aScriptName in SelectScripts\n  s = av.GetProject.FindDoc(aScriptName)\n  if (s.Is(SEd)) then\n    myodb.Add(s)\n  end\nend\nmyodb.Commit\n\n'Close the dialog\nSelf.GetDialog.Close"
)

(Script.385
	Name:	"Write Dialog.lbt_Cancel.Click"
	SourceCode:	"self.GetDialog.Close\n"
)

(Script.386
	Name:	"Write Dialog.lbt_OK.Update"
	SourceCode:	"if (self.GetDialog.FindByName(\"txl_file_name\").GetText = \"\") then\n  Self.SetEnabled(false)\nelse\n  Self.SetEnabled(true)\nend"
)

(Script.387
	Name:	"Write Dialog.lbx_scripts.Select"
	SourceCode:	"self.GoRowColumn(self.GetCurrentRow,0)\nif (self.GetCurrentValue.asstring = \"box\") then\n  self.SetCurrentValue(self.GetObjectTag.Get(0))\nelse\n  self.SetCurrentValue(self.GetObjectTag.Get(1))\nend\n"
)

(Script.388
	Name:	"Write Dialog.Open"
	SourceCode:	"aDEd = av.GetActiveDoc\naDlog = aDEd.GetDialog\nDEdName = aDEd.GetName\n\nif ((System.GetEnvVar(\"HOME\") <> nil) and File.IsWritable(\"$HOME\".AsFileName)) then\n  defName = FileName.Make(\"$HOME\").MakeTmp(\"dlog\", \"ded\")\nelse\n  defName = FileName.Make(\"dlog1.ded\")\nend\n\n'Get all the scripts that are associated with the dialog\n\nADlogScripts = {}\naDlogScripts.Add(aDlog.GetActivate)\naDlogScripts.Add(aDlog.GetClose)\naDlogScripts.Add(aDlog.GetDocActivate)\naDlogScripts.Add(aDlog.GetOpen)\naDlogScripts.Add(aDlog.GetServerAct
ivated)\naDlogScripts.Add(aDlog.GetServerClosed)\naDlogScripts.Add(aDlog.GetServerDeactivated)\naDlogScripts.Add(aDlog.GetServerDefinitionChanged)\naDlogScripts.Add(aDlog.GetServerOpened)\naDlogScripts.Add(aDlog.GetServerRecordsAdded)\naDlogScripts.Add(aDlog.GetServerRecordsDeleted)\naDlogScripts.Add(aDlog.GetServerSelectionChanged)\naDlogScripts.Add(aDlog.GetUpdate)\n\n' Get the script names from all the controls in the dialog\n\ngraphicControls = aDEd.GetGraphics\nfor each gc in graphiccontrols\n  gc = gc.GetControl\n  
if (gc.Is(LabelButton) or gc.Is(Button) or\n      gc.Is(RadioButton) or gc.Is(CheckBox)  ) then\n    aDlogScripts.Add(gc.GetClick)\n  elseif (gc.Is(Tool)) then\n    aDlogScripts.Add(gc.GetClick)\n    aDlogScripts.Add(gc.GetApply)\n  elseif (gc.Is(TextLine)) then\n    aDlogScripts.Add(gc.GetClick)\n    aDlogScripts.Add(gc.GetApply)\n    aDlogScripts.Add(gc.GetChanged)\n    aDlogScripts.Add(gc.GetEmpty)\n    aDlogScripts.Add(gc.GetFocusLost)\n  elseif (gc.Is(TextBox)) then\n    aDlogScripts.Add(gc.GetClick)\n    aDlogScrip
ts.Add(gc.GetEmpty)\n    aDlogScripts.Add(gc.GetChanged)\n  elseif (gc.Is(ListBox)) then\n    aDlogScripts.Add(gc.GetApply)\n    aDlogScripts.Add(gc.GetSelect)\n  elseif (gc.Is(ComboBox)) then\n    aDlogScripts.Add(gc.GetSelect)\n  elseif (gc.Is(Slider)) then\n    aDlogScripts.Add(gc.GetDrag)\n    aDlogScripts.Add(gc.GetClick)\n  end\n  aDlogScripts.Add(gc.GetUpdate)\nend\n\n' Search for dependent scripts in all the above scripts, and,\n' if found, save those scripts to the ODB file.\ncount = 0\ndependScripts = {}\nav.ShowMs
g(\"Scanning scripts for dependent scripts...\")\nfor each sc in aDlogScripts\n  count = count+1\n  progress = (count/aDlogScripts.count) * 100\n  doMore = av.SetStatus( progress )\n  if (not doMore) then\n    break\n  end\n  if ((sc <> \"\") and (av.GetProject.FindDoc(sc) <> nil)) then\n    LineTokens = av.findDoc(sc).GetSource.AsTokens(NL)\n    for each ln in LineTokens\n      wordToken = ln.AsTokens(\"\"\"\")\n      for each wd in 0..(wordToken.count - 1)\n        if ((wordToken.Get(wd).contains(\"av.run\")) or\n            (wo
rdToken.Get(wd).contains(\"av.DelayedRun\")) or\n            (wordToken.Get(wd).contains(\"SetActivate\")) or\n            (wordToken.Get(wd).contains(\"SetClose\")) or\n            (wordToken.Get(wd).contains(\"SetDocActivate\")) or\n            (wordToken.Get(wd).contains(\"SetOpen\")) or\n            (wordToken.Get(wd).contains(\"SetServerActivated\")) or\n            (wordToken.Get(wd).contains(\"SetServerClosed\")) or\n            (wordToken.Get(wd).contains(\"SetServerDeActivated\")) or\n            (wordToken.Get(wd).contai
ns(\"SetServerDefinitionChanged\")) or\n            (wordToken.Get(wd).contains(\"SetServerOpened\")) or\n            (wordToken.Get(wd).contains(\"SetServerRecordsAdded\")) or\n            (wordToken.Get(wd).contains(\"SetServerRecordsDeleted\")) or\n            (wordToken.Get(wd).contains(\"SetServerSelectionChanged\")) or\n            (wordToken.Get(wd).contains(\"SetUpdate\")) or\n            (wordToken.Get(wd).contains(\"SetClick\")) or\n            (wordToken.Get(wd).contains(\"SetApply\")) or\n            (wordToken.Get(wd)
.contains(\"SetChanged\")) or\n            (wordToken.Get(wd).contains(\"SetEmpty\")) or\n            (wordToken.Get(wd).contains(\"SetFocusLost\")) or\n            (wordToken.Get(wd).contains(\"SetSelect\")) or\n            (wordToken.Get(wd).contains(\"SetRangeApply\")) or\n            (wordToken.Get(wd).contains(\"SetRangeSelect\")) or\n            (wordToken.Get(wd).contains(\"SetDrag\"))\n           ) then\n          'Add a safegaurd for cases such as SetSelected(true). The \"Contains\"\n          'statement in the above code 
finds SetSelected as a valid case when it\n          'is not and tries to get the next object in the list and fails with an\n          'index out of range error.\n          if (wordToken.Count > (wd+1)) then \n            dependScripts.add(wordToken.get(wd+1).trim)\n          end\n        end\n      end\n    end\n  end\nend\n\n'add dialog and dependent script lists together\naDlogScripts = aDlogScripts+dependScripts\naDlogScripts.RemoveDuplicates\n\nfinalScripts = {}\nfor each s in aDlogScripts\n  if ((s <> \"\") and (av.GetPr
oject.FindDoc(s).Is(SEd))) then\n    finalScripts.Add(s).sort(true)\n  end\nend\n\n' Get the check and box icons from the icon manager\ny = IconMgr.GetIcons\nn = NameDictionary.Make( 100 ) \nfor each i in y\n   n.Add( i ) \nend\nchkIcon = n.Get(\"Check\")\nboxIcon = n.Get(\"Box\")\ntmpList = {}\n\nfor each i in finalScripts\n  tmpList.Add({chkIcon,i})\nend\n\n' Fill the controls with initial settings\n\nSelf.FindByName(\"txl_file_name\").SetText(defName.AsString)\nSelf.FindByName(\"txl_dialog_name\").SetText(DEdName)\nSelf.FindByName(\"tx
l_creator_name\").SetText(aDEd.GetCreator)\nSelf.FindByName(\"tbx_comments\").SetText(aDEd.GetComments)\ntxtMsg1 = Self.FindByName(\"txt_message1\")\ntxtMsg2 = Self.FindByName(\"txt_message2\")\ntxtMsg3 = Self.FindByName(\"txt_message3\")\nlst_ctl = Self.FindByName(\"lbx_scripts\")\n\n'Initial list box settings\nlst_ctl.SetObjectTag({chkIcon,boxIcon})\nlst_ctl.DefineFromList(tmpList)\nlst_ctl.SetRangeSelect(\"Write Dialog.lbx_scripts.Select\",Rect.Make(0@0,1@0))\nlst_ctl.SetRangeApply(\"Write Dialog.lbx_scripts.Select\",Rect.Make(0@
0,1@0))\nlst_ctl.GoColumn(1)\nlst_ctl.setcolumnwidth(88) '88% of the width\nlst_ctl.GoColumn(0)\nlst_ctl.setcolumnwidth(12) '12% of the width\n\n' Setup the listeners such that the OK is grayed out if file name is empty\nSelf.FindByName(\"txl_file_name\").SetListeners({Self.FindByName(\"lbt_OK\")})\n' Gray out the scripts list if the dialog has no associated scripts\nif (tmpList.Count = 0) then\n  lst_ctl.SetEnabled(false)\n  txtMsg1.SetEnabled(false)\n  txtMsg2.SetEnabled(false)\n  txtMsg3.SetEnabled(false)\nelse\n  lst_ctl.
SetEnabled(true)\n  txtMsg1.SetEnabled(true)\n  txtMsg2.SetEnabled(true)\n  txtMsg3.SetEnabled(true)\nend\n"
)

(Script.389
	Name:	"Write Dialog.txl_file_name.Empty"
	SourceCode:	"self.BroadcastUpdate"
)

(Script.390
	Name:	"Dialog Editor.FileWrite"
	SourceCode:	"av.FindDialog(\"Write Dialogs\").Open"
)

(Script.391
	Name:	"Write Dialog.Close"
	SourceCode:	"Self.FindByName(\"txl_file_name\").SetText(\"\")\nSelf.FindByName(\"txl_dialog_name\").SetText(\"\")\nSelf.FindByName(\"txl_creator_name\").SetText(\"\")\nSelf.FindByName(\"tbx_comments\").SetText(\"\")\nlbx_scripts = Self.FindByName(\"lbx_scripts\")\nlbx_scripts.GoRow(0)\nlbx_scripts.DeleteRows(lbx_scripts.GetRowCount)\n\n"
)

(Script.392
	Name:	"Dialog Editor.FileLoad"
	SourceCode:	"theFName = FileDialog.Show(\"*.ded\", \"Dialog Editor file (*.ded)\", \"Load Dialog From\")\nif (theFName = nil) then\n  return nil 'exit the script\nend\n\ntheODB = ODB.Open(theFName)\n\n' Exit if wrong file is selected by the user\n' Assumption - the first object in the ODB must be a DialogEditior\nif (theODB.Get(0).Is(DialogEditor).Not) then\n  msgbox.Error(theFName.AsString++\"is not a valid text file.\",\"\")\n  return nil\nend\n\n' Pass the filename to the \"Load Dialogs\" dialog\ntheDialog = av.FindDialog(\"Load Dialogs\")\ntheDi
alog.SetObjectTag(theFName)\n' Load the dialog and let the dialog's open script do the rest\n' of the dialog initialization\ntheDialog.Open\n\n"
)

(Script.393
	Name:	"Load Dialog.lbt_Cancel.Click"
	SourceCode:	"Self.GetDialog.Close\n"
)

(Script.394
	Name:	"Load Dialog.lbt_OK.Click"
	SourceCode:	"theFName = Self.GetDialog.GetObjectTag\nDName_ctl   = self.GetDialog.FindByName(\"txl_Dialog_Name\")\nCreator_ctl = self.GetDialog.FindByName(\"txl_Creator\")\nScripts_ctl = self.GetDialog.FindByName(\"lbx_Scripts\")\n\n'Get selected script list from the scripts listbox.\nSelectScripts = {}\nsList = Scripts_ctl.GetList\nif (sList.Count > 0) then\n  for each i in 1..(sList.count)\n    subList = slist.get(i-1)\n    if (subList.get(0).AsString = \"check\") then\n      SelectScripts.Add(subList.get(1).AsString)\n    end\n  end\nend\n\n
myODB = ODB.Open(theFName)\naDEd = myODB.Get(0)\n\nif (aDED.GetName <> DName_ctl.GetText) then\n  aDEd.SetName(DName_ctl.GetText)\nend\n\nif (aDEd.GetCreator <> Creator_ctl.GetText) then\n  aDEd.SetCreator(Creator_ctl.GetText)\nend\n\nav.GetProject.AddDoc(aDEd)\n\nif (SelectScripts.count <> 0) then\n  For each i in 1..(myODB.Count-1)\n    if ((SelectScripts.FindByValue(myODB.Get(i).GetName)) <> -1) then\n      av.GetProject.AddDoc(myODB.Get(i))\n    end\n  end\n  end\n' Close the dialog\nSelf.GetDialog.Close\n\n"
)

(Script.395
	Name:	"Load Dialog.lbx_scripts.RangeSelect"
	SourceCode:	"self.GoRowColumn(self.GetCurrentRow,0)\nif (self.GetCurrentValue.asstring = \"box\") then\n  self.SetCurrentValue(self.GetObjectTag.Get(0))\nelse\n  self.SetCurrentValue(self.GetObjectTag.Get(1))\nend\n"
)

(Script.396
	Name:	"Load Dialog.lbx_scripts.Select"
	SourceCode:	"Source_ctl = self.GetDialog.FindByName(\"tbx_Source\")\nSrcDictionary = Source_ctl.GetObjectTag\nSelf.GoRowColumn(self.GetCurrentRow,1)\nCurValue = Self.GetCurrentValue\nselSource = SrcDictionary.Get(CurValue).clone\nSource_ctl.SetText(selSource)\n"
)

(Script.397
	Name:	"Load Dialog.Open"
	SourceCode:	"DName_ctl   = self.FindByName(\"txl_Dialog_Name\")\nCreator_ctl = self.FindByName(\"txl_Creator\")\nScripts_ctl = self.FindByName(\"lbx_Scripts\")\nSource_ctl  = self.FindByName(\"tbx_Source\")\nOK_ctl      = self.FindByName(\"lbt_OK\")\ntheFName    = self.GetObjectTag\n\ntheODB = ODB.Open(theFName)\n\n' Search the file for all scripts. Add each script's source\n' as an element in a dictionary. Attach the dictionary to the\n' Source Text box control for quick reference.\nif (theODB.Count > 1) then\n  SrcDictionary = (av.run(\"Load
 Dialog.ReturnSource\", theFName))\n  Source_ctl.SetObjectTag(SrcDictionary)\nelse\n  SrcDictionary = nil\nend\n\n' Get the Check and Box icons from the icon manage for use in the list box\ny = IconMgr.GetIcons\nn = NameDictionary.Make( 100 ) \nfor each i in y\n   n.Add( i ) \nend\nchkIcon = n.Get(\"Check\")\nboxIcon = n.Get(\"Box\")\n\n' Assign the above two icons as listbox's object tag for its select script use.\nScripts_ctl.SetObjectTag({chkIcon,boxIcon})\n\n' prepare the list of scripts with check mark next to it for list bo
x use\ntmpList = {}\nif (SrcDictionary <> nil) then\n  for each i in SrcDictionary.ReturnKeys\n    tmpList.Add({chkIcon,i})\n  end\nend\n\n' Initialize the dialog\nSelf.SetTitle(\"Load Dialog From \"+theFName.AsString)\nDName_ctl.SetText(theODB.Get(0).GetName)\nCreator_ctl.SetText(theODB.Get(0).GetCreator)\nScripts_ctl.DefineFromList(tmpList)\nScripts_ctl.GoColumn(1)\nScripts_ctl.SetColumnWidth(88) '88% of the width\nScripts_ctl.GoColumn(0)\nScripts_ctl.SetColumnWidth(12) '12% of the width\nScripts_ctl.SetRangeSelect(\"Load Di
alog.lbx_scripts.RangeSelect\",Rect.Make(0@0,1@0))\nScripts_ctl.SetRangeApply(\"Load Dialog.lbx_scripts.RangeSelect\",Rect.Make(0@0,1@0))\n\n"
)

(Script.398
	Name:	"Load Dialog.ReturnSource"
	SourceCode:	"'  -----------------------------------------------------------------\n'                Applications Prototype Laboratory                  \n'              Environmental Systems Research Institute             \n'  -----------------------------------------------------------------\n'  Program  : SEdTools: Return Script Dict from Project\n'  Purpose  :                                                       \n'  -----------------------------------------------------------------\n'  Calls    :                             
                          \n'  Called by:                                                       \n'  -----------------------------------------------------------------\n'  Arguments:                                                       \n'  Globals  :                                                       \n'  Returns  : SUCCESS --> aDictionary where each key is a script\n'                         name and each stored object is the \n'                         corresponding script source.\n'\n'             FAILURE -->
 nil                                                    \n'  -----------------------------------------------------------------\n'  Notes    :  \n'               - The successful execution of this script depends\n'                 on the following assumptions:\n'\n'                   a) A SEd or Script entry in a prject file is\n'                      always declared by a line that begins with\n'                      either:\n' \n'                            \"(SEd.\"  -or- \"(Script.\"\n'\n'                      This is th
e only instance in which a line\n'                      will begin with these key-strings.\n'\n'                   b) The line after the SEd or Script declaration\n'                      will ALWAYS be the \"Name:\" line, which will\n'                      be TAB delimited.\n'\n'                   c) Beginning w/ the SEd or Script declaration\n'                      line, all lines are TAB delimited up to and\n'                      including the \"Source:\" or \"SourceCode:\" line.\n'\n'                   d) The source str
ing for a SEd or Script (as it\n'                      exists in the project file) will NEVER contain\n'                      any TAB's.\n'                       \n                                                     \n'  -----------------------------------------------------------------\n'  History  : o.c. Lee Bock - 6/7/95\n'  =================================================================\n\nThisScript = Script.The.GetName\n\n\n  ' ******************\n  ' Parse arguments...\n  ' ******************\n\n\nTheProjectFN = SE
LF\nif (TheProjectFN.Is(FileName).Not) then\n  MsgBox.Error(\"Expected argument to be filename...\", \"Exiting\"++ThisScript)\n  return(nil)\nend ' if (TheProjectFN.Is(FileName).Not) then\n\nif (File.Exists(TheProjectFN).Not) then\n  MsgBox.Error(\"Project file does not exist...\", \"Exiting\"++ThisScript)\n  return(nil)\nend ' if (File.Exists(TheProjectFN).Not) then\n\n\n  \n  ' *************************\n  ' A few pseudo-constants...\n  ' *************************\n  \nTAB_CHAR       = 9.AsChar\nQUOTE_CHAR     = 34.AsChar\nNEWLINE 
       = \"\"+nl+\"\"\n\nTheScriptDict = Dictionary.Make(10) ' all scripts will be stored in\n                                    ' this dictionary...\n\n\n\n'******** 1) Open the file and parse for SEd's and scripts... **************\n\n\nTheLineFile = LineFile.Make(TheProjectFN, #FILE_PERM_READ)\nav.ShowMsg(\"Parsing \"+TheProjectFN.GetBaseName++\"for Scripts...\")\nNumLines = TheLineFile.GetSize\nLineCount = 0\n\nwhile (TheLineFile.IsAtEnd.Not)\n\n  TheLineString = TheLineFile.ReadElt\n  TheName = \"\"\n  TheSource = \"\"\n  LineCount 
= LineCount + 1\n  av.SetStatus(100 * (LineCount / NumLines)) \n    \n    ' is the line the first line of a SEd or Script\n    ' entry?  if not, go back to the beginning of\n    ' the loop...\n      \n  if ((TheLineString.Contains(\"(SEd.\").Not) and\n      (TheLineString.Contains(\"(Script.\").Not)) then\n    continue\n  end\n      \n  if ((TheLineString.Left(5) = \"(SEd.\").Not) then\n      ' halfway out the door...\n    if (TheLineString.Count < 8) then\n      continue\n    end\n    if ((TheLineString.Left(8) = \"(Script.\").Not
) then\n      continue\n    end\n  end  \n     \n    ' the current line IS a SEd or Script entry\n    ' declaration line; therefore, the next line\n    ' must be the \"Name:\" line.  Read it and parse\n    ' for \"TheName\"...\n    \n      \n  TheLineString = TheLineFile.ReadElt\n  LineCount = LineCount + 1 \n  if (TheLineString.AsTokens(TAB_CHAR).Get(0) <> \"Name:\") then\n    MsgBox.Error(\"Cannot find script name...\",ThisScript)\n    TheLineFile.Close\n    return(nil)\n  else  \n    TheName = TheLineString.AsTokens(TAB_CHAR).Get
(1).UnQuote       \n  end\n       \n    ' The next line for which to search begins\n    ' with either \"Source:\" or \"SourceCode:\", depending\n    ' on whether we are dealing with a SEd or a Script.   \n    ' If we hit a \")\", then there is no source code.\n    \n  while (TRUE)  \n    TheLineString = TheLineFile.ReadElt\n    LineCount = LineCount + 1\n    if (((TheLineString.AsTokens(TAB_CHAR).Get(0) =  \"Source:\")) or\n        ((TheLineString.AsTokens(TAB_CHAR).Get(0) =  \"SourceCode:\")) or\n        ((TheLineString.AsTokens
(TAB_CHAR).Get(0) =  \")\"))) then \n       break\n    end\n  end ' WHILE (TRUE)\n  \n  if (TheLineString = \")\") then ' there is no source string...\n    TheSource = \"\"              ' \"TheSource\" defaults to \"\"\n  else\n    TheSource = TheLineString.AsTokens(TAB_CHAR).Get(1)    \n  end\n  \n    ' since the source string for a script may span\n    ' several line-reads, check to see if\n    ' \"TheSource\" is complete...If the string ends with\n    ' a quote that is NOT preceded by a slash, it's complete.\n    ' catenate lines 
from file till we hit the end of the\n    ' source string...\n      \n  if (TheSource <> \"\") then    \n    while (TRUE)\n       if ((TheSource.Middle(TheSource.Count - 1,1) = QUOTE_CHAR) and\n           (TheSource.Middle(TheSource.Count - 2,1) <> \"\\\")) then\n         break\n       end\n       TheSource = TheSource+TheLineFile.ReadElt\n       LineCount = LineCount + 1\n    end ' while (TRUE)   \n  end 'if (TheSource <> \"\") \n        \n        \n  TheSource = TheSource.Substitute(\"\\\"+QUOTE_CHAR, QUOTE_CHAR)\n  TheSource = Th
eSource.Substitute(\"\\n\", NEWLINE)\n  TheSource = TheSource.Substitute(\"\\\\\",\"\\\")\n  TheSource = TheSource.Right(TheSource.Count - 1)\n  TheSource = TheSource.Left(TheSource.Count - 1)\n        \n  TheScriptDict.Add(TheName,TheSource)       \n  \nend ' while (TheTextFile.IsAtEnd.Not)\n\nTheLineFile.Close\nav.SetStatus(100)\nav.ClearStatus\n\n  ' ***************\n  ' Happy return...\n  ' ***************\n  \nreturn(TheScriptDict)\n\n"
)

(Script.399
	Name:	"Load Dialog.Close"
	SourceCode:	"' Reset the values\nself.SetObjectTag(nil)\nself.FindByName(\"lbx_Scripts\").SetObjectTag(nil)\nself.FindByName(\"tbx_Source\").SetObjectTag(nil)\nself.FindByName(\"txl_Dialog_Name\").SetText(\"\")\nself.FindByName(\"txl_Creator\").SetText(\"\")\nself.FindByName(\"tbx_Source\").SetText(\"\")\nScripts_ctl = self.FindByName(\"lbx_Scripts\")\nScripts_ctl.GoRow(0)\nScripts_ctl.DeleteRows(Scripts_ctl.GetRowCount)\nSelf.SetTitle(\"Load Text File\")\n\n\n"
)

(Script.400
	Name:	"Dialog Extension.Load"
	SourceCode:	"av.Help.RegisterExtension(\"dloghelp\")\nself.Get(1).SetObjectTag(false)\nself.Get(2).SetObjectTag(false)\nself.Get(3).SetObjectTag(false)\nself.Get(4).SetObjectTag(false)"
)

(Script.401
	Name:	"Dialog Extension.CanUnload"
	SourceCode:	"noDocs = (av.GetProject = nil) or\n         (av.GetProject.GetDocsWithGUI(self.Get(0)).Count = 0)\n\nnoDialogs = (av.GetProject = nil) or \n            (av.GetProject.GetDialogs.Count = 0)\n\nreturn\n  noDocs\n  and \n  noDialogs\n  and\n  System.CanUnloadLibrary(self.GetDependencies.Get(0))  "
)

(Script.402
	Name:	"Dialog Extension.Unload"
	SourceCode:	"'\n' Make the dialogs in the extension eligible for\n' garbage collection.\n'\nDialog.DetachFromExtension(self)\n\nreturn true"
)

(Script.403
	Name:	"Dialog Extension.Install"
	SourceCode:	" '\n' The roots of the Custom Dialog Extension occur in this order\n'\n' 0 - The Custom Dialog Editor DocGUI\n' 1 - The Run Controls menu item added to the view's Graphic's menu\n' 2 - the Run Controls menu item added to the layout's Graphic's menu\n' 3 - the Show/Hide Control tools menu item added to the view's Window's menu\n' 4 - the Show/Hide Control Tools menu item added to the layout's Window's menu\n' 5 - the SaveDetached menu item added to the project's File menu\n' 6 - the floating tools palette used to add
 graphic controls\n'     to layout and view documents\n' 7 - the control fasteners dialog for setting control constraints\n' 8 - the dialog size dialog box used to set the dialog frame size\n' 9 - the Write text file dialog for writing the DEd to an ODB file\n' 10 - the Load text file dialog for loading the DEd from an ODB file\n' 11 - The scripts required to implement the GUI and the menu items\n'\n\n'Check if there is an active project\nif (av.GetProject = nil) then\n  return nil\nend\n\n' Install the GUI\np = av.GetPro
ject\ntheDialogEditorGUI = self.Get(0)\n\np.AddGUI(theDialogEditorGUI)\ntheDialogEditorGUI.SetModified(false)\nif (self.GetPreferences.Get(\"IsVisible\") <> nil) then\n  theDialogEditorGUI.SetVisible(self.GetPreferences.Get(\"IsVisible\"))\nend\n\n' Install the menu items into the view's Graphics and Window's menu\nrunDesignItem = self.Get(1)\nshowHideItem  = self.Get(3)\n\nviewDocGUI = av.GetProject.FindGUI(\"View\")\nif (viewDocGUI = nil) then\n  listOfViewDocGUIs = av.GetProject.FindGUIsFor(View)\n  installListOfViewDocGUIs =
 MsgBox.MultiList(listOfViewDocGUIs,\"Choose one or more view document types to add the Dialog Designer interface components to : \",\"Extension Loading\")\nelse\n  installListOfViewDocGUIs = {viewDocGUI}\nend\n\nif (installListOfViewDocGUIs <> nil) then\n  if (installListOfViewDocGUIs.Count > 0) then\n    for each viewDocGUI in installListOfViewDocGUIs\n      graphicsMenu = viewDocGUI.GetMenuBar.FindByName(\"Graphics\")\n      windowsMenu  = viewDocGUI.GetMenubar.FindByName(\"Window\")\n      \n      if ((graphicsMenu <> nil
)) then\n        graphicsMenu.Add(runDesignItem, 8) \n      end\n      \n      if (windowsMenu <> nil) then\n        windowsMenu.Add(showHideItem, 4)\n      end\n    end\n  end  \nend\n\n' Install the menu items into the layout's Graphics and Windows menu\nrunDesignItem = self.Get(2)\nshowHideItem  = self.Get(4)\nlayoutDocGUI = av.GetProject.FindGUI(\"Layout\")\nif (layoutDocGUI = nil) then\n  listOfLayoutDocGUIs = av.GetProject.FindGUIsFor(Layout)\n  installListOfLayoutDocGUIs = MsgBox.MultiList(listOfLayoutDocGUIs,\"Choose o
ne or more layout document types to add the Dialog Designer interface components to : \",\"Extension Loading\")\nelse\n  installListOfLayoutDocGUIs = {layoutDocGUI}\nend\n\nif (installListOfLayoutDocGUIs <> nil) then\n  if (installListOfLayoutDocGUIs.Count > 0) then\n    for each layoutDocGUI in installListOfLayoutDocGUIs\n      graphicsMenu = layoutDocGUI.GetMenuBar.FindByName(\"Graphics\")\n      windowsMenu = layoutDocGUI.GetMenuBar.FindByName(\"Window\")\n      if (graphicsMenu <> nil) then\n        graphicsMenu.Add(runD
esignItem, 8)\n      end\n      \n      if (windowsMenu <> nil) then\n        windowsMenu.Add(showHideItem, 4)\n      end\n    end\n  end\nend      \n\n\n' Install the menu item into the Project's File menu\nsaveDetachedItem = self.Get(5)\nsaveDetachedItem.SetUpdate(\"Dialog Editor.SaveDetachedUpdate\")\nprojectDocGUI = av.GetProject.FindGUI(\"Project\")\nif (projectDocGUI = nil) then\n  return nil\nend\n  \nfileMenu = projectDocGUI.GetMenuBar.FindByName(\"File\")\nif (fileMenu <> nil) then\n  fileMenu.Add(saveDetachedItem, 5)  \nend\n
\n\n\n"
)

(Script.404
	Name:	"Dialog Extension.UnInstall"
	SourceCode:	"\n' see Dialog Extension.Install for the ordering of components in the\n' extension's root list\n'\n\n'\n' don't need to do anything if the entire project is going away\n'\nif ((av.GetProject = nil) or av.GetProject.IsClosing) then\n  return nil\nend\n\n'\n' remove the dialog editor doc gui\n'\nav.GetProject.RemoveGUI(self.Get(0).GetName)\n\n'\n' remove the menu items from the view docgui\n'\nlistOfViewDocGUIs = av.GetProject.FindGUIsFor(View)\nfor each viewDocGUI in listOfViewDocGUIs\n  theMenuBar = viewDocGUI.GetMenuBar\n  runD
esignItem = theMenuBar.FindByScript(\"GraphicControl.DesignRun\")\n  showHideItem = theMenuBar.FindByScript(\"GraphicControl.ShowHideTools\")\n  if (runDesignItem <> nil) then\n    runDesignItem.GetControlSet.Remove(runDesignItem)\n  end\n  if (showHideItem <> nil) then\n    showHideItem.GetControlSet.Remove(showHideItem)\n  end  \nend\n\n'\n' remove the menu items from the layout docui\n'\nlistOfLayoutDocGUIs = av.GetProject.FindGUIsFor(Layout)\nfor each layoutDocGUI in listOfLayoutDocGUIs\n  theMenuBar = layoutDocGUI.GetMen
uBar\n  runDesignItem = theMenuBar.FindByScript(\"GraphicControl.DesignRun\")\n  showHideItem = theMenuBar.FindByScript(\"GraphicControl.ShowHideTools\")\n  if (runDesignItem <> nil) then\n    runDesignItem.GetControlSet.Remove(runDesignItem)\n  end\n  if (showHideItem <> nil) then\n    showHideItem.GetControlSet.Remove(showHideItem)\n  end  \nend\n\n'\n' remove the menu item from the project docui\n'\nsaveDetachedItem = av.FindGUI(\"Project\").GetMenuBar.FindByScript(\"Dialog Editor.SaveDetached\")\nsaveDetachedItem.GetControlSe
t.Remove(saveDetachedItem)\n"
)

(Script.405
	Name:	"Dialog Extension.ProjectSave"
	SourceCode:	"self.GetPreferences.Set(\"IsVisible\", self.Get(0).IsVisible)"
)