src/lib/singleSet.slate

   1 collections define: #SingleSet &parents: {NoDuplicatesCollection}
   2   &slots: {#element -> Nil}.
   3 "SingleSets are collections which are only supposed to contain exactly one
   4 elements or be empty."
   5
   6 ss@(SingleSet traits) accepts: _@Nil
   7 [False].
   8
   9 ss@(SingleSet traits) new
  10 [ss clone `setting: #{#element} to: {Nil}].
  11
  12 ss@(SingleSet traits) do: block
  13 [
  14   block applyWith: ss element
  15 ].
  16
  17 ss@(SingleSet traits) reverseDo: block
  18 [
  19   block applyWith: ss element
  20 ].
  21
  22 ss@(SingleSet traits) isEmpty
  23 [
  24   ss element isNil
  25 ].
  26
  27 ss@(SingleSet traits) add: obj
  28 [
  29   ss element ifNil: [ss element := obj]
  30 ].
  31
  32 ss@(SingleSet traits) remove: obj
  33 [
  34   ss element = obj ifTrue: [ss element := Nil]
  35 ].