"*

 * $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.

 * (this is fileOut-format)

 *"

"*

 * check for display beeing compiled into the system;

 * if not, enter a simple read-eval-print loop

 *"

Display isNil ifTrue:[

    'oops - no display' printNewline.

    Smalltalk readEvalPrint.

    Smalltalk exit

]

!

"*

 * this makes X-errors to 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 incremental GC earlier

 * (default is 500000)

 *"

"

ObjectMemory incrementalGCLimit:100000 

"

!

"*

 * you can override the view style (which is otherwise defined

 * in the View.rs resource file)

 *"

"View defaultStyle:#iris "

"View defaultStyle:#motif "

"View defaultStyle:#next "

"View defaultStyle:#normal "

!

"*

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

 * (currently only #english and #german are supported)

 *"

"Language := #german"

"Language := #english" 

!

"*

 * define how views look

 * (setting View3D to true is fancy)

 *"

View3D := (Display depth > 1)  

"View3D := false               "

!

"*

 * dont want the 3rd button 

 * (some x-servers dont produce button2 but button3 events)

 * this xlates the 3rd button into 2nd button

 *"

XWorkstation buttonTranslation:#(1 2 2) !

"*

 * 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 machine we are running on

 *"

Smalltalk fileIn:'host.rc'

!

"*

 * start some views ...

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

 * the first time

 *"

"*

 * start a Transcript

 *"

Stdout showCr:'starting Transcript ...'.

"Smalltalk debugOn."

TextCollector newTranscript!

"

 you can change colors too ..

"

(View defaultStyle == #iris) ifTrue:[

    (Display hasColors and:[Display depth > 4]) ifTrue:[

        Transcript foregroundColor:(Color lightGrey) backgroundColor:(Color red:0 green:0 blue:25);

                   cursorForegroundColor:(Color black) backgroundColor:(Color green);

                   selectionForegroundColor:(Color black) backgroundColor:(Color grey);

                   viewBackground:(Color red:0 green:0 blue:25)

    ] ifFalse:[

        Transcript foregroundColor:(Color white) backgroundColor:(Color black);

                   cursorForegroundColor:(Color black) backgroundColor:(Color white);

                   selectionForegroundColor:(Color black) backgroundColor:(Color veryLightGrey);

                   viewBackground:(Color black)

    ]

]

!     

"*

 * start the Launcher

 *"

Stdout showCr:'starting main-menu ...'.

Launcher start!

"*

 * start a SystemBrowser

 * - I dont want one (using Launcher)

 *"

"

 SystemBrowser start

"

!

"*

 * start a FileBrowser

 * - I dont want one (using Launcher)

 *"

"

 FileBrowser start

"

!

"*

 * start a Workspace 

 * - I dont want one (using Launcher)

 *"

"

Workspace start

"

!

"*

 * if things go very badly, turn on message tracing ...

 *"

"

Smalltalk debugOn.

"

"*

 * if error occurs, and debugger has problems coming up

 *"

"

" "

Debugger := MiniDebugger.

" "

!

"*

 * 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.

!