--- a/patches Sat Feb 11 17:56:01 1995 +0100
+++ b/patches Thu Feb 16 04:15:53 1995 +0100
@@ -1,40 +1,43 @@
-"
- This file is processed at initial startup
- - not when resuming an image.
-"
+"/
+"/ $Header$
+"/
+"/ 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.
+"/
+"/ 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.
+"/ Future systems may not support this ...
+
+"/ ProcessorScheduler pureEventDriven.
+
- 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 ...
-"
+"/
+"/ 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
optionalTools optionalViews optionalImage compat requiredClasses|
-"
- the following are required (either compiled or interpreted) ...
-"
+"/
+"/ the following are required (either compiled or interpreted) ...
+"/
requiredClasses := #(
VariableArray
StringCollection
@@ -48,6 +51,10 @@
Transcript showCr:'installing autoloaded classes ...'.
+"/
+"/ the following are loaded on demand (if not already present)
+"/
+
optionalGames := #(
Tetris TetrisBlock TicTacToe
).
@@ -135,8 +142,10 @@
ViewScroller TabSpecRuler
).
-"notice, that it does not really make sense to
- run Benchmarks in interpreted mode ..."
+"/ notice, that it does not really make sense to
+"/ run Benchmarks in interpreted mode ..."
+"/ If you really weant to measure the system, include (load) compiled
+"/ benchmark classes
optionalBench := #(
SlopstoneBenchmark SmopstoneBenchmark
@@ -278,17 +287,16 @@
]
].
-"
- check if this is a minitalk ... and install
- all widget & tool classes as autoloaded if so
-"
-((Smalltalk at:#TextView) isNil
-or:[(Smalltalk at:#DebugView) isNil]) ifTrue:[
- "
- but only, if this is not a non GUI smalltalk
- "
- Workstation notNil ifTrue:[
- optionalClasses := #(
+"/
+"/ install all widget & tool classes as autoloaded
+"/ for compact systems (which have no GUI classes compiled in) ...
+"/
+
+"/
+"/ ... but only, if this is not a non GUI smalltalk
+"/
+Workstation notNil ifTrue:[
+ optionalClasses := #(
ArrowButton
Button
CheckToggle
@@ -365,55 +373,47 @@
).
- optionalClasses do:[:s |
- "install if not already compiled-in"
- (Smalltalk at:s) isNil ifTrue:[
- Autoload subclass:s
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'autoloaded-Classes'.
- ]
+ 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
+"/
+"/ additional compatibility classes
+"/
+compat := #(
+ BitBlt
+ Pen
+ Commander
OpaqueForm
- AbstractPath Arc Circle Curve LinearFit
- Arrow Line Path Spline Ellipse DrawingPen
- ActionMenu FillInTheBlank
+ AbstractPath
+ Path
+ Arc
+ Circle
+ Curve
+ LinearFit
+ Arrow
+ Line
+ Spline
+ Ellipse
+ DrawingPen
+ ActionMenu
+ FillInTheBlank
KeyedSet
- DialogView FormView
- NoController MouseMenuController
+ DialogView
+ FormView
+ NoController
+ MouseMenuController
StandardSystemController
- ValueHolder ComposedTextView
+ ValueHolder
+ ComposedTextView
StringHolder
).
@@ -427,9 +427,52 @@
category:'autoloaded-ST80-Classes'
]
]
+!
-!
+"/
+"/ a kludge: we might have added new ImageReaders above - let Image know about it
+"/
+"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.
+Smalltalk at:#AbstractString put:CharacterArray.
+
+FileDirectory notNil ifTrue:[
+ Smalltalk at:#Disk put:(FileDirectory directoryNamed:'/')
+].
+Display notNil ifTrue:[
+ Smalltalk at:#Window put:(Display class)
+].
+
+"/
+"/ ST/X has (currently) no Double, but Float is what ST-80's Double is ...
+"/
+Smalltalk at:#Double put:Float.
+
+"/
+"/ the following patches where added by the changesBrowsers 'make change a patch'
+"/ function ...
+"/
Transcript showCr:'installing patches ...' !
+
!OperatingSystem class methodsFor:'os queries'!
supportsIOInterrupts
"return true, if the OS supports IO availability interrupts