--- 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 $'
! !