home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / fdlg.zip / LOAD640.CLS < prev    next >
Text File  |  1996-02-02  |  896b  |  43 lines
  1. "  ---- Ronald Brill 1995, 1996 ---- "
  2. "  ---- Extended File Dialogs Version 2.1 ---- "
  3.  
  4.  
  5. LoadClassDialogController SecondaryFile !
  6.  
  7.  
  8. !LoadClassDialogController class methods !
  9.  
  10.  
  11. initialize
  12.     self name: #LoadClassDialog.
  13. !"end initialize"
  14.  
  15.  
  16. !"End of LoadClassDialogController class methods block"
  17.  
  18.  
  19. !LoadClassDialogController methods !
  20.  
  21.  
  22. createItems
  23. | temp |
  24.     super createItems.
  25.     self add: #cReload
  26.         class:        FormCheckBox
  27.         rect:            {735 1200 250 98}
  28.         options:        {#Tab #Backtab #Return}
  29.         form:            self mainForm
  30.         text:            '~Reload'.
  31.  
  32.     temp := IdentityDictionary new.
  33.     temp at: #Altr put: #mReload.
  34.     temp at: #AltR put: #mReload.
  35.  
  36.     self on: #wmButton2DblClkAt: for: vFileList
  37.         action: (Action receiver: self send: #openFileDblClicked2).
  38.     self mainForm acceleratorTableAddAll: temp.
  39. !"end createItems"
  40.  
  41.  
  42. !"End of LoadClassDialogController methods block"
  43.