Issue #4: tweak tode examples; add Integer>>#>> for 3.7.x only ... al…

…ready in earlier versons of Rowan

rowan/components/GLASS-37x.ston

@@ -0,0 +1,10 @@
+RwPlatformNestedProjectLoadComponentV2 {
+	#name : 'GLASS-37x',
+	#condition : [
+		'gs3.[7-]'
+	],
+	#packageNames : [
+		'GsDevKit_stones-GLASS-37x'
+	],
+	#comment : 'GLASS gs3.[7-]  packages '
+}

rowan/components/GLASS.ston

@@ -2,7 +2,9 @@ RwSimpleProjectLoadComponentV2 {
 	#name : 'GLASS',
 	#condition : 'common',
 	#projectNames : [ ],
-	#componentNames : [ ],
+	#componentNames : [
+		'GLASS-37x'
+	],
 	#packageNames : [
 		'GsDevKit_stones-GLASS'
 	],

src/GsDevKit_stones-GLASS.package/Integer.extension/instance/^more.more.st → src/GsDevKit_stones-GLASS-37x.package/Integer.extension/instance/^more.more.st

@@ -1,4 +1,4 @@
-*gsdevkit_stones-glass
+*gsdevkit_stones-glass-37x
 >> shiftAmount  "right shift"
 	shiftAmount < 0 ifTrue: [self error: 'negative arg'].
 	^ self bitShift: 0 - shiftAmount

tode/example3

@@ -1,6 +1,6 @@
 #
 # Simple expression evaluation ... test for expected results
-#   Return value if is is correct
+# Return value if is is correct
 #
 #
 #  todeIt.solo --file=example3

tode/example4

@@ -1,5 +1,10 @@
 #
 #  todeIt.solo --file=example4
 #
+#  the result string of some tODE commands are not very useful.
+#	 the man command is an example ... it returns a printString
+#	 of the ordered collection of all commands in tODE
+#	 it is better to use tODE itself to view the documentation.
+#
 man --all
 # eval `STON toStringPretty: self`

tode/example5

@@ -0,0 +1,18 @@
+#
+#
+###########
+# Summary #
+###########
+# 
+# TDProjectCommandTests
+#  ✗ #testProjectNew (16ms)
+#  ✗ #testProjectNewCreateClass (10ms)
+# 
+# TDGemStoneCommandTests
+#  ✗ #testBuDirectoryCommand (3ms)
+#  ✗ #testBuRestoreCommand (3ms)
+#
+#  todeIt.solo --file=example5
+#
+test --batch class TDProjectCommandTests TDGemStoneCommandTests
+eval `(self failures, self errors)  asArray`

tode/example6

@@ -0,0 +1,23 @@
+#
+#
+###########
+# Summary #
+###########
+# 
+# TDProjectCommandTests
+#  ✗ #testProjectNew (16ms)
+#  ✗ #testProjectNewCreateClass (10ms)
+# 
+# TDGemStoneCommandTests
+#  ✗ #testBuDirectoryCommand (3ms)
+#  ✗ #testBuRestoreCommand (3ms)
+#
+#  todeIt.solo --file=example6 -D --debugGem
+#
+#  ... look in the gemnet file for the gem to find the
+#  DEBUGGEM expression to use
+#
+eval `TDProjectCommandTests debug: #testProjectNew`
+eval `TDProjectCommandTests debug: #testProjectNewCreateClass`
+eval `TDGemStoneCommandTests debug: #testBuDirectoryCommand`
+eval `TDGemStoneCommandTests debug: #testBuRestoreCommand`