--- a/HostGraphicsDevice.st	Tue Jul 27 18:25:47 1999 +0200
+++ b/HostGraphicsDevice.st	Fri Jul 30 20:12:04 1999 +0200
@@ -13,7 +13,7 @@
 
 
 GraphicsDevice subclass:#HostGraphicsDevice
-	instanceVariableNames:'deviceColors deviceFonts'
+	instanceVariableNames:'deviceColors deviceFonts deviceViews deviceForms'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Graphics'
@@ -41,7 +41,7 @@
 "
     this abstract class was inserted to provide a home for ST-80 classes
     (previously, DeviceWorkstation was directly under Object).
-    Will (over time) move commn functionality from there into this class.
+    We will (over time) move common functionality from there into this class.
 
     In ST/X, this is mostly dummy.
 
@@ -59,7 +59,7 @@
 
 deviceColors
     "return the registry keeping track of colors which were allocated
-     on this device"
+     on this device."
 
     ^ deviceColors
 
@@ -68,9 +68,23 @@
 
 deviceFonts
     "return the registry keeping track of fonts which were allocated
-     on this device"
+     on this device."
 
     ^ deviceFonts
+!
+
+deviceViews
+    "return the registry keeping track of views which were allocated
+     on this device."
+
+    ^ deviceViews
+!
+
+deviceForms
+    "return the registry keeping track of forms which were allocated
+     on this device."
+
+    ^ deviceForms
 ! !
 
 !HostGraphicsDevice methodsFor:'color stuff'!
@@ -104,6 +118,8 @@
 !HostGraphicsDevice methodsFor:'initialize / release'!
 
 initializeDeviceResourceTables
+    deviceViews := Registry new.
+    deviceForms := Registry new.
     deviceColors := Registry new.
     deviceFonts := CachingRegistry new cacheSize:10.
 
@@ -123,5 +139,5 @@
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.6 1999-07-22 23:18:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.7 1999-07-30 18:12:04 cg Exp $'
 ! !