Changeset 714 for trunk/src

Timestamp:

Feb 22, 2014, 5:11:04 PM (11 years ago)

Author:

sommeria

Message:

various improvements

Location:

trunk/src

Files:

• fullfile_uvmat.m (modified) (2 diffs)
• mouse_down.m (modified) (1 diff)
• mouse_motion.m (modified) (2 diffs)
• mouse_up.m (modified) (2 diffs)
• series.m (modified) (24 diffs)
• uigetfile_uvmat.m (modified) (2 diffs)
• uvmat.m (modified) (14 diffs)

trunk/src/fullfile_uvmat.m

@@ -37 +37 @@
 function filename=fullfile_uvmat(RootPath,SubDir,RootFile,FileExt,NomType,i1,i2,j1,j2)
     
-%% display help and test function in the absence of input arument
+%% display help and test function in the absence of input argument
 if ~exist('RootPath','var')
     help fullfile_uvmat;
@@ -115 +115 @@
     end
 end
-% if ~isempty(i2_str)||~isempty(j2_str)
-    filename=fullfile(RootPath,SubDir,RootFile);
-% else
-%     filename=fullfile(RootPath,RootFile);
-% end
+filename=fullfile(RootPath,SubDir,RootFile);
 filename=[filename sep1 i1_str sep2 i2_str sep3 j1_str sep4 j2_str];
 filename=[regexprep(filename,'_$','') FileExt];%suppress possible '_' at the end of the string and add the extension

trunk/src/mouse_down.m

@@ -31 +31 @@
 else
     hCurrentGUI=hObject; % handle of the current GUI: usual plot
+end
+if strcmp(get(hCurrentGUI,'Pointer'),'watch')
+    return % no action if a calculation is running
 end
 hhCurrentGUI=guidata(hCurrentGUI);% tags of the children of the current GUI

trunk/src/mouse_motion.m

@@ -25 +25 @@
 function mouse_motion(hObject,eventdata,handles)
 
-if ~exist('handles','var')
-    set(hCurrentFig,'Pointer','arrow');
-    return
-end
+% if ~exist('handles','var')
+%     set(hCurrentFig,'Pointer','arrow');
+%     return
+% end
 FigData=get(hObject,'UserData');
 if ishandle(FigData)% case of a zoom plot, the handle of the parent rectangle is stored in UserData, its parent is the plotting axes of the rectangle
@@ -34 +34 @@
 else
     hCurrentFig=hObject;%usual plot
+end
+if strcmp(get(hCurrentFig,'Pointer'),'watch')
+    return % no action if a calculation is running
 end
 hhCurrentFig=guidata(hCurrentFig);%handles of the elements in the GUI containing the current figure (uvmat or view_field)

trunk/src/mouse_up.m

@@ -127 +127 @@
     %% stop drawing and plot the projected field if the object manipulation is finished
     if check_multiple==0  || isequal(get(hcurrentfig,'SelectionType'),'alt')
+        pointer=get(hcurrentfig,'Pointer');%memorize the current pointer shape
+        set(hcurrentfig,'Pointer','watch')% set the pointer shape to watch to prevent further mouse action
         AxeData.CurrentOrigin=[]; %suppress the current origin
         hobject=UvData.ProjObject{IndexObj}.DisplayHandle.(FigTag);
@@ -175 +177 @@
             UvData.ProjObject{IndexObj}=rmfield(UvData.ProjObject{IndexObj},'CreateMode');%remove createMode to mark the object as finished
         end
+        set(hcurrentfig,'Pointer',pointer)% % revert the pointer shape to allow further mouse action
     else
         test_drawing=1;%allow continuation of drawing object

trunk/src/series.m

@@ -303 +303 @@
 %------------------------------------------------------------------------  
 function MenuBrowse_Callback(hObject, eventdata, handles)
-
 %% look for the previously opened file 'oldfile'
-oldfile=''; %default
-if get(handles.CheckAppend,'Value')
-    % case 'checkappend': new series appended to the input table
-    InputTable=get(handles.InputTable,'Data');
-    RootPathCell=InputTable(:,1);
-    SubDirCell=InputTable(:,3);
-    oldfile=''; %default
-    if ~(isempty(RootPathCell) || isequal(RootPathCell,{''}))%loads the previously stored file name and set it as default in the file_input box
-        oldfile=fullfile(RootPathCell{1},SubDirCell{1});
-    end
-else
-    % case refresh the input table by a new series
-    SeriesData=get(handles.series,'UserData');
-    if isfield(SeriesData,'RefFile')
-        oldfile=SeriesData.RefFile{1};
-    end
-end
+InputTable=get(handles.InputTable,'Data');
+oldfile=InputTable{1,1};
+if isempty(oldfile)
+    % use a file name stored in prefdir
+    dir_perso=prefdir;
+    profil_perso=fullfile(dir_perso,'uvmat_perso.mat');
+    if exist(profil_perso,'file')
+        h=load (profil_perso);
+        if isfield(h,'RootPath') && ischar(h.RootPath)
+            oldfile=h.RootPath;
+        end
+    end
+end
+%% launch the browser
+fileinput=uigetfile_uvmat('pick a file to append in the input table',oldfile);
+if ~isempty(fileinput)
+      display_file_name(handles,fileinput,'one')
+end
+
+% --------------------------------------------------------------------
+function MenuBrowseAppend_Callback(hObject, eventdata, handles)
+
+%% look for the previously opened file 'oldfile'
+InputTable=get(handles.InputTable,'Data');
+RootPathCell=InputTable(:,1);
+if isempty(RootPathCell{1})% no input file in the table
+     MenuBrowse_Callback(hObject, eventdata, handles)%refresh the input table, not append
+     return
+end
+SubDirCell=InputTable(:,2);
+oldfile=fullfile(RootPathCell{1},SubDirCell{1});
 
 %% use a file name stored in prefdir
@@ -336 +349 @@
 fileinput=uigetfile_uvmat('pick a file to append in the input table',oldfile);
 if ~isempty(fileinput)
-%     if get(handles.CheckAppend,'Value')
-%         display_file_name(handles,fileinput,'append')
-%     else
-        display_file_name(handles,fileinput,'one')
-%     end
-end
-
-% --------------------------------------------------------------------
-function MenuBrowseAppend_Callback(hObject, eventdata, handles)
-
-%% look for the previously opened file 'oldfile'
-InputTable=get(handles.InputTable,'Data');
-RootPathCell=InputTable(:,1);
-if isempty(RootPathCell{1})% no input file in the table
-     MenuBrowse_Callback(hObject, eventdata, handles)%refresh the input table, not append
-     return
-end
-SubDirCell=InputTable(:,2);
-% oldfile=''; %default
-% if ~(isempty(RootPathCell) || isequal(RootPathCell,{''}))%loads the previously stored file name and set it as default in the file_input box
-    oldfile=fullfile(RootPathCell{1},SubDirCell{1});
-% end
-
-%% use a file name stored in prefdir
-dir_perso=prefdir;
-profil_perso=fullfile(dir_perso,'uvmat_perso.mat');
-if exist(profil_perso,'file')
-    h=load (profil_perso);
-    if isfield(h,'RootPath') && ischar(h.RootPath)
-        oldfile=h.RootPath;
-    end
-end
-
-%% launch the browser
-fileinput=uigetfile_uvmat('pick a file to append in the input table',oldfile);
-if ~isempty(fileinput)
         display_file_name(handles,fileinput,'append')
 end
@@ -380 +357 @@
 function MenuFile_Callback(hObject, eventdata, handles)
 
-display_file_name(handles,get(hObject,'Label'),'one')
+errormsg=display_file_name(handles,get(hObject,'Label'),'one');
+if ~isempty(errormsg)
+    set(hObject,'Label','')
+    MenuFile=[{get(handles.MenuFile_1,'Label')};{get(handles.MenuFile_2,'Label')};...
+        {get(handles.MenuFile_3,'Label')};{get(handles.MenuFile_4,'Label')};{get(handles.MenuFile_5,'Label')}];
+    str_find=strcmp(get(hObject,'Label'),MenuFile);
+    MenuFile(str_find)=[];% suppress the input file to the list
+    for ifile=1:numel(MenuFile)
+        set(handles.(['MenuFile_' num2str(ifile)]),'Label',MenuFile{ifile});
+    end
+end
 
 %------------------------------------------------------------------------
@@ -546 +533 @@
     if ~exist(RootPath,'dir')
         i1_series=[];
-        RootPath=fileparts(RootPath); %will try the upped folder
-    else
+        RootPath=fileparts(RootPath); %will try the upper folder
+    else %scan the input folder
         [RootPath,SubDir,RootFile,i1_series,i2_series,j1_series,j2_series,tild,FileType,FileInfo,MovieObject]=...
             find_file_series(fullfile(InputTable{iview,1},InputTable{iview,2}),[InputTable{iview,3} InputTable{iview,4} InputTable{iview,5}]);
     end
+    % if no file is found, open a browser
     if isempty(i1_series)
         fileinput=uigetfile_uvmat(['wrong input at line ' num2str(iview) ':pick a new input file'],RootPath);
@@ -567 +555 @@
 %------------------------------------------------------------------------
 % --- Function called when a new file is opened, either by series_OpeningFcn or by the browser
-function display_file_name(handles,fileinput,iview)
+function errormsg=display_file_name(handles,fileinput,iview)
 %------------------------------------------------------------------------  
 %
@@ -576 +564 @@
 %       or 'one': refresh the list
 %         'append': add a new line to the input table
-
+set(handles.REFRESH,'BackgroundColor',[1 1 0])% set REFRESH  button to yellow color (indicate activation)
+drawnow
+errormsg='';%default
 %% get the input root name, indices, file extension and nomenclature NomType
 if ~exist(fileinput,'file')
-    msgbox_uvmat('ERROR',['input file ' fileinput  ' does not exist'])
+    errormsg=['input file ' fileinput  ' does not exist'];
+    msgbox_uvmat('ERROR',errormsg)
+    set(handles.REFRESH,'BackgroundColor',[1 0 0])% set REFRESH  button to red color (end of activation)
     return
 end
@@ -590 +582 @@
 if isempty(RootFile)&&isempty(i1_series)
     errormsg='no input file in the series';
+    msgbox_uvmat('ERROR',errormsg)
+    set(handles.REFRESH,'BackgroundColor',[1 0 0])% set REFRESH  button to red color (end of activation)
     return
 end
 if strcmp(FileType,'txt')
     edit(fileinput)
+    set(handles.REFRESH,'BackgroundColor',[1 0 0])% set REFRESH  button to red color (end of activation)
     return
 elseif strcmp(FileType,'xml')
     editxml(fileinput)
+    set(handles.REFRESH,'BackgroundColor',[1 0 0])% set REFRESH  button to red color (end of activation)
      return
 elseif strcmp(FileType,'figure')
     open(fileinput)
+    set(handles.REFRESH,'BackgroundColor',[1 0 0])% set REFRESH  button to red color (end of activation)
      return
 end
@@ -670 +667 @@
 set(handles.num_ref_j,'String',num2str(ref_j)); 
 
+%% update first and last indices if they do not exist
+Param=read_GUI(handles.series);
+first_j=[];
+if isfield(Param.IndexRange,'first_j'); first_j=Param.IndexRange.first_j; end
+last_j=[];
+if isfield(Param.IndexRange,'last_j'); last_j=Param.IndexRange.last_j; end
+[i1,i2,j1,j2] = get_file_index(Param.IndexRange.first_i,first_j,Param.IndexRange.PairString);
+FirstFileName=fullfile_uvmat(Param.InputTable{1,1},Param.InputTable{1,2},Param.InputTable{1,3},...
+    Param.InputTable{1,5},Param.InputTable{1,4},i1,i2,j1,j2);
+if ~exist(FirstFileName,'file')
+    set(handles.num_first_i,'String',num2str(ref_i))
+    set(handles.num_first_j,'String',num2str(ref_j))
+end
+[i1,i2,j1,j2] = get_file_index(Param.IndexRange.last_i,last_j,Param.IndexRange.PairString);
+LastFileName=fullfile_uvmat(Param.InputTable{1,1},Param.InputTable{1,2},Param.InputTable{1,3},...
+    Param.InputTable{1,5},Param.InputTable{1,4},i1,i2,j1,j2);
+if ~exist(LastFileName,'file')
+    set(handles.num_last_i,'String',num2str(ref_i))
+    set(handles.num_last_j,'String',num2str(ref_j))
+end
+
 %% update the list of recent files in the menubar and save it for future opening
 MenuFile=[{get(handles.MenuFile_1,'Label')};{get(handles.MenuFile_2,'Label')};...
@@ -699 +717 @@
 %% initiate input file series and refresh the current field view:     
 update_rootinfo(handles,i1_series,i2_series,j1_series,j2_series,FileType,FileInfo,MovieObject,iview);
+set(handles.REFRESH,'BackgroundColor',[1 0 0])% set REFRESH  button to red color (end of activation)
 
 %------------------------------------------------------------------------
@@ -722 +741 @@
     diff_j_max=diff(ref_j);
     diff_i_max=diff(ref_i);
-    
-%     pair_max=squeeze(max(i1_series,[],1)); %max on pair index
-%     j_max=max(pair_max,[],1);
-%     MinIndex_i=find(j_max, 1 )-1;% min ref index i detected in the series (corresponding to the first non-zero value of i1_series, except for zero index)
-%     MaxIndex_i=find(j_max, 1, 'last' )-1;% max ref index i detected in the series (corresponding to the first non-zero value of i1_series, except for zero index) 
-%     diff_i_max=diff(j_max);
     if ~isempty(diff_i_max) && isequal (diff_i_max,diff_i_max(1)*ones(size(diff_i_max)))
         set(handles.num_incr_i,'String',num2str(diff_i_max(1)))% detect an increment to dispaly by default
     end
-%     i_max=max(pair_max,[],2);
-%     MinIndex_j=min(find(i_max))-1;% min ref index j
-%     MaxIndex_j=max(find(i_max))-1;% max ref index j
-%     diff_j_max=diff(i_max);
     if isequal (diff_j_max,diff_j_max(1)*ones(size(diff_j_max)))
         set(handles.num_incr_j,'String',num2str(diff_j_max(1)))
@@ -973 +982 @@
     ind_select=find(file_indices<=numel(j_max{iview}));
     LineData(ind_select)=j_max{iview}(file_select)~=0;
-%     LineData=zeros(1,range_index);
-%     x_index=find(j_max{iview}>0)-MinIndex_i;
-%     LineData(x_index)=1;
-%     if numel(x)>1
-%         LineData
-    %LineData=interp1(x,LineData,xI,'nearest');
     CData(ind_y,:)=ones(size(ind_y'))*LineData;
-%     end
 end
 CData=cat(3,zeros(size(CData)),CData,zeros(size(CData)));%make color images r=0,g,b=0
@@ -1088 +1090 @@
 %------------------------------------------------------------------------
 SeriesData=get(handles.series,'UserData');%
-ref_i=[str2num(get(handles.num_first_i,'String')) str2num(get(handles.num_last_i,'String'))];
-ref_j=[str2num(get(handles.num_first_j,'String')) str2num(get(handles.num_last_j,'String'))];
+PairString=get(handles.PairString,'Data');
+ref_i_1=str2num(get(handles.num_first_i,'String'));%first reference index
+ref_i_2=str2num(get(handles.num_last_i,'String'));%last reference index
+ref_j_1=[];ref_j_2=[];
+if strcmp(get(handles.num_first_j,'Visible'),'on')
+ref_j_1=str2num(get(handles.num_first_j,'String'));
+ref_j_2=str2num(get(handles.num_last_j,'String'));
+end
+[i1_1,i2_1,j1_1,j2_1] = get_file_index(ref_i_1,ref_j_1,PairString);
+[i1_2,i2_2,j1_2,j2_2] = get_file_index(ref_i_2,ref_j_2,PairString);
 TimeTable=get(handles.TimeTable,'Data');
-Pairs=get(handles.PairString,'Data');
+
+%Pairs=get(handles.PairString,'Data');
 for iview=1:size(TimeTable,1)
     if size(SeriesData.Time,1)<iview
         break
     end
-    i1=ref_i;
-    j1=ref_j;
-    i2=ref_i;
-    j2=ref_j;
-    % case of pairs
-    if ~isempty(Pairs{iview,1})
-        r=regexp(Pairs{iview,1},'(?<mode>(Di=)|(Dj=)) -*(?<num1>\d+)\|(?<num2>\d+)','names');
-        if isempty(r)
-            r=regexp(Pairs{iview,1},'(?<num1>\d+)(?<mode>-)(?<num2>\d+)','names');
-        end
-        switch r.mode
-            case 'Di='  %  case 'series(Di)')
-                i1=ref_i-str2num(r.num1);
-                i2=ref_i+str2num(r.num2);
-            case 'Dj='  %  case 'series(Dj)'
-                j1=ref_j-str2num(r.num1);
-                j2=ref_j+str2num(r.num2);
-            case '-'  % case 'bursts'
-                j1=str2num(r.num1)*ones(size(ref_i));
-                j2=str2num(r.num2)*ones(size(ref_i));
-        end
-    end
     TimeTable{iview,2}=[];
     TimeTable{iview,3}=[];
-    if size(SeriesData.Time{iview},1)>=i2(2)+1&&size(SeriesData.Time{iview},2)>=j2(2)+1
-        if isempty(ref_j)
-            time_first=(SeriesData.Time{iview}(i1(1)+1)+SeriesData.Time{iview}(i2(1)+1))/2;
-            time_last=(SeriesData.Time{iview}(i1(2)+1)+SeriesData.Time{iview}(i2(2))+1)/2;
+    if size(SeriesData.Time{iview},1)>=i2_2+1 && (isempty(ref_j_1)||size(SeriesData.Time{iview},2)>=j2_2+1)
+        if isempty(ref_j_1)
+            time_first=(SeriesData.Time{iview}(i1_1+1,2)+SeriesData.Time{iview}(i2_1+1,2))/2;
+            time_last=(SeriesData.Time{iview}(i1_2+1,2)+SeriesData.Time{iview}(i2_2+1,2))/2;
         else
-            time_first=(SeriesData.Time{iview}(i1(1)+1,j1(1)+1)+SeriesData.Time{iview}(i2(1)+1,j2(1)+1))/2;
-            time_last=(SeriesData.Time{iview}(i1(2)+1,j1(2)+1)+SeriesData.Time{iview}(i2(2)+1,j2(2)+1))/2;
+            time_first=(SeriesData.Time{iview}(i1_1+1,j1_1+1)+SeriesData.Time{iview}(i2_1+1,j2_1+1))/2;
+            time_last=(SeriesData.Time{iview}(i1_2+1,j1_2+1)+SeriesData.Time{iview}(i2_2+1,j2_1+1))/2;
         end
         TimeTable{iview,2}=time_first; %TODO: take into account pairs
@@ -1137 +1126 @@
 MinIndex_i=min(get(handles.MinIndex_i,'Data'));
 MaxIndex_i=max(get(handles.MaxIndex_i,'Data'));
-pos_first=(ref_i(1)-MinIndex_i)/(MaxIndex_i-MinIndex_i+1);
-pos_last=(ref_i(2)-MinIndex_i+1)/(MaxIndex_i-MinIndex_i+1);
+pos_first=(ref_i_1-MinIndex_i)/(MaxIndex_i-MinIndex_i+1);
+pos_last=(ref_i_2-MinIndex_i+1)/(MaxIndex_i-MinIndex_i+1);
 Position=get(handles.Waitbar,'Position');% position of the waitbar:= [ x,y, width, height]
 Position_status=get(handles.FileStatus,'Position');
@@ -1145 +1134 @@
 set(handles.Waitbar,'Position',Position)
 update_waitbar(handles.Waitbar,0)
-
-% for iview=1:numel(SeriesData.i1_series)
-%     pair_max{iview}=squeeze(max(SeriesData.i1_series{iview},[],1)); %max on pair index
-%     if (strcmp(get(handles.num_first_j,'Visible'),'off')&& size(pair_max{iview},2)~=1)
-%         pair_max{iview}=squeeze(max(pair_max{iview},[],1)); % consider only the i index
-%     end
-%     pair_max{iview}=reshape(pair_max{iview},1,[]);
-%     index_min(iview)=find(pair_max{iview}>0, 1 );
-%     index_max(iview)=find(pair_max{iview}>0, 1, 'last' );
-% end
-% [index_min,iview_min]=min(index_min);
-% [index_max,iview_max]=min(index_max);
-% if size(SeriesData.i1_series{iview_min},2)==1% movie
-%     index_first=ref_i(1);
-%     index_last=ref_i(2);
-% else
-%     index_first=(ref_i(1)-1)*(size(SeriesData.i1_series{iview_min},1))+ref_j(1)+1;
-%     index_last=(ref_i(2)-1)*(size(SeriesData.i1_series{iview_max},1))+ref_j(2)+1;
-% end
-% range=index_max-index_min+1;
-% coeff_min=(index_first-index_min)/range;
-% coeff_max=(index_last-index_min+1)/range;
-% Position=get(handles.Waitbar,'Position');% position of the waitbar:= [ x,y, width, height]
-% Position_status=get(handles.FileStatus,'Position');
-% Position(1)=coeff_min*Position_status(3)+Position_status(1);
-% Position(3)=Position_status(3)*(coeff_max-coeff_min);
-% set(handles.Waitbar,'Position',Position)
-% update_waitbar(handles.Waitbar,0)
 
 %------------------------------------------------------------------------
@@ -2028 +1989 @@
 %% Activate the Action fct
 Param=read_GUI_series(handles);% read the parameters from the GUI series
-ParamOut=h_fun(Param);
+ParamOut=h_fun(Param);%run the selected Action function to get the relevant input
 
 %% Put the first line of the selected Action fct as tooltip help
@@ -2041 +2002 @@
 SeriesData=get(handles.series,'UserData');
 iview_civ=[];nb_netcdf=0;
-if ~isempty(SeriesData)
+if ~isempty(SeriesData)&&isfield(SeriesData,'FileType')
     iview_civ=find(strcmp('civx',SeriesData.FileType)|strcmp('civdata',SeriesData.FileType));
     nb_netcdf=numel(find(strcmp('netcdf',SeriesData.FileType)));
@@ -2117 +2078 @@
 InputFieldsVisible='off';%visibility of the frame Fields
 if isfield(ParamOut,'VelType')
-    if strcmp( ParamOut.VelType,'one')||strcmp( ParamOut.VelType,'two')
+    if strcmp( ParamOut.VelType,'on')||strcmp(ParamOut.VelType,'one')||strcmp( ParamOut.VelType,'two')
         if numel(iview_civ)>=1
             VelTypeVisible='on';
@@ -2138 +2099 @@
 FieldName_1Visible='off';  %hidden by default
 if isfield(ParamOut,'FieldName')
-    if strcmp( ParamOut.FieldName,'one')||strcmp( ParamOut.FieldName,'two')
+    if strcmp( ParamOut.FieldName,'on') || strcmp(ParamOut.FieldName,'one')||strcmp( ParamOut.FieldName,'two')
         if (numel(iview_civ)+nb_netcdf)>=1
             InputFieldsVisible='on';
@@ -2250 +2211 @@
 function ActionInput_Callback(hObject, eventdata, handles)
 %------------------------------------------------------------------------
-if get(handles.ActionInput,'Value')
-    ActionName_Callback(hObject, eventdata, handles)
-end
+% if get(handles.ActionInput,'Value')
+ActionName_Callback(hObject, eventdata, handles)
+% end
 
 %------------------------------------------------------------------------
@@ -2307 +2268 @@
                     set(handles.TimeName,'String',['var:' GetFieldData.Time.TimeName])
                     set(handles.NomType,'String','*')
-                    set(handles.RootFile,'String',[get(handles.RootFile,'String') get(handles.FileIndex,'String')])
+                    set(handles.RootFile,'String',[get(handles.RootFile,'String') get(handles.FileIndex,'String')])% A VERIFIER !!!!!!
                     set(handles.FileIndex,'String','')
                     ParamIn.TimeVarName=GetFieldData.Time.TimeName;
@@ -2696 +2657 @@
 %------------------------------------------------------------------------
 function MenuImportConfig_Callback(hObject, eventdata, handles)
-
+% SeriesData=get(handles.series,'UserData');
+% if isfield(SeriesData,'RefFile')
+%     oldfile=SeriesData.RefFile{1};
+% end
+%% use a strating file name for browserr
 InputTable=get(handles.InputTable,'Data');
-filexml=uigetfile_uvmat('pick a xml parameter file',InputTable{1,1},'.xml');% get the xml file containing processing parameters
+oldfile=InputTable{1,1};
+if isempty(oldfile)
+    % use a file name stored in prefdir
+    dir_perso=prefdir;
+    profil_perso=fullfile(dir_perso,'uvmat_perso.mat');
+    if exist(profil_perso,'file')
+        h=load (profil_perso);
+        if isfield(h,'RootPath') && ischar(h.RootPath)
+            oldfile=h.RootPath;
+        end
+    end
+end
+filexml=uigetfile_uvmat('pick a xml parameter file',oldfile,'.xml');% get the xml file containing processing parameters
 %proceed only if a file has been introduced by the browser
 if ~isempty(filexml)
@@ -2715 +2692 @@
     SeriesData=get(handles.series,'UserData');
     if isfield(Param,'ActionInput')%  introduce  parameters specific to an Action fct, for instance PIV parameters
-%         set(handles.ActionInput,'Visible','on')
-%         set(handles.ActionInput_title,'Visible','on')
         set(handles.ActionInput,'Visible','on')
         set(handles.ActionInput,'Value',0)
@@ -2737 +2712 @@
         set(handles.DeleteObject,'Visible','off')     
     end     
-%     set(handles.REFRESH,'Visible','on')
     set(handles.REFRESH,'BackgroundColor',[1 0 1]); %paint REFRESH button in magenta to indicate that it should be activated
-  %  REFRESH_Callback([],[],handles)% refresh data relative to the input files
 end
 
@@ -2802 +2775 @@
     OutputSubDir=[Param.OutputSubDir Param.OutputDirExt];% subdirectory for output files
     OutputDir=fullfile(RootPath,OutputSubDir);
-    uigetfile_uvmat('status_display',OutputDir)
+    if exist(OutputDir,'dir')
+        uigetfile_uvmat('status_display',OutputDir)
+    else
+        msgbox_uvmat('ERROR','output folder not created yet: calculation did not start')
+        set(handles.status,'BackgroundColor',[0 1 0])
+    end
 else
     %% delete current display fig if selection is off

trunk/src/uigetfile_uvmat.m

@@ -122 +122 @@
 %------------------------------------------------------------------------
 function OK_Callback(option,filter_ext,hObject,event)
+set(hObject,'backgroundColor',[1 1 0])% indicate button activation
 hfig=get(hObject,'parent');%handle of the fig
 htitlebox=findobj(hfig,'tag','titlebox');  % display the current dir name  
@@ -159 +160 @@
     end
 end
-
+set(hObject,'backgroundColor',[0 1 0])% indicate end button activation
 uiresume(get(hObject,'parent'))
 

trunk/src/uvmat.m

@@ -474 +474 @@
 %------------------------------------------------------------------------
 fileinput=get(hObject,'Label');
-    set(handles.SubField,'Value',0)
-    desable_subfield(handles)
-display_file_name( handles,fileinput)
-
+set(handles.SubField,'Value',0)
+desable_subfield(handles)
+errormsg=display_file_name( handles,fileinput);
+if ~isempty(errormsg)
+    set(hObject,'Label','')
+    MenuFile=[{get(handles.MenuFile_1,'Label')};{get(handles.MenuFile_2,'Label')};...
+        {get(handles.MenuFile_3,'Label')};{get(handles.MenuFile_4,'Label')};{get(handles.MenuFile_5,'Label')}];
+    str_find=strcmp(get(hObject,'Label'),MenuFile);
+    MenuFile(str_find)=[];% suppress the input file to the list
+    for ifile=1:numel(MenuFile)
+        set(handles.(['MenuFile_' num2str(ifile)]),'Label',MenuFile{ifile});
+    end
+end
 
 % -----------------------------------------------------------------------
@@ -616 +625 @@
 %------------------------------------------------------------------------   
 set(handles.InputFileREFRESH,'BackgroundColor',[1 1 0])% set button color to yellow to indicate that refresh is under action
+set(handles.uvmat,'Pointer','watch') % set the mouse pointer to 'watch'
+drawnow
 % read the current input file name:
 [RootPath,SubDir,RootFile,FileIndices,FileExt]=read_file_boxes(handles);
@@ -640 +651 @@
 
 if isempty(errormsg)
-set(handles.InputFileREFRESH,'BackgroundColor',[1 0 0])% set button color to red to indicate that refresh has been updated
+% set(handles.InputFileREFRESH,'BackgroundColor',[1 0 0])% set button color to red to indicate that refresh has been updated
 else
     set(handles.InputFileREFRESH,'BackgroundColor',[1 0 1])% keep button color magenta, input not succesfull
 end
+set(handles.uvmat,'Pointer','arrow')% set back the mouse pointer to arrow
 
 %------------------------------------------------------------------------ 
 % --- Fills the edit boxes RootPath, RootFile,NomType...from an input file name 'fileinput'
-function display_file_name(handles,fileinput,index)
+function errormsg=display_file_name(handles,fileinput,index)
 %------------------------------------------------------------------------
 %% look for the input file existence
+errormsg='';%default
 if ~exist(fileinput,'file')
-    msgbox_uvmat('ERROR',['input file ' fileinput  ' does not exist'])
+    errormsg=['input file ' fileinput  ' does not exist'];
+    msgbox_uvmat('ERROR',errormsg)
     return
 end
@@ -917 +931 @@
 NbSlice=1;%default
 ImaDoc_str='';
-set(handles.InputFileREFRESH,'BackgroundColor',[1 1 0])
 if ~isempty(XmlFileName)
     set(handles.view_xml,'Visible','on')
@@ -1148 +1161 @@
 set(handles.j2,'Visible',state_j)
 set(handles.MaxIndex_j,'Visible',state_j);
-%set(handles.frame_j,'Visible',state_j);
 set(handles.j_text,'Visible',state_j);
 if ~isempty(i2_series)||~isempty(j2_series)
@@ -1161 +1173 @@
     set(handles.TransformName,'value',2); % set transform to sub_field if the current fct doe not accept two input fields
 end
-TransformName_Callback([],[],handles)
+set(handles.InputFileREFRESH,'BackgroundColor',[1 0 0])% set button color to red to indicate that refresh has been updated
+TransformName_Callback([],[],handles)% callback for the selection of transform function, then refresh the current plot
 mask_test=get(handles.CheckMask,'value');
 if mask_test
@@ -2016 +2029 @@
 if ~isempty(errormsg)
       msgbox_uvmat('ERROR',errormsg);
+      set(handles.InputFileREFRESH,'BackgroundColor',[1 0 1])% keep button color magenta, input not succesfull
 else
     set(handles.i1,'BackgroundColor',[1 1 1])
@@ -2023 +2037 @@
     set(handles.FileIndex,'BackgroundColor',[1 1 1])
     set(handles.FileIndex_1,'BackgroundColor',[1 1 1])  
-    set(handles.REFRESH,'BackgroundColor',[1 0 0])
+    set(handles.REFRESH,'BackgroundColor',[1 0 0])% set button color to red, update successfull
 end    
 
@@ -2040 +2054 @@
 
 %% initialisation
+pointer=get(handles.uvmat,'Pointer');
+set(handles.uvmat,'Pointer','watch')
+drawnow
 if ~exist('Field','var')
     Field={};
@@ -2740 +2757 @@
 end
 ResizeFcn(handles.uvmat,[],handles)
+set(handles.uvmat,'Pointer',pointer)
 
 %------------------------------------------------------------------------
@@ -3579 +3597 @@
     set(handles.CheckEditObject,'Value',0)
     set(handles.CheckZoom,'Value',0)
-%     set(handles.CheckZoom,'BackgroundColor',[0.7 0.7 0.7])
-%     set(handles.CheckEditObject,'BackgroundColor',[0.7 0.7 0.7])
     set(gcf,'Pointer','arrow')
 else
@@ -3680 +3696 @@
 function TransformName_Callback(hObject, eventdata, handles)
 %------------------------------------------------------------------------
+set(handles.TransformName,'backgroundColor',[1 1 0])% indicate activation  of the menu
+drawnow
 UvData=get(handles.uvmat,'UserData');
 menu=get(handles.TransformName,'String');%refresh
@@ -3751 +3769 @@
         [fid,errormsg] =fopen([fullfile(list_path{ichoice},transform_name) '.m']);
         InputText=textscan(fid,'%s',1,'delimiter','\n');
-        fclose(fid)
+        fclose(fid);
         set(handles.TransformName,'ToolTipString',['transform_fct: ' InputText{1}{1}])% put the first line of the selected function as tooltip help
     end
@@ -3818 +3836 @@
 end
 set(handles.uvmat,'UserData',UvData)
+set(handles.TransformName,'backgroundColor',[1 1 1])% indicate desactivation  of the menu
+drawnow
 
 %% inputfilerefresh the current plot