home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / fdlg.zip / SET_win.cls < prev    next >
Text File  |  1996-02-02  |  6KB  |  208 lines
  1. "  ---- Ronald Brill 1995, 1996 ---- "
  2. "  ---- Extended File Dialogs Version 2.1 ---- "
  3.  
  4.  
  5. ENFINController subclass: #ExtendedFileDialogSetupController
  6. instanceVariableNames: '
  7.     modus
  8.     setupCancelButt
  9.     setupFilterLabelEntry
  10.     setupFilterLabelList
  11.     setupFilterMappingDroDoLi
  12.     setupFilterValueEntry
  13.     setupFilterValueList
  14.     setupFontFontSelectionIC
  15.     setupNote
  16.     setupOKButt
  17.     setupOptionsReorderCheck
  18. '
  19. classVariableNames: ''
  20. poolDictionaries: '' !
  21.  
  22.  
  23. !ExtendedFileDialogSetupController class methods!
  24.  
  25.  
  26. initialize
  27.     self createInstanceName: #ExtendedFileDialogSetup.
  28. !"end initialize"
  29.  
  30.  
  31. createInstanceName: name
  32.     |controller|
  33.     controller := self name: name.
  34.     controller setStartCursorsAutomaticallyTo: false.
  35.     controller createItems; initializeBindings.
  36.     controller finishInit.
  37.     ^ controller.
  38. !"end createInstanceName:"
  39.  
  40.  
  41. !"End of ExtendedFileDialogSetupController class methods block"
  42.  
  43. !ExtendedFileDialogSetupController methods!
  44.  
  45.  
  46. createItems
  47.     |cItem temp form controller|
  48.     controller := self.
  49.     form := DialogBox
  50.         name:                controllerName
  51.         title:            #'Extended File Diaolg Setup'
  52.         rect:                {982 131 1331 1159}
  53.         controller:        controller.
  54.     form setGridTo: false.
  55.     form setSnapTo: true.
  56.     form setXGridResTo: 19.
  57.     form setYGridResTo: 19.
  58.     cItem := controller add: #setupNote
  59.         class:            FormNoteBook
  60.         rect:                {0 0 1297 960}
  61.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  62.         form:                form.
  63.     cItem setMajorTabWidthTo: 330.
  64.     cItem setMajorTabHeightTo: 90.
  65.     cItem setPageButtonWidthTo: 50.
  66.     cItem setPageButtonHeightTo: 50.
  67.     cItem setTabStyleTo: #Square.
  68.     cItem setMajorTabLocationTo: #LeftOrRight.
  69.     cItem setBackPagesLocationTo: #BottomRight.
  70.     cItem setBindingStyleTo: #Spiral.
  71.     cItem setPagesTo: {#'Preview Font' #Filters #Options}.
  72.     cItem := controller add: #setupOKButt
  73.         class:            FormButton
  74.         rect:                {37 919 352 97}
  75.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  76.         form:                form
  77.         text:                '&OK'.
  78.     cItem := controller add: #setupCancelButt
  79.         class:            FormButton
  80.         rect:                {431 919 352 97}
  81.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  82.         form:                form
  83.         text:                '&Cancel'.
  84.     form := Page
  85.         name:                #Options
  86.         rect:                {1076 491 821 682}
  87.         controller:        controller.
  88.     form setGridTo: false.
  89.     form setSnapTo: true.
  90.     form setXGridResTo: 19.
  91.     form setYGridResTo: 19.
  92.     cItem := controller add: #setupOptionsReorderCheck
  93.         class:            FormCheckBox
  94.         rect:                {37 56 754 79}
  95.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  96.         form:                form
  97.         text:                'move last loaded file on top'.
  98.     form setPageStyleTo: {#MajorPage}.
  99.     form := Page
  100.         name:                #Filters
  101.         rect:                {1076 491 821 682}
  102.         controller:        controller.
  103.     form setGridTo: false.
  104.     form setSnapTo: true.
  105.     form setXGridResTo: 19.
  106.     form setYGridResTo: 19.
  107.     cItem := controller add: #setupFilterToBo1
  108.         class:            FormTopicBox
  109.         rect:                {19 525 791 154}
  110.         options:            {#Draw3D}
  111.         form:                form
  112.         text:                ' Map *.cls to '.
  113.     cItem setFormatTo: {#Left #Top}.
  114.     cItem := controller add: #setupFilterMappingDroDoLi
  115.         class:            FormDropList
  116.         rect:                {37 581 754 79}
  117.         options:            {#Return #Tab #Backtab}
  118.         form:                form.
  119.     (cItem formItem) setLineCountTo: 0.
  120.     cItem := controller add: #setupFilterToBo
  121.         class:            FormTopicBox
  122.         rect:                {19 37 791 469}
  123.         options:            {#Draw3D}
  124.         form:                form
  125.         text:                ' Availabe Filters '.
  126.     cItem setFormatTo: {#Left #Top}.
  127.     cItem := controller add: #setupFilterLabelEntry
  128.         class:            FormString
  129.         rect:                {49 105 445 60}
  130.         options:            {#Return #Tab #Up #Down #Backtab}
  131.         form:                form.
  132.     cItem := controller add: #setupFilterValueEntry
  133.         class:            FormString
  134.         rect:                {517 105 266 60}
  135.         options:            {#Return #Tab #Up #Down #Backtab}
  136.         form:                form.
  137.     cItem setMaximumLengthTo: 9.
  138.     cItem := controller add: #setupFilterValueList
  139.         class:            FormSyncList
  140.         rect:                {506 179 285 312}
  141.         options:            {#Return #Tab #Backtab}
  142.         form:                form.
  143.     cItem := controller add: #setupFilterLabelList
  144.         class:            FormSyncList
  145.         rect:                {37 179 465 312}
  146.         options:            {#Return #Tab #Backtab #NoVScroll}
  147.         form:                form.
  148.     form setPageStyleTo: {#MajorPage}.
  149.     temp := {{#setupFilterValueList #setupFilterLabelList}
  150.             #setupFilterMappingDroDoLi #setupFilterLabelEntry
  151.             #setupFilterValueEntry}.
  152.     form addFormItemGroups: temp in: controller.
  153.     form := Page
  154.         name:                #'Preview Font'
  155.         rect:                {1076 491 821 682}
  156.         controller:        controller.
  157.     form setGridTo: false.
  158.     form setSnapTo: true.
  159.     form setXGridResTo: 19.
  160.     form setYGridResTo: 19.
  161.     cItem := controller add: #setupFontFontSelectionIC
  162.         class: ICFontSelection
  163.         position: 18 @ 35
  164.         form:        form.
  165.     form setPageStyleTo: {#MajorPage}.
  166.     temp := {#'setupFontFontSelectionIC.fontFaceDroDoLi'
  167.             #'setupFontFontSelectionIC.fontSizeDroDoLi'
  168.             #'setupFontFontSelectionIC.fontAttributesCheckLi'}.
  169.     form addFormItemGroups: temp in: controller.
  170.     controller synchronizeList: {#setupFilterLabelList #setupFilterValueList}.
  171.     controller setMainFormTo: controllerName.
  172. !"end createItems"
  173.  
  174.  
  175. initializeBindings
  176.     |temp|
  177.     temp := IdentityDictionary newEntries: 2.
  178.     temp at: #setupFilterLabelEntry put: (#enterOnFilterEntry).
  179.     temp at: #setupFilterValueEntry put: (#enterOnFilterEntry).
  180.     (formDict at: #Filters) addReturnActions: temp.
  181.     temp := AcceleratorTable new.
  182.     temp at: #AltC put: #setupCancel.
  183.     temp at: #Altc put: #setupCancel.
  184.     temp at: #Alto put: #setupOk.
  185.     temp at: #AltO put: #setupOk.
  186.     temp at: #Delete put: #deleteOnFilterEntry.
  187.     (formDict at: #Filters) acceleratorTableAddAll: temp.
  188.     temp := AcceleratorTable new.
  189.     temp at: #AltC put: #setupCancel.
  190.     temp at: #Altc put: #setupCancel.
  191.     temp at: #AltO put: #setupOk.
  192.     temp at: #Alto put: #setupOk.
  193.     (formDict at: #'Preview Font') acceleratorTableAddAll: temp.
  194.     temp := AcceleratorTable new.
  195.     temp at: #AltC put: #setupCancel.
  196.     temp at: #Altc put: #setupCancel.
  197.     temp at: #AltO put: #setupOk.
  198.     temp at: #Alto put: #setupOk.
  199.     (formDict at: #Options) acceleratorTableAddAll: temp.
  200.     temp := self actionDict.
  201.     temp at: #setupCancelButt put: #setupCancel.
  202.     temp at: #setupOKButt put: #setupOk.
  203.     temp at: #setupFilterLabelList put: #selectFilter.
  204. !"end initializeBindings"
  205.  
  206.  
  207. !"End of ExtendedFileDialogSetupController methods block"
  208.