Issue #4: successfully execute execute: 'todeIt.solo "eval 3+4" -D'…

… ... returning a Text object

rowan/components/GLASS.ston

@@ -7,4 +7,4 @@ RwSimpleProjectLoadComponentV2 {
 		'GsDevKit_stones-GLASS'
 	],
 	#comment : 'GLASS classes needed to support the Text, since Text is (currently) passed back as a result when a remote tODE command is executed ... a feature we want (remote tODE commands)'
-}
+}

rowan/components/Tode.ston

@@ -2,11 +2,11 @@ RwSimpleProjectLoadComponentV2 {
 	#name : 'Tode',
 	#condition : 'common',
 	#projectNames : [ ],
-	#componentNames : [ 
+	#componentNames : [
 		'GLASS'
 	],
 	#packageNames : [
 		'GsDevKit_stones-Tode'
 	],
 	#comment : 'Shared classes between GsDevKit_stones and Tode'
-}
+}

src/GsDevKit_stones-GLASS.package/CharacterCollection.extension/instance/capitalized.st

@@ -0,0 +1,8 @@
+*gsdevkit_stones-glass
+capitalized
+  "Return a copy with the first letter capitalized"
+  | cap |
+  self size == 0 ifTrue: [ ^ self copy ].
+  cap := self copy.
+  cap at: 1 put: (cap at: 1) asUppercase.
+  ^ cap

src/GsDevKit_stones-GLASS.package/CharacterCollection.extension/properties.json

@@ -0,0 +1,2 @@
+{
+	"name" : "CharacterCollection" }

src/GsDevKit_stones-GLASS.package/Color.class/class/named.put..st

@@ -12,8 +12,8 @@ named: newName put: aColor
 		accessor _ str, (String with: Character cr with: Character tab), 			'^', cap.
 		self class compile: accessor
 			classified: 'named colors'].
-	(self classPool includesKey: csym) ifFalse: [
+	(self _classVars includesKey: csym) ifFalse: [
 		self addClassVarName: cap].
 	(ColorNames includes: sym) ifFalse: [
 		ColorNames add: sym].
-	^ self classPool at: csym put: aColor
+	^ self _classVars at: csym put: aColor

src/GsDevKit_stones-GLASS.package/Magnitude.extension/instance/min.max..st

@@ -0,0 +1,3 @@
+*gsdevkit_stones-glass
+min: aMin max: aMax
+  ^ (self min: aMin) max: aMax

src/GsDevKit_stones-GLASS.package/Magnitude.extension/properties.json

@@ -0,0 +1,2 @@
+{
+	"name" : "Magnitude" }

src/GsDevKit_stones-GLASS.package/Object.extension/instance/instVarNamed.put..st

@@ -0,0 +1,7 @@
+*gsdevkit_stones-glass
+instVarNamed: aString put: aValue
+  "Store into the value of the instance variable in me of that name.  Slow and unclean, but very useful. "
+
+  ^ self
+    instVarAt: (self class allInstVarNames indexOfIdentical: aString asSymbol)
+    put: aValue

src/GsDevKit_stones-GLASS.package/Object.extension/properties.json

@@ -0,0 +1,2 @@
+{
+	"name" : "Object" }

src/GsDevKit_stones-GLASS.package/RunArray.class/class/fromSton..st

@@ -0,0 +1,5 @@
+instance creation
+fromSton: stonReader
+  ^ self new
+    fromSton: stonReader;
+    yourself

src/GsDevKit_stones-GLASS.package/RunArray.class/instance/fromStone..st

@@ -0,0 +1,4 @@
+printing
+fromSton: stonReader
+  stonReader
+    parseMapDo: [ :instVarName :value | self instVarNamed: instVarName put: value ]

src/GsDevKit_stones-GLASS.package/RunArray.class/instance/stonOn..st

@@ -0,0 +1,3 @@
+printing
+stonOn: stonWriter
+  stonWriter writeObject: self

src/GsDevKit_stones-GLASS.package/Symbol.extension/instance/capitalized.st

@@ -0,0 +1,3 @@
+*gsdevkit_stones-glass
+capitalized
+	^ self asString capitalized asSymbol

src/GsDevKit_stones-GLASS.package/Symbol.extension/properties.json

@@ -0,0 +1,2 @@
+{
+	"name" : "Symbol" }

src/GsDevKit_stones-GLASS.package/Text.class/class/fromSton..st

@@ -0,0 +1,5 @@
+ston
+fromSton: stonReader
+  ^ self new
+    fromSton: stonReader;
+    yourself

src/GsDevKit_stones-GLASS.package/Text.class/instance/fromSton..st

@@ -0,0 +1,4 @@
+ston
+fromSton: stonReader
+  stonReader
+    parseMapDo: [ :instVarName :value | self instVarNamed: instVarName put: value ]

src/GsDevKit_stones-GLASS.package/Text.class/instance/stonOn..st

@@ -0,0 +1,3 @@
+ston
+stonOn: stonWriter
+  stonWriter writeObject: self

src/GsDevKit_stones-Tode.package/TDExternalSessionClient.class/instance/logout.st

@@ -0,0 +1,4 @@
+session management
+logout
+	self session logout.
+	^ nil

src/GsDevKit_stones-Tode.package/TDShell.class/instance/evaluateCommand.batchMode..st

@@ -6,6 +6,5 @@ evaluateCommand: command batchMode: aBool
 		ifTrue: [ ^ '' ].
 	(self builtInCommands includes: command command)
 		ifTrue: [ ^ self executeBuiltIn: command ].
-self halt.
 	^ (self topezClient evaluateCommand: command batchMode: aBool)
 		convertTDEvaluateTokenResponseToText: self objectSerializer