--- a/patches	Mon Dec 20 18:48:43 1993 +0100
+++ b/patches	Mon Jan 17 14:52:06 1994 +0100
@@ -2,9 +2,9 @@
  set some kludge flags
 "
 
-"
+" 
 ProcessorScheduler pureEventDriven.
-"
+" 
 !
 
 "
@@ -12,13 +12,12 @@
  classes ... (if not already present)
 "
 
-|optional optionalGames optionalApps optionalBench compat|
+|optional optionalGames optionalDemos optionalApps optionalBench compat|
 
 Transcript showCr:'installing autoloaded classes ...'.
 
 optionalGames := #(
                    Tetris TetrisBlock TicTacToe
-                   Animation GlobeDemo RoundGlobe
                   ).
 
 optionalGames do:[:s |
@@ -32,6 +31,26 @@
     ]
 ].
 
+optionalDemos := #(
+                   Animation GlobeDemo RoundGlobe
+                   GLTeapotDemo GLTeapotView SliderBox
+                   GLPlaneDemoView1 GLPlaneDemoView2
+                   GLSphereDemoView1 GLSphereDemoView2
+                   GLObjectDemoView GLCubeDemoView GLTetraDemoView
+                   Logo3DView1
+                  ).
+
+optionalDemos do:[:s |
+    "install if not already compiled-in"
+    (Smalltalk at:s) isNil ifTrue:[
+        Autoload subclass:s
+             instanceVariableNames:''
+             classVariableNames:''
+             poolDictionaries:''
+             category:'autoloaded-Games & Demos'
+    ]
+].
+
 optionalApps := #(
                   AddressBook
                   DrawTool DrawObject DrawLine DrawText
@@ -108,7 +127,7 @@
 
 optional := #(
               HelpView 
-              Scale HorizontalScale GLXView SliderBox 
+              Scale HorizontalScale GLXView Point3D SliderBox 
               DialogBox OptionBox TextBox
               InputView
               ProcessView
@@ -148,7 +167,7 @@
 Transcript showCr:'installing ST-80 compatibility (autoloaded) classes ...'.
 
 "a kludge: we have added new ImageReaders above - tell Image"
-Image initialize.
+Image initializeFileFormatTable.
 
 "some ST80 name aliases"
 Smalltalk at:#ScheduledWindow put:StandardSystemView.
@@ -184,3 +203,13 @@
 !
 
 Transcript showCr:'installing patches ...' !
+
+!OperatingSystem class methodsFor:'queries'!
+"IO signals do not work currently ..."
+
+supportsIOInterrupts
+    "return true, if the OS supports IO availability interrupts 
+     (i.e. SIGPOLL/SIGIO)."
+
+    ^ false
+! !