function simple_menu
  m(1) = uimenu('label','&File','Position',1,'accelerator','f');
    uimenu(m(1),'label','&Save As','enable','off');
    uimenu(m(1),'label','&Close','separator','on','callback','close(gcf)');
    uimenu(m(1),'label','E&xit','callback','quit','foregroundcolor','red');
  m(3) = uimenu('label','&Help','Position',3,'accelerator','h');
  m(2) = uimenu('label','&Edit','Position',2,'accelerator','e');
    uimenu(m(2),'label','&Grid','callback',@grid_cb);
    uimenu(m(2),'label','&Autoscale','callback',@axis_cb);
endfunction

function grid_cb()
  ax = get(gcf,'currentaxes');
  if (ax)
    if (strncmp (get (gca, 'xgrid'), 'on', 2))
      grid ('off');
      set(gcbo,'checked','off');
    else
      grid ('on');
      set(gcbo,'checked','on');
    endif
  endif
endfunction

function axis_cb()
  ax = get(gcf,'currentaxes');
  if (ax)
    axis('auto');
  endif
endfunction