home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 11 Util
/
11-Util.zip
/
fdlg.zip
/
MSLO640.CLS
< prev
next >
Wrap
Text File
|
1996-02-02
|
1KB
|
37 lines
" ---- Ronald Brill 1995, 1996 ---- "
" ---- Extended File Dialogs Version 2.1 ---- "
MSOpenDialogController SecondaryFile !
! MSOpenDialogController methods!
createItems
| temp |
super createItems.
self add: #vMSFileList
class: FormMSList
rect: {38 394 566 776}
options: {#ExtendedSelection #Return #Tab #Backtab}
form: self mainForm.
" ---- Da es einige Verwirrung im System stiftet, wenn man
mit 'vFileList remove' ein existierendes Item löscht,
wird hier ein kleiner Trick verwendet, um nicht den
ganzen Source noch mal zu kopieren.
---- "
vFileList := cItemDict at: #vMSFileList.
temp := { #vFileName #vMSFileList #vDirList #vFileTypes #vDriveList {#vOk #vCancel #vHelp}}.
self mainForm setFormItemGroupsTo: temp.
self actionDict at: #vMSFileList put: #mFileSelected.
self editDict at: #vMSFileList put: #openFileDblClicked.
!"end createItems"
!"End of methods block"