author | Claus Gittinger <cg@exept.de> |
Mon, 06 May 2019 18:51:41 +0200 | |
changeset 4941 | 148b29bdda05 |
parent 4940 | d5d7391bc875 |
child 4942 | 9f424bed67c4 |
--- a/SharedCollection.st Sat May 04 12:32:23 2019 +0200 +++ b/SharedCollection.st Mon May 06 18:51:41 2019 +0200 @@ -200,6 +200,14 @@ "Modified: / 02-02-2017 / 11:40:56 / stefan" ! +last + ^ accessLock critical:[ + realCollection last + ]. + + "Created: / 06-05-2019 / 18:51:26 / Claus Gittinger" +! + notEmpty ^ accessLock critical:[ realCollection notEmpty