equal
deleted
inserted
replaced
233 |
233 |
234 position := aPPContextMemento. |
234 position := aPPContextMemento. |
235 ! |
235 ! |
236 |
236 |
237 remember |
237 remember |
238 | memento | |
238 | memento | |
239 " |
239 " |
240 ^ position |
240 ^ position |
241 " |
241 " |
242 memento := PPCContextMemento new |
242 memento := PPCContextMemento new |
243 position: position; |
243 position: position; |
244 yourself. |
244 yourself. |
245 |
245 |
246 self rememberProperties: memento. |
246 self rememberProperties: memento. |
247 "JK: Just while developing" |
247 "JK: Just while developing" |
248 " |
248 rc := rc + 1. |
249 rc := rc + 1. |
249 (rc > ((self size + 1)* 1000*1000)) ifTrue: [ self error: 'Hey, this is not normal, is it?' ]. |
250 (rc > ((self size + 1)* 1000*1000)) ifTrue: [ self error: 'Hey, this is not normal, is it?' ]. |
250 ^ memento |
251 " |
|
252 ^ memento |
|
253 |
|
254 "Modified (comment): / 08-11-2014 / 02:08:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
255 ! |
251 ! |
256 |
252 |
257 rememberProperties: aPPContextMemento |
253 rememberProperties: aPPContextMemento |
258 properties ifNil: [ ^ self ]. |
254 properties ifNil: [ ^ self ]. |
259 |
255 |