# HG changeset patch # User Stefan Vogel # Date 1052910403 -7200 # Node ID 517efee14b0d804f626d06fd497ab41697e65c3a # Parent 9c2fba503547f111e2b71c3c6b241b9bccf2f431 Stream streamErrorSignal -> StreamError #valueNowOrOnUnwindDo: -> #ensure: diff -r 9c2fba503547 -r 517efee14b0d MenuEditor.st --- a/MenuEditor.st Wed May 07 17:18:38 2003 +0200 +++ b/MenuEditor.st Wed May 14 13:06:43 2003 +0200 @@ -2236,14 +2236,15 @@ withoutNotifyDo:aBlock "evaluate the block; all change notifications are - discard during the block is evaluated. - " + discard during the block is evaluated" + |blockResult| - [ notifyDisabledCounter := notifyDisabledCounter + 1. - blockResult := aBlock value. - ] valueNowOrOnUnwindDo:[ - notifyDisabledCounter := notifyDisabledCounter - 1 + [ + notifyDisabledCounter := notifyDisabledCounter + 1. + blockResult := aBlock value. + ] ensure:[ + notifyDisabledCounter := notifyDisabledCounter - 1 ]. ^ blockResult ! !