equal
deleted
inserted
replaced
266 self restoreProperties: aPPContextMemento. |
266 self restoreProperties: aPPContextMemento. |
267 |
267 |
268 ! |
268 ! |
269 |
269 |
270 restoreProperties: aPPContextMemento |
270 restoreProperties: aPPContextMemento |
|
271 properties ifNil: [ ^ self ]. |
|
272 |
|
273 properties keysDo: [ :key | |
|
274 (aPPContextMemento hasProperty: key) |
|
275 ifTrue: [ properties at: key put: (aPPContextMemento propertyAt: key) ] |
|
276 ifFalse: [ properties removeKey: key ]. |
|
277 ]. |
|
278 |
271 aPPContextMemento keysAndValuesDo: [ :key :value | |
279 aPPContextMemento keysAndValuesDo: [ :key :value | |
272 self propertyAt: key put: value |
280 properties at: key put: value |
273 ]. |
281 ] |
274 ! ! |
282 ! ! |
275 |
283 |