author | Claus Gittinger <cg@exept.de> |
Thu, 11 Apr 2019 10:50:39 +0200 | |
changeset 24057 | 4f47ef98d6ad |
parent 24056 | a7b360193da5 |
child 24058 | 5ae2c27577c1 |
--- 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