Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
22 changes: 20 additions & 2 deletions ReStore/AbstractB.cls
Original file line number Diff line number Diff line change
@@ -1,13 +1,30 @@
"Filed out from Dolphin Smallalk"!
"Filed out from Dolphin Smalltalk"!

AbstractA subclass: #AbstractB
instanceVariableNames: ''
instanceVariableNames: 'reference'
classVariableNames: ''
poolDictionaries: ''
classInstanceVariableNames: ''!

AbstractB guid: (GUID fromString: '{a925b7f2-6652-486f-8438-85177645d692}')!

AbstractB comment: ''!

!AbstractB categoriesForClass!Unclassified! !

!AbstractB methodsFor!

reference
^reference!

reference: anObject
reference := anObject! !

!AbstractB categoriesForMethods!
reference!accessing!private! !
reference:!accessing!private! !
!

!AbstractB class methodsFor!

addClassDefinitionToEmpty: aClassDef
Expand All @@ -21,6 +38,7 @@ reStoreDefinitionEmpty
shouldSubclassesInheritPersistencyFalse

^self ~~ ##(self)! !

!AbstractB class categoriesForMethods!
addClassDefinitionToEmpty:!public! !
reStoreDefinitionEmpty!public! !
Expand Down
8 changes: 7 additions & 1 deletion ReStore/ConcreteA.cls
Original file line number Diff line number Diff line change
@@ -1,20 +1,26 @@
"Filed out from Dolphin Smallalk"!
"Filed out from Dolphin Smalltalk"!

AbstractB subclass: #ConcreteA
instanceVariableNames: 'a'
classVariableNames: ''
poolDictionaries: ''
classInstanceVariableNames: ''!

ConcreteA guid: (GUID fromString: '{63d5e45e-b7f4-477a-a90b-fa09627cae9c}')!

ConcreteA comment: ''!

!ConcreteA categoriesForClass!Unclassified! !

!ConcreteA class methodsFor!

reStoreDefinition

^super reStoreDefinition
define: #a as: String;
define: #reference as: ConcreteReferenceA;
yourself! !

!ConcreteA class categoriesForMethods!
reStoreDefinition!public! !
!
Expand Down
8 changes: 7 additions & 1 deletion ReStore/ConcreteB.cls
Original file line number Diff line number Diff line change
@@ -1,20 +1,26 @@
"Filed out from Dolphin Smallalk"!
"Filed out from Dolphin Smalltalk"!

AbstractB subclass: #ConcreteB
instanceVariableNames: 'b'
classVariableNames: ''
poolDictionaries: ''
classInstanceVariableNames: ''!

ConcreteB guid: (GUID fromString: '{e57bf062-b41d-4043-947f-795c9fde9b3b}')!

ConcreteB comment: ''!

!ConcreteB categoriesForClass!Unclassified! !

!ConcreteB class methodsFor!

reStoreDefinition

^super reStoreDefinition
define: #b as: String;
define: #reference as: ConcreteReferenceB;
yourself! !

!ConcreteB class categoriesForMethods!
reStoreDefinition!public! !
!
Expand Down
39 changes: 39 additions & 0 deletions ReStore/ConcreteReferenceA.cls
Original file line number Diff line number Diff line change
@@ -0,0 +1,39 @@
"Filed out from Dolphin Smalltalk"!

Object subclass: #ConcreteReferenceA
instanceVariableNames: 'name'
classVariableNames: ''
poolDictionaries: ''
classInstanceVariableNames: ''!

ConcreteReferenceA guid: (GUID fromString: '{a2655220-0fab-450d-870d-04118189070b}')!

ConcreteReferenceA comment: ''!

!ConcreteReferenceA categoriesForClass!Unclassified! !

!ConcreteReferenceA methodsFor!

name
^name!

name: anObject
name := anObject! !

!ConcreteReferenceA categoriesForMethods!
name!accessing!private! !
name:!accessing!private! !
!

!ConcreteReferenceA class methodsFor!

reStoreDefinition

^super reStoreDefinition
define: #name as: (String maxSize: 100);
yourself! !

!ConcreteReferenceA class categoriesForMethods!
reStoreDefinition!public! !
!

39 changes: 39 additions & 0 deletions ReStore/ConcreteReferenceB.cls
Original file line number Diff line number Diff line change
@@ -0,0 +1,39 @@
"Filed out from Dolphin Smalltalk"!

Object subclass: #ConcreteReferenceB
instanceVariableNames: 'number'
classVariableNames: ''
poolDictionaries: ''
classInstanceVariableNames: ''!

ConcreteReferenceB guid: (GUID fromString: '{0ea038f5-2e2e-44b1-a9bc-41837f4cf103}')!

ConcreteReferenceB comment: ''!

!ConcreteReferenceB categoriesForClass!Unclassified! !

!ConcreteReferenceB methodsFor!

number
^number!

number: anObject
number := anObject! !

!ConcreteReferenceB categoriesForMethods!
number!accessing!private! !
number:!accessing!private! !
!

!ConcreteReferenceB class methodsFor!

reStoreDefinition

^super reStoreDefinition
define: #number as: Integer;
yourself! !

!ConcreteReferenceB class categoriesForMethods!
reStoreDefinition!public! !
!

Loading