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



WPENFINController SecondaryFile !


! WPENFINController class methods!


initialize
| setup |
   WPENFIN isOpen
   ifTrue:
   [  setup := FileDialogSetup load.
      setup fileList == nil ifTrue: [ setup createMenus. ].
   ].
!"end initialize"


!"End of class methods block"


! WPENFINController methods!


postOpenInitialization
	| timer menu |
	timer := Timer name: #WPENFIN time: 6000 autoStart: false.
	timer setBlockNamed: #status to: [ self displayTime ].
	timer autoStart.
	self displayTime.
	self resetMenuCount.
"	!!!  menu, especially cascaded menu must be assigned in the postOpenInit.."
	menuFolder setSubMenuAt: 1 to: (self createMenuLike: menuOpen name
			in: self).
	menuFolder setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp name
			in: self).
	menuUserFolder setSubMenuAt: 1 to: (self createMenuLike: menuOpen name
			in: self).
	menuUserFolder setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp name
			in: self).
	menuInterfaceFolder setSubMenuAt: 1 to: (self createMenuLike: menuOpen
			name in: self).
	menuInterfaceFolder setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp
			name in: self).
	menuDesktop setSubMenuAt: 1 to: menuHelp.
	menuDesktop setSubMenuAt: 14 to: (self createMenuLike: menuSysWindow name
			in: self).
"  ---- added by RBRi ---- "
   FileDialogSetup load createMenus.
"  ---- end RBRi ---- "
	menuProgram setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp name
			in: self).
	menuModInterface setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp name
			in: self).
	menuReport setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp
			name in: self).
   menuBatch setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp
         name in: self).
	menuQuery setSubMenuAt: 4 to: (self createMenuLike: menuProgHelp
			name in: self).
	self mainForm setPopupTo: menuDesktop formItem.
	apprentice == true ifTrue: [
		^ DesktopTutorialView new.
	].
!"end postOpenInitialization"


!"End of methods block"
