--- a/ExternalStructure.st	Tue Jun 20 17:26:29 2006 +0200
+++ b/ExternalStructure.st	Tue Jun 20 17:27:17 2006 +0200
@@ -61,14 +61,26 @@
 "
 ! !
 
+!ExternalStructure class methodsFor:'instance creation'!
+
+fromExternalAddress:anExternalAddress
+    ^ self new fromExternalAddress:anExternalAddress
+! !
+
 !ExternalStructure class methodsFor:'queries'!
 
 cType
     ^ cType
 ! !
 
+!ExternalStructure methodsFor:'private'!
+
+fromExternalAddress:anExternalAddress
+    self setAddress:(anExternalAddress address) size:(anExternalAddress size).
+! !
+
 !ExternalStructure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStructure.st,v 1.2 2006-05-05 12:44:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStructure.st,v 1.3 2006-06-20 15:27:17 ca Exp $'
 ! !