home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 11 Util
/
11-Util.zip
/
fdlg.zip
/
SAS640.CLS
< prev
next >
Wrap
Text File
|
1996-02-02
|
3KB
|
100 lines
" ---- Ronald Brill 1995, 1996 ---- "
" ---- Extended File Dialogs Version 2.1 ---- "
SaveAsDialogController SecondaryFile !
! SaveAsDialogController class methods!
initialize
(self name: #SaveAsDialog) mainForm setTitleTo: 'Save As'.
!"end initialize"
!"End of class methods block"
! SaveAsDialogController methods!
createItems
|cItem temp form controller|
super createItems.
controller := self.
form := self mainForm.
cItem := controller add: #vMakeDirButt
class: FormButton
rect: {994 272 300 90}
options: {#Return #Tab #Up #Down #Backtab #Left #Right}
form: form
text: '~Make Dir'.
temp := IdentityDictionary new.
temp at: #Altm put: #makeDirOpen.
temp at: #AltM put: #makeDirOpen.
form acceleratorTableAddAll: temp.
form := ModalDialogBox
name: #MakeDirectory
title: #'Make Subirectory'
rect: {596 98 754 443}
controller: controller.
form setGridTo: false.
form setSnapTo: true.
form setXGridResTo: 19.
form setYGridResTo: 19.
cItem := controller add: #makeDirMakeButt
class: FormButton
rect: {38 244 300 94}
options: {#Return #Tab #Up #Down #Backtab #Left #Right}
form: form
text: '~Make'.
cItem := controller add: #makeDirCancelButt
class: FormButton
rect: {394 244 300 94}
options: {#Return #Tab #Up #Down #Backtab #Left #Right}
form: form
text: '~Cancel'.
cItem := controller add: #makeDirCurrentDir
class: FormStatic
rect: {41 23 656 75}
options: nil
form: form
text: ''.
cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.
cItem := controller add: #makeDirNewDir
class: FormString
rect: {53 128 638 75}
options: {#Return #Tab #Up #Down #Backtab}
form: form.
cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.
temp := AcceleratorTable new.
temp at: #Escape put: #close.
temp at: #Altc put: #makeDirClose.
temp at: #AltC put: #makeDirClose.
temp at: #Altm put: #makeDir.
temp at: #AltM put: #makeDir.
form setAcceleratorTableTo: temp.
temp := { #makeDirNewDir {#makeDirMakeWalkButt #makeDirMakeButt #makeDirCancelButt}}.
form setFormItemGroupsTo: temp.
temp := IdentityDictionary newEntries: 3.
temp at: #makeDirNewDir put: #makeDir.
temp at: #makeDirMakeButt put: #makeDir.
temp at: #makeDirCancelButt put: #makeDirClose.
form setReturnActionsTo: temp.
temp := controller actionDict.
temp at: #vMakeDirButt put: #makeDirOpen.
temp at: #makeDirMakeButt put: #makeDir.
temp at: #makeDirCancelButt put: #makeDirClose.
!"end createItems"
!"End of methods block"