%
% cutter button object def
%
% stack: button-count horiz vert button-step x y w h button-index
%
% create the entry for the ordinal button definition
%

!Cton.Button
!Cton.ButH
!Cton.ButW
!Cton.ButY
!Cton.ButX
!Cton.Step
!Cton.Vert
!Cton.Horiz
!Cton.Buttons

%
% add the button to the object lookup
%
_Cton.Objer _Cton.Object &"_" &_Cton.Button <?>
{
%
% add the button dimension summary
%
 "Cton.Buttons" sval
 "Cton.Horiz" sval
 "Cton.Vert" sval
 "Cton.Step" sval
 "Cton.ButX" sval
 "Cton.ButY" sval
 "Cton.ButW" sval
 "Cton.ButH" sval
 "Cton.Button" sval
 !Cton.Objer
} if