--- a/Form.st	Thu Aug 03 05:22:53 1995 +0200
+++ b/Form.st	Tue Aug 08 03:25:13 1995 +0200
@@ -25,7 +25,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Form.st,v 1.29 1995-07-03 00:35:52 claus Exp $
+$Header: /cvs/stx/stx/libview/Form.st,v 1.30 1995-08-08 01:23:52 claus Exp $
 '!
 
 !Form class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Form.st,v 1.29 1995-07-03 00:35:52 claus Exp $
+$Header: /cvs/stx/stx/libview/Form.st,v 1.30 1995-08-08 01:23:52 claus Exp $
 "
 !
 
@@ -108,7 +108,7 @@
 	Lobby do:[:aDrawable |
 	    aDrawable isForm ifTrue:[
 		aDrawable restored.
-		Lobby changed:aDrawable 
+		Lobby registerChange:aDrawable 
 	    ]
 	]
     ]
@@ -1391,7 +1391,7 @@
 
     super initGC.
 "/    self createGC.
-"/    Lobby changed:self.
+"/    Lobby registerChange:self.
     self setGraphicsExposures:false
 !
 
@@ -1404,7 +1404,7 @@
 	"
 	(depth == 1 or:[depth == device depth]) ifTrue:[
 	    drawableId := device createBitmapFromArray:data width:width height:height.
-	    Lobby changed:self. 
+	    Lobby registerChange:self. 
 	    ^ self
 	].
 	data := nil.
@@ -1414,7 +1414,7 @@
 	 create one from a file (mhmh - this seems X-specific and will vanish)
 	"
 	drawableId := device createBitmapFromFile:fileName for:self.
-	Lobby changed:self.
+	Lobby registerChange:self.
 	^ self
     ].
     'FORM: cannot recreate form' errorPrintNL.
@@ -1426,7 +1426,7 @@
     ] ifFalse:[
 	drawableId := device createPixmapWidth:width height:height depth:device depth
     ].
-    Lobby changed:self
+    Lobby registerChange:self
 ! !
 
 !Form methodsFor:'binary storage'!
@@ -1551,7 +1551,7 @@
     ].
     localColorMap := BlackAndWhiteColorMap.
     realized := true.
-    Lobby changed:self.
+    Lobby registerChange:self.
 !
 
 width:w height:h depth:d
@@ -1564,7 +1564,7 @@
     drawableId isNil ifTrue:[^ nil].
     realized := true.
     depth := d.
-    Lobby changed:self.
+    Lobby registerChange:self.
 !
 
 width:w height:h fromArray:anArray
@@ -1623,7 +1623,7 @@
     ].
     localColorMap := BlackAndWhiteColorMap.
     realized := true.
-    Lobby changed:self.
+    Lobby registerChange:self.
 !
 
 width:w height:h offset:offs fromArray:anArray
@@ -1650,7 +1650,7 @@
 	    BlackAndWhiteColorMap := Array with:(Color white) with:(Color black)
 	].
 	localColorMap := BlackAndWhiteColorMap.
-	Lobby changed:self.
+	Lobby registerChange:self.
 	^ self
     ].
     ^ nil