"/

"/ $Header$

"/ startup configuration for smalltalk

"/

"/ - everything in here are plain smalltalk expressions;

"/ - statements with in a group are separated by a period.

"/ - Each group of statements has to be delimited by an exclamation

"/   character.

"/ - avoid exclas in comments (or double them)

"/ - nested comments are not allowed - take care.

"/

"/ remember: this is fileOut-format

"/

"/ comments can be either:

"/ - standard smalltalk comments (i.e. from dquote to dquote)

"/ - ST/X end of line comments (i.e. dquote followed by /)

"/

"/    "this is a comment"

"/    "/ another comment

"/

"/***************************************************************

"/ PLEASE: only add things here, if they are of general interrest

"/         and NEITHER site specific NOT display specific.

"/

"/ site specific things are to be added to "h_<hostname>.rc"

"/ display specifics to "d_<displayName>.rc"

"/ and private user stuff in "private.rc"

"/***************************************************************

"/

"/ map Language variable setting to known and handled

"/ values:

Language == #De ifTrue:[

	Language := #german

].

!

"/

"/ just a quick check, if this ST/X installation seems to

"/ be halfway complete (it happened to some people, that

"/ their source/resource directories where not installed)

"/ - better to warn early ... 

"/

|anyWrong missing|

anyWrong := false.

missing := ''.

(Smalltalk getSystemFileName:'resources/SBrowser.rs') isNil ifTrue:[

    '***********************************************************************' errorPrintNL.

    '***** ATTENTION: please check installation of your resource files' errorPrintNL.

    anyWrong := true.

    missing := '''resources'' '.

].

(Smalltalk getSystemFileName:'source/Object.st') isNil ifTrue:[

    '***********************************************************************' errorPrintNL.

    '***** ATTENTION: please check installation of your source files' errorPrintNL.

    '***** ' errorPrintNL.

    '***** the browser/debugger may not be able to show sourcecode.' errorPrintNL.

    anyWrong := true.

    missing := missing , '''source'' '.

].

(Smalltalk getSystemFileName:'bitmaps/SBrowser.xbm') isNil ifTrue:[

    '***********************************************************************' errorPrintNL.

    '***** ATTENTION: please check installation of your bitmap files' errorPrintNL.

    anyWrong := true.

    missing := missing , '''bitmaps'' '.

].

(Smalltalk getSystemFileName:'resources/normal.style') isNil ifTrue:[

    '***********************************************************************' errorPrintNL.

    '***** ATTENTION: please check installation of your style files' errorPrintNL.

    anyWrong := true.

    missing := missing , '''resources'' '.

].

anyWrong ifTrue:[

    '*****' errorPrintNL.

    '***** directory(s) named: ' errorPrint. missing errorPrint. 'incomplete/not existing' errorPrintNL.

    '***** your path is: ' errorPrint.

    Smalltalk systemPath asArray storeString errorPrintNL.

    '*****' errorPrintNL.

    '***** Try: "make source bitmaps resources styles"' errorPrintNL.

    '*****  or: "make symlinks" to fix this.' errorPrintNL.

    '***********************************************************************' errorPrintNL.

]

!

"/

"/ check for display-classes being compiled into the system;

"/ (and if display connection can be established)

"/ if not, enter a simple read-eval-print loop

"/

Display isNil ifTrue:[

    DeviceWorkstation notNil ifTrue:[

    ] ifFalse:[

    ].

    Smalltalk readEvalPrint.

    Smalltalk exit

].

"/

"/ this makes X-errors be handled immediately (so you see,

"/ where it occured) but slows down the system soooo muuuucccchhh ..

"/ if commented out, errors will be reported asynchronously.

"/ (I enable this, when things go bad during startup)

"/

"/ Display unBuffered.

"/

"/ this starts the incremental GC earlier

"/ (default is 500000)

"/ the number given is the number of bytes which have to be allocated

"/ since the last GC, to start the incremental GC running.

"/ (see ObjectMemory>>documentation)

"/ Claus: I moved this to the private.rc file

"/

"/ ObjectMemory incrementalGCLimit:100000. 

"/

"/ this starts the incremental GC when freeSpace drops below a limit

"/ (default is nil - i.e. dont look at freeSpace)

"/ (see ObjectMemory>>documentation)

"/ Claus: I moved this to the private.rc file

"/

"/ ObjectMemory freeSpaceGCLimit:300000. 

"/

"/ lazy loading

"/ (faster fileIn) - this is EXPERIMENTAL.

"/ If there are any problems with lazy methods, disable the following

"/ and let me (cg@ssw.de) know what happened.

"/

Autoload compileLazy:true.

"/

"/ define the language (you can also set the LANG-shell variable)

"/ (currently only #english and #german are supported)

"/ setting it here will override the LANG variable setting,

"/ if neither set here nor in LANG, #english is the default.

"/ (currently, strings are not available for other than english

"/  and german; french will follow next - see resource files)

"/ Claus: supposed to be done in private.rc or via LANG variable

"/

"/ Smalltalk language:#german.

"/ Smalltalk language:#english. 

"/

"/ this handles all variant display stuff

"/ (i.e. things which might change, when DISPLAY is set different)

"/

Smalltalk fileIn:'display.rc'.

"/

"/ this defines stuff relating to the host we are running on

"/

Smalltalk fileIn:'host.rc'.

"/

"/ set the package to some useful default

"/

Project notNil ifTrue:[

    Project setDefaultProject.

    Project current packageName:#'private'.

].

"/

"/ you can add your very private things here - if its put into HOME/.smalltalk,

"/ each user can add his/her private things even when everything else is

"/ shared

"/

Transcript showCr:'reading private.rc ...'.

Smalltalk fileIn:'private.rc'.

View defaultStyle isNil ifTrue:[

    Transcript showCr:'no style set in rc files - using default'.

    View defaultStyle:#motif.

].

"/

"/ start some views ...

"/ you can add all stuff you'd like to come up by default

"/ the first time.

"/ NOTICE: you should do that in your 'private.rc'-file

"/

NewLauncher notNil ifTrue:[

    'starting main-menu ...' errorPrintNL.

    NewLauncher open

] ifFalse:[

    "*

     * start a Transcript (if linked-in)

     *"

    TextCollector notNil ifTrue:[

	'starting Transcript ...' errorPrintNL.

	TextCollector newTranscript.

"/      Transcript lineLimit:2000.

    ].

    "*

     * start the Launcher (if linked-in)

     *"

    Launcher notNil ifTrue:[

	'starting main-menu ...' errorPrintNL.

	Launcher open

    ].

].

"/

"/ start a SystemBrowser

"/ - I dont want one (using Launcher)

"/

"/ SystemBrowser open.

"/

"/ start a FileBrowser

"/ - I dont want one (using Launcher)

"/

"/ FileBrowser open.

"/

"/ start a Workspace 

"/ - I dont want one (using Launcher)

"/

"/ Workspace open.

"/

"/ if things go very badly, turn on message tracing ...

"/ but be prepared for lots of output

"/

"/ Smalltalk debugOn.

"/

"/ if error occurs, and debugger has problems coming up

"/

"/ Debugger := MiniDebugger.

"/

"/ remember the type of display we started on, to check for

"/ a need to change things when we are restarted on another display.

"/ see smalltalk_r.rc for what this is for ...

"/

Smalltalk at:#'_ImageDisplayDepth' put:Display depth.

Smalltalk at:#'_ImageDisplayHasColors' put:Display hasColors.

Smalltalk at:#'_ImageDisplayHasGreyscales' put:Display hasGreyscales.

"/ Processor activeProcess vmTrace:true.

!