SCClassLibrary/Common/Collections/Association.sc

   1 Association : Magnitude {
   2         var <>key, <>value;
   3
   4         *new { arg key, value;
   5                 ^super.newCopyArgs(key, value)
   6         }
   7
   8         == { arg anAssociation;
   9                 ^anAssociation respondsTo: \key and: { key == anAssociation.key }
  10         }
  11
  12         hash {
  13                 ^key.hash
  14         }
  15
  16         < { arg anAssociation;
  17                 ^key < anAssociation.key
  18         }
  19
  20         printOn { arg stream;
  21                 stream << "(" << key << " -> " << value << ")";
  22         }
  23         storeOn { arg stream;
  24                 stream << "(" <<< key << " -> " <<< value << ")";
  25         }
  26
  27         // Pattern support
  28         embedInStream { arg inval;
  29                 ^inval.add(this).yield;
  30         }
  31         transformEvent { arg event;
  32                 ^event.add(this);
  33         }
  34 }