--- a/patches	Mon Oct 10 04:36:13 1994 +0100
+++ b/patches	Mon Nov 21 18:37:56 1994 +0100
@@ -30,7 +30,7 @@
 "
 
 |optionalClasses optionalGames optionalDemos optionalApps optionalBench 
- optionalTools optionalViews compat|
+ optionalTools optionalViews optionalImage compat|
 
 Transcript showCr:'installing autoloaded classes ...'.
 
@@ -40,6 +40,7 @@
 
 optionalDemos := #(
 		   Animation GlobeDemo RoundGlobe
+		   PenDemo CommanderDemo Calendar
 		   GLTeapotDemo GLTeapotView
 		   GLPlaneDemoView1 GLPlaneDemoView2
 		   GLSphereDemoView1 GLSphereDemoView2
@@ -67,7 +68,7 @@
 		  ArchiveView DirectoryView DirectoryViewObject 
 		  DirectoryObject FileObject
 
-		  DocumentView DocumentReader
+		  DocumentView DocumentReader RTFReader
 		  DisplayText DisplayPicture DisplayIcon DisplaySound
 
 		  Clock ClockView RoundClock RoundClock2
@@ -86,18 +87,20 @@
 		  InspectorView OrderedCollectionInspectorView ContextInspectorView
 		  DictionaryInspectorView
 		  ImageInspectorView ColorInspectorView
+
+		  EventMonitor ProcessMonitor MemoryMonitor MemoryUsageView
 		 ).
 
 optionalViews := #(
 		  Scale HorizontalScale GLXView Point3D SliderBox 
 		  DialogBox OptionBox TextBox 
-		  InputView Ruler TextRuler
+		  InputView Ruler VerticalRuler TextRuler
 		  Slider HorizontalSlider
 		  SteppingSlider HorizontalSteppingSlider
-		  ProcessView
 		  VariableHorizontalPanel
 		  FontPanel FramedBox FileSelectionBox FileSaveBox
-		  RadioButton RadioButtonGroup MotionButton MenuButton PullDownMenu
+		  RadioButton RadioButtonGroup "MotionButton MenuButton"
+		  PullDownMenu
 
 		  TwoColumnTextView DiffTextView 
 		  FilenameEditField FilenameEnterBox
@@ -109,12 +112,12 @@
 		  ImageView ImageEditView 
 		  Depth1Image Depth2Image Depth4Image Depth8Image Depth24Image
 		  TreeView TreeGraphView ClassTreeView ClassTreeGraphView WindowTreeView
-		  EventMonitor ProcessMonitor MemoryMonitor MemoryUsageView
 
 		  ColorPanel HLSPanel RGBPanel ColorWheel ThreeSliderPanel
 		  ColorSlider HueSlider RGBSlider SteppingColorSlider SteppingHueSlider
 
 		  TabulatorSpecification MultiColListEntry
+		  ViewScroller TabSpecRuler
 		 ).
 
 "notice, that it does not really make sense to
@@ -151,6 +154,12 @@
 		  TreeSortBenchmark TreeSortNodeBenchmark
 		 ).
 
+optionalImage := #(
+		  GIFReader TIFFReader FaceReader WindowsIconReader SunRasterReader
+		  XBMReader JPEGReader PBMReader ST80FormReader XPMReader
+		  PCXReader
+	     ).
+
 optionalClasses := #(
 		  GIFReader TIFFReader FaceReader WindowsIconReader SunRasterReader
 		  XBMReader JPEGReader PBMReader ST80FormReader XPMReader
@@ -236,6 +245,17 @@
     ]
 ].
 
+optionalImage do:[:s |
+    "install if not already compiled-in"
+    (Smalltalk at:s) isNil ifTrue:[
+	Autoload subclass:s
+	     instanceVariableNames:''
+	     classVariableNames:''
+	     poolDictionaries:''
+	     category:'autoloaded-Images'
+    ]
+].
+
 optionalClasses do:[:s |
     "install if not already compiled-in"
     (Smalltalk at:s) isNil ifTrue:[
@@ -311,94 +331,3 @@
     ^ false
 !
 !
-!LazyMethod methodsFor:'error handling'!
-XXnoByteCode 
-    "this is triggered by the interpreter when a lazy method is about to 
-     be executed (by sending the to-be executed  method this message).
-     Hard-compile the method, install its bytecode in the receiver,
-     and recall it."
-
-    |code m sender spec class selector|
-
-    "compile the method"
-
-    [
-	Access wait.
-	[
-	    m := self asByteCodeMethod.
-	] valueNowOrOnUnwindDo:[
-	    Access signal.
-	].
-    ] valueUninterruptably.
-
-    (m isNil or:[(byteCode := m byteCode) isNil]) ifTrue:[
-"/        Access signal.
-
-	class := self containingClass.
-	selector := thisContext sender selector.
-
-	class notNil ifTrue:[
-	    spec := class name , '>>' , selector
-	] ifFalse:[
-	    spec := 'unknown>>' , selector
-	].
-	"
-	 this error is triggered, if the compilation of a lazy method
-	 failed - this happens for example, if a lazy methods code has been
-	 changed in a fileBrowser without checking the code for syntactical
-	 correctnes, or if the instvars of an autoloaded classes superclass 
-	 have been changed without changing the subclasses code ...
-	 You should enter the SystemBrowser on this method, and try accepting 
-	 to see what the problem is.
-	 The methods class is found in the local 'class',
-	 the selector is found in the local 'selector'.
-	"
-	^ CompilationFailedSignal raiseRequestWith:self
-				  errorString:('compilation of lazy method ' , spec , ' failed')
-    ].
-    "
-     thisContext sender is the context of the original send
-     (the failed one)
-    "
-    sender := thisContext sender.
-    literals := m literals.
-    flags := m flags.
-    ObjectMemory flushCaches.
-"/    Access signal.
-
-    ^ self valueWithReceiver:(sender receiver)
-		   arguments:(sender args)
-		    selector:(sender selector)
-
-! !
-!Text methodsFor:'converting'!
-from:aString
-    "setup my contents from the argument, aString"
-
-    |numberOfLines "{ Class:SmallInteger }"
-     start         "{ Class:SmallInteger }"
-     stop          "{ Class:SmallInteger }" |
-
-    numberOfLines := aString occurrencesOf:(Character cr).
-    (aString endsWith:(Character cr)) ifFalse:[
-	numberOfLines := numberOfLines + 1.
-    ].
-    self grow:numberOfLines.
-    start := 1.
-    1 to:numberOfLines do:[:lineNr |
-	stop := aString indexOf:(Character cr) startingAt:start.
-	stop == 0 ifTrue:[
-	    stop := aString size
-	] ifFalse: [
-	    stop := stop - 1.
-	].
-
-	(stop < start) ifTrue: [
-	    self at:lineNr put:(String new:0)
-	] ifFalse: [
-	    self at:lineNr put:(aString copyFrom:start to:stop)
-	].
-	start := stop + 2
-    ]
-
-! !