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

Timestamp:

Apr 29, 2013, 11:28:23 PM (12 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/sub_background.m (modified) (3 diffs)

trunk/src/series/sub_background.m

@@ -187 +187 @@
     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
 %% Input preparation
 nbaver_ima=Param.ActionInput.SlidingSequenceLength;
@@ -364 +366 @@
 if nbfield_i > nbaver_ima
     for ifield = step*ceil(nbaver/2)+1:step:nbfield_i-step*floor(nbaver/2)
-        if checkrun
-            stopstate=get(Param.RUNHandle,'BusyAction');
-            update_waitbar(Param.WaitbarHandle,ifield/nbfield_i)
-        else
-            stopstate='queue';
-        end
-        if isequal(stopstate,'queue')% enable STOP command
+                update_waitbar(WaitbarHandle,ifield/nbfield_i)
+    if ishandle(RUNHandle) && ~strcmp(get(RUNHandle,'BusyAction'),'queue')
+        disp('program stopped by user')
+        return
+    end
+%         if isequal(stopstate,'queue')% enable STOP command
             Ak(:,:,1:nbaver_ima-step)=Ak(:,:,1+step:nbaver_ima);% shift the current image series by one burst (step)
             %incorporate next burst in the current image series
@@ -409 +410 @@
                 
             end
-        else
-            return
-        end
+%         else
+%             return
+%         end
     end
 end