home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / fdlg.zip / FDLG1024.CLS < prev    next >
Text File  |  1996-02-02  |  9KB  |  283 lines
  1. "  ---- Ronald Brill 1995, 1996 ---- "
  2. "  ---- Extended File Dialogs Version 2.1 ---- "
  3.  
  4.  
  5. FileDialogController SecondaryFile!
  6.  
  7.  
  8. !FileDialogController class methods!
  9.  
  10.  
  11. !"End of FileDialogController class methods block"
  12.  
  13.  
  14. !FileDialogController methods!
  15.  
  16.  
  17. createItems
  18.     |cItem temp form controller|
  19.     controller := self.
  20.     form := DialogBox
  21.         name:                #FileSelector
  22.         title:            #RBRi
  23.         rect:                {14 174 2769 1416}
  24.         controller:        controller.
  25.     form setGridTo: false.
  26.     form setSnapTo: true.
  27.     form setXGridResTo: 19.
  28.     form setYGridResTo: 19.
  29.     temp := IdentityDictionary newEntries: 1.
  30.     temp at: #vFileName put: (#openFile).
  31.     form setReturnActionsTo: temp.
  32.     form setInitialFocusTo: #vFileName.
  33.     form setBackgroundSourceTo: #DialogBackgroundColor.
  34.     cItem := controller add: #vSetupMenu
  35.         class:            FormSubMenu
  36.         position:        0
  37.         options:            nil
  38.         form:                form
  39.         text:                'previewMenu'.
  40.     cItem setInitialLabelsTo: {'~Setup...' '-' 'About'}.
  41.     cItem setInitialValueTo: {#mSetup nil #mShowAbout}.
  42.     cItem := controller add: #cFilenameLabel
  43.         class:            FormStatic
  44.         rect:                {39 19 661 77}
  45.         options:            {#Mnemonic}
  46.         form:                form
  47.         text:                'File ~Name:'.
  48.     cItem setFormatTo: {#Left #Bottom {#PointSize 10}}.
  49.     cItem := controller add: #TypeofFile
  50.         class:            FormStatic
  51.         rect:                {39 213 661 72}
  52.         options:            {#Mnemonic}
  53.         form:                form
  54.         text:                '~Type of File:'.
  55.     cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.
  56.     cItem := controller add: #cDriveLabel
  57.         class:            FormStatic
  58.         rect:                {735 213 196 72}
  59.         options:            {#Mnemonic}
  60.         form:                form
  61.         text:                'Dri~ve:'.
  62.     cItem setFormatTo: {#Left #Bottom {#PointSize 10}}.
  63.     cItem := controller add: #vFileName
  64.         class:            FormString
  65.         rect:                {47 108 898 64}
  66.         options:            {#Return #Insert #Tab #Backtab}
  67.         form:                form.
  68.     cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.
  69.     cItem := controller add: #vFileTypes
  70.         class:            FormDropList
  71.         rect:                {39 290 661 80}
  72.         options:            {#Return #Tab #Backtab}
  73.         form:                form.
  74.     (cItem formItem) setLineCountTo: 0.
  75.     cItem := controller add: #vDriveList
  76.         class:            FormDropList
  77.         rect:                {735 290 216 80}
  78.         options:            {#Return #Tab #Backtab}
  79.         form:                form.
  80.     (cItem formItem) setLineCountTo: 0.
  81.     cItem := controller add: #vFileList
  82.         class:            FormList
  83.         rect:                {39 406 661 776}
  84.         options:            {#HScroll #Return #Tab #Backtab}
  85.         form:                form.
  86.     cItem := controller add: #vDirList
  87.         class:            FormTreeView
  88.         rect:                {735 486 796 696}
  89.         options:            {#HScroll #'Reduced Tree' #'Show Icon' #'Double Click' #Return #Tab #Backtab}
  90.         form:                form.
  91.     cItem setSplitPositionTo: nil.
  92.     cItem formItem indents: {1}.
  93.     cItem formItem iconOffset: 4.
  94.     cItem formItem widthCompressFactor: 2.
  95.     cItem expandedIconSource: #FSelFolOpen.
  96.     cItem expandedIconType: #SystemBitmap.
  97.     cItem collapsedIconSource: #FSelFolClose.
  98.     cItem collapsedIconType: #SystemBitmap.
  99.     cItem := controller add: #vOk
  100.         class:            FormButton
  101.         rect:                {39 1218 196 80}
  102.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  103.         form:                form
  104.         text:                '~Open'.
  105.     cItem := controller add: #vCancel
  106.         class:            FormButton
  107.         rect:                {271 1218 196 80}
  108.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  109.         form:                form
  110.         text:                '~Cancel'.
  111.     cItem setActionDescriptionTo: #Close.
  112.     cItem := controller add: #vHelp
  113.         class:            FormButton
  114.         rect:                {503 1218 196 80}
  115.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  116.         form:                form
  117.         text:                '~Help'.
  118.     cItem := controller add: #vCurrentDir
  119.         class:            FormStatic
  120.         rect:                {735 406 796 77}
  121.         options:            nil
  122.         form:                form
  123.         text:                ''.
  124.     cItem setFormatTo: {#Left #VCenter {#PointSize 10}}.
  125.     cItem := controller add: #vRememberToBo
  126.         class:            FormTopicBox
  127.         rect:                {1567 19 1144 1278}
  128.         options:            {#Draw3D}
  129.         form:                form
  130.         text:                'Remember'.
  131.     cItem setFormatTo: {#Left #Top}.
  132.     cItem := controller add: #vRememberLiBo
  133.         class:            FormList
  134.         rect:                {1587 75 1103 1204}
  135.         options:            {#HScroll #Return #Tab #Backtab}
  136.         form:                form.
  137.     cItem := controller add: #vRememberMenu
  138.         class:            FormSubMenu
  139.         position:        0
  140.         options:            nil
  141.         form:                form
  142.         text:                'rememberMenu'.
  143.     cItem setInitialLabelsTo: {'~Append current directory' 'De~lete selected directory' '-' '~Mark selected as default' '~Remove default' '-' '~Sort list' '-' 'Show full path'}.
  144.     cItem setInitialValueTo: {#mRememberAdd #mRememberDelete nil #mSetDefault #mDeleteDefault nil #mRememberSort nil #mToggleFullPath}.
  145.     cItem := controller add: #vPreview
  146.         class:            FormCheckBox
  147.         rect:                {1277 1218 252 80}
  148.         options:            {#Return #Tab #Up #Down #Backtab #Left #Right}
  149.         form:                form
  150.         text:                '~Preview'.
  151.     cItem := controller add: #vPreviewMLString
  152.         class:            FormMlEntryField
  153.         rect:                {1587 80 1106 936}
  154.         options:            {#HScroll}
  155.         form:                form.
  156.     cItem setFormatTo: {#Top #Left {#FontFace #'System VIO'} {#PointSize 5}}.
  157.     cItem := controller add: #vAttribChList
  158.         class:            FormCheckList
  159.         rect:                {1587 1046 312 232}
  160.         options:            {#NoBorder #NoEdit #NoSelect #Return #Tab #Backtab}
  161.         form:                form.
  162.     cItem setInitialValueTo: {#Readonly #Hidden #System #Archiv}.
  163.     cItem setInitialSelectionTo: {}.
  164.     cItem := controller add: #writeText
  165.         class:            FormStatic
  166.         rect:                {1915 1044 213 80}
  167.         options:            nil
  168.         form:                form
  169.         text:                'Write:'.
  170.     cItem setFormatTo: {#Left #VCenter {#PointSize 10} #DarkBlue}.
  171.     cItem := controller add: #accessText
  172.         class:            FormStatic
  173.         rect:                {1912 1121 216 80}
  174.         options:            nil
  175.         form:                form
  176.         text:                'Access:'.
  177.     cItem setFormatTo: {#Left #VCenter {#PointSize 10} #DarkBlue}.
  178.     cItem := controller add: #creationText
  179.         class:            FormStatic
  180.         rect:                {1912 1198 216 80}
  181.         options:            nil
  182.         form:                form
  183.         text:                'Creation:'.
  184.     cItem setFormatTo: {#Left #VCenter {#PointSize 10} #DarkBlue}.
  185.     cItem := controller add: #writeEntryDate
  186.         class:            FormStatic
  187.         rect:                {2137 1052 260 66}
  188.         options:            nil
  189.         form:                form
  190.         text:                ''.
  191.     cItem setFormatTo: {#Right #VCenter {#PointSize 10} #Black}.
  192.     cItem := controller add: #accessEntryDate
  193.         class:            FormStatic
  194.         rect:                {2137 1129 260 66}
  195.         options:            nil
  196.         form:                form
  197.         text:                ''.
  198.     cItem setFormatTo: {#Right #VCenter {#PointSize 10} #Black}.
  199.     cItem := controller add: #creationEntryDate
  200.         class:            FormStatic
  201.         rect:                {2137 1207 260 66}
  202.         options:            nil
  203.         form:                form
  204.         text:                ''.
  205.     cItem setFormatTo: {#Right #VCenter {#PointSize 10} #Black}.
  206.     cItem := controller add: #writeEntryTime
  207.         class:            FormStatic
  208.         rect:                {2427 1052 257 66}
  209.         options:            nil
  210.         form:                form
  211.         text:                ''.
  212.     cItem setFormatTo: {#Right #VCenter {#PointSize 10} #Black}.
  213.     cItem := controller add: #accessEntryTime
  214.         class:            FormStatic
  215.         rect:                {2427 1129 257 66}
  216.         options:            nil
  217.         form:                form
  218.         text:                ''.
  219.     cItem setFormatTo: {#Right #VCenter {#PointSize 10} #Black}.
  220.     cItem := controller add: #creationEntryTime
  221.         class:            FormStatic
  222.         rect:                {2427 1207 257 66}
  223.         options:            nil
  224.         form:                form
  225.         text:                ''.
  226.     cItem setFormatTo: {#Right #VCenter {#PointSize 10} #Black}.
  227.  
  228.  
  229.     temp := AcceleratorTable new.
  230.     temp at: #Escape put: #close.
  231.     temp at: #Alto put: #openFile.
  232.     temp at: #Altc put: #close.
  233.     temp at: #Alti put: #mExpandFileName.
  234.     temp at: #Altn put: #setFocusName.
  235.     temp at: #Altd put: #setFocusDir.
  236.     temp at: #Altt put: #setFocusTypes.
  237.     temp at: #Altv put: #setFocusDrives.
  238.     temp at: #Ctrli put: #mExpandFileName.
  239.     temp at: #Alta put: #mRememberAdd.
  240.     temp at: #AltA put: #mRememberAdd.
  241.     temp at: #Altl put: #mRememberDelete.
  242.     temp at: #AltL put: #mRememberDelete.
  243.     temp at: #Alts put: #mRememberSort.
  244.     temp at: #AltS put: #mRememberSort.
  245.     temp at: #Altp put: #mPreview.
  246.     temp at: #AltP put: #mPreview.
  247.     form setAcceleratorTableTo: temp.
  248.  
  249.     temp := { #vFileName #vFileList #vDirList #vFileTypes #vDriveList {#vOk #vCancel #vHelp}}.
  250.     form setFormItemGroupsTo: temp.
  251.  
  252.     temp := controller actionDict.
  253.     temp at: #vDriveList put: #mDriveSelected.
  254.     temp at: #vFileList put: #mFileSelected.
  255.     temp at: #vHelp put: #mHelp.
  256.     temp at: #vFileTypes put: #mFileTypeSelected.
  257.     temp at: #vOk put: #openFile.
  258.     temp at: #vFileName put: #mFileNameChanged.
  259.     temp at: #vRememberMenu put: #mRememberMenu.
  260.     temp at: #vSetupMenu put: #mSetupMenu.
  261.     temp at: #vPreview put: #mTogglePreview.
  262.  
  263.     temp := controller editDict.
  264.     temp at: #vFileList put: #openFileDblClicked.
  265.     temp at: #vDirList put: #mDirectorySelected.
  266.     temp at: #vRememberLiBo put: #mRememberSelected.
  267.     self on: #wmCharPressed: for: vDriveList action: (Action receiver: self
  268.             send: #selectDriveChar:).
  269.     self on: #changed: for: vDriveList
  270.              action: (Action receiver: self send: #preview:).
  271.     self on: #changed: for: vDirList
  272.              action: (Action receiver: self send: #preview:).
  273.  
  274.    (cItemDict at: #vRememberLiBo) setPopupTo: (cItemDict at: #vRememberMenu).
  275.    form setPopupTo: (cItemDict at: #vSetupMenu).
  276.  
  277.     controller setMainFormTo: #FileSelector.
  278.     controller finishInit.
  279. !"end createItems"
  280.  
  281.  
  282. !"End of FileDialogController methods block"
  283.