Skip to content

Commit

Permalink
experimental code for issue #32
Browse files Browse the repository at this point in the history 
code that swaps two classes, exchanges their names and lets the second class
adopt all instances of the other
  • Loading branch information
@lauritzthamsen
lauritzthamsen committed Jan 19, 2013
1 parent 61d5045 commit e90382e
Show file tree
Hide file tree
Showing 24 changed files with 126 additions and 0 deletions.
4 changes: 4 additions & 0 deletions packages/TraitClasses-Experiments.package/.filetree
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
{
"noMethodMetaData" : true,
"separateMethodMetaAndSource" : false,
"useCypressPropertiesFile" : true }
Empty file added packages/TraitClasses-Experiments.package/MyClass.class/README.md
View file
Empty file.
4 changes: 4 additions & 0 deletions packages/TraitClasses-Experiments.package/MyClass.class/instance/method1.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
as yet unclassified
method1

^ 1
3 changes: 3 additions & 0 deletions packages/TraitClasses-Experiments.package/MyClass.class/instance/state11..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
state11: anObject
state1 := anObject
3 changes: 3 additions & 0 deletions packages/TraitClasses-Experiments.package/MyClass.class/instance/state11.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
state11
^ state1
3 changes: 3 additions & 0 deletions packages/TraitClasses-Experiments.package/MyClass.class/instance/state3..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
state3: anObject
state3 := anObject
3 changes: 3 additions & 0 deletions packages/TraitClasses-Experiments.package/MyClass.class/instance/state3.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
state3
^ state3
9 changes: 9 additions & 0 deletions packages/TraitClasses-Experiments.package/MyClass.class/methodProperties.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
{
"class" : {
},
"instance" : {
"method1" : "lt 1/19/2013 11:27:30.263",
"state11" : "lt 1/19/2013 11:27:18.701999999999998",
"state11:" : "lt 1/19/2013 11:27:18.709",
"state3" : "lt 1/19/2013 11:42:39.181",
"state3:" : "lt 1/19/2013 11:42:39.186" } }
15 changes: 15 additions & 0 deletions packages/TraitClasses-Experiments.package/MyClass.class/properties.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,15 @@
{
"category" : "TraitClasses-Experiments",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
"state1",
"state3" ],
"name" : "MyClass",
"pools" : [
],
"super" : "Object",
"type" : "normal" }
Empty file added packages/TraitClasses-Experiments.package/MyTraitedClass.class/README.md
View file
Empty file.
4 changes: 4 additions & 0 deletions packages/TraitClasses-Experiments.package/MyTraitedClass.class/instance/method2.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
as yet unclassified
method2

^ 2
3 changes: 3 additions & 0 deletions packages/TraitClasses-Experiments.package/MyTraitedClass.class/instance/state2..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
state2: anObject
state2 := anObject
3 changes: 3 additions & 0 deletions packages/TraitClasses-Experiments.package/MyTraitedClass.class/instance/state2.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
state2
^ state2
7 changes: 7 additions & 0 deletions packages/TraitClasses-Experiments.package/MyTraitedClass.class/methodProperties.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
{
"class" : {
},
"instance" : {
"method2" : "lt 1/19/2013 11:27:36.038",
"state2" : "lt 1/19/2013 11:27:48.717",
"state2:" : "lt 1/19/2013 11:27:54.455" } }
14 changes: 14 additions & 0 deletions packages/TraitClasses-Experiments.package/MyTraitedClass.class/properties.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
{
"category" : "TraitClasses-Experiments",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
"state2" ],
"name" : "MyTraitedClass",
"pools" : [
],
"super" : "MyClass",
"type" : "normal" }
Empty file added packages/TraitClasses-Experiments.package/TraitUtility.class/README.md
View file
Empty file.
27 changes: 27 additions & 0 deletions packages/TraitClasses-Experiments.package/TraitUtility.class/class/class.be..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,27 @@
as yet unclassified
class: classA be: classB

| firstClass firstClassName secondClass secondClassName |
firstClass := classA.
firstClassName := classA name asSymbol.
secondClass := classB.
secondClassName := classB name asSymbol.

firstClass setName: secondClassName.
secondClass setName: firstClassName.

Smalltalk
at: firstClassName put: secondClass;
at: secondClassName put: firstClass.

secondClass updateInstancesFrom: firstClass.

"firstClass allInstances do: [:each |
secondClass adoptInstance: each from: firstClass ].
secondClass allInstances do: [:each |
secondClass adoptInstance: each from: firstClass ]."

"firstClass allInstances do: [:each|
each primitiveChangeClassTo: secondClass].
secondClass allInstances do: [:each|
each primitiveChangeClassTo: firstClass]."
5 changes: 5 additions & 0 deletions packages/TraitClasses-Experiments.package/TraitUtility.class/methodProperties.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
{
"class" : {
"class:be:" : "lt 1/19/2013 11:38:39.184" },
"instance" : {
} }
14 changes: 14 additions & 0 deletions packages/TraitClasses-Experiments.package/TraitUtility.class/properties.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
{
"category" : "TraitClasses-Experiments",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
"state2" ],
"name" : "TraitUtility",
"pools" : [
],
"super" : "Object",
"type" : "normal" }
1 change: 1 addition & 0 deletions packages/TraitClasses-Experiments.package/monticello.meta/categories.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
SystemOrganization addCategory: #'TraitClasses-Experiments'!
Empty file added packages/TraitClasses-Experiments.package/monticello.meta/initializers.st
View file
Empty file.
1 change: 1 addition & 0 deletions packages/TraitClasses-Experiments.package/monticello.meta/package
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
(name 'TraitClasses-Experiments')
1 change: 1 addition & 0 deletions packages/TraitClasses-Experiments.package/monticello.meta/version
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
(name 'TraitClasses-Experiments-lt.1' message 'experiment for issue #32, code that swaps two classes, exchanges their names and lets the second class adopt all instances of the other' id 'bdc59159-b997-478b-8b17-cb1758d8ddab' date '19 January 2013' time '11:48:13.16 am' author 'lt' ancestors () stepChildren ())
2 changes: 2 additions & 0 deletions packages/TraitClasses-Experiments.package/properties.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
{
}

0 comments on commit e90382e

Please sign in to comment.