--- a/Smalltalk.st Tue Dec 17 20:21:42 2013 +0100
+++ b/Smalltalk.st Wed Dec 18 18:48:33 2013 +0100
@@ -1038,6 +1038,7 @@
"Created: 20.6.1997 / 16:58:28 / cg"
! !
+
!Smalltalk class methodsFor:'browsing'!
browseAllCallsOn:aSelectorSymbol
@@ -3437,6 +3438,16 @@
"
!
+isAmber
+ "return false here - this may be useful to write portable
+ applications - add #isAmber to your Amber Smalltalk,
+ returning true there."
+
+ ^ false
+
+ "Created: / 18-12-2013 / 15:43:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
isDolphinSmalltalk
"return false here - this may be useful to write portable
applications - add #isDolphinSmalltalk to your dolphin,
@@ -3445,6 +3456,26 @@
^ false
!
+isGemStone
+ "return false here - this may be useful to write portable
+ applications - add #isGemStone to your GemStone/S,
+ returning true there."
+
+ ^ false
+
+ "Created: / 18-12-2013 / 15:43:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isPharo
+ "return false here - this may be useful to write portable
+ applications - add #isPharo to your Pharo,
+ returning true there."
+
+ ^ false
+
+ "Created: / 18-12-2013 / 15:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
isSmalltalkMT
"return false here - this may be useful to write portable
applications - add #isSmalltalkMT to your smalltalk-MT,