SCClassLibrary/Common/Control/asGroup.sc

   1 + AbstractGroup {
   2         asGroup {}
   3 }
   4
   5 + Nil {
   6         asGroup {
   7                 ^Group.basicNew(this, 1)
   8         }
   9 }
  10 + Server {
  11         asGroup {
  12                 ^Group.basicNew(this, 1)
  13         }
  14 }
  15 + Synth {
  16         asGroup {
  17                 ^this.group
  18         }
  19 }
  20 + Integer {
  21         asGroup {
  22                 ^Group.basicNew(nil, this)
  23         }
  24 }