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


SaveAsNameDialogController SecondaryFile !


!SaveAsNameDialogController class methods !


initialize
   (self name: #SaveAsNameDialog) mainForm setTitleTo: 'Save As'.
!"end initialize"


!"End of SaveAsNameDialogController class methods block"


!SaveAsNameDialogController methods !


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

	cItem := controller add: #cUpdateSystem
		class:			FormCheckBox
		rect:				{684 1200 341 60}
		options:			{#Return #Tab #Backtab #Left #Right}
		form:				form
		text:				'Update Sys.'.
	cItem setInitialValueTo: true.
	cItem := controller add: #cUpdateFile
		class:			FormCheckBox
		rect:				{684 1257 341 60}
		options:			{#Return #Tab #Backtab #Left #Right}
		form:				form
		text:				'Update File'.
	cItem setInitialValueTo: true.
	cItem := controller add: #vClassName
		class:			FormStatic
		rect:				{864 15 415 80}
		options:			{#Mnemonic}
		form:				form
		text:				'&Class Name:'.
	cItem setFormatTo: {#Left #Bottom {#PointSize 10}}.
	cItem := controller add: #cObjName
		class:			FormString
		rect:				{875 105 415 60}
		options:			{#Return #Insert #Tab #Backtab}
		form:				form.
	cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.

	temp := IdentityDictionary newEntries: 2.
	temp at: #cObjName put: #openFile.
	temp at: #vFileName put: #openFile.
	(formDict at: #FileSelector) addReturnActions: temp.
	temp := IdentityDictionary new.
	temp at: #Altc put: #setFocusClassName.
	temp at: #AltC put: #setFocusClassName.
	form acceleratorTableAddAll: temp.
!"end createItems"


!"End of SaveAsNameDialogController methods block"
