et cursor to normal before zoom and pan callback

  in case where user is in QC callback (pointer crosshair), action on zoom or pan callback
  desactive QC mode but set pointer to crosshair at exit.
Change some comment and smart ident

M    tsgqc_GUI.m

tsgqc_GUI.m

@@ -588,6 +588,10 @@ end
   %----------------------------------------------------------------------
   function Zoom_OnMenuCallback(hObject, eventdata)
     
+    % cursor back to normal
+    % ---------------------
+    set(hMainFig,'Pointer','arrow');
+    
     % returns a zoom mode object for the figure hMainFig handle
     % --------------------------------------------------------
     hZoom = zoom(hMainFig);
@@ -606,6 +610,7 @@ end
     % -----------------------------------------
     set(hQCToggletool,  'state', 'off' );
     set(hPanToggletool, 'state', 'off' );
+    
   end
 
   %----------------------------------------------------------------------
@@ -628,6 +633,10 @@ end
   %----------------------------------------------------------------------
   function Pan_OnMenuCallback(hObject, eventdata)
     
+    % cursor back to normal
+    % ---------------------
+    set(hMainFig,'Pointer','arrow');
+    
     % Returns a pan mode object for the figure handle
     % -----------------------------------------------
     hPan = pan(hMainFig);
@@ -664,6 +673,7 @@ end
     % cursor back to normal
     % ---------------------
     set(hMainFig,'Pointer','arrow');
+    
   end
 
   %----------------------------------------------------------------------
@@ -740,118 +750,10 @@ end
       % enable ButtonMotion on main fig after select QC area
       % ----------------------------------------------------
       set( hMainFig, 'WindowButtonMotionFcn', @MouseMotion);
-
     end
+    
   end
 
-% %----------------------------------------------------------------------
-%   function QCMenuCallback_old(gcbo, eventdata,handles)
-%     % Callback function run when the QC pushbutton is selected
-% 
-%     % Desactivate the Zoom and Pan functions.
-%     % ---------------------------------------
-%     zoom off; pan off
-%     panAdaptiveDateTicks('off');zoomAdaptiveDateTicks('off');
-% 
-%     % Toggle the tag of the Qc pushbutton to 'on' or 'off'
-%     % ----------------------------------------------------
-%     switch get(hQCToggletool, 'UserData');
-%       case 'off'
-%         set(hQCToggletool, 'UserData', 'on' );
-%         set(hPlotAxes(1),'UIContextMenu', hQcCmenu);
-%         set( hMainFig, 'Pointer', 'crosshair');
-%       case 'on'
-%         set(hQCToggletool, 'UserData', 'off' );
-%         set(hPlotAxes(1),'UIContextMenu', []);
-%         set(hMainFig,'Pointer','arrow');
-%     end
-% 
-%     qualityCode = -1;
-%     ind = [];
-%     while strcmp( get(hQCToggletool, 'UserData'),'on')
-% 
-%       k = waitforbuttonpress;
-% 
-%       % If the QC pushbutton is pressed we quit the callback
-%       % ----------------------------------------------------
-%       if strcmp( get(hQCToggletool, 'UserData'),'off')
-% 
-%         % Desactivate the context menu use to choose the Quality Codes
-%         % ------------------------------------------------------------
-%         set(hQcCmenu, 'Visible', 'off');
-%         break
-%       end
-% 
-%       % Test if the right mouse button is clicked
-%       % -----------------------------------------
-%       if strcmp(get(hMainFig, 'SelectionType'), 'alt') && ~isempty(ind)
-%         % Wait for a QC Context Menu choice : The user choose the
-%         % quality code
-%         % -------------------------------------------------------
-%         uiwait
-%         qualityCode = 1;
-% 
-%       else
-% 
-%         % Mouse motion callback desactivated when a selection is made.
-%         % Otherwise there is a conflict with the map if it is activated
-%         % -------------------------------------------------------------
-%         set( hMainFig, 'UserData', 'ButtonMotionOff');
-% 
-%         % Selection of the data within the figure
-%         % ---------------------------------------
-%         point1 = get(gca,'CurrentPoint');    % button down detected
-%         finalRect = rbbox;                   % return figure units
-%         point2 = get(gca,'CurrentPoint');    % button up detected
-% 
-%         point1 = point1(1,1:2);              % extract x and y
-%         point2 = point2(1,1:2);
-% 
-%         p1 = min(point1,point2);
-%         p2 = max(point1,point2);             % calculate locations
-% 
-%         % Retrieve named application data
-%         % -------------------------------
-%         tsg = getappdata( hMainFig, 'tsg_data');
-% 
-%         ind = find(tsg.DAYD > p1(1,1) & tsg.DAYD < p2(1,1) & ...
-%           tsg.SSPS > p1(1,2) & tsg.SSPS < p2(1,2));
-% 
-%         % As soon as a modification took place the data should be saved
-%         % -------------------------------------------------------------
-%         set( hSaveMenu, 'UserData', 'on' );
-% 
-%         % Selection made : Mouse motion callback re-activated
-%         % --------------------------------------------------
-%         set( hMainFig, 'UserData', 'ButtonMotionOn');
-% 
-%       end
-% 
-%       % Plot the data with the color of the chosen quality Code.
-%       % Is it the right place for this source code ????
-%       % --------------------------------------------------------
-%       if qualityCode ~= -1
-% 
-%         % Retrieve named application data - Code could have been changed
-%         % --------------------------------------------------------------
-%         tsg = getappdata( hMainFig, 'tsg_data');
-% 
-%         tsg.SSPS_QC(ind) = tsg.qc.Code.ACTIVE;
-% 
-%         % Save the modifications
-%         % ----------------------
-%         setappdata( hMainFig, 'tsg_data', tsg);
-% 
-%         axes(hPlotAxes(1));
-%         hold on
-%         color = ['.' tsg.qc.Color.ACTIVE];
-%         plot(tsg.DAYD(ind), tsg.SSPS(ind), color );
-%         hold off
-% 
-%       end
-%     end
-%   end
-
   %----------------------------------------------------------------------
   % Callback function run when the QC context menu is selected
   %---------------------------------------------------------------------
@@ -872,6 +774,7 @@ end
       tsg.qc.active.Color = color;
 
       setappdata( hMainFig, 'tsg_data', tsg );
+      
   end
 
   %---------------------------------------------------------------------
@@ -949,6 +852,7 @@ end
     % Make the earth map invisible
     % ----------------------------
     set(hMapPanel, 'Visible', 'off' );   
+    
   end
 
   %---------------------------------------------------------------------
@@ -965,6 +869,7 @@ end
     % Make the earth map visible
     % --------------------------
     set(hMapPanel, 'Visible', 'on' );
+    
   end
 
   %---------------------------------------------------------------------
@@ -1049,8 +954,12 @@ end
       delete(hLine2.stdClimMinus);
       delete(hLine2.stdClimPlus);
       delete(hLine2.meanClim);
+      
+    % if handle is missing, prevent warning message on console
+    % --------------------------------------------------------
     catch
     end
+    
   end
 
   %------------------------------------------------------------------------
@@ -1175,6 +1084,7 @@ end
     % call header form function
     % -------------------------
     headerForm(hMainFig);
+    
   end
 
   % -------------------------------------------------------------------
@@ -1239,9 +1149,9 @@ end
       hdl_pushtool = findobj('Tag', 'QC');
       set(hdl_pushtool, 'Enable', 'on');
     end
+    
   end
 
-
   % -----------------------------------------------------------------
   % Callback function run when the Quit menu item is selected
   % -----------------------------------------------------------------
@@ -1297,5 +1207,6 @@ end
     
   end
 
-
-end  % end of tsgqc_GUI
+% end of tsgqc_GUI
+% ----------------
+end