function status = TernMenu(self)

if nargin < 1
   theUI = gcf;
  else
   theUI = DoGetUI(self);
end

h = findobj(theUI, 'Type', 'uimenu', 'Label', 'Tern');
if any(h), delete(h), end

NewMenu(theUI, 'Tern', ...
               '>Box', ...
               '>Grid', ...
               '>Tics', ...
               '-Rotate', ...
               '>>CCW 3', ...
               '>>CW 3', ...
               '->CCW 4', ...
               '>>CW 4', ...
               '>Flip', ...
               '-Ternary View')
