--- a/patches Thu Oct 17 21:46:19 1996 +0200
+++ b/patches Fri Oct 18 14:51:22 1996 +0200
@@ -25,7 +25,11 @@
Class catchMethodRedefinitions:false.
ObjectMemory infoPrinting:false.
+ObjectMemory justInTimeCompilation:true.
Smalltalk loadBinaries:true.
+Compiler allowUnderscoreInIdentifier:true.
+Compiler warnUnderscoreInIdentifier:false.
+Compiler warnSTXSpecials:false.
Project notNil ifTrue:[
Project setDefaultProject.
@@ -64,37 +68,37 @@
'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.
- ].
-
+"/ "/
+"/ "/ 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
@@ -208,7 +212,7 @@
"/
"/ Temporary backward comatibility (will be removed)
"/
-Smalltalk at:#NewLauncher put:Launcher.
+"/ Smalltalk at:#NewLauncher put:Launcher.
Project notNil ifTrue:[
Project setDefaultProject.
@@ -216,6 +220,7 @@
].
Class catchMethodRedefinitions:false.
+
'installing patches ...' infoPrintNL.
"/