%N ctrldef %F $MIR/src/subs/ctrl.for
%D Define a control panel button, etc.
%P jm
%: user-interaction, control-panel
%B
        subroutine CtrlDef(name,type,values,nvalues)

        implicit none
        integer nvalues
        character name*(*),type*(*),values(nvalues)*(*)

  This defines a particular button, etc, that is to appear on the
  control panel.

  Inputs:
    Name       The name of the item.
    type       The type.  This can be 'button','slider','cursor'.
    values     The values that the think can take on.
    nvalues    Number of values.
