equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2018 by eXept Software AG |
2 COPYRIGHT (c) 2018 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
18 Object subclass:#ShowMeHowItWorks |
16 Object subclass:#ShowMeHowItWorks |
19 instanceVariableNames:'application opStream streamStack lastComponentName lastComponent |
17 instanceVariableNames:'application opStream streamStack lastComponentName lastComponent |
20 lastResult voice translate language verifying |
18 lastResult voice translate language verifying |
21 closeApplicationWhenFinished defaultComponentWaitTime ui |
19 closeApplicationWhenFinished defaultComponentWaitTime ui |
22 theShowFile defaultElementTimeout applicationStack pronunciations' |
20 theShowFile defaultElementTimeout applicationStack pronunciations' |
23 classVariableNames:'IntroShownCount DebugMode StartLabel' |
21 classVariableNames:'IntroShownCount DebugMode StartLabel Verify' |
24 poolDictionaries:'' |
22 poolDictionaries:'' |
25 category:'Interface-Help' |
23 category:'Interface-Help' |
26 ! |
24 ! |
27 |
25 |
28 Object subclass:#ItemInView |
26 Object subclass:#ItemInView |
165 |
163 |
166 " |
164 " |
167 ShowMeHowItWorks do: |
165 ShowMeHowItWorks do: |
168 #( |
166 #( |
169 (language: de) |
167 (language: de) |
170 (show: 'üben üben üben') |
168 (show: 'üben üben üben') |
171 (wait: 0.5) |
169 (wait: 0.5) |
172 (moveTo: NameOfComponent) |
170 (moveTo: NameOfComponent) |
173 ) |
171 ) |
174 " |
172 " |
175 |
173 |
186 |
184 |
187 " |
185 " |
188 ShowMeHowItWorks do: |
186 ShowMeHowItWorks do: |
189 #( |
187 #( |
190 (language: de) |
188 (language: de) |
191 (show: 'üben üben üben') |
189 (show: 'üben üben üben') |
192 (wait: 0.5) |
190 (wait: 0.5) |
193 (moveTo: NameOfComponent) |
191 (moveTo: NameOfComponent) |
194 ) |
192 ) |
195 " |
193 " |
196 |
194 |
205 |
203 |
206 " |
204 " |
207 ShowMeHowItWorks do: |
205 ShowMeHowItWorks do: |
208 #( |
206 #( |
209 (language: de) |
207 (language: de) |
210 (show: 'üben üben üben') |
208 (show: 'üben üben üben') |
211 (wait: 0.5) |
209 (wait: 0.5) |
212 (moveTo: NameOfComponent) |
210 (moveTo: NameOfComponent) |
213 ) |
211 ) |
214 " |
212 " |
215 |
213 |
227 |
225 |
228 " |
226 " |
229 ShowMeHowItWorks |
227 ShowMeHowItWorks |
230 do:#( |
228 do:#( |
231 (language: de) |
229 (language: de) |
232 (show: 'üben üben üben') |
230 (show: 'üben üben üben') |
233 (wait: 0.5) |
231 (wait: 0.5) |
234 (moveTo: NameOfComponent) |
232 (moveTo: NameOfComponent) |
235 ) |
233 ) |
236 withUI:true |
234 withUI:true |
237 " |
235 " |
247 |
245 |
248 " |
246 " |
249 ShowMeHowItWorks |
247 ShowMeHowItWorks |
250 do:#( |
248 do:#( |
251 (language: de) |
249 (language: de) |
252 (show: 'üben üben üben') |
250 (show: 'üben üben üben') |
253 (wait: 0.5) |
251 (wait: 0.5) |
254 (moveTo: NameOfComponent) |
252 (moveTo: NameOfComponent) |
255 ) |
253 ) |
256 withUI:true |
254 withUI:true |
257 " |
255 " |
2288 "Created: / 23-07-2019 / 10:24:53 / Claus Gittinger" |
2286 "Created: / 23-07-2019 / 10:24:53 / Claus Gittinger" |
2289 "Modified: / 25-07-2019 / 11:48:53 / Claus Gittinger" |
2287 "Modified: / 25-07-2019 / 11:48:53 / Claus Gittinger" |
2290 ! |
2288 ! |
2291 |
2289 |
2292 verify:specArray |
2290 verify:specArray |
|
2291 (Verify ? false) ifFalse:[^ self]. |
|
2292 |
2293 "/ run in verifying mode |
2293 "/ run in verifying mode |
2294 verifying := true. |
2294 verifying := true. |
2295 [ |
2295 [ |
2296 Error handle:[:ex | |
2296 Error handle:[:ex | |
2297 Transcript showCR:('Possible error (encountered while verifying):\.... %1' withCRs) |
2297 Transcript showCR:('Possible error (encountered while verifying):\.... %1' withCRs) |