1 prototypes define: #User &parents: {Cloneable}
3 #convenientName -> '' "The user's common name."}.
5 User traits define: #lastID -> 0.
7 u@(User traits) new &name: convenientName
9 convenientName `defaultsTo: 'Slate Admin'.
10 u clone `>> [lastID := u lastID + 1. id := u lastID. convenientName := convenientName. ]
13 globals define: #CurrentUser -> User new.
15 u@(User traits) current
16 [globals CurrentUser].