home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / SAMPMAC.LIB / REXXFIND.SMM < prev    next >
Encoding:
INI File  |  1993-10-29  |  14.9 KB  |  1,378 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [charset]
  6.     82
  7.     ANSI (Windows, IBM CP 1252)
  8. [PanoseFontTable]
  9.     4
  10.     5
  11.     Helvetica
  12.     2818
  13.     1029
  14.     514
  15.     2562
  16.     1026
  17.     Arial
  18.     2818
  19.     1030
  20.     514
  21.     514
  22.     1026
  23.     Helv
  24.     2818
  25.     1029
  26.     514
  27.     770
  28.     1026
  29.     Times New Roman
  30.     514
  31.     774
  32.     1029
  33.     517
  34.     1027
  35. [revisions]
  36.     0
  37. [recfile]
  38.     
  39.     *
  40.     1
  41.     1
  42.     3
  43.     8
  44.     0
  45.     0
  46. [lang]
  47.     1
  48. [desc]
  49.     Findfile using REXX
  50.     
  51.     
  52.     
  53.     
  54.     751936051
  55.     10
  56.     746472280
  57.     459
  58.     1
  59.     0
  60.     0
  61.     0
  62.     0
  63.     
  64.     
  65.     
  66.     
  67.     
  68.     
  69.     1
  70. [prn]
  71.     QMS-PS 810
  72. [port]
  73.     LPT3:
  74. [fopts]
  75.     0
  76.     1
  77.     0
  78.     0
  79. [lnopts]
  80.     2
  81.     Body Text
  82.     1
  83. [docopts]
  84.     5
  85.     2
  86. [GramStyle]
  87.     
  88. [tag]
  89.     Function
  90.     1
  91.     [fnt]
  92.         Helvetica
  93.         240
  94.         0
  95.         49153
  96.     [algn]
  97.         1
  98.         1
  99.         0
  100.         0
  101.         0
  102.     [spc]
  103.         33
  104.         0
  105.         1
  106.         0
  107.         0
  108.         1
  109.         100
  110.     [brk]
  111.         68
  112.     [line]
  113.         8
  114.         0
  115.         1
  116.         0
  117.         0
  118.         1
  119.         1
  120.         144
  121.         144
  122.         1
  123.     [spec]
  124.         0
  125.         1
  126.         
  127.         0
  128.         1
  129.         1
  130.         0
  131.         0
  132.         0
  133.         0
  134.     [nfmt]
  135.         272
  136.         1
  137.         3
  138.         .
  139.         ,
  140.         $
  141.     Body Text
  142.     0
  143.     0
  144. [tag]
  145.     Body Single
  146.     3
  147.     [fnt]
  148.         Times New Roman
  149.         240
  150.         0
  151.         49152
  152.     [algn]
  153.         1
  154.         1
  155.         0
  156.         0
  157.         0
  158.     [spc]
  159.         33
  160.         0
  161.         1
  162.         0
  163.         0
  164.         1
  165.         100
  166.     [brk]
  167.         4
  168.     [line]
  169.         8
  170.         0
  171.         1
  172.         0
  173.         0
  174.         1
  175.         1
  176.         144
  177.         144
  178.         1
  179.     [spec]
  180.         0
  181.         0
  182.         
  183.         0
  184.         1
  185.         1
  186.         0
  187.         0
  188.         0
  189.         0
  190.     [nfmt]
  191.         280
  192.         1
  193.         2
  194.         .
  195.         ,
  196.         $
  197.     Body Single
  198.     0
  199.     0
  200. [tag]
  201.     Bullet
  202.     4
  203.     [fnt]
  204.         Times New Roman
  205.         240
  206.         0
  207.         49152
  208.     [algn]
  209.         1
  210.         1
  211.         0
  212.         288
  213.         288
  214.     [spc]
  215.         33
  216.         0
  217.         1
  218.         0
  219.         0
  220.         1
  221.         100
  222.     [brk]
  223.         4
  224.     [line]
  225.         8
  226.         0
  227.         1
  228.         0
  229.         0
  230.         1
  231.         1
  232.         144
  233.         144
  234.         1
  235.     [spec]
  236.         0
  237.         0
  238.         <*0>
  239.         0
  240.         1
  241.         1
  242.         0
  243.         0
  244.         0
  245.         0
  246.     [nfmt]
  247.         272
  248.         1
  249.         2
  250.         .
  251.         ,
  252.         $
  253.     Bullet
  254.     0
  255.     0
  256. [tag]
  257.     Bullet 1
  258.     5
  259.     [fnt]
  260.         Times New Roman
  261.         240
  262.         0
  263.         49152
  264.     [algn]
  265.         1
  266.         1
  267.         288
  268.         288
  269.         288
  270.     [spc]
  271.         33
  272.         0
  273.         1
  274.         0
  275.         0
  276.         1
  277.         100
  278.     [brk]
  279.         4
  280.     [line]
  281.         8
  282.         0
  283.         1
  284.         0
  285.         0
  286.         1
  287.         1
  288.         144
  289.         144
  290.         1
  291.     [spec]
  292.         0
  293.         0
  294.         <*5>
  295.         0
  296.         1
  297.         1
  298.         0
  299.         0
  300.         0
  301.         0
  302.     [nfmt]
  303.         280
  304.         1
  305.         2
  306.         .
  307.         ,
  308.         $
  309.     Bullet 1
  310.     0
  311.     0
  312. [tag]
  313.     Number List
  314.     6
  315.     [fnt]
  316.         Times New Roman
  317.         240
  318.         0
  319.         49152
  320.     [algn]
  321.         1
  322.         1
  323.         360
  324.         360
  325.         360
  326.     [spc]
  327.         33
  328.         0
  329.         1
  330.         0
  331.         0
  332.         1
  333.         100
  334.     [brk]
  335.         4
  336.     [line]
  337.         8
  338.         0
  339.         1
  340.         0
  341.         0
  342.         1
  343.         1
  344.         144
  345.         144
  346.         1
  347.     [spec]
  348.         0
  349.         0
  350.         <*:>.
  351.         0
  352.         1
  353.         1
  354.         0
  355.         16
  356.         0
  357.         0
  358.     [nfmt]
  359.         272
  360.         1
  361.         2
  362.         .
  363.         ,
  364.         $
  365.     Number List
  366.     0
  367.     0
  368. [tag]
  369.     Subhead
  370.     7
  371.     [fnt]
  372.         Times New Roman
  373.         240
  374.         0
  375.         49155
  376.     [algn]
  377.         1
  378.         1
  379.         0
  380.         0
  381.         0
  382.     [spc]
  383.         33
  384.         0
  385.         1
  386.         72
  387.         72
  388.         1
  389.         100
  390.     [brk]
  391.         4
  392.     [line]
  393.         8
  394.         0
  395.         1
  396.         0
  397.         0
  398.         1
  399.         1
  400.         144
  401.         144
  402.         1
  403.     [spec]
  404.         0
  405.         2
  406.         
  407.         0
  408.         1
  409.         1
  410.         0
  411.         0
  412.         0
  413.         0
  414.     [nfmt]
  415.         272
  416.         1
  417.         2
  418.         .
  419.         ,
  420.         $
  421.     Subhead
  422.     0
  423.     0
  424. [tag]
  425.     Title
  426.     8
  427.     [fnt]
  428.         Arial
  429.         360
  430.         0
  431.         49153
  432.     [algn]
  433.         4
  434.         1
  435.         0
  436.         0
  437.         0
  438.     [spc]
  439.         33
  440.         0
  441.         1
  442.         144
  443.         72
  444.         1
  445.         100
  446.     [brk]
  447.         16
  448.     [line]
  449.         8
  450.         0
  451.         1
  452.         0
  453.         0
  454.         1
  455.         1
  456.         144
  457.         144
  458.         1
  459.     [spec]
  460.         0
  461.         1
  462.         
  463.         0
  464.         1
  465.         1
  466.         0
  467.         0
  468.         0
  469.         0
  470.     [nfmt]
  471.         272
  472.         1
  473.         2
  474.         .
  475.         ,
  476.         $
  477.     Title
  478.     0
  479.     0
  480. [tag]
  481.     Header
  482.     9
  483.     [fnt]
  484.         Times New Roman
  485.         240
  486.         0
  487.         49152
  488.     [algn]
  489.         1
  490.         1
  491.         0
  492.         0
  493.         0
  494.     [spc]
  495.         33
  496.         0
  497.         1
  498.         0
  499.         0
  500.         1
  501.         100
  502.     [brk]
  503.         4
  504.     [line]
  505.         8
  506.         0
  507.         1
  508.         0
  509.         0
  510.         1
  511.         1
  512.         144
  513.         144
  514.         1
  515.     [spec]
  516.         0
  517.         0
  518.         
  519.         0
  520.         1
  521.         1
  522.         0
  523.         0
  524.         0
  525.         0
  526.     [nfmt]
  527.         280
  528.         1
  529.         2
  530.         .
  531.         ,
  532.         $
  533.     Header
  534.     0
  535.     0
  536. [tag]
  537.     Footer
  538.     23
  539.     [fnt]
  540.         Times New Roman
  541.         240
  542.         0
  543.         49152
  544.     [algn]
  545.         1
  546.         1
  547.         0
  548.         0
  549.         0
  550.     [spc]
  551.         33
  552.         0
  553.         1
  554.         0
  555.         0
  556.         1
  557.         100
  558.     [brk]
  559.         4
  560.     [line]
  561.         8
  562.         0
  563.         1
  564.         0
  565.         0
  566.         1
  567.         1
  568.         144
  569.         144
  570.         1
  571.     [spec]
  572.         0
  573.         0
  574.         
  575.         0
  576.         1
  577.         1
  578.         0
  579.         0
  580.         0
  581.         0
  582.     [nfmt]
  583.         280
  584.         1
  585.         2
  586.         .
  587.         ,
  588.         $
  589.     Footer
  590.     0
  591.     0
  592. [tag]
  593.     Body Text
  594.     2
  595.     [fnt]
  596.         Times New Roman
  597.         240
  598.         0
  599.         49152
  600.     [algn]
  601.         1
  602.         1
  603.         0
  604.         0
  605.         0
  606.     [spc]
  607.         33
  608.         0
  609.         1
  610.         0
  611.         0
  612.         1
  613.         100
  614.     [brk]
  615.         4
  616.     [line]
  617.         8
  618.         0
  619.         1
  620.         0
  621.         0
  622.         1
  623.         1
  624.         144
  625.         144
  626.         1
  627.     [spec]
  628.         0
  629.         0
  630.         
  631.         0
  632.         1
  633.         1
  634.         0
  635.         0
  636.         0
  637.         0
  638.     [nfmt]
  639.         280
  640.         1
  641.         2
  642.         .
  643.         ,
  644.         $
  645.     Body Text
  646.     0
  647.     0
  648. [frm]
  649.     1
  650.     134283968
  651.     7980
  652.     1455
  653.     10530
  654.     2640
  655.     1
  656.     1
  657.     1
  658.     2 0 0 100 100 0 8421504
  659.     0
  660.     16777215
  661.     0
  662.     [frmmac]
  663.         REXXFIND.SMM!ShowRexx()
  664.     [frmlay]
  665.         2640
  666.         2550
  667.         1
  668.         164
  669.         164
  670.         1
  671.         1619
  672.         164
  673.         0
  674.         0
  675.         0
  676.         0
  677.         0
  678.         0
  679.         1
  680.         8144
  681.         10366
  682.         0
  683.     [txt]
  684. <:s><:#P7281049,P1887436>Click here to see the REXX file.
  685.  
  686. >
  687. [lay]
  688.     Standard
  689.     513
  690.     [rght]
  691.         15840
  692.         12240
  693.         1
  694.         1440
  695.         1440
  696.         1
  697.         1440
  698.         1440
  699.         0
  700.         0
  701.         0
  702.         0
  703.         0
  704.         1
  705.         1
  706.         1440
  707.         10800
  708.         0
  709.     [frght]
  710.     [lyfrm]
  711.         0
  712.         13184
  713.         0
  714.         14400
  715.         12240
  716.         15840
  717.         0
  718.         1
  719.         1
  720.         0 0 0 0 0 0 0
  721.         0
  722.         16777215
  723.         0
  724.     [frmlay]
  725.         15840
  726.         12240
  727.         1
  728.         1440
  729.         648
  730.         1
  731.         14472
  732.         1440
  733.         0
  734.         0
  735.         16777215
  736.         0
  737.         0
  738.         0
  739.         1
  740.         1440
  741.         10800
  742.         0
  743.     [txt]
  744. <:s>
  745.  
  746. >
  747.     [hrght]
  748.     [lyfrm]
  749.         0
  750.         11136
  751.         0
  752.         0
  753.         12240
  754.         1440
  755.         0
  756.         1
  757.         1
  758.         0 0 0 0 0 0 0
  759.         0
  760.         16777215
  761.         0
  762.     [frmlay]
  763.         1440
  764.         12240
  765.         1
  766.         1440
  767.         72
  768.         1
  769.         648
  770.         1440
  771.         0
  772.         0
  773.         16777215
  774.         0
  775.         0
  776.         0
  777.         1
  778.         1440
  779.         10800
  780.         0
  781.     [txt]
  782. <:s>
  783.  
  784. >
  785. [elay]
  786. [lay]
  787.     1
  788.     513
  789.     [rght]
  790.         15840
  791.         12240
  792.         1
  793.         1440
  794.         1440
  795.         1
  796.         1440
  797.         1440
  798.         0
  799.         0
  800.         16777215
  801.         1
  802.         0
  803.         2
  804.         1
  805.         1440
  806.         10800
  807.         12
  808.         1
  809.         720
  810.         1
  811.         1440
  812.         1
  813.         2160
  814.         1
  815.         2880
  816.         1
  817.         3600
  818.         1
  819.         4320
  820.         1
  821.         5040
  822.         1
  823.         5760
  824.         1
  825.         6480
  826.         1
  827.         7200
  828.         1
  829.         7920
  830.         1
  831.         8640
  832.     [hrght]
  833.     [lyfrm]
  834.         0
  835.         11136
  836.         0
  837.         0
  838.         12240
  839.         1440
  840.         0
  841.         1
  842.         1
  843.         0 0 0 0 0 0 0
  844.         0
  845.         16777215
  846.         0
  847.     [frmlay]
  848.         1440
  849.         12240
  850.         1
  851.         1440
  852.         72
  853.         1
  854.         792
  855.         1440
  856.         0
  857.         0
  858.         16777215
  859.         0
  860.         0
  861.         0
  862.         1
  863.         1440
  864.         10800
  865.         2
  866.         2
  867.         4680
  868.         3
  869.         9360
  870.     [txt]
  871. <:s><:#P30670848,P943718>
  872.  
  873. >
  874.     [frght]
  875.     [lyfrm]
  876.         0
  877.         13184
  878.         0
  879.         14400
  880.         12240
  881.         15840
  882.         0
  883.         1
  884.         1
  885.         0 0 0 0 0 0 0
  886.         0
  887.         16777215
  888.         0
  889.     [frmlay]
  890.         15840
  891.         12240
  892.         1
  893.         1440
  894.         792
  895.         1
  896.         14472
  897.         1440
  898.         0
  899.         0
  900.         16777215
  901.         0
  902.         0
  903.         0
  904.         1
  905.         1440
  906.         10800
  907.         2
  908.         2
  909.         4680
  910.         3
  911.         9360
  912.     [txt]
  913. <:s><:#P30670848,P943718>
  914.  
  915. >
  916. [elay]
  917. [l1]
  918.     1
  919. [edoc]
  920. <:s><:#P21430272,P943718>' Peyton McManus
  921.  
  922. <:s><:#P21430272,P943718>' Example of integrating REXX with an Ami Pro macro
  923.  
  924. <:s><:#P21430272,P943718>' This macro requires the file RexxFind.cmd in the macros directory
  925.  
  926. <:s><:#P21430272,P1887436>' The RexxFind.cmd file is responsible for filling the listbox with files
  927.  
  928. <:s><:#P30670848,P943718>
  929.  
  930. @Subhead@<:s><:#P30670848,P943718>Function Main()
  931.  
  932. <:s><:#P30670848,P943718>' first load the utility dlls
  933.  
  934. <:s><:#P30670848,P943718>RexxFunction("Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'")
  935.  
  936. <:s><:#P30670848,P943718>RexxFunction ("Call SysloadFuncs")
  937.  
  938. <:s><:#P30670848,P943718>Path = GetDocPath$()
  939.  
  940. <:s><:#P30670848,P943718>Path = StrField$(Path, 1, ";")
  941.  
  942. <:s><:#P30670848,P943718>Mac = GetRunningMacroFile$()
  943.  
  944. <:s><:#P30670848,P943718>FillEdit(8000, "{Path}*.s?m")
  945.  
  946. <:s><:#P30670848,P943718>SetDlgCallBack(21,"FindEm")
  947.  
  948. <:s><:#P30670848,P943718>SetDlgCallBack(71,"OpenEm")
  949.  
  950. <:s><:#P30670848,P943718>SetDlgCallBack(9007,"ListBox")
  951.  
  952. <:s><:#P30670848,P943718>SetDlgCallBack(0, "InitDlg")
  953.  
  954. <:s><:#P30670848,P943718>Box = Dialogbox(".","FilesFound")
  955.  
  956. <:s><:#P30670848,P943718>End Function
  957.  
  958. <:s><:#P30670848,P943718>
  959.  
  960. @Subhead@<:s><:#P30670848,P943718>Function InitDlg(Hdlg)
  961.  
  962. <:s><:#P30670848,P943718>' Grey the open button
  963.  
  964. <:s><:#P30670848,P943718>DlgEnableControl(Hdlg, 71, 0)
  965.  
  966. <:s><:#P30670848,P943718>End Function
  967.  
  968. <:s><:#P30670848,P943718>
  969.  
  970. @Subhead@<:s><:#P30670848,P943718>Function FindEm(Hdlg, id, value)
  971.  
  972. <:s><:#P30670848,P943718>Options = "FO"
  973.  
  974. <:s><:#P30670848,P943718>Mac = StrCat$(.UserInterface.Preferences.Macro, "\")
  975.  
  976. <:s><:#P30670848,P943718>DlgClearControl(Hdlg, 9007)
  977.  
  978. <:s><:#P30670848,P943718>FileSpec = GetDlgItemText(Hdlg, 8000)
  979.  
  980. <:s><:#P30670848,P943718>If FileSpec = ""
  981.  
  982. <:s><:#P30670848,P943718>    ' if no filespec then look at the docpath
  983.  
  984. <:s><:#P30670848,P943718>    FileSpec = StrCat$(GetDocPath(), "*.s?m")
  985.  
  986. <:s><:#P30670848,P943718>Endif
  987.  
  988. <:s><:#P30670848,P943718>Text = GetdlgItemtext(Hdlg, 8001)
  989.  
  990. <:s><:#P30670848,P943718>If GetDlgItemText(Hdlg, 1010)
  991.  
  992. <:s><:#P30670848,P943718>    Options = StrCat$(Options,"S")        ' Include subdirectories 
  993.  
  994. <:s><:#P30670848,P943718>Endif
  995.  
  996. <:s><:#P30670848,P943718>' Call the REXX file and send it some params.
  997.  
  998. <:s><:#P30670848,P943718>FilesSearched = RexxCmd("{Mac}RexxFind.Cmd", Hdlg, 9007, FileSpec, Text, Options)
  999.  
  1000. <:s><:#P30670848,P943718>SetDlgItemText(Hdlg, 8007, FilesSearched)
  1001.  
  1002. <:s><:#P30670848,P943718>End Function
  1003.  
  1004. <:s><:#P30670848,P943718>
  1005.  
  1006. @Subhead@<:s><:#P30670848,P943718>Function ListBox(Hdlg, id, value)
  1007.  
  1008. <:s><:#P30670848,P943718>IgnorekeyBoard(2)
  1009.  
  1010. <:s><:#P30670848,P943718>'Hdlg is the handle to the listbox
  1011.  
  1012. <:s><:#P30670848,P943718>'Id is the Id that activated this callback
  1013.  
  1014. <:s><:#P30670848,P943718>'Value is the value of the id
  1015.  
  1016. <:s><:#P30670848,P943718>' If nothing is selected in the listbox then grey the open button
  1017.  
  1018. <:s><:#P30670848,P943718>If (GetDlgItemText(Hdlg, 9007) ="")
  1019.  
  1020. <:s><:#P30670848,P943718>    DlgEnableControl(Hdlg,71,0)        ' Grey the open button
  1021.  
  1022. <:s><:#P30670848,P943718>    DlgSetDefaultButton(Hdlg, 21)    ' Search is the default
  1023.  
  1024. <:s><:#P30670848,P943718>Else
  1025.  
  1026. <:s><:#P30670848,P943718>    DlgSetDefaultButton(Hdlg, 71)    ' open is now the default
  1027.  
  1028. <:s><:#P30670848,P943718>    DlgEnableControl(Hdlg, 71,1)    ' control is not grey
  1029.  
  1030. <:s><:#P30670848,P943718>Endif
  1031.  
  1032. <:s><:#P30670848,P943718>End Function
  1033.  
  1034. <:s><:#P30670848,P943718>
  1035.  
  1036. @Subhead@<:s><:#P30670848,P943718>Function OpenEm(Hdlg, id, value)
  1037.  
  1038. <:s><:#P30670848,P943718>ignorekeyboard(1)
  1039.  
  1040. <:s><:#P30670848,P943718>' Open the files seleted in the listbox
  1041.  
  1042. <:s><:#P30670848,P943718>DefStr Filename;
  1043.  
  1044. <:s><:#P30670848,P943718>x = 1
  1045.  
  1046. <:s><:#P30670848,P943718>Sep = " "
  1047.  
  1048. <:s><:#P30670848,P943718>Files = GetDlgItemText(Hdlg, 9007)
  1049.  
  1050. <:s><:#P30670848,P943718>While -1 != Assign(&FileName, Strfield$(Files, x, Sep))
  1051.  
  1052. <:s><:#P30670848,P943718>    Ext = lcase$(StrField$(FileName, 2, "."))
  1053.  
  1054. <:s><:#P30670848,P943718>    If (Ext = "smm" or Ext = "sam")
  1055.  
  1056. <:s><:#P30670848,P943718>        If GetOpenFileCount() << 9
  1057.  
  1058. <:s><:#P30670848,P943718>            FileOpen(FileName, 1, "")
  1059.  
  1060. <:s><:#P30670848,P943718>        Endif
  1061.  
  1062. <:s><:#P30670848,P943718>    Endif
  1063.  
  1064. <:s><:#P30670848,P943718>    x =x + 1
  1065.  
  1066. <:s><:#P30670848,P943718>Wend
  1067.  
  1068. <:s><:#P30670848,P943718>DlgClose(Hdlg)
  1069.  
  1070. <:s><:#P30670848,P943718>End Function
  1071.  
  1072. <:s><:#P30670848,P943718>
  1073.  
  1074. <:s><:#P30670848,P943718>
  1075.  
  1076. <:s><:#P30670848,P943718>
  1077.  
  1078. @Subhead@<:s><:#P30670848,P943718>Function ShowRexx()
  1079.  
  1080. <:s><:#P30670848,P943718>' The frame at the top of this document executes this function
  1081.  
  1082. <:s><:#P30670848,P943718>MacPath = GetMacPath$()
  1083.  
  1084. <:s><:#P30670848,P943718>Exec("E.Exe", "{MacPath}RexxFind.Cmd", 1)
  1085.  
  1086. <:s><:#P30670848,P943718>End Function
  1087.  
  1088. @Function@<:s><:#P30670848,P975176>
  1089.  
  1090. <:s><:#P30670848,P943718>DIALOG    filesfound
  1091.  
  1092. <:s><:#P30670848,P943718>-2134376448    14    58    27    222    150    ""    ""    "Find Files"
  1093.  
  1094. <:s><:#P30670848,P943718>FONT    8    "Helv"
  1095.  
  1096. <:s><:#P30670848,P943718>6    9    58    8    1002    1342177280    "static"    "&Search For:"    0 
  1097.  
  1098. <:s><:#P30670848,P943718>69    5    90    12    8000    1350631552    "edit"    ""    0 
  1099.  
  1100. <:s><:#P30670848,P1887436>69    22    85    9    1010    1342242819    "button"    "&Include Subdirectories"    0 
  1101.  
  1102. <:s><:#P30670848,P943718>6    34    61    10    1001    1342177280    "static"    "&Text to search for:"    0 
  1103.  
  1104. <:s><:#P30670848,P943718>69    30    90    12    8001    1350631552    "edit"    ""    0 
  1105.  
  1106. <:s><:#P30670848,P943718>4    60    66    8    1000    1342177280    "static"    "Select files to open:"    0 
  1107.  
  1108. <:s><:#P30670848,P943718>4    71    212    71    9007    1352728587    "listbox"    ""    0 
  1109.  
  1110. <:s><:#P30670848,P943718>176    52    40    14    71    1342373888    "button"    "&Open"    0 
  1111.  
  1112. <:s><:#P30670848,P943718>177    5    40    14    21    1342373889    "button"    "Search"    0 
  1113.  
  1114. <:s><:#P30670848,P943718>177    21    40    14    2    1342373888    "button"    "Cancel"    0 
  1115.  
  1116. <:s><:#P30670848,P943718>104    50    52    10    1003    1342177280    "static"    "Files searched"    0 
  1117.  
  1118. <:s><:#P30670848,P943718>82    49    18    9    8007    1342177280    "static"    ""    0 
  1119.  
  1120. <:s><:#P30670848,P943718>104    61    48    9    1005    1342177280    "static"    "Files found"    0 
  1121.  
  1122. <:s><:#P30670848,P943718>82    61    18    9    8009    1342177280    "static"    ""    0 
  1123.  
  1124. <:s><:#P30670848,P943718>END DIALOG
  1125.  
  1126. <:s><:#P30670848,P943718>
  1127.  
  1128. <:s><:#P30670848,P943718>
  1129. >
  1130.  
  1131. [Embedded]
  1132. 00012251
  1133. >
  1134. [macsum4] 7 55
  1135. Main 0 0 4 5
  1136. InitDlg 450 1 1 20
  1137. FindEm 528 3 6 25
  1138. ListBox 1109 3 1 43
  1139. OpenEm 1355 3 6 58
  1140. ShowRexx 1896 0 2 79
  1141. filesfound 2050 0 65535 85
  1142. [macse]
  1143. 14 Main
  1144. 29 0 Main
  1145. 17 2
  1146. 0 77 "Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'"
  1147. 17 3
  1148. 0 77 "Call SysloadFuncs"
  1149. 17 4
  1150. 29 1 Path
  1151. 31 101 45 2
  1152. 13
  1153. 16 _$$5CatSlash [X]
  1154. 13
  1155. 8 1
  1156. 17 5
  1157. 0 20 "{1}" 1 ";"
  1158. 13
  1159. 8 1
  1160. 17 6
  1161. 29 2 Mac
  1162. 0 802
  1163. 13
  1164. 8 2
  1165. 17 7
  1166. 0 31 8000 "{1}*.s?m"
  1167. 17 8
  1168. 0 41 21 "FindEm"
  1169. 17 9
  1170. 0 41 71 "OpenEm"
  1171. 17 10
  1172. 0 41 9007 "ListBox"
  1173. 17 11
  1174. 0 41 0 "InitDlg"
  1175. 17 12
  1176. 29 3 Box
  1177. 0 26 "." "FilesFound"
  1178. 13
  1179. 8 3
  1180. 6 0
  1181. 15
  1182. 17 13
  1183. 9
  1184. 14 InitDlg
  1185. 29 0 Hdlg
  1186. 29 1 InitDlg
  1187. 17 2
  1188. 0 53 "{0}" 71 0
  1189. 6 1
  1190. 15
  1191. 17 3
  1192. 9
  1193. 14 FindEm
  1194. 29 0 Hdlg
  1195. 29 1 id
  1196. 29 2 value
  1197. 29 3 FindEm
  1198. 17 1
  1199. 29 4 Options
  1200. 7 "FO"
  1201. 8 4
  1202. 17 2
  1203. 29 5 Mac
  1204. 31 101 45 57
  1205. 13
  1206. 0 16 [X] "\"
  1207. 13
  1208. 8 5
  1209. 17 3
  1210. 0 54 "{0}" 9007
  1211. 17 4
  1212. 29 6 FileSpec
  1213. 0 42 "{0}" 8000
  1214. 13
  1215. 8 6
  1216. 17 5
  1217. 6 6
  1218. 7 ""
  1219. 18 0
  1220. 11 00000327
  1221. 17 7
  1222. 31 101 45 2
  1223. 13
  1224. 16 _$$5CatSlash [X]
  1225. 13
  1226. 0 16 [X] "*.s?m"
  1227. 13
  1228. 8 6
  1229. 17 9
  1230. 29 7 Text
  1231. 0 42 "{0}" 8001
  1232. 13
  1233. 8 7
  1234. 17 10
  1235. 0 42 "{0}" 1010
  1236. 13
  1237. 11 00000443
  1238. 17 11
  1239. 0 16 "{4}" "S"
  1240. 13
  1241. 8 4
  1242. 17 14
  1243. 29 8 FilesSearched
  1244. 0 76 "{5}RexxFind.Cmd" "{0}" 9007 "{6}" "{7}" "{4}"
  1245. 13
  1246. 8 8
  1247. 17 15
  1248. 0 43 "{0}" 8007 "{8}"
  1249. 6 3
  1250. 15
  1251. 17 16
  1252. 9
  1253. 14 ListBox
  1254. 29 0 Hdlg
  1255. 29 1 id
  1256. 29 2 value
  1257. 29 3 ListBox
  1258. 17 1
  1259. 0 32 2
  1260. 17 6
  1261. 0 42 "{0}" 9007
  1262. 13
  1263. 7 ""
  1264. 18 0
  1265. 11 00000181
  1266. 17 7
  1267. 0 53 "{0}" 71 0
  1268. 17 8
  1269. 0 72 "{0}" 21
  1270. 10 00000227
  1271. 17 10
  1272. 0 72 "{0}" 71
  1273. 17 11
  1274. 0 53 "{0}" 71 1
  1275. 6 3
  1276. 15
  1277. 17 13
  1278. 9
  1279. 14 OpenEm
  1280. 29 0 Hdlg
  1281. 29 1 id
  1282. 29 2 value
  1283. 29 3 OpenEm
  1284. 17 1
  1285. 0 32 1
  1286. 17 3
  1287. 29 4 Filename
  1288. 17 4
  1289. 29 5 x
  1290. 5 1
  1291. 8 5
  1292. 17 5
  1293. 29 6 Sep
  1294. 7 " "
  1295. 8 6
  1296. 17 6
  1297. 29 7 Files
  1298. 0 42 "{0}" 9007
  1299. 13
  1300. 8 7
  1301. 17 7
  1302. 5 -1
  1303. 0 20 "{7}" "{5}" "{6}"
  1304. 13
  1305. 0 805 &4 [X]
  1306. 13
  1307. 18 1
  1308. 11 00000503
  1309. 17 8
  1310. 29 8 Ext
  1311. 0 20 "{4}" 2 "."
  1312. 13
  1313. 0 17 [X]
  1314. 13
  1315. 8 8
  1316. 17 9
  1317. 6 8
  1318. 7 "smm"
  1319. 18 0
  1320. 6 8
  1321. 7 "sam"
  1322. 18 0
  1323. 1 2
  1324. 11 00000463
  1325. 17 10
  1326. 0 1050
  1327. 13
  1328. 5 9
  1329. 18 5
  1330. 11 00000463
  1331. 17 11
  1332. 16 _$$1FileOpen "{4}" 1 ""
  1333. 17 14
  1334. 6 5
  1335. 5 1
  1336. 3 0
  1337. 8 5
  1338. 10 00000187
  1339. 17 16
  1340. 0 64 "{0}"
  1341. 6 3
  1342. 15
  1343. 17 17
  1344. 9
  1345. 14 ShowRexx
  1346. 29 0 ShowRexx
  1347. 17 2
  1348. 29 1 MacPath
  1349. 31 101 45 57
  1350. 13
  1351. 16 _$$5CatSlash [X]
  1352. 13
  1353. 8 1
  1354. 17 3
  1355. 0 22 "E.Exe" "{1}RexxFind.Cmd" 1
  1356. 6 0
  1357. 15
  1358. 17 4
  1359. 9
  1360. DIALOG filesfound
  1361. -2134376448 14 58 27 222 150 "" "" "Find Files" 
  1362. FONT 8 "Helv" 
  1363. 6 9 58 8 1002 1342177280 "static" "&Search For:" 0 
  1364. 69 5 90 12 8000 1350631552 "edit" "" 0 
  1365. 69 22 85 9 1010 1342242819 "button" "&Include Subdirectories" 0 
  1366. 6 34 61 10 1001 1342177280 "static" "&Text to search for:" 0 
  1367. 69 30 90 12 8001 1350631552 "edit" "" 0 
  1368. 4 60 66 8 1000 1342177280 "static" "Select files to open:" 0 
  1369. 4 71 212 71 9007 1352728587 "listbox" "" 0 
  1370. 176 52 40 14 71 1342373888 "button" "&Open" 0 
  1371. 177 5 40 14 21 1342373889 "button" "Search" 0 
  1372. 177 21 40 14 2 1342373888 "button" "Cancel" 0 
  1373. 104 50 52 10 1003 1342177280 "static" "Files searched" 0 
  1374. 82 49 18 9 8007 1342177280 "static" "" 0 
  1375. 104 61 48 9 1005 1342177280 "static" "Files found" 0 
  1376. 82 61 18 9 8009 1342177280 "static" "" 0 
  1377. 00012276
  1378.