home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / fdlg.zip / SASN_WIN.CLS < prev    next >
Text File  |  1996-02-02  |  2KB  |  68 lines
  1. "  ---- Ronald Brill 1995, 1996 ---- "
  2. "  ---- Extended File Dialogs Version 2.1 ---- "
  3.  
  4.  
  5. SaveAsNameDialogController SecondaryFile !
  6.  
  7.  
  8. !SaveAsNameDialogController class methods !
  9.  
  10.  
  11. initialize
  12.    (self name: #SaveAsNameDialog) mainForm setTitleTo: 'Save As'.
  13. !"end initialize"
  14.  
  15.  
  16. !"End of SaveAsNameDialogController class methods block"
  17.  
  18.  
  19. !SaveAsNameDialogController 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: #cUpdateSystem
  29.         class:            FormCheckBox
  30.         rect:                {684 1200 341 60}
  31.         options:            {#Return #Tab #Backtab #Left #Right}
  32.         form:                form
  33.         text:                'Update Sys.'.
  34.     cItem setInitialValueTo: true.
  35.     cItem := controller add: #cUpdateFile
  36.         class:            FormCheckBox
  37.         rect:                {684 1257 341 60}
  38.         options:            {#Return #Tab #Backtab #Left #Right}
  39.         form:                form
  40.         text:                'Update File'.
  41.     cItem setInitialValueTo: true.
  42.     cItem := controller add: #vClassName
  43.         class:            FormStatic
  44.         rect:                {864 15 415 80}
  45.         options:            {#Mnemonic}
  46.         form:                form
  47.         text:                '&Class Name:'.
  48.     cItem setFormatTo: {#Left #Bottom {#PointSize 10}}.
  49.     cItem := controller add: #cObjName
  50.         class:            FormString
  51.         rect:                {875 105 415 60}
  52.         options:            {#Return #Insert #Tab #Backtab}
  53.         form:                form.
  54.     cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.
  55.  
  56.     temp := IdentityDictionary newEntries: 2.
  57.     temp at: #cObjName put: #openFile.
  58.     temp at: #vFileName put: #openFile.
  59.     (formDict at: #FileSelector) addReturnActions: temp.
  60.     temp := IdentityDictionary new.
  61.     temp at: #Altc put: #setFocusClassName.
  62.     temp at: #AltC put: #setFocusClassName.
  63.     form acceleratorTableAddAll: temp.
  64. !"end createItems"
  65.  
  66.  
  67. !"End of SaveAsNameDialogController methods block"
  68.