function spust;

set(gcf,'IntegerHandle','off')
set(gcf,'HandleVisibility','callback')

lbhandl=findobj('Tag','Listbox1m');
cdav=get(lbhandl,'Value');
cdavs=num2str(cdav);
davc=double('dav');
mc=double('.m');
cdavc=double(cdavs);
dav=[davc cdavc mc];

dav=char(dav);
%eval(dav);

lbhandl=findobj('Tag','Listbox3m');
cpk=get(lbhandl,'Value');
npk=get(lbhandl,'String');

nadhandl=findobj('Tag','Listbox1m');
cnad=get(nadhandl,'Value');
nnad=get(nadhandl,'String');


[s,ipndp,kom,jn]=nact(dav);


posh=findobj('Tag','vdmt');
if isempty(posh)


vdmtext;

set(gcf,'IntegerHandle','off')
set(gcf,'HandleVisibility','callback')

% aktivace Pushbuttonu Dale
dalehandl=findobj('Tag','PushbuttonDale');
set(max(dalehandl),'Enable','on');

[pkom,ppr,jn,poslcast]=tvor(cpk,ipndp,kom,s,jn);


% nastaveni komentare
handlkom=findobj('Tag','Listboxkom');
set(handlkom,'String',pkom);

% nastaveni nadpisu
handlnad=findobj('Tag','NazDav');
set(handlnad,'String',nnad(cnad));

% nastaveni podnadpisu
handlpodn=findobj('Tag','KapDav');
set(handlpodn,'String',npk(cpk));

% nastaveni casti
cast=1;
PorKhandl=findobj('Tag','PorKom');
castca=num2str(cast);
castnca=double('Část ');
castdca=double(castca);
castfa=[castnca castdca];
castfa=char(castfa);
set(PorKhandl,'String', castfa);

if poslcast == 1
  set(PorKhandl,'String', 'Poslední část');
end



save prom cpk ipndp kom s jn 
save ccast cast
save prik ppr

else
varov
end