--- a/Smalltalk.st Wed Dec 06 16:26:17 2006 +0100
+++ b/Smalltalk.st Wed Dec 06 16:43:29 2006 +0100
@@ -17,7 +17,7 @@
NumberOfClassesHint SystemPath StartupClass StartupSelector
StartupArguments CommandLine CommandName CommandLineArguments
CachedAbbreviations SilentLoading Initializing StandAlone
- HeadlessOperation IsPlugin IsSharedLibraryComponent
+ HeadlessOperation IsPlugin IsSharedLibraryComponent IsSTScript
DebuggingStandAlone LogDoits LoadBinaries RealSystemPath
ResourcePath SourcePath BinaryPath FileInPath PackagePath
BinaryDirName ResourceDirName SourceDirName BitmapDirName
@@ -1889,6 +1889,14 @@
HeadlessOperation := aBoolean
!
+beSTScript:aBoolean
+ "set/clear the isSTScript flag."
+
+ IsSTScript := aBoolean
+
+ "Created: / 06-12-2006 / 16:43:36 / cg"
+!
+
standAloneApp:aBoolean
"set/clear the StandAlone flag."
@@ -3422,6 +3430,18 @@
"
!
+isSTScript
+ "return true, if this is stscript. i.e. the stx scripting engine."
+
+ ^ IsSTScript ? false
+
+ "
+ Smalltalk isSTScript
+ "
+
+ "Created: / 06-12-2006 / 16:41:21 / cg"
+!
+
isSharedLibraryComponent
"return true, if this is a shared library component of another application
i.e. a dll within another app."
@@ -3437,19 +3457,22 @@
isSmalltalkDevelopmentSystem
"return true, if this is a real smalltalk system
- i.e. NOT a stripped & linked application (such as the webServer)
+ i.e. NOT a stripped or a linked application (such as the webServer)
and NOT a plugIn (i.e. running in a browser)
- and NOT a sharedLibrary component (i.e. a dll in another app)."
-
- ^ self isPlugin not
- and:[ self isSharedLibraryComponent not
- and:[ self isStandAloneApp not ]]
+ and NOT a sharedLibrary component (i.e. a dll in another app).
+ This is used to determine, wether debugging is possible or not."
+
+ self isPlugin ifTrue:[^ false]. "/ I am a browser-plugin
+ self isSharedLibraryComponent ifTrue:[^ false]. "/ I am a COM-ponent
+ self isSTScript ifTrue:[^ true ]. "/ I am stScript
+ ^ self isStandAloneApp not.
"
Smalltalk isSmalltalkDevelopmentSystem
"
"Created: / 10-08-2006 / 13:12:49 / cg"
+ "Modified: / 06-12-2006 / 16:42:56 / cg"
!
isStandAloneApp
@@ -6970,5 +6993,5 @@
!Smalltalk class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.795 2006-12-06 15:10:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.796 2006-12-06 15:43:29 cg Exp $'
! !