8 lines
266 B
Smalltalk
8 lines
266 B
Smalltalk
accessing
|
|
store
|
|
ReStore isConnected ifFalse: [ self class storeDB ]. "Starting the ReStore singleton."
|
|
self messages do: [ :each | ReStore evaluateAsTransaction: [
|
|
each isInDB ifFalse: [ each store ].
|
|
each user isInDB ifFalse: [ each user store ]
|
|
]
|
|
]. |