"  ---- Ronald Brill 1995, 1996 ---- "
"  ---- Extended File Dialogs Version 2.1 ---- "


SQLSaveAsDialogController SecondaryFile !


! SQLSaveAsDialogController class methods!


initialize
    self name: #SQLSaveAsDialog.
!"end initialize"


!"End of class methods block"


! SQLSaveAsDialogController methods!


createItems
	|cItem temp form controller|
	super createItems.
	controller := self.
	form := self mainForm.

	cItem := controller add: #vFileType
		class:			FormRadioButton
		rect:				{860 116 459 138}
		options:			{#NoBorder #Return #Tab #Backtab}
		form:				form.
	cItem setInitialValueTo: {#'Comma Delimited' #Enfin}.

	cItem := controller add: #Filetype
		class:			FormStatic
		rect:				{851 19 448 77}
		options:			{#WordWrap}
		form:				form
		text:				'File Type'.
	cItem setFormatTo: {#Left #Bottom {#PointSize 10}}.
	cItem := controller add: #fileTypeToBo
		class:			FormTopicBox
		rect:				{851 77 475 191}
		options:			nil
		form:				form
		text:				''.
	cItem setFormatTo: {#Left #Top}.

	temp := { {#vOk #vCancel #vHelp} {#vFileName} {#vFileTypes} {#vFileList} {#vDirList} {#vDriveList} }.
	form addFormItemGroups: temp in: controller.
!"end createItems"


!"End of methods block"
