S
Stefan Drissen
Guest
The following code with 11.7.1 with -catchStop 1 will /only/ execute the finally block if the Progress.Lang.Stop is caught. Revert the catch to a "normal" Error or even SysError catch and the finally block does not execute. Looking back I now see that catchStop is in the 11.7.3 release notes, but also in the what's new in 11.7 - so I'm lost as to what was introduced when. I can confirm that in 11.7.4 it finally (sic) works as it should have when finally was originally introduced ten years ago in 10.1C. Glad that this is improved in 11.7.4 and even better that this is the default in 12. block-level on error undo, throw. define button btstop . define frame fr btstop . view frame fr. enable all with frame fr. ON 'choose' OF btstop DO: stop. END. run foo. procedure foo private: wait-for close of this-procedure. catch e3 as Progress.Lang.Stop: message 'caught' view-as alert-box. end catch. finally: message 'finally' view-as alert-box. end finally. end procedure.
Continue reading...
Continue reading...