home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / fdlg.zip / SQL1024.CLS < prev    next >
Text File  |  1996-02-02  |  1KB  |  57 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.     SQLSaveAsDialog mainForm setTitleTo: 'SQLSaveAsDialog'.
  14. !"end initialize"
  15.  
  16.  
  17. !"End of class methods block"
  18.  
  19.  
  20. ! SQLSaveAsDialogController methods!
  21.  
  22.  
  23. createItems
  24.     |cItem temp form controller|
  25.     super createItems.
  26.     controller := self.
  27.     form := self mainForm.
  28.  
  29.     cItem := controller add: #vFileType
  30.         class:            FormRadioButton
  31.         rect:                {1006 116 506 138}
  32.         options:            {#NoBorder #Return #Tab #Backtab}
  33.         form:                form.
  34.     cItem setInitialValueTo: {#'Comma Delimited' #Enfin}.
  35.  
  36.     cItem := controller add: #Filetype
  37.         class:            FormStatic
  38.         rect:                {987 19 542 77}
  39.         options:            {#WordWrap}
  40.         form:                form
  41.         text:                'File Type'.
  42.     cItem setFormatTo: {#Left #Bottom {#PointSize 10}}.
  43.     cItem := controller add: #fileTypeToBo
  44.         class:            FormTopicBox
  45.         rect:                {987 77 539 193}
  46.         options:            nil
  47.         form:                form
  48.         text:                ''.
  49.     cItem setFormatTo: {#Left #Top}.
  50.  
  51.     temp := { {#vOk #vCancel #vHelp} {#vFileName} {#vFileTypes} {#vFileList} {#vDirList} {#vDriveList} }.
  52.     form addFormItemGroups: temp in: controller.
  53. !"end createItems"
  54.  
  55.  
  56. !"End of methods block"
  57.