Mercurial > octave-dspies
view examples/@polynomial/subsref.m @ 18710:584b20e9112c gui-release
use shortcut manager for the main help menu
* main_window.cc (add_action): new parameter for the signal receiver;
(construct_help_menu): use add_action for the actions of the menu;
(construct_documentation_menu): use add_action for the actions of the menu;
(set_global_shortcuts): set/unset shortcuts
* main-window.h: actions are class variables, add_action with new parameter
* shortcut-manager.cc (do_init_data): initialize the shortcuts in the help menu
author | Torsten <ttl@justmail.de> |
---|---|
date | Thu, 01 May 2014 12:12:08 +0200 |
parents | bf6da2fbfa4e |
children |
line wrap: on
line source
function b = subsref (a, s) if (isempty (s)) error ("polynomial: missing index"); endif switch (s(1).type) case "()" ind = s(1).subs; if (numel (ind) != 1) error ("polynomial: need exactly one index"); else b = polyval (fliplr (a.poly), ind{1}); endif case "{}" ind = s(1).subs; if (numel (ind) != 1) error ("polynomial: need exactly one index"); else if (isnumeric (ind{1})) b = a.poly(ind{1}+1); else b = a.poly(ind{1}); endif endif case "." fld = s.subs; if (strcmp (fld, "poly")) b = a.poly; else error ("@polynomial/subsref: invalid property \"%s\"", fld); endif otherwise error ("invalid subscript type"); endswitch if (numel (s) > 1) b = subsref (b, s(2:end)); endif endfunction