

%******************************************
%                 make selection
%******************************************

%*****SET  background*****

getsrc_plate=figure('Color',colorch, 'HandleVisibility','on', ...
        'Position',[850 534 200 200], 'Tag','Selection');

inputbak1  = uicontrol('style','frame','unit','norm','position',[0.0 0.7 1.0 0.3],...
                       'background',colorch);

gridtext = uicontrol('style','text','unit','norm','position',[0.1 0.73 0.8 0.25],...
                       'FontSize',14,'string','Please select source type:',...
                       'background',colorch,'hori','left');
%----------------------------------------------------------------------------------------

inputbak3  = uicontrol('style','frame','unit','norm','position',[0.0 0.3 1.0 0.4],...
                       'background',colorch);

sourcetypebut  = uicontrol('style','popup','unit','norm','position',[0.05 0.4 0.9 0.2],...
                       'string','Mogi (isotropic volume change)|Horizontal penny-shaped crack|Yang-Davis spheroid|Okada (rectangular dislocation)',...
                       'value',sourcedef);

%----------------------------------------------------------------------------------------

inputbak4  = uicontrol('style','frame','unit','norm','position',[0.0 0.0 1.0 0.3],...
                       'background',colorch);
inputbut4  = uicontrol('style','push','unit','norm','position',[0.15 0.05 0.7 0.2],...
                       'string','Continue','background',[0.5 0.5 0.6],'call','stack');
%----------------------------------------------------------------------------------------
%delete(getsrctype);
