function tst_uipushbutton ()
  global h_b;

  clc;
  close all;

  scrsz = get (0,'ScreenSize');
  src_y = scrsz(4);
  blatt = 900;
  src_p = src_y-blatt-50;
  wide  = 1100;
  pos   = blatt-10;
  figure (1);
  set (1,'Units','pixels','Position',[20 src_p wide blatt], ...
         'MenuBar','none','Color',[0.8 0.8 0.8],'Name','tst_uipushbutton', ...
         'resize','off')

  for ii=1:4
    h_b(ii) = uicontrol ('Style','pushbutton', ...
                         'Position',[10 pos-ii*30 30 30], ...
                         'string',num2str(ii),'FontSize',10, ...
                         'Callback','cb_uipushbutton');
end
