--- a/StandardSystemView.st	Fri May 03 23:04:10 1996 +0200
+++ b/StandardSystemView.st	Fri May 03 23:06:39 1996 +0200
@@ -1066,32 +1066,33 @@
     |l|
 
     IncludeHostNameInLabel == true ifTrue:[
-	l := OperatingSystem getHostName , ': ' , label.
+        l := OperatingSystem getHostName , ': ' , label.
     ] ifFalse:[
-	l := label
+        l := label
     ].
 
     drawableId := device 
-		      createWindowFor:self 
-		      origin:(left @ top)
-		      extent:(width @ height)
-		      minExtent:minExtent
-		      maxExtent:maxExtent
-		      borderWidth:borderWidth
-		      subViewOf:nil 
-		      onTop:(self isPopUpView)
-		      inputOnly:(self inputOnly)
-		      label:l
-		      cursor:cursor
-		      icon:icon
-		      iconView:iconView.
+                      createWindowFor:self 
+                      origin:(left @ top)
+                      extent:(width @ height)
+                      minExtent:minExtent
+                      maxExtent:maxExtent
+                      borderWidth:borderWidth
+                      subViewOf:nil 
+                      onTop:(self isPopUpView)
+                      inputOnly:(self inputOnly)
+                      label:l
+                      cursor:cursor
+                      icon:icon
+                      iconView:iconView.
 
+    Lobby registerChange:self.
     extentChanged := false.
     originChanged := false.
 
     (borderColor notNil and:[borderColor ~~ Black]) ifTrue:[
-	borderColor := borderColor on:device.
-	self setBorderColor
+        borderColor := borderColor on:device.
+        self setBorderColor
     ].
 
 "/  (viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
@@ -1103,17 +1104,19 @@
 "/  ].
 
     borderShape notNil ifTrue:[
-	device setWindowBorderShape:(borderShape id) in:drawableId
+        device setWindowBorderShape:(borderShape id) in:drawableId
     ].
     viewShape notNil ifTrue:[
-	device setWindowShape:(viewShape id) in:drawableId
+        device setWindowShape:(viewShape id) in:drawableId
     ].
     (backed notNil and:[backed ~~ false]) ifTrue:[
-	device setBackingStore:backed in:drawableId
+        device setBackingStore:backed in:drawableId
     ].
     saveUnder ifTrue:[
-	device setSaveUnder:true in:drawableId
+        device setSaveUnder:true in:drawableId
     ].
+
+    "Modified: 3.5.1996 / 15:55:13 / stefan"
 !
 
 realize
@@ -1168,5 +1171,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.49 1996-04-30 13:42:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.50 1996-05-03 21:06:39 stefan Exp $'
 ! !

--- a/StdSysV.st	Fri May 03 23:04:10 1996 +0200
+++ b/StdSysV.st	Fri May 03 23:06:39 1996 +0200
@@ -1066,32 +1066,33 @@
     |l|
 
     IncludeHostNameInLabel == true ifTrue:[
-	l := OperatingSystem getHostName , ': ' , label.
+        l := OperatingSystem getHostName , ': ' , label.
     ] ifFalse:[
-	l := label
+        l := label
     ].
 
     drawableId := device 
-		      createWindowFor:self 
-		      origin:(left @ top)
-		      extent:(width @ height)
-		      minExtent:minExtent
-		      maxExtent:maxExtent
-		      borderWidth:borderWidth
-		      subViewOf:nil 
-		      onTop:(self isPopUpView)
-		      inputOnly:(self inputOnly)
-		      label:l
-		      cursor:cursor
-		      icon:icon
-		      iconView:iconView.
+                      createWindowFor:self 
+                      origin:(left @ top)
+                      extent:(width @ height)
+                      minExtent:minExtent
+                      maxExtent:maxExtent
+                      borderWidth:borderWidth
+                      subViewOf:nil 
+                      onTop:(self isPopUpView)
+                      inputOnly:(self inputOnly)
+                      label:l
+                      cursor:cursor
+                      icon:icon
+                      iconView:iconView.
 
+    Lobby registerChange:self.
     extentChanged := false.
     originChanged := false.
 
     (borderColor notNil and:[borderColor ~~ Black]) ifTrue:[
-	borderColor := borderColor on:device.
-	self setBorderColor
+        borderColor := borderColor on:device.
+        self setBorderColor
     ].
 
 "/  (viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
@@ -1103,17 +1104,19 @@
 "/  ].
 
     borderShape notNil ifTrue:[
-	device setWindowBorderShape:(borderShape id) in:drawableId
+        device setWindowBorderShape:(borderShape id) in:drawableId
     ].
     viewShape notNil ifTrue:[
-	device setWindowShape:(viewShape id) in:drawableId
+        device setWindowShape:(viewShape id) in:drawableId
     ].
     (backed notNil and:[backed ~~ false]) ifTrue:[
-	device setBackingStore:backed in:drawableId
+        device setBackingStore:backed in:drawableId
     ].
     saveUnder ifTrue:[
-	device setSaveUnder:true in:drawableId
+        device setSaveUnder:true in:drawableId
     ].
+
+    "Modified: 3.5.1996 / 15:55:13 / stefan"
 !
 
 realize
@@ -1168,5 +1171,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.49 1996-04-30 13:42:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.50 1996-05-03 21:06:39 stefan Exp $'
 ! !