1WindowTitle {Find}
2WindowSize 520 340		# Size
3#ForeColor	{black}
4#BackColor	{grey85}
5#ShadowColor	{grey55}
6#HilightColor	{grey100}
7#Font		-adobe-helvetica-bold-r-*-*-12-*
8
9Init
10 Begin
11  Set $CMD0={sh -c "cd; pwd"}
12  Set $PATH=(GetOutput $CMD0 0 0)
13  Set $NAME={}
14  Set $NAMEOPT={}
15  Set $NAMEOPT2={}
16  Set $BODY={}
17  Set $BODYOPT={}
18  Set $REC={-maxdepth 1 }
19  ChangeTitle 5 $PATH
20  ChangeTitle 7 $NAME
21  ChangeTitle 9 $BODY
22 End
23
24PeriodicTasks
25 Begin
26  Set $MSG=(ReceivFromScript $BROWSER)
27  If $MSG <> {No message} Then
28   ChangeTitle 5 $MSG
29 End
30
31Widget 1
32Property
33 Size 70 18
34 Position 25 300
35 Flags NoReliefString
36 Type PushButton
37 Title {Search}
38Main
39 Case message of
40  SingleClic :
41  Begin
42   If (GetValue 12) == 1 Then
43    Set $REC={}
44   Else
45    Set $REC={-maxdepth 1 }
46   Set $PATH=(GetTitle 5)
47   Set $NAME=(GetTitle 7)
48   If $NAME == {} Then
49    Set $NAMEOPT={}
50   Else
51    Set $NAMEOPT={-name } $NAME
52   Set $BODY=(GetTitle 9)
53   If $BODY == {} Then
54    Begin
55    Set $BODYOPT={}
56    Set $TYPE={}
57    End
58   Else
59    Begin
60    Set $BODYOPT={|xargs grep -l "} $BODY {"}
61    Set $TYPE={-type f}
62    End
63   Set $CMD={sh -c "find }$PATH { }  $REC  { } $TYPE { } $NAMEOPT { } $BODYOPT { "}
64   Set $LS=(GetOutput $CMD 1 -1)
65   Set $ID=2
66   While (GetOutput $CMD $ID -1) <> {} Do
67   Begin
68    Set $LS=$LS {|} (GetOutput $CMD $ID -1)
69    Set $ID=(Add $ID 1)
70   End
71   ChangeTitle 13 $LS
72  End
73End
74
75Widget 2
76Property
77 Size 70 18
78 Position 425 300
79 Flags NoReliefString
80 Type PushButton
81 Title {Quit}
82Main
83 Case message of
84  SingleClic :
85  Begin
86   Quit
87  End
88End
89
90Widget 3
91Property
92 Position 10 10
93 Size 500 280
94 Type Rectangle
95Main
96 Case message of
97  SingleClic :
98  Begin
99  End
100End
101
102Widget 4
103Property
104 Position 20 42
105 Flags NoReliefString NoFocus
106 Type ItemDraw
107 Title {Path:}
108Main
109 Case message of
110  SingleClic :
111  Begin
112  End
113End
114
115Widget 5
116Property
117 Position 65 37
118 Flags NoReliefString
119 Size 320 20
120 Type TextField
121 Title {}
122Main
123 Case message of
124  SingleClic :
125  Begin
126  End
127End
128
129
130Widget 6
131Property
132 Position 20 67
133 Flags NoReliefString NoFocus
134 Type ItemDraw
135 Title {Name:}
136Main
137 Case message of
138  SingleClic :
139  Begin
140  End
141End
142
143Widget 7
144Property
145 Position 65 62
146 Flags NoReliefString
147 Size 270 20
148 Type TextField
149 Title {}
150Main
151 Case message of
152  SingleClic :
153  Begin
154  End
155End
156
157Widget 8
158Property
159 Position 20 92
160 Flags NoReliefString NoFocus
161 Type ItemDraw
162 Title {Body:}
163Main
164 Case message of
165  SingleClic :
166  Begin
167  End
168End
169
170Widget 9
171Property
172 Position 65 87
173 Flags NoReliefString
174 Size 270 20
175 Type TextField
176 Title {}
177Main
178 Case message of
179  SingleClic :
180  Begin
181  End
182End
183
184Widget 10
185Property
186 Size 70 18
187 Position 410 35
188 Flags NoReliefString
189 Type PushButton
190 Title {Browser...}
191Main
192 Case message of
193  SingleClic :
194  Begin
195   Set $ARG={FvwmScript-FileBrowser } (GetTitle 5) {/}
196   Set $BROWSER=(LaunchScript $ARG )
197  End
198End
199
200Widget 12
201Property
202 Position 20 125
203 Flags NoReliefString
204 Type CheckBox
205 Title {Recursive Search}
206 Value 0
207Main
208 Case message of
209  SingleClic :
210  Begin
211  End
212End
213
214Widget 13
215Property
216 Position 20 157
217 Flags NoReliefString
218 Size 480 115
219 Type List
220 Title {}
221Main
222  Case message of
223  SingleClic :
224  Begin
225  End
226End
227
228
229