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


SaveAsDialogController SecondaryFile !


! SaveAsDialogController class methods!


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


!"End of class methods block"


! SaveAsDialogController methods!


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

	cItem := controller add: #vMakeDirButt
		class:			FormButton
		rect:				{994 272 300 90}
		options:			{#Return #Tab #Up #Down #Backtab #Left #Right}
		form:				form
		text:				'~Make Dir'.
	temp := IdentityDictionary new.
	temp at: #Altm put: #makeDirOpen.
	temp at: #AltM put: #makeDirOpen.
	form acceleratorTableAddAll: temp.


	form := ModalDialogBox
		name:				#MakeDirectory
		title:			#'Make Subirectory'
		rect:				{596 98 754 443}
		controller:		controller.
	form setGridTo: false.
	form setSnapTo: true.
	form setXGridResTo: 19.
	form setYGridResTo: 19.
	cItem := controller add: #makeDirMakeButt
		class:			FormButton
		rect:				{38 244 300 94}
		options:			{#Return #Tab #Up #Down #Backtab #Left #Right}
		form:				form
		text:				'~Make'.
	cItem := controller add: #makeDirCancelButt
		class:			FormButton
		rect:				{394 244 300 94}
		options:			{#Return #Tab #Up #Down #Backtab #Left #Right}
		form:				form
		text:				'~Cancel'.
	cItem := controller add: #makeDirCurrentDir
		class:			FormStatic
		rect:				{41 23 656 75}
		options:			nil
		form:				form
		text:				''.
	cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.
	cItem := controller add: #makeDirNewDir
		class:			FormString
		rect:				{53 128 638 75}
		options:			{#Return #Tab #Up #Down #Backtab}
		form:				form.
	cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.

	temp := AcceleratorTable new.
	temp at: #Escape put: #close.
	temp at: #Altc put: #makeDirClose.
	temp at: #AltC put: #makeDirClose.
	temp at: #Altm put: #makeDir.
	temp at: #AltM put: #makeDir.
	form setAcceleratorTableTo: temp.

	temp := { #makeDirNewDir {#makeDirMakeWalkButt #makeDirMakeButt #makeDirCancelButt}}.
	form setFormItemGroupsTo: temp.

	temp := IdentityDictionary newEntries: 3.
	temp at: #makeDirNewDir put: #makeDir.
	temp at: #makeDirMakeButt put: #makeDir.
	temp at: #makeDirCancelButt put: #makeDirClose.
	form setReturnActionsTo: temp.

	temp := controller actionDict.
	temp at: #vMakeDirButt put: #makeDirOpen.
	temp at: #makeDirMakeButt put: #makeDir.
	temp at: #makeDirCancelButt put: #makeDirClose.
!"end createItems"


!"End of methods block"
