# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1554972639 -7200
# Node ID 4f47ef98d6ad2dda61c1d2986a98ac7c3d3c884e
# Parent  a7b360193da53b517d07d3eee61687a738b806b1
#FEATURE by cg
class: ExternalAddress
added: #isValid

diff -r a7b360193da5 -r 4f47ef98d6ad ExternalAddress.st
--- a/ExternalAddress.st	Thu Apr 11 08:55:36 2019 +0200
+++ b/ExternalAddress.st	Thu Apr 11 10:50:39 2019 +0200
@@ -430,6 +430,18 @@
     "Modified: / 07-08-2006 / 15:16:32 / fm"
 ! !
 
+!ExternalAddress methodsFor:'queries'!
+
+isValid
+    "true if I have an address"
+
+%{  /* NOCONTEXT */
+    RETURN ((__INST(address_) == 0) ? false : true );
+%}
+
+    "Created: / 11-04-2019 / 10:50:31 / Claus Gittinger"
+! !
+
 !ExternalAddress methodsFor:'testing'!
 
 isExternalAddress