home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / fdlg.zip / SAS_WIN.CLS < prev    next >
Text File  |  1996-02-02  |  3KB  |  100 lines
  1. "  ---- Ronald Brill 1995, 1996 ---- "
  2. "  ---- Extended File Dialogs Version 2.1 ---- "
  3.  
  4.  
  5. SaveAsDialogController SecondaryFile !
  6.  
  7.  
  8. ! SaveAsDialogController class methods!
  9.  
  10.  
  11. initialize
  12.     (self name: #SaveAsDialog) mainForm setTitleTo: 'Save As'.
  13. !"end initialize"
  14.  
  15.  
  16. !"End of class methods block"
  17.  
  18.  
  19. ! SaveAsDialogController methods!
  20.  
  21.  
  22. createItems
  23.     |cItem temp form controller|
  24.     super createItems.
  25.     controller := self.
  26.     form := self mainForm.
  27.  
  28.     cItem := controller add: #vMakeDirButt
  29.         class:            FormButton
  30.         rect:                {994 272 300 90}
  31.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  32.         form:                form
  33.         text:                '&Make Dir'.
  34.     temp := IdentityDictionary new.
  35.     temp at: #Altm put: #makeDirOpen.
  36.     temp at: #AltM put: #makeDirOpen.
  37.     form acceleratorTableAddAll: temp.
  38.  
  39.  
  40.     form := ModalDialogBox
  41.         name:                #MakeDirectory
  42.         title:            #'Make Subirectory'
  43.         rect:                {596 98 754 443}
  44.         controller:        controller.
  45.     form setGridTo: false.
  46.     form setSnapTo: true.
  47.     form setXGridResTo: 19.
  48.     form setYGridResTo: 19.
  49.     cItem := controller add: #makeDirMakeButt
  50.         class:            FormButton
  51.         rect:                {38 244 300 94}
  52.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  53.         form:                form
  54.         text:                '&Make'.
  55.     cItem := controller add: #makeDirCancelButt
  56.         class:            FormButton
  57.         rect:                {394 244 300 94}
  58.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  59.         form:                form
  60.         text:                '&Cancel'.
  61.     cItem := controller add: #makeDirCurrentDir
  62.         class:            FormStatic
  63.         rect:                {41 23 656 75}
  64.         options:            nil
  65.         form:                form
  66.         text:                ''.
  67.     cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.
  68.     cItem := controller add: #makeDirNewDir
  69.         class:            FormString
  70.         rect:                {53 128 638 75}
  71.         options:            {#Return #Tab #Up #Down #Backtab}
  72.         form:                form.
  73.     cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.
  74.  
  75.     temp := AcceleratorTable new.
  76.     temp at: #Escape put: #close.
  77.     temp at: #Altc put: #makeDirClose.
  78.     temp at: #AltC put: #makeDirClose.
  79.     temp at: #Altm put: #makeDir.
  80.     temp at: #AltM put: #makeDir.
  81.     form setAcceleratorTableTo: temp.
  82.  
  83.     temp := { #makeDirNewDir {#makeDirMakeWalkButt #makeDirMakeButt #makeDirCancelButt}}.
  84.     form setFormItemGroupsTo: temp.
  85.  
  86.     temp := IdentityDictionary newEntries: 3.
  87.     temp at: #makeDirNewDir put: #makeDir.
  88.     temp at: #makeDirMakeButt put: #makeDir.
  89.     temp at: #makeDirCancelButt put: #makeDirClose.
  90.     form setReturnActionsTo: temp.
  91.  
  92.     temp := controller actionDict.
  93.     temp at: #vMakeDirButt put: #makeDirOpen.
  94.     temp at: #makeDirMakeButt put: #makeDir.
  95.     temp at: #makeDirCancelButt put: #makeDirClose.
  96. !"end createItems"
  97.  
  98.  
  99. !"End of methods block"
  100.