DisplaySurface.st
changeset 1216 c01819586102
parent 1177 e89408c15bb5
child 1236 ad9f2cefaa95
--- a/DisplaySurface.st	Tue Jan 14 14:32:47 1997 +0100
+++ b/DisplaySurface.st	Tue Jan 14 15:43:37 1997 +0100
@@ -568,19 +568,26 @@
      Bug: does not work correctly yet.
           (restored view looses its position & wg process)"
 
+    |wasRealized|
+
     super readBinaryContentsFrom: stream manager: manager.
 
     gcId := nil.
     drawableId := nil.
+    wasRealized := realized.
+    realized := false.
     self recreate.
-    realized ifTrue:[
-        self map
+    wasRealized ifTrue:[
+        self remap
     ]
 
+
     "
-     |s|
+     |s l|
      s := 'storedLabel.boss' asFilename writeStream binary.
-     (Label label:'hello there') realize storeBinaryOn:s.
+     l := (Label label:'hello there') realize.
+     Delay waitForSeconds:1.
+     l storeBinaryOn:s.
      s close.
     "
 
@@ -601,6 +608,7 @@
     "
 
     "Modified: 3.5.1996 / 23:59:38 / stefan"
+    "Modified: 14.2.1997 / 15:42:55 / cg"
 ! !
 
 !DisplaySurface methodsFor:'button menus'!
@@ -1748,5 +1756,5 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.15 1997-01-10 18:02:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.16 1997-01-14 14:43:37 cg Exp $'
 ! !