home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / fdlg.zip / WPENF_S.CLS < prev   
Text File  |  1996-02-02  |  2KB  |  72 lines
  1. "  ---- Ronald Brill 1995, 1996 ---- "
  2. "  ---- Extended File Dialogs Version 2.1 ---- "
  3.  
  4.  
  5.  
  6. WPENFINController SecondaryFile !
  7.  
  8.  
  9. ! WPENFINController class methods!
  10.  
  11.  
  12. initialize
  13. | setup |
  14.    WPENFIN isOpen
  15.    ifTrue:
  16.    [  setup := FileDialogSetup load.
  17.       setup fileList == nil ifTrue: [ setup createMenus. ].
  18.    ].
  19. !"end initialize"
  20.  
  21.  
  22. !"End of class methods block"
  23.  
  24.  
  25. ! WPENFINController methods!
  26.  
  27.  
  28. postOpenInitialization
  29.     | timer menu |
  30.     timer := Timer name: #WPENFIN time: 6000 autoStart: false.
  31.     timer setBlockNamed: #status to: [ self displayTime ].
  32.     timer autoStart.
  33.     self displayTime.
  34.     self resetMenuCount.
  35. "    !!!  menu, especially cascaded menu must be assigned in the postOpenInit.."
  36.     menuFolder setSubMenuAt: 1 to: (self createMenuLike: menuOpen name
  37.             in: self).
  38.     menuFolder setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp name
  39.             in: self).
  40.     menuUserFolder setSubMenuAt: 1 to: (self createMenuLike: menuOpen name
  41.             in: self).
  42.     menuUserFolder setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp name
  43.             in: self).
  44.     menuInterfaceFolder setSubMenuAt: 1 to: (self createMenuLike: menuOpen
  45.             name in: self).
  46.     menuInterfaceFolder setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp
  47.             name in: self).
  48.     menuDesktop setSubMenuAt: 1 to: menuHelp.
  49.     menuDesktop setSubMenuAt: 14 to: (self createMenuLike: menuSysWindow name
  50.             in: self).
  51. "  ---- added by RBRi ---- "
  52.    FileDialogSetup load createMenus.
  53. "  ---- end RBRi ---- "
  54.     menuProgram setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp name
  55.             in: self).
  56.     menuModInterface setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp name
  57.             in: self).
  58.     menuReport setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp
  59.             name in: self).
  60.    menuBatch setSubMenuAt: 2 to: (self createMenuLike: menuProgHelp
  61.          name in: self).
  62.     menuQuery setSubMenuAt: 4 to: (self createMenuLike: menuProgHelp
  63.             name in: self).
  64.     self mainForm setPopupTo: menuDesktop formItem.
  65.     apprentice == true ifTrue: [
  66.         ^ DesktopTutorialView new.
  67.     ].
  68. !"end postOpenInitialization"
  69.  
  70.  
  71. !"End of methods block"
  72.