equal
deleted
inserted
replaced
2234 ^ menu |
2234 ^ menu |
2235 ! |
2235 ! |
2236 |
2236 |
2237 withoutNotifyDo:aBlock |
2237 withoutNotifyDo:aBlock |
2238 "evaluate the block; all change notifications are |
2238 "evaluate the block; all change notifications are |
2239 discard during the block is evaluated. |
2239 discard during the block is evaluated" |
2240 " |
2240 |
2241 |blockResult| |
2241 |blockResult| |
2242 |
2242 |
2243 [ notifyDisabledCounter := notifyDisabledCounter + 1. |
2243 [ |
2244 blockResult := aBlock value. |
2244 notifyDisabledCounter := notifyDisabledCounter + 1. |
2245 ] valueNowOrOnUnwindDo:[ |
2245 blockResult := aBlock value. |
2246 notifyDisabledCounter := notifyDisabledCounter - 1 |
2246 ] ensure:[ |
|
2247 notifyDisabledCounter := notifyDisabledCounter - 1 |
2247 ]. |
2248 ]. |
2248 ^ blockResult |
2249 ^ blockResult |
2249 ! ! |
2250 ! ! |
2250 |
2251 |
2251 !MenuEditor methodsFor:'queries'! |
2252 !MenuEditor methodsFor:'queries'! |