equal
deleted
inserted
replaced
2299 do:specArray from:startLabelOrNil |
2299 do:specArray from:startLabelOrNil |
2300 "must run as a separate process; |
2300 "must run as a separate process; |
2301 otherwise - if started by the app itself - |
2301 otherwise - if started by the app itself - |
2302 no events will be processed while running" |
2302 no events will be processed while running" |
2303 |
2303 |
2304 |wasFlyByActive| |
|
2305 |
|
2306 (wasFlyByActive := FlyByHelp isSuspended) ifFalse:[ |
|
2307 FlyByHelp suspend. |
|
2308 ]. |
|
2309 |
|
2310 self prepare. |
2304 self prepare. |
2311 |
|
2312 "/ run once in verifying mode |
2305 "/ run once in verifying mode |
|
2306 self verify:specArray. |
|
2307 |
2313 [ |
2308 [ |
2314 self verify:specArray. |
2309 |wasFlyByActive| |
2315 ] ensure:[ |
2310 |
2316 wasFlyByActive ifTrue:[FlyByHelp resume]. |
2311 wasFlyByActive := FlyByHelp isSuspended. |
2317 ]. |
|
2318 |
|
2319 [ |
|
2320 FlyByHelp suspend. |
2312 FlyByHelp suspend. |
2321 |
2313 |
2322 [ |
2314 [ |
2323 Error handle:[:ex | |
2315 Error handle:[:ex | |
2324 Dialog warn:(self class classResources |
2316 Dialog warn:(self class classResources |