function nassub

% Načte a rozmístí text v okně "menu"


% Nacteni kapitol, podkapitol a obsahu kapitol
obsah;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Rozmisteni textu

lbhandl=findobj('Tag','Listbox1m');
set(lbhandl,'String',celek);
ctema=get(lbhandl,'Value');

pophandl=findobj(gcbf,'Tag','Listbox2');
subhandl=findobj(gcbf,'Tag','Listbox3m');

ct=num2str(ctema);
dc=double('d');
hc=double('h');
ctc=double(ct);
podkap=[dc ctc];
podkap=char(podkap);
podkaph=[dc ctc hc];
podkaph=char(podkaph);

set(subhandl,'Value',1);
set(pophandl,'String',eval(podkaph));
set(subhandl,'String',eval(podkap));

