"

 This file is processed at initial startup 

 - not when resuming an image.

"

"this allows turning off processes and running

 pure event driven - for debugging only.

 If the system has been created without thread

 support (i.e. a quick port without asm-support)

 it will do this automatically. So, normally you

 should not uncomment the line below.

"

"

 ProcessorScheduler pureEventDriven.

" 

!

"

 install uncompiled classes as autoload

 classes ... (if not already present)

 Autoloaded classes will be automatically filed-in

 when first accessed. This allows a smaller executable,

 but creates a short delay, when the class is loaded on

 first access.

 You can add more classes to these lists -

 i.e. all your classes you like to have around,

 but which are not needed often enough to justify

 machine code for them ...

"

|optionalClasses optionalGames optionalDemos optionalApps optionalBench 

Transcript showCr:'installing autoloaded classes ...'.

optionalGames := #(

		   Tetris TetrisBlock TicTacToe

		  ).

optionalDemos := #(

		   Animation GlobeDemo RoundGlobe

		   GLTeapotDemo GLTeapotView

		   GLPlaneDemoView1 GLPlaneDemoView2

		   GLSphereDemoView1 GLSphereDemoView2

		   GLObjectDemoView GLCubeDemoView GLTetraDemoView

		   GLWireCubeDemoView GLWireSphereDemoView

		   GLCubeDemoView2 Logo3DView1 GLPlanetDemoView

		  ).

optionalApps := #(

		  AddressBook AddressBook2 InitialLabelView AddressView

		  DrawTool DrawObject DrawLine DrawText

		  DrawRectangle DrawRoundRectangle DrawEllipse

		  DrawPolygon DrawCurve DrawGroup DrawView DrawImage

		  PatternMenu

		  LogicTool LogicView LogicObject Connection Input Output

		  Low High Inverter AndGate OrGate AndGate2 NandGate2 OrGate2 NorGate2 ExorGate2 

		  AndGate3

		  MailView MailHandler MailLetter MailReplyTextView

		  NewsView NewsHandler NNTPHandler NumberSet

		  ArchiveView DirectoryView DirectoryViewObject 

		  DirectoryObject FileObject

		  DisplayText DisplayPicture DisplayIcon DisplaySound

		  Clock ClockView RoundClock RoundClock2

		  VocPanel VocBrowser VocView SoundStream

		  Keyword KeywordSet ManualBrowser ManualMaker ManualView

		 ).

optionalTools := #(

		  Builder BuilderView BuilderTreeView

		  BuilderClassBox BuilderVariablesBox

		  SystemBrowser DebugView FileBrowser DirectoryBrowser

		  ProjectView Launcher Workspace ChangesBrowser

		  InspectorView OrderedCollectionInspectorView ContextInspectorView

		  DictionaryInspectorView

		  ImageInspectorView ColorInspectorView

		 ).

optionalViews := #(

		  Scale HorizontalScale GLXView Point3D SliderBox 

		  DialogBox OptionBox TextBox 

		  Slider HorizontalSlider

		  SteppingSlider HorizontalSteppingSlider

		  VariableHorizontalPanel

		  FontPanel FramedBox FileSelectionBox FileSaveBox

		  TwoColumnTextView DiffTextView 

		  FilenameEditField FilenameEnterBox

		  HelpView 

		  ScreenSaver LightInTheDark LightInTheDark2

		  ImageView ImageEditView 

		  Depth1Image Depth2Image Depth4Image Depth8Image Depth24Image

		  TreeView TreeGraphView ClassTreeView ClassTreeGraphView WindowTreeView

		  ColorPanel HLSPanel RGBPanel ColorWheel ThreeSliderPanel

		  ColorSlider HueSlider RGBSlider SteppingColorSlider SteppingHueSlider

		  TabulatorSpecification MultiColListEntry

		 ).

"notice, that it does not really make sense to

 run Benchmarks in interpreted mode ..."

optionalBench := #(

		  SlopstoneBenchmark SmopstoneBenchmark

		  "DeltaBlue benchmark"

		  AbstractConstraint BinaryConstraint Constraint 

		  DBMethod DBVariable EditConstraint

		  EqualityConstraint Plan Planner ScaleConstraint

		  StayConstraint Strength UnaryConstraint XMouseConstraint

		  YMouseConstraint

		  "RichardsBenchmarks"

		  DeviceTaskDataRecord HandlerTaskDataRecord

		  IdleTaskDataRecord Packet RBObject RichardsBenchmarks

		  TaskControlBlock TaskState WorkerTaskDataRecord

		  "self benchmarks"

		  AbstractBenchmark AtAllPutBenchmark BenchmarkRunner

		  BubbleSort2Array BubbleSort2Benchmark BubbleSortBenchmark

		  Cons FastSumToBenchmark HanoiBenchmark HanoiDisk

		  IncrementAllBenchmark IntMM2Array IntMM2Benchmark

		  IntMM2Matrix IntMMBenchmark MM2Benchmark MMBenchmark

		  NestedLoopBenchmark Perm2Benchmark PermArray PermBenchmark

		  PuzzleArray PuzzleBenchmark Queens2Benchmark QueensBenchmark

		  Quicksort2Array Quicksort2Benchmark QuicksortBenchmark

		  RecurseBenchmark SieveBenchmark SumAllBenchmark

		  SumFromToBenchmark SumToBenchmark TakBenchmark TaklBenchmark

		  Towers2Benchmark Towers2Disk TowersBenchmark

		  TowersBenchmarkElement TreeSort2Benchmark TreeSort2Node

		  TreeSortBenchmark TreeSortNodeBenchmark

		 ).

optionalClasses := #(

		  GIFReader TIFFReader FaceReader WindowsIconReader SunRasterReader

		  XBMReader JPEGReader PBMReader ST80FormReader XPMReader

		  PCXReader

		  EpsonFX1PrinterStream HPLjetIIPrinterStream

		  PostscriptPrinterStream

		  Decompiler Polygon 

		  ChangeSetBrowser

		  MessageTracer

		  PersistencyManager BinaryIOManager BinaryInputManager

		  BinaryOutputManager DBFile BinaryObjectStorage

		  RDoItServer

		  HandlerCollection

	     ).

optionalViews do:[:s |

    "install if not already compiled-in"

    (Smalltalk at:s) isNil ifTrue:[

	Autoload subclass:s

	     instanceVariableNames:''

	     classVariableNames:''

	     poolDictionaries:''

	     category:'autoloaded-Views'

    ]

].

optionalTools do:[:s |

    "install if not already compiled-in"

    (Smalltalk at:s) isNil ifTrue:[

	Autoload subclass:s

	     instanceVariableNames:''

	     classVariableNames:''

	     poolDictionaries:''

	     category:'autoloaded-Tools'

    ]

].

optionalGames do:[:s |

    "install if not already compiled-in"

    (Smalltalk at:s) isNil ifTrue:[

	Autoload subclass:s

	     instanceVariableNames:''

	     classVariableNames:''

	     poolDictionaries:''

	     category:'autoloaded-Games & Demos'

    ]

].

optionalDemos do:[:s |

    "install if not already compiled-in"

    (Smalltalk at:s) isNil ifTrue:[

	Autoload subclass:s

	     instanceVariableNames:''

	     classVariableNames:''

	     poolDictionaries:''

	     category:'autoloaded-Games & Demos'

    ]

].

optionalApps do:[:s |

    "install if not already compiled-in"

    (Smalltalk at:s) isNil ifTrue:[

	Autoload subclass:s

	     instanceVariableNames:''

	     classVariableNames:''

	     poolDictionaries:''

	     category:'autoloaded-Applications'

    ]

].

optionalBench do:[:s |

    "install if not already compiled-in"

    (Smalltalk at:s) isNil ifTrue:[

	Autoload subclass:s

	     instanceVariableNames:''

	     classVariableNames:''

	     poolDictionaries:''

	     category:'autoloaded-Benchmarks'

    ]

].

optionalClasses do:[:s |

    "install if not already compiled-in"

    (Smalltalk at:s) isNil ifTrue:[

	Autoload subclass:s

	     instanceVariableNames:''

	     classVariableNames:''

	     poolDictionaries:''

	     category:'autoloaded-Classes'

    ]

].

"

 a kludge: we have added new ImageReaders above - tell Image

"

"avoid introducing a new global ..."

(Smalltalk includesKey:#Image) ifTrue:[

    (Smalltalk at:#Image) isBehavior ifTrue:[

	(Smalltalk at:#Image) initializeFileFormatTable.

    ]

].

"

 some ST80 name aliases

 (actually, much more is needed - this is just a start ...)

"

(Smalltalk at:#StandardSystemView) notNil ifTrue:[Smalltalk at:#ScheduledWindow put:StandardSystemView].

(Smalltalk at:#Color) notNil ifTrue:[Smalltalk at:#ColorValue put:Color].

(Smalltalk at:#Socket) notNil ifTrue:[Smalltalk at:#UnixSocketAccessor put:Socket].

Smalltalk at:#BlockClosure put:Block.

FileDirectory notNil ifTrue:[Smalltalk at:#Disk put:(FileDirectory directoryNamed:'/')].

"

 ST/X has (currently) no Double, but Float is what ST-80's Double is ...

"

Smalltalk at:#Double put:Float.

compat := #(BitBlt Pen Commander

	    OpaqueForm 

	    AbstractPath Arc Circle Curve LinearFit

	    Arrow Line Path Spline Ellipse DrawingPen

	    ActionMenu FillInTheBlank

	    KeyedSet

	    DialogView FormView

	    NoController MouseMenuController

	    StandardSystemController

	    ValueHolder ComposedTextView

	    StringHolder

	   ).

compat do:[:s |

    "install if not already compiled-in"

    (Smalltalk at:s) isNil ifTrue:[

	Autoload subclass:s

	     instanceVariableNames:''

	     classVariableNames:''

	     poolDictionaries:''

	     category:'autoloaded-ST80-Classes'

    ]

]

!

Transcript showCr:'installing patches ...' !

!OperatingSystem class methodsFor:'queries'!

supportsIOInterrupts

    "return true, if the OS supports IO availability interrupts 

     (i.e. SIGPOLL/SIGIO)."

"IO signals do not work currently 

(I dont know why - streams work, but sockets fail to produce

 an IO signal ..... help help help"

    ^ false

!

!