Issue SeasideSt#111: porting to 3.6.0, restore the old messageText behavior ... 3.6.0 default error message is not expected in the GLASS environment

dalehenrich · dalehenrich · commit 85d7d5426ae1 · 2020-10-07T12:30:33.000-07:00
diff --git a/repository/Grease-GemStone360-Core.package/Exception.extension/instance/greaseString.st b/repository/Grease-GemStone360-Core.package/Exception.extension/instance/greaseString.st
@@ -1,4 +1,4 @@
-*grease-gemstone330-core
+*grease-gemstone360-core
 greaseString
 
 	^self description
diff --git a/repository/Grease-GemStone360-Core.package/Exception.extension/instance/messageText.st b/repository/Grease-GemStone360-Core.package/Exception.extension/instance/messageText.st
@@ -0,0 +1,3 @@
+*grease-gemstone360-core
+messageText
+  ^ gsDetails	"return ANSI messageText"
diff --git a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/argumentCount.st b/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/argumentCount.st
@@ -1,4 +1,4 @@
-*grease-gemstone330-core
+*grease-gemstone360-core
 argumentCount
 
 	^self numArgs.
diff --git a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/ifCurtailed..st b/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/ifCurtailed..st
@@ -1,4 +1,4 @@
-*grease-gemstone330-core
+*grease-gemstone360-core
 ifCurtailed: aBlock
 
 	| wasCurtailed |
diff --git a/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st b/repository/Grease-GemStone360-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st
@@ -1,4 +1,4 @@
-*grease-gemstone330-core
+*grease-gemstone360-core
 valueWithPossibleArguments: anArray 
      "Evaluate the block represented by the receiver with the arguments provided."
   | n args | 
diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st
@@ -1,4 +1,4 @@
-*grease-gemstone330-core
+*grease-gemstone360-core
 gemstoneExceptionSelector
 
 	^ (ExceptionSet new) , Halt, AlmostOutOfStack, Breakpoint
diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st
@@ -1,4 +1,4 @@
-*grease-gemstone330-core
+*grease-gemstone360-core
 generateHardBreak
 	"Generate a GemStone hard break"
 
diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st
@@ -1,4 +1,4 @@
-*grease-gemstone330-core
+*grease-gemstone360-core
 handlesAlmostOutOfStackException: anException
 
 	^AlmostOutOfStack handles: anException
diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st
@@ -1,4 +1,4 @@
-*grease-gemstone330-core
+*grease-gemstone360-core
 handlesBreakpointException: anException
 
 	^Breakpoint handles: anException
diff --git a/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st b/repository/Grease-GemStone360-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st
@@ -1,4 +1,4 @@
-*grease-gemstone330-core
+*grease-gemstone360-core
 handlesHaltException: anException
 
 	^Halt handles: anException
diff --git a/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/properties.json b/repository/Grease-GemStone360-Core.package/GRUtf8CodecStream.class/properties.json
@@ -1,5 +1,5 @@
 {
-	"category" : "Grease-GemStone330-Core",
+	"category" : "Grease-GemStone360-Core",
 	"classinstvars" : [
 		 ],
 	"classvars" : [
diff --git a/repository/Grease-GemStone360-Core.package/monticello.meta/categories.st b/repository/Grease-GemStone360-Core.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'Grease-GemStone330-Core'!
+SystemOrganization addCategory: #'Grease-GemStone360-Core'!
diff --git a/repository/Grease-GemStone360-Core.package/monticello.meta/package b/repository/Grease-GemStone360-Core.package/monticello.meta/package
@@ -1 +1 @@
-(name 'Grease-GemStone360-Core')
+(name 'Grease-GemStone360-Core')

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+*grease-gemstone360-core`
	`2`	`+messageText`
	`3`	`+ ^ gsDetails "return ANSI messageText"`
Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-*grease-gemstone330-core`
	`1`	`+*grease-gemstone360-core`
`2`	`2`	`ifCurtailed: aBlock`
`3`	`3`
`4`	`4`	`\| wasCurtailed \|`