function fmristat_gui
%
% (c) 2001 : John Aston, Roger Gunn and Keith Worsley
%

Volume.version_no = 1.0;
Volume.savefile = '';

% Setup GUI objects

col1 = [0.2 0.6 0.9];
col2 = col1*0.9;
col3 = [1 1 1];
col4 = col2*1;
col5 = col1*.8;

h0 = figure('Units','normalized', ...
   'Color',col1, ...
   'Name','fMRIstat: Choose Program', ...
   'NumberTitle','off', ...
   'Position',[0.2 0.3 0.6 0.4], ...
   'Resize','off', ...
   'Tag','choose program');

screen = get(0,'ScreenSize');

comp=computer;
if strcmp(comp,'PCWIN')
   set(0,'DefaultTextFontSize',round((screen(3)-400)/200)+4);
   set(0,'DefaultTextFontName','Helvetica');
else
   set(0,'DefaultTextFontSize',round((screen(3)-400)/200)+8);
   set(0,'DefaultTextFontName','Helvetica');
end   

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
   'BackgroundColor', col2, ...
	'ListboxTop',0, ...
	'Position',[.05 .05 .6 .9], ...
	'Style','frame', ...
   'Tag','Frame1');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
   'BackgroundColor', col1, ...
   'FontName', 'Courier', ...
	'ListboxTop',0, ...
	'Position',[.7 .05 .25 .4], ...
   'String', strvcat(' ','    fMRIstat',' ','   John Aston','   Roger Gunn',' Chuanhong Liao','& Keith Worsley',' ',['   Version ' num2str(Volume.version_no) ]), ...
	'Style','text', ...
	'Tag','Text1');

ax1 = axes('Position',[.7 .475 .25 .425]);
[x,m] = imread('fmris.jpg');
imagesc(x);colormap(m);axis('image');axis('off');

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',col4, ...
	'CallBack', 'set(gcbf,''Visible'',''off'');Volume=get(gcf,''Userdata'');Volume.fig=gcbf;fmridesign_gui(Volume);', ...
	'ListboxTop',0, ...
	'Position',[0.1 0.75 0.5 0.05], ...
	'String','fMRIdesign', ...
   'Tag','Push1', ...
   'Value',0);

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',col4, ...
	'CallBack', 'set(gcbf,''Visible'',''off'');Volume=get(gcf,''Userdata'');Volume.fig=gcbf;fmrilm_gui(Volume);', ...
	'ListboxTop',0, ...
	'Position',[0.1 0.6 0.5 0.05], ...
	'String','fMRIlm', ...
   'Tag','Push1', ...
   'Value',0);

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',col4, ...
	'CallBack', 'set(gcbf,''Visible'',''off'');Volume=get(gcf,''Userdata'');Volume.fig=gcbf;multistat_gui(Volume);', ...
	'ListboxTop',0, ...
	'Position',[0.1 0.45 0.5 0.05], ...
	'String','MultiStat', ...
   'Tag','Push1', ...
   'Value',0);

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',col4, ...
	'CallBack', 'set(gcbf,''Visible'',''off'');Volume=get(gcf,''Userdata'');Volume.fig=gcbf;threshold_gui(Volume);', ...
	'ListboxTop',0, ...
	'Position',[0.1 0.3 0.5 0.05], ...
	'String','Threshold / LocMax', ...
   'Tag','Push1', ...
   'Value',0);

h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',col4, ...
	'CallBack', 'set(gcbf,''Visible'',''off'');Volume=get(gcf,''Userdata'');Volume.fig=gcbf;fmris_filegen_gui(Volume);', ...
	'ListboxTop',0, ...
	'Position',[0.1 0.15 0.5 0.05], ...
	'String','File List Generation', ...
   'Tag','Push1', ...
   'Value',0);


% Set up Paper Menu with appropriate pdf and html documents

h1 = uimenu(gcf,'Label','Related Papers');

uimenu(h1,'Label','Worsley et al. (2000)','CallBack','web(''http://www.math.mcgill.ca/keith/HBM2000/HBM2000.html'',''-browser'');');
uimenu(h1,'Label','Worsley et al. (2001)','CallBack','web(''http://www.math.mcgill.ca/keith/fmristat_paper/fmristat.pdf'',''-browser'');');
uimenu(h1,'Label','Liao et al. (2001)','CallBack','web(''http://www.math.mcgill.ca/keith/delay/delay.pdf'',''-browser'');');

h1 = uimenu(gcf,'Label','Related WebPages');
uimenu(h1,'Label','fMRIstat Web','CallBack','web(''http://www.math.mcgill.ca/keith/fmristat/'',''-browser'');');
uimenu(h1,'Label','fMRI at the BIC','CallBack','web(''http://www.bic.mni.mcgill.ca/~vali/fmri/'',''-browser'');');

set(gcf,'Userdata',Volume);