--- a/Form.st	Wed Aug 23 16:06:03 2006 +0200
+++ b/Form.st	Wed Aug 23 16:06:16 2006 +0200
@@ -1197,64 +1197,6 @@
     "Modified: 23.4.1996 / 10:12:48 / cg"
 ! !
 
-!Form methodsFor:'binary storage'!
-
-readBinaryContentsFrom: stream manager: manager
-    "tell the newly restored Form about restoration"
-
-    width := manager nextObject.
-    height := manager nextObject.
-    depth := manager nextObject.
-    offset := manager nextObject.
-    data := manager nextObject.
-
-"/    super readBinaryContentsFrom: stream manager: manager.
-"/    device := nil. "/ Screen current.
-
-    fileName := nil.
-    self restored.
-"/    self recreate.
-"/    Lobby register:self.
-
-    "
-     |f|
-
-     f := Form fromFile:'bitmaps/SBrowser.xbm'.
-     f storeBinaryOn:'foo.bos'.
-
-     (Form readBinaryFrom:'foo.bos') inspect
-    "
-!
-
-storeBinaryDefinitionOn: stream manager: manager
-    "store a binary representation of the receiver on stream.
-     This is an internal interface for binary storage mechanism.
-     Redefined to store the actual bits, even if I have been loaded 
-     from a file, and to ommit all device related stuff."
-
-    |bits savedData savedDevice|
-
-    manager putIdOfClass:(self class) on:stream.
-    manager putIdOf:width on:stream.
-    manager putIdOf:height on:stream.
-    manager putIdOf:depth on:stream.
-    manager putIdOf:offset on:stream.
-    (bits := data) isNil ifTrue:[
-        bits := self bits.
-    ].
-    manager putIdOf:bits on:stream.
-
-"/    savedDevice := device.
-"/    (savedData := data) isNil ifTrue:[
-"/        data := self bits.
-"/    ].
-"/    device := nil.
-"/    super storeBinaryDefinitionOn:stream manager:manager.
-"/    data := savedData.
-"/    device := savedDevice.
-
-    "Modified: 23.4.1996 / 09:30:47 / cg"
-! !
 
 !Form methodsFor:'converting'!
 
@@ -2240,7 +2182,7 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.133 2006-02-20 09:54:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.134 2006-08-23 14:06:16 cg Exp $'
 ! !
 
 Form initialize!