USING: sequences mortar slot-accessors ;
IN: geom.dim
SYMBOL: <dim>
<dim> { "dim" } accessors define-independent-class
<dim> {
"width" !( dim -- width ) [ $dim first ]
"height" !( dim -- second ) [ $dim second ]
} add-methods