All Rights Reserved

        instanceVariableNames:''

        classVariableNames:'StartBlocks ImageStartBlocks ExitBlocks CachedClasses SystemPath

                StartupClass StartupSelector StartupArguments CommandLine

                CommandName CommandLineArguments CachedAbbreviations

                SilentLoading Initializing StandAlone HeadlessOperation

                DebuggingStandAlone LogDoits LoadBinaries RealSystemPath

                ResourcePath SourcePath BitmapPath BinaryPath FileInPath

                PackagePath BinaryDirName ResourceDirName SourceDirName

                BitmapDirName PackageDirName FileInDirName ChangeFileName

                ImageStartTime ImageRestartTime DemoMode SaveEmergencyImage

                SpecialObjectArray CallbackSignal KnownPackages'

        poolDictionaries:''

        category:'System-Support'

              All Rights Reserved

                                        none - all handling is done in the VM

        StartBlocks     <Collection>    blocks to be executed in a separate process after

                                        everything has been initialized. These blocks will

                                        be deleted after execution and therefore not be

                                        executed after an image restart. Initial processes

                                        (such as the Launcher) are usually started here.

                                        These blocks are added by smalltalk.rc/private.rc etc.

                                        via #addStartBlock during early initialization.

        ImageStartBlocks 

                        <Collection>    blocks to be executed in a separate process after

                                        everything has been initialized. These blocks will be

                                        executed after an image restart.

                                        These blocks are usually added by smalltalk_r.rc etc.

        ExitBlocks      <Collection>    blocks to evaluate before system is

                                        left. Not currently used (GNU-ST compatibility).

        SystemPath      <Collection>    path to search for system files (sources, bitmaps etc)

                                        Set to a default here, but typically changed from some

                                        startup.rc file

        PackagePath     <Collection>    path to search for package.

                                        This is going to replace the above systemPath, and a classes

                                        resources will eventually searched in its package directory.

                                        This list defines the path, where packages are searched for,

                                        initially this is something like /opt/smalltalk/packages.

                                        Set to a default here, but typically changed from some

                                        startup.rc file

        StartupClass    <Class>         class and selector, where the system starts up

        StartupSelector <Symbol>        (right after VM initialization)

        StartupArguments <Array>        If an image is saved while those being nonNil, 

                                        the image will come up there.

                                        Allows for customized images to be

                                        generated from a standard ST/X.

        CommandLine          <String>   Unix (OS-) command line

        CommandName          <String>   the command (i.e. argv[0])

        CommandLineArguments <Array>    Unix (OS-) command line arguments broken into words

                                        CommandName has been stripped off.

                                        (initially set by the VM)

        SilentLoading   <Boolean>       suppresses messages during fileIn and in compiler

                                        (can be set to true from a customized main.c)

        Initializing    <Boolean>       true while (re-)initializing

                                        Controls the behavior of certain error

                                        reporters (for example: suppress dialogBoxes)

                                        while the system is not yet fit for full operation.

        StandAlone      <Boolean>       true, if this is a standalone app;

                                        if true the process scheduler watches for

                                        which processes are still running, and 

                                        exits ST/X, when the last non-background

                                        and non-system process exits.

        HeadlessOperation               if true, a non-existing Display connection

                        <Boolean>       will NOT lead to an error-exit during startup.

                                        Default is false.

                                        Can be set in an application-specific startup script. 

        LogDoits        <Boolean>       if true, doits are also logged in the changes

                                        file. Default is false, since the changes file

                                        may become huge if every tiny doIt is saved there ...

        LoadBinaries    <Boolean>       if true, we attempt to load classes rom a binary

                                        file, if present. If false, this is always suppressed.

        SaveEmergencyImage <Boolean>    if true (the default), an emergency image

                                        is saved, if the main Display looses its

                                        connection. This is useful if you have a

                                        flaky display connection (serial line)

                                        and want to have your stuff saved automatically

                                        in case of a broken connection.

        CachedClasses   <Collection>    known classes (cached for faster class enumeration)

        CachedAbbreviations

                        <Dictionary>    className to filename mappings

        RealSystemPath  <Collection>    cached collection of directories along the path

                                        which really exist. Caching avoids long checks

                                        for existing directories on broken NFS volumes.

        SourcePath      <Collection>    cached names of really existing directories

        BitmapPath                      These are remembered, since in NFS systems,

        ResourcePath                    the time to lookup files may become long

        BinaryPath                      (especially, if some directories are on machines

        FileInPath                      which are not up ...). 

                                        Therefore, the set of really

                                        existing directories is cached when the SystemPath

                                        is walked the first time.

                                        A consequence is that you have to invoke

                                        flushSystemPath, when you create any of those

                                        directories while running

                                        (and want the running ST/X to look there)

        Claus Gittinger

        ObjectMemory

        StandAlone := false.

        HeadlessOperation := false.

                            en_en / en

                            en_us

                            en_gb

                            de_de / de

                            de_at       (for Austria)

        language        ISO-639  Language code

        territory       ISO-3166 Contry code"

        i := envString indexOf:$@.

        (i ~~ 0) ifTrue:[

            envString := envString copyTo:(i - 1).

            LanguageModifier := (envString copyFrom:(i + 1)) asLowercase asSymbol.

        ] ifFalse:[

            LanguageModifier := nil.

        ].

        i := envString indexOf:$..

        (i ~~ 0) ifTrue:[

            envString := envString copyTo:(i - 1).

            LanguageCodeset := (envString copyFrom:(i + 1)) asLowercase asSymbol

        ] ifFalse:[

            LanguageCodeset := #'iso8859-1'.

        ].

        i := envString indexOf:$_.

        (i == 0) ifTrue:[

            langString := envString.

            terrString := envString

        ] ifFalse:[

            langString := envString copyTo:(i - 1).

            terrString := envString copyFrom:(i + 1)

        ].

        Language := langString asLowercase asSymbol.

        LanguageTerritory := terrString asLowercase asSymbol

        InspectorView notNil ifTrue:[

            Inspector := InspectorView

        ].

        DebugView notNil ifTrue:[

            Debugger := DebugView

        ].

        Display initialize

            .

            $HOME                    (if defined)

            $HOME/.smalltalk         (if defined & existing)

            $SMALLTALK_LIBDIR        (if defined & existing)

            $STX_LIBDIR              (if defined & existing)

            $STX_TOPDIR              (if defined & existing)

            /opt/smalltalk           (if existing)

            /opt/smalltalk/release   (if existing)

            /usr/local/lib/smalltalk (if existing)

            /usr/lib/smalltalk       (if existing)

            /lib/smalltalk           (if existing)

            \smalltalk                (if existing)

            \programs\smalltalk       (if existing)

            \programs\exept\smalltalk (if existing)

            registry info             (if present)

            $stx:lib                 (if existing)

            $stx:root                (if existing)

            Smalltalk systemPath addFirst:'/foo/bar/baz'.

        or: 

            Smalltalk systemPath addLast:'/fee/foe/foo'.

        BitmapDirName := 'bitmaps.dir'.

        BinaryDirName := 'binary.dir'.

        SourceDirName := 'source.dir'.

        ResourceDirName := 'resources.dir'.

        FileInDirName := 'filein.dir'.

        PackageDirName := 'packages.dir'.

        BitmapDirName := 'bitmaps'.

        BinaryDirName := 'binary'.

        SourceDirName := 'source'.

        ResourceDirName := 'resources'.

        FileInDirName := 'fileIn'.

        PackageDirName := 'packages'.

        SystemPath := OperatingSystem defaultSystemPath.

        self flushPathCaches

        PackagePath := OperatingSystem defaultPackagePath.