extra/geom/dim/dim.factor

   1
   2 USING: sequences mortar slot-accessors ;
   3
   4 IN: geom.dim
   5
   6 SYMBOL: <dim>
   7
   8 <dim> { "dim" } accessors define-independent-class
   9
  10 <dim> {
  11
  12 "width" !( dim -- width ) [ $dim first ]
  13
  14 "height" !( dim -- second ) [ $dim second ]
  15
  16 } add-methods