#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Thu, 11 Apr 2019 10:50:39 +0200
changeset 24057 4f47ef98d6ad
parent 24056 a7b360193da5
child 24058 5ae2c27577c1
#FEATURE by cg class: ExternalAddress added: #isValid
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