home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / fdlg.zip / MSLO_WIN.CLS < prev    next >
Text File  |  1996-02-02  |  1KB  |  37 lines
  1. "  ---- Ronald Brill 1995, 1996 ---- "
  2. "  ---- Extended File Dialogs Version 2.1 ---- "
  3.  
  4.  
  5. MSOpenDialogController SecondaryFile !
  6.  
  7.  
  8. ! MSOpenDialogController methods!
  9.  
  10.  
  11. createItems
  12. | temp |
  13.    super createItems.
  14.    self add: #vMSFileList
  15.       class:         FormMSList
  16.       rect:          {38 394 566 776}
  17.       options:       {#ExtendedSelection #Return #Tab #Backtab}
  18.       form:          self mainForm.
  19.  
  20. "  ---- Da es einige Verwirrung im System stiftet, wenn man
  21.         mit 'vFileList remove' ein existierendes Item löscht,
  22.         wird hier ein kleiner Trick verwendet, um nicht den
  23.         ganzen Source noch mal zu kopieren.
  24.    ---- "
  25.    vFileList := cItemDict at: #vMSFileList.
  26.  
  27.    temp := { #vFileName #vMSFileList #vDirList #vFileTypes #vDriveList {#vOk #vCancel #vHelp}}.
  28.    self mainForm setFormItemGroupsTo: temp.
  29.  
  30.    self actionDict   at: #vMSFileList put: #mFileSelected.
  31.    self editDict     at: #vMSFileList put: #openFileDblClicked.
  32.  
  33. !"end createItems"
  34.  
  35.  
  36. !"End of methods block"
  37.