--- a/ExternalStructure.st Wed Mar 23 14:25:59 2016 +0100
+++ b/ExternalStructure.st Wed Mar 23 14:35:58 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
@@ -149,17 +151,19 @@
!ExternalStructure methodsFor:'private'!
-fromExternalAddress:anExternalAddress
- self setAddress:(anExternalAddress address) size:(anExternalAddress size).
+fromExternalAddress:anExternalAddressOrExternalStructure
+ self
+ setAddress:(anExternalAddressOrExternalStructure address)
+ size:(anExternalAddressOrExternalStructure size).
! !
!ExternalStructure class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStructure.st,v 1.6 2015-02-09 11:52:18 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStructure.st,v 1.6 2015-02-09 11:52:18 cg Exp $'
+ ^ '$Header$'
! !