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