src/unfinished/user.slate

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