--- a/host.rc Fri Nov 08 19:46:34 1996 +0100
+++ b/host.rc Sat Nov 09 02:03:57 1996 +0100
@@ -25,24 +25,30 @@
"/ setup the printer stuff.
"/ the commands below will be offered in the printer-setting box
"/
-PostscriptPrinterStream defaultCommands:#(
- 'lpr -h'
- 'cat | rsh <hostname> lpr -h'
- 'cat > preview.ps'
- 'cat > preview.ps; ghostview preview.ps'
- ).
+PostscriptPrinterStream notNil ifTrue:[
+ PostscriptPrinterStream
+ defaultCommands:#(
+ 'lpr -h'
+ 'cat | rsh <hostname> lpr -h'
+ 'cat > preview.ps'
+ 'cat > preview.ps; ghostview preview.ps'
+ ).
+ PostscriptPrinterStream printCommand:'lpr'.
+].
-PrinterStream defaultCommands:#(
- 'lpr -h'
- 'cat | rsh <hostname> lpr -h'
- 'a2ps | rsh <hostname> lpr -h'
- 'a2ps > preview.ps; ghostview preview.ps'
- ).
+PrinterStream notNil ifTrue:[
+ PrinterStream
+ defaultCommands:#(
+ 'lpr -h'
+ 'cat | rsh <hostname> lpr -h'
+ 'a2ps | rsh <hostname> lpr -h'
+ 'a2ps > preview.ps; ghostview preview.ps'
+ ).
+ Printer := PrinterStream.
+ PrinterStream printCommand:'lpr'.
+].
-Printer := PrinterStream.
"/ Printer := PostscriptPrinterStream.
-PostscriptPrinterStream printCommand:'lpr'.
-PrinterStream printCommand:'lpr'.
"/ in our home-domain, preset the print command for remote printing
"/ on a host called 'ibm'.
--- a/patches Fri Nov 08 19:46:34 1996 +0100
+++ b/patches Sat Nov 09 02:03:57 1996 +0100
@@ -61,43 +61,11 @@
].
!
-|optionalClasses optionalGames optionalDemos optionalApps optionalBench
- optionalTools optionalViews optionalImage compat optionalPro optionalUI|
-
-'installing autoloaded classes ...' infoPrintNL.
+|optionalViews|
(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.
-"/ ].
-"/
+ 'installing required autoloaded classes ...' infoPrintNL.
+
optionalViews := #(
DeviceWorkstation
Workstation
@@ -161,7 +129,7 @@
].
!
-Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'.
+"/ Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'.
!
"/
@@ -201,6 +169,7 @@
Display notNil ifTrue:[
Smalltalk at:#Window put:(Display class).
Smalltalk at:#Screen put:(Display class).
+ Smalltalk at:#Sensor put:(WindowSensor class).
].
"/
@@ -221,9 +190,9 @@
Class catchMethodRedefinitions:false.
'installing patches ...' infoPrintNL.
+!
"/
"/ the following patches where added by the changesBrowsers 'make change a patch'
"/ function ...
"/
-!
--- a/smalltalk.rc Fri Nov 08 19:46:34 1996 +0100
+++ b/smalltalk.rc Sat Nov 09 02:03:57 1996 +0100
@@ -186,6 +186,15 @@
"/
"/ lazy loading
"/ (faster fileIn) - this is EXPERIMENTAL.
+"/
+"/ - if turned on, an autoload operation will only create methodStubs
+"/ (uncompiled) which trap when called the first time.
+"/ The bytecode compiler will compile them when first executen.
+"/
+"/ - if turned off, an autoload will load & compile the while class,
+"/ which makes autoloading slower, but avoids the initial delays
+"/
+"/ This is much like just-in-time compilation, but on a higher level.
"/ If there are any problems with lazy methods, disable the following
"/ and let me (cg@exept.ssw.de) know what happened.
"/
@@ -193,11 +202,11 @@
"/
"/ define the language (you can also set the LANG-shell variable)
-"/ (currently only #english, #german and #french are supported).
+"/ (currently #english, #german and #french are supported).
+"/ some fragments for other languages (japanese ;-) exist.
"/ Setting it here will override the LANG variable setting,
"/ if neither set here nor in LANG, #english is the default.
-"/ (currently, strings are not available for other than english
-"/ and german; french will follow next - see resource files)
+"/ see (and enhance) the resource files
"/ Claus: supposed to be done in private.rc or via LANG variable
"/
"/ Smalltalk language:#german.
@@ -215,27 +224,37 @@
Smalltalk fileIn:'host.rc'.
"/
-"/ set the package to some useful default
-"/
-Project notNil ifTrue:[
- Project setDefaultProject.
- Project current packageName:#'private'.
-].
-
-"/
"/ Ask user to accept Licence.
"/ exit, if rejected.
"/ You may find this annoying - but lawers say: "this is a must ..." ;-)
"/ (it will not be shown when coming up via a snapshot image)
"/
Smalltalk addStartBlock:[
+ |loader needToReactivate|
+
+ needToReactivate := HistoryManager isActive.
+ HistoryManager deactivate.
+
LicenceBox autoload.
+
+ "/ fetch autoloaded classes in the meanwhile ...
+ loader := [
+ Class withoutUpdatingChangesDo:[
+ 'installing autoloaded classes ...' printCR.
+ Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'.
+ ].
+ needToReactivate ifTrue:[HistoryManager activate].
+ ] forkAt:Processor userBackgroundPriority.
+
LicenceBox licenceRejectSignal handle:[:ex|
Smalltalk exit
] do:[
LicenceBox open.
Smalltalk at:#LicenceBox put:nil.
].
+
+ "/ wait for loader
+ loader waitUntilTerminated.
].
"/
@@ -245,6 +264,19 @@
Smalltalk fileIn:'private.rc'.
"/
+"/ read saved configuration settings (if any)
+"/
+Smalltalk fileIn:'settings.stx'.
+
+"/
+"/ set the package to some useful default
+"/
+Project notNil ifTrue:[
+ Project setDefaultProject.
+ Project current packageName:#'private'.
+].
+
+"/
"/ if error occurs, and debugger has problems coming up,
"/ uncomment the following ...
"/