%RRI_INPUT_CONDITION_UI Form to input conditions % % Usage: [new_condition, subj_files, reselect_subj] = ... % rri_input_condition_ui(condition, old_subj_files); % % See also PLS_INPUT_CONDITION_UI % % I (condition) - old conditions cell array, or action word call recursively % I (old_subj_files) - saved subj_files % O (new_condition) - new conditions cell array % O (subj_files) - A row vector containing the images file name. % % Modified on 26-SEP-2002 by Jimmy Shen % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function [new_condition, subj_files, reselect_subj] = ... rri_input_condition_ui(varargin) if nargin == 0 old_conditions = []; end; if nargin == 0 | ~ischar(varargin{1}) old_conditions = varargin{1}; old_subj_files = varargin{2}; init(old_conditions, old_subj_files); uiwait; % wait for user finish new_condition = getappdata(gcf,'CurrConditions'); subj_files = getappdata(gcf,'subj_files'); reselect_subj = getappdata(gcf,'reselect_subj'); close(gcf); return; end; % clear the message line, % h = findobj(gcf,'Tag','MessageLine'); set(h,'String',''); action = upper(varargin{1}); if strcmp(action,'UPDATE_CONDITION'), UpdateCondition; elseif strcmp(action,'DELETE_CONDITION'), DeleteCondition; elseif strcmp(action,'ADD_CONDITION'), AddCondition; elseif strcmp(action,'MOVE_SLIDER'), MoveSlider; elseif strcmp(action,'DELETE_FIG') delete_fig; elseif strcmp(action,'CANCEL_BUTTON_PRESSED'), old_conditions = getappdata(gcf,'OldConditions'); old_subj_files = getappdata(gcf,'old_subj_files'); setappdata(gcf,'CurrConditions',old_conditions); setappdata(gcf,'subj_files',old_subj_files); setappdata(gcf,'reselect_subj',0); uiresume; elseif strcmp(action,'DONE_BUTTON_PRESSED'), uiresume; end; return; %---------------------------------------------------------------------------- function init(old_conditions, old_subj_files) save_setting_status = 'on'; input_condition_pos = []; try load('pls_profile'); catch end if ~isempty(input_condition_pos) & strcmp(save_setting_status,'on') pos = input_condition_pos; else w = 0.6; h = 0.7; x = (1-w)/2; y = (1-h)/2; pos = [x y w h]; end h0 = figure('Color',[0.8 0.8 0.8], ... 'Units','normal', ... 'Name','Edit Condition', ... 'MenuBar','none', ... 'NumberTitle','off', ... 'deletefcn','rri_input_condition_ui(''DELETE_FIG'');', ... 'Position',pos, ... 'WindowStyle', 'modal', ... 'Tag','InputCondition', ... 'ToolBar','none'); % 'DoubleBuffer', 'on', ... % 'Renderer', 'OpenGL', ... x = 0.06; y = 0.9; w = 1; h = 0.06; pos = [x y w h]; c = uicontrol('Parent',h0, ... 'Style','text', ... 'Units','normal', ... 'BackgroundColor',[0.8 0.8 0.8], ... 'FontUnits','normal', ... 'FontSize',0.6, ... 'FontName', 'FixedWidth', ... 'FontAngle','italic', ... 'FontWeight','bold', ... 'HorizontalAlignment','left', ... 'ListboxTop',0, ... 'Position',pos, ... 'String','Conditions: ', ... 'Tag','ConditionTitleLabel'); x = 0.03; y = 0.83; w = 0.07; pos = [x y w h]; c_h1 = uicontrol('Parent',h0, ... % condition idx 'Style','text', ... 'Units','normal', ... 'BackgroundColor',[0.8 0.8 0.8], ... 'FontUnits','normal', ... 'FontSize',0.5, ... 'HorizontalAlignment','right', ... 'ListboxTop',0, ... 'Position',pos, ... 'String','1.', ... 'Tag','ConditionIdxLabel'); x = x+w+0.01; w = 0.63; pos = [x y w h]; c_h2 = uicontrol('Parent',h0, ... % condition name 'Style','edit', ... 'Units','normal', ... 'BackgroundColor',[1 1 1], ... 'FontUnits','normal', ... 'FontSize',0.5, ... 'HorizontalAlignment','left', ... 'ListboxTop',0, ... 'Position',pos, ... 'String','', ... 'tooltip','Click Add button when finish', ... 'Tag','ConditionNameEdit'); x = x+w+0.01; w = 0.12; pos = [x y w h]; c_h3 = uicontrol('Parent',h0, ... % condition button 'Units','normal', ... 'Position',pos, ... 'FontUnits','normal', ... 'FontSize',0.5, ... 'ListboxTop',0, ... 'String','Add', ... 'Tag','ADD/DELButton'); x = x+w+0.02; w = 0.04; pos = [x y w h]; h1 = uicontrol('Parent',h0, ... % scroll bar 'Style', 'slider', ... 'Units','normal', ... 'Min',1, ... 'Max',20, ... 'Value',20, ... 'Position',pos, ... 'Callback','rri_input_condition_ui(''MOVE_SLIDER'');', ... 'Tag','CondSlider'); x = 0.11; y = 0.08; w = 0.2; pos = [x y w h]; h1 = uicontrol('Parent',h0, ... % DONE 'Units','normal', ... 'Callback','', ... 'FontUnits','normal', ... 'FontSize',0.5, ... 'ListboxTop',0, ... 'Position',pos, ... 'String','DONE', ... 'Callback','rri_input_condition_ui(''DONE_BUTTON_PRESSED'');', ... 'Tag','DONEButton'); x = 0.67; pos = [x y w h]; h1 = uicontrol('Parent',h0, ... % CANCEL 'Units','normal', ... 'Callback','', ... 'FontUnits','normal', ... 'FontSize',0.5, ... 'ListboxTop',0, ... 'Position',pos, ... 'String','CANCEL', ... 'Callback','rri_input_condition_ui(''CANCEL_BUTTON_PRESSED'');', ... 'Tag','CANCELButton'); x = 0.01; y = 0; w = 1; pos = [x y w h]; h1 = uicontrol('Parent',h0, ... % Message Line 'Style','text', ... 'Units','normal', ... 'BackgroundColor',[0.8 0.8 0.8], ... 'ForegroundColor',[0.8 0.0 0.0], ... 'FontUnits','normal', ... 'FontSize',0.5, ... 'HorizontalAlignment','left', ... 'Position',pos, ... 'String','', ... 'Tag','MessageLine'); cond1_hdls = [c_h1,c_h2,c_h3]; % save handles for condition#1 setappdata(h0,'Cond_hlist',cond1_hdls); cond_template = copyobj(cond1_hdls,h0); set(cond_template,'visible','off'); setappdata(h0,'OldConditions',old_conditions); setappdata(h0,'CurrConditions',old_conditions); setappdata(h0,'ConditionTemplate',cond_template); cond_h = 0.06; setappdata(h0,'ConditionHeight', cond_h); lower_h = 0.01; % vert. space for Number of rows etc. setappdata(h0,'lower_h',lower_h); setappdata(h0,'TopConditionIdx',1); setappdata(h0,'ConditionMap',[1:length(old_conditions)]); setappdata(h0,'old_subj_files', old_subj_files); setappdata(h0,'subj_files', old_subj_files); setappdata(h0,'reselect_subj',0); SetupConditionRows; SetupSlider; CreateAddRow; DisplayConditions; UpdateSlider; return; % init %---------------------------------------------------------------------------- function SetupConditionRows() cond_hdls = getappdata(gcf,'Cond_hlist'); cond_h = getappdata(gcf,'ConditionHeight'); lower_h = getappdata(gcf,'lower_h'); bottom_pos = get(findobj(gcf,'Tag','DONEButton'),'Position'); top_pos = get(cond_hdls(1,2),'Position'); rows = floor(( top_pos(2) - bottom_pos(2) - lower_h ) / cond_h); % A row of vertical positions, at which the 13 4-controls will be located. v_pos = top_pos(2) - [0:rows-1]*cond_h; cond_template = getappdata(gcf,'ConditionTemplate'); edit_cbf = 'rri_input_condition_ui(''UPDATE_CONDITION'');'; delete_cbf = 'rri_input_condition_ui(''DELETE_CONDITION'');'; nr = size(cond_hdls,1); % nr = 1 for the initial if (rows < nr) % too many rows for i=rows+1:nr, delete(cond_hdls(i,:)); end; cond_hdls = cond_hdls(1:rows,:); else % add new rows to 'rows' amount for i=nr+1:rows, new_c_hdls = copyobj(cond_template,gcf); cond_hdls = [cond_hdls; new_c_hdls']; end; end v = 'off'; for i=1:rows % take out the handle list created above, and use it in the following 'label,edit,delete'. % those handles are valid, since they are all obtained from function copyobj() above. new_c_hdls = cond_hdls(i,:); % init label pos = get(new_c_hdls(1),'Position'); pos(2) = v_pos(i)-0.01; set(new_c_hdls(1),'String','','Position',pos,'Visible',v,'UserData',i); % init each edit box setup, insert callback property while doing setup pos = get(new_c_hdls(2),'Position'); pos(2) = v_pos(i); set(new_c_hdls(2),'String','', 'Position',pos, 'Visible',v, ... 'UserData',i,'Callback',edit_cbf); % init each delete button setup, insert callback property while doing setup pos = get(new_c_hdls(3),'Position'); pos(2) = v_pos(i); set(new_c_hdls(3),'String','Delete','Position',pos,'Visible',v, ... 'UserData',i,'Callback',delete_cbf); end setappdata(gcf,'Cond_hlist',cond_hdls); setappdata(gcf,'NumRows',rows); return; % SetupConditionRows %---------------------------------------------------------------------------- function DisplayConditions() curr_cond = getappdata(gcf,'CurrConditions'); top_cond_idx = getappdata(gcf,'TopConditionIdx'); cond_hdls = getappdata(gcf,'Cond_hlist'); rows = getappdata(gcf,'NumRows'); num_cond = length(curr_cond); cond_idx = top_cond_idx; last_row = 0; for i=1:rows c_hdls = cond_hdls(i,:); if (cond_idx <= num_cond), set(c_hdls(1),'String',sprintf('%d.',cond_idx),'Visible','on'); set(c_hdls(2),'String',sprintf('%s',curr_cond{cond_idx}), ... 'Visible','on'); set(c_hdls(3),'String','Delete','Visible','on'); cond_idx = cond_idx + 1; last_row = i; else set(c_hdls(1),'String','','Visible','off'); set(c_hdls(2),'String','','Visible','off'); set(c_hdls(3),'String','Delete','Visible','off'); end; end; % display or hide the add row % if (last_row < rows) row_idx = last_row+1; c_hdls = cond_hdls(row_idx,:); pos = get(c_hdls(2),'Position'); ShowAddRow(cond_idx,pos(2),row_idx); else HideAddRow; end; % display or hide the slider % if (top_cond_idx ~= 1) | (last_row == rows) ShowSlider; else HideSlider; end; return; % DisplayConditions %---------------------------------------------------------------------------- function CreateAddRow() cond_template = getappdata(gcf,'ConditionTemplate'); a_hdls = copyobj(cond_template,gcf); set(a_hdls(1),'String','','Foreground',[0.4 0.4 0.4],'Visible','off', ... 'UserData',1); set(a_hdls(2),'String','','Enable','on','Background',[1 1 1], ... 'Visible','off'); set(a_hdls(3),'String','Add','Visible','off', ... 'Callback','rri_input_condition_ui(''ADD_CONDITION'');'); setappdata(gcf,'AddRowHdls',a_hdls); return; % CreateAddRow %---------------------------------------------------------------------------- function ShowAddRow(cond_idx,v_pos,row_idx) % % Add row with 'Add' button at 'v_pos' position % Also display the subject row number, with its 'UserData' updated with row_idx % a_hdls = getappdata(gcf,'AddRowHdls'); for j=1:length(a_hdls), new_pos = get(a_hdls(j),'Position'); if j==1 new_pos(2) = v_pos-0.01; else new_pos(2) = v_pos; end set(a_hdls(j),'Position',new_pos); set(a_hdls(j),'Visible','on'); end; set(a_hdls(2),'String',''); set(a_hdls(1),'Visible','On','String',sprintf('%d.',cond_idx),'UserData',row_idx); return; % ShowAddRow %---------------------------------------------------------------------------- function HideAddRow() a_hdls = getappdata(gcf,'AddRowHdls'); for j=1:length(a_hdls), set(a_hdls(j),'Visible','off'); end; return; % HideAddRow %---------------------------------------------------------------------------- function UpdateCondition(cond_idx) curr_cond = getappdata(gcf,'CurrConditions'); cond_hdls = getappdata(gcf,'Cond_hlist'); row_idx = get(gcbo,'UserData'); cond_idx = str2num(get(cond_hdls(row_idx,1),'String')); curr_cond{cond_idx} = get(gcbo,'String'); setappdata(gcf,'CurrConditions',curr_cond); return; % UpdateCondition %---------------------------------------------------------------------------- function DeleteCondition() curr_cond = getappdata(gcf,'CurrConditions'); cond_hdls = getappdata(gcf,'Cond_hlist'); subj_files = getappdata(gcf,'subj_files'); row_idx = get(gcbo,'UserData'); cond_idx = str2num(get(cond_hdls(row_idx,1),'String')); mask = ones(1,length(curr_cond)); mask(cond_idx) = 0; idx = find(mask == 1); curr_cond = curr_cond(idx); if ~isempty(subj_files) subj_files = subj_files(idx,:); end setappdata(gcf,'subj_files',subj_files); setappdata(gcf,'CurrConditions',curr_cond); DisplayConditions; UpdateSlider; return; % DeleteCondition %---------------------------------------------------------------------------- function AddCondition() subj_files = getappdata(gcf,'subj_files'); if ~isempty(subj_files) setappdata(gcf,'reselect_subj',1); end curr_cond = getappdata(gcf,'CurrConditions'); rows = getappdata(gcf,'NumRows'); a_hdls = getappdata(gcf,'AddRowHdls'); cond_idx = str2num(get(a_hdls(1),'String')); condname = get(a_hdls(2),'String'); num_cond = length(curr_cond); if isempty(condname) msg = 'ERROR: All conditions must have name specified.'; set(findobj(gcf,'Tag','MessageLine'),'String',msg); setappdata(gcf,'reselect_subj',0); return; end; for i=1:num_cond if(strcmp(curr_cond{i},condname)) msg = 'ERROR: No conditions should be duplicated.'; set(findobj(gcf,'Tag','MessageLine'),'String',msg); setappdata(gcf,'reselect_subj',0); return; end; end num_cond = num_cond + 1; curr_cond{num_cond} = condname; setappdata(gcf,'CurrConditions',curr_cond); new_cond_row = get(a_hdls(1),'UserData'); if (new_cond_row == rows), % the new condition row is the last row top_cond_idx = getappdata(gcf,'TopConditionIdx'); setappdata(gcf,'TopConditionIdx',top_cond_idx+1); end; subj_files = getappdata(gcf,'subj_files'); if ~isempty(subj_files) % all the 4 lines below are another approach % % old_condnum = size(subj_files,1); % mask = [linspace(1,old_condnum,old_condnum)';old_condnum]; % subj_files = subj_files(mask,:); % setappdata(gcf,'subj_files',subj_files); % all the 4 lines below are one approach % old_subjnum = size(subj_files,2); new_row = {' '}; new_row = repmat(new_row, [1,old_subjnum]); setappdata(gcf,'subj_files',[subj_files;new_row]); end DisplayConditions; cond_hdls = getappdata(gcf,'Cond_hlist'); if (new_cond_row == rows), % the new condition row is the last row set(gcf,'CurrentObject',cond_hdls(rows-1,2)); else set(gcf,'CurrentObject',cond_hdls(new_cond_row,2)); end; UpdateSlider; return; % AddConditions %---------------------------------------------------------------------------- function MoveSlider() slider_hdl = findobj(gcf,'Tag','CondSlider'); curr_value = round(get(slider_hdl,'Value')); total_rows = round(get(slider_hdl,'Max')); top_cond_idx = total_rows - curr_value + 1; setappdata(gcf,'TopConditionIdx',top_cond_idx); DisplayConditions; return; % MoveSlider %---------------------------------------------------------------------------- function SetupSlider() cond_hdls = getappdata(gcf,'Cond_hlist'); top_pos = get(cond_hdls(1,3),'Position'); bottom_pos = get(cond_hdls(end,3),'Position'); slider_hdl = findobj(gcf,'Tag','CondSlider'); pos = get(slider_hdl,'Position'); pos(2) = bottom_pos(2); pos(4) = top_pos(2)+top_pos(4) - pos(2); set(slider_hdl,'Position', pos); return; % SetupSlider %---------------------------------------------------------------------------- function UpdateSlider() top_cond_idx = getappdata(gcf,'TopConditionIdx'); rows = getappdata(gcf,'NumRows'); curr_cond = getappdata(gcf,'CurrConditions'); num_cond = length(curr_cond); total_rows = num_cond+1; slider_hdl = findobj(gcf,'Tag','CondSlider'); if (num_cond ~= 0) % don't need to update when no condition set(slider_hdl,'Min',1,'Max',total_rows, ... 'Value',total_rows-top_cond_idx+1, ... 'Sliderstep',[1/(total_rows-1)-0.00001 1/(total_rows-1)]); end; return; % UpdateSlider %---------------------------------------------------------------------------- function ShowSlider() slider_hdl = findobj(gcf,'Tag','CondSlider'); set(slider_hdl,'visible','on'); return; % ShowSlider %---------------------------------------------------------------------------- function HideSlider() slider_hdl = findobj(gcf,'Tag','CondSlider'); set(slider_hdl,'visible','off'); return; % HideSlider %---------------------------------------------------------------------------- function delete_fig try load('pls_profile'); pls_profile = which('pls_profile.mat'); input_condition_pos = get(gcbf,'position'); save(pls_profile, '-append', 'input_condition_pos'); catch end return;