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


LoadClassDialogController SecondaryFile !


!LoadClassDialogController class methods !


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


!"End of LoadClassDialogController class methods block"


!LoadClassDialogController methods !


createItems
| temp |
	super createItems.
	self add: #cReload
		class:		FormCheckBox
		rect:			{735 1200 250 98}
		options:		{#Tab #Backtab #Return}
		form:			self mainForm
		text:			'&Reload'.

	temp := IdentityDictionary new.
	temp at: #Altr put: #mReload.
	temp at: #AltR put: #mReload.

	self on: #wmButton3DblClkAt: for: vFileList
		action: (Action receiver: self send: #openFileDblClicked2).
	self mainForm acceleratorTableAddAll: temp.
!"end createItems"


!"End of LoadClassDialogController methods block"
