home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / fdlg.zip / SQL640.CLS < prev    next >
Text File  |  1996-02-02  |  1KB  |  56 lines
  1. "  ---- Ronald Brill 1995, 1996 ---- "
  2. "  ---- Extended File Dialogs Version 2.1 ---- "
  3.  
  4.  
  5. SQLSaveAsDialogController SecondaryFile !
  6.  
  7.  
  8. ! SQLSaveAsDialogController class methods!
  9.  
  10.  
  11. initialize
  12.     self name: #SQLSaveAsDialog.
  13. !"end initialize"
  14.  
  15.  
  16. !"End of class methods block"
  17.  
  18.  
  19. ! SQLSaveAsDialogController 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: #vFileType
  29.         class:            FormRadioButton
  30.         rect:                {860 116 459 138}
  31.         options:            {#NoBorder #Return #Tab #Backtab}
  32.         form:                form.
  33.     cItem setInitialValueTo: {#'Comma Delimited' #Enfin}.
  34.  
  35.     cItem := controller add: #Filetype
  36.         class:            FormStatic
  37.         rect:                {851 19 448 77}
  38.         options:            {#WordWrap}
  39.         form:                form
  40.         text:                'File Type'.
  41.     cItem setFormatTo: {#Left #Bottom {#PointSize 10}}.
  42.     cItem := controller add: #fileTypeToBo
  43.         class:            FormTopicBox
  44.         rect:                {851 77 475 191}
  45.         options:            nil
  46.         form:                form
  47.         text:                ''.
  48.     cItem setFormatTo: {#Left #Top}.
  49.  
  50.     temp := { {#vOk #vCancel #vHelp} {#vFileName} {#vFileTypes} {#vFileList} {#vDirList} {#vDriveList} }.
  51.     form addFormItemGroups: temp in: controller.
  52. !"end createItems"
  53.  
  54.  
  55. !"End of methods block"
  56.