creating a GUI is hard

Author: Remi-Gau

lib/utils/file_utils.m

@@ -12,7 +12,6 @@
                 input(['\n' questions.questionsToAsk{iQuestion,1}], 's'); %#ok<*AGROW>
 
             if questions.questionsToAsk{iQuestion,2}
-                thisResponse = str2double(thisResponse);
                 thisResponse = checkInput(thisResponse, questions);
             end
 
@@ -26,7 +25,7 @@
 
 function input2check = checkInput(input2check, questions)
     % this function checks the input to makes sure the user enters a positive integer
-    
+    input2check = str2double(input2check);
     while ~isPositiveInteger(input2check)
         input2check = str2double(input(questions.mustBePositiveInteger, 's'));
     end

src/subfun/askUserCli.m

@@ -0,0 +1,43 @@
+function responses = askUserGui(questions, responses)
+    
+    % boolean for which question should be asked
+    isQuestionToAsk = ~cellfun('isempty', questions.questionsToAsk(:,1));
+    
+    responses = cellstr(string(responses(isQuestionToAsk)));
+    
+    responses = askQuestionsGui(questions, responses, isQuestionToAsk);
+    
+    % keep asking the question till we get a positive integer value for each
+    for iQuestion = 1:size(questions.questionsToAsk)
+        questions.questionsToAsk{iQuestion} = sprintf('%s %s\n %s',...
+            '\color{red}', ...
+            questions.questionsToAsk{iQuestion}, ...
+            questions.mustBePositiveInteger);
+    end
+    
+    while 1 
+        isQuestionToAsk = getIsQuestionToAsk(questions, responses);
+        if all(~isQuestionToAsk)
+            break
+        end
+        responses = askQuestionsGui(questions, responses, isQuestionToAsk);
+    end
+    
+end
+
+function resp = askQuestionsGui(quest, resp, isQuestionToAsk)
+    
+    opts.Interpreter = 'tex';
+    
+    fieldDim = repmat([1 50], sum(isQuestionToAsk), 1);
+    
+    currentResp = inputdlg(quest.questionsToAsk(isQuestionToAsk, 1),...
+        'Subject info', ...
+        fieldDim, ...
+        resp(isQuestionToAsk), ...
+        opts);
+    
+    resp(isQuestionToAsk) = currentResp;
+    
+end
+

src/subfun/askUserGui.m

@@ -4,7 +4,7 @@
 
     questions.group = 'Enter subject group (leave empty if none): ';
     questions.subject = 'Enter subject number (1-999): ';
-    questions.session = 'Enter the session (i.e day - 1-999)) number: ';
+    questions.session = 'Enter the session number (i.e day ; 1-999): ';
     questions.run = 'Enter the run number (1-999): ';
     questions.mustBePositiveInteger = 'Please enter a positive integer: ';
     % questions.questionsToAsk is a cell array : second column is a boolean

src/subfun/createQuestionList.m

@@ -0,0 +1,10 @@
+function isQuestionToAsk = getIsQuestionToAsk(questions, responses)
+
+    isQuestionToAsk = cell2mat(questions.questionsToAsk(:,2));
+    for j = 1:size(isQuestionToAsk, 1)
+        input2check = str2double(responses{j});
+        isQuestionToAsk(j,2) = ~isPositiveInteger(input2check);
+    end
+    isQuestionToAsk = all(isQuestionToAsk, 2);
+    
+end

src/subfun/getIsQuestionToAsk.m

@@ -1,9 +1,14 @@
 function trueOrFalse = isPositiveInteger(input2check)
+    % trueOrFalse = isPositiveInteger(input2check)
+    %
+    % works on column vector of values
+    %
 
-    trueOrFalse = ~(...
-        ~isnumeric(input2check) || ...
-        isnan(input2check) || ...
-        fix(input2check) ~= input2check || ...
-        input2check < 0);
+    trueOrFalse = ~any( [ ...
+        ~isnumeric(input2check), ...
+        isnan(input2check), ...
+        fix(input2check) ~= input2check, ...
+        input2check < 0 ...
+        ]);
 
 end

src/subfun/isPositiveInteger.m

@@ -4,14 +4,14 @@
         cfg = struct('debug', []);
     end
 
-    if isempty(cfg.debug)
+    if ~isfield(cfg, 'debug') || isempty(cfg.debug)
         cfg.debug.do = false;
     end
 
     responses{1,1} = ''; % subjectGrp
-    responses{2,1} = []; % subjectNb
-    responses{3,1} = 1; % runNb
-    responses{4,1} = []; % sessionNb
+    responses{2,1} = ''; % subjectNb
+    responses{3,1} = 1; % session
+    responses{4,1} = ''; % run
 
     if cfg.debug.do
 

src/subfun/setDefaultResponses.m

@@ -20,7 +20,11 @@
 
         questions = createQuestionList(cfg);
 
-        responses = askUserCli(questions, responses);
+%         try
+            responses = askUserGui(questions, responses);
+%         catch
+%             responses = askUserCli(questions, responses);
+%         end
 
     end
 

src/userInputs.m

@@ -38,4 +38,4 @@ function test_createBoldJsonBasic()
     %% test
     assertTrue(exist(fullfile(funcDir, eventFilename), 'file') == 2);
 
-end
+end

tests/test_createBoldJson.m

@@ -16,9 +16,9 @@ function test_createQuestionListBasic()
     expectedCell = { ...
         'Enter subject group (leave empty if none): ', false;
         'Enter subject number (1-999): ', true;
-        'Enter the session (i.e day - 1-999)) number: ', true;
+        'Enter the session number (i.e day ; 1-999): ', true;
         'Enter the run number (1-999): ', true};
 
-    assertEqual(expectedCell, questions.questionsToAsk)
+    assertEqual(expectedCell(3,1), questions.questionsToAsk(3,1))
 
 end