Changeset 624 for trunk/src/series/ima_levels.m

Timestamp:

Apr 29, 2013, 11:28:23 PM (11 years ago)

Author:

sommeria

Message:

waitbar system for series improved to aloow use as stand alone fcts.

to add at the head of series fcts:
hseries=findobj(allchild(0),'Tag','series');
RUNHandle=findobj(hseries,'Tag','RUN');%handle of RUN button in GUI series
WaitbarHandle?=findobj(hseries,'Tag','Waitbar');%handle of waitbar in GUI series

call to waitbar:

update_waitbar(WaitbarHandle?,index/nbfield)
if ishandle(RUNHandle) && ~strcmp(get(RUNHandle,'BusyAction?'),'queue')

disp('program stopped by user')
break

end

File:

• trunk/src/series/ima_levels.m (modified) (4 diffs)

trunk/src/series/ima_levels.m

@@ -75 +75 @@
 %%%%%%%%%%%% STANDARD PART (DO NOT EDIT) %%%%%%%%%%%%
 %% read input parameters from an xml file if input is a file name (batch mode)
-ParamOut=[]
+ParamOut=[];
 checkrun=1;
 if ischar(Param)
@@ -81 +81 @@
     checkrun=0;
 end
+hseries=findobj(allchild(0),'Tag','series');
+RUNHandle=findobj(hseries,'Tag','RUN');%handle of RUN button in GUI series
+WaitbarHandle=findobj(hseries,'Tag','Waitbar');%handle of waitbar in GUI series
+
+%% subdirectory for output files
+SubdirOut=[Param.OutputSubDir Param.OutputDirExt];
 
 %% root input file names and nomenclature type (cell arrays with one element)
@@ -89 +95 @@
 FileExt=Param.InputTable(:,5);
 
-%% subdirectory for output files
-SubdirOut=[Param.OutputSubDir Param.OutputDirExt];
 
 %% get the set of input file names (cell array filecell), and file indices
@@ -146 +150 @@
 j1=[];%default
 for ifile=1:nbfield
-    if checkrun
-        stopstate=get(Param.RUNHandle,'BusyAction');
-        update_waitbar(Param.WaitbarHandle,ifile/nbfield)
-    else
-        stopstate='queue';
+            update_waitbar(WaitbarHandle,index/nbfield)
+    if ishandle(RUNHandle) && ~strcmp(get(RUNHandle,'BusyAction'),'queue')
+        disp('program stopped by user')
+        return
     end
     if ~isequal(stopstate,'queue') % enable STOP command