"/

"/ $Header$

"/

"/ This file is processed at initial startup 

"/ - not when resuming an image.

"/

"/

"/ 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 ...

|requiredClasses|

"/ GLXWorkstation forceGL:true.

"/ OperatingSystem disableSignal:14.

ObjectMemory infoPrinting:false.

Smalltalk loadBinaries:true.

Project notNil ifTrue:[

    Project setDefaultProject.

    Project current packageName:#'autoloaded'.

].

"/

"/ when filing in, keep source as reference to file

"/ (instead of keeping a string locally in the image)

"/

"/ I disable this - its dangerous if you fileIn

"/ classes from other directories and fileOut later clobbers those files

"/

"/ ClassCategoryReader sourceMode:#reference.

"/

"/ the following are required (either compiled or interpreted) ...

"/

requiredClasses := #( 

     ObsoleteObject

     BinaryIOManager BinaryInputManager BinaryOutputManager BinaryObjectStorage

     StringCollection

).

requiredClasses do:[:s |

    (Smalltalk at:s) isNil ifTrue:[

	('loading ' , s , ' ...') infoPrintNL.

	Smalltalk fileInClass:s initialize:true lazy:false silent:true

    ]

].

!

|optionalClasses optionalGames optionalDemos optionalApps optionalBench 

'installing autoloaded classes ...' infoPrintNL.

(Smalltalk at:#View) isNil ifTrue:[

    "/

    "/ mhmh - seems to be a minitalk

    "/ try for shared libraries ...

    "/

    Smalltalk loadBinaries:true.

    ObjectFileLoader notNil ifTrue:[

	#(

	  'libbasic2'

	  'libbasic3'

	  'libview'

	  'libview2'

	  'libwidg'

	  'libwidg2'

	  'libwidg3'

	  'libxt'

	  'libtool'

	  'XWorkstat'

	  'GLXWorkstat'

	) do:[:nm |

	    ('binary/' , nm) asFilename exists ifTrue:[

		('loading ' , nm , ' ...') infoPrintNL.

		(ObjectFileLoader loadObjectFile:'binary/' , nm , (ObjectFileLoader sharedLibraryExtension)) ifFalse:[

		    'load of ' , nm , ' failed' infoPrintNL

		]

	    ].

	].

	Workstation initialize.

	GraphicsContext initialize.

    ].

    optionalViews := #(

			DeviceWorkstation

			Workstation

			XWorkstation

			DisplayRootView

			SimpleView

			TopView

			StandardSystemView

			ModalBox

			View

			PseudoView

			DeviceDrawable

			DisplayMedium

			GraphicsContext

			Image

			ViewStyle

			KeyboardMap

			KeyboardForwarder

			TextCollector

			SynchronousWindowSensor

			WindowSensor

			WindowGroup

			WindowEvent

			WindowingTransformation

			FontDescription

			Font

			Form

			Cursor

			Color

			Depth1Image

			Depth8Image

			ResourcePack

			Model

			Controller

			ApplicationModel

			WindowBuilder

			PopUpView

			ShadowView

			Colormap

			DeviceHandle

			DeviceFormHandle

			DeviceViewHandle

			DisplayObject

		     ).

    optionalViews do:[:s |

	"install if not already compiled-in"

	(Smalltalk at:s) isNil ifTrue:[

	    Autoload subclass:s

		 instanceVariableNames:''

		 classVariableNames:''

		 poolDictionaries:''

		 category:'autoloaded-Views'

	]

    ].

    DeviceWorkstation autoload.

    XWorkstation autoload.

    Workstation autoload.

    DeviceHandle autoload.

    DeviceFormHandle autoload.

    DeviceViewHandle autoload.

].

		    abbrev := (s2 upTo:Character space) withoutSeparators asSymbol.

		    package := (s2 upTo:Character space) withoutSeparators asSymbol.

		    rev := nil.    

		    s2 skipSeparators.

		    s2 atEnd ifFalse:[

			s2 peek isDigit ifTrue:[

			    rev := (s2 upTo:Character space) withoutSeparators

			]

		    ].

		    cat := s2 upToEnd withoutSeparators.

		    (cat startsWith:$') ifTrue:[

			cat := cat copyFrom:2 to:(cat size - 1).

			"/ '  autoloaded: ' print. clsName print. ' in ' print. cat printNL.

			"/ install if not already compiled-in

		    ]

		]

	].

]

!

"/

"/ a kludge: we might have added new ImageReaders above - let Image know about it

"/

    ]

].

"/

"/ some ST80 name aliases

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

"/

].

].

Smalltalk at:#BlockClosure put:Block.

Smalltalk at:#Console put:Stderr.

FileDirectory notNil ifTrue:[

].

Display notNil ifTrue:[

].

"/

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

"/

Smalltalk at:#Double put:Float.

Project notNil ifTrue:[

    Project setDefaultProject.

    Project current packageName:#'patches'.

].

Class catchMethodRedefinitions:false.

'installing patches ...' infoPrintNL.

"/

"/ the following patches where added by the changesBrowsers 'make change a patch'

"/ function ...

"/

!