Changeset 231 for trunk/src/plot_object.m

Timestamp:

Apr 5, 2011, 12:46:34 AM (13 years ago)

Author:

sommeria

Message:

interactive test for piv introduced various bug corrections

File:

• trunk/src/plot_object.m (modified) (2 diffs)

trunk/src/plot_object.m

@@ -70 +70 @@
         test_newobj=0;
         haxes=get(hplot,'parent');
+        currentfig=get(haxes,'parent');
     elseif isequal(get(hplot,'Type'),'axes')% hplot is the handle of an axis 
+        haxes=hplot;
         currentfig=get(hplot,'parent');
-        set(0,'CurrentFigure',currentfig)
-        haxes=hplot;
-        set(currentfig,'CurrentAxes',haxes);
+%         set(0,'CurrentFigure',currentfig)
+      
+%         set(currentfig,'CurrentAxes',haxes);
     elseif isequal(get(hplot,'Type'),'figure')% hplot is the handle of a figure 
         set(0,'CurrentFigure',hplot);%set the input figure as the current one
         haxes=findobj(hplot,'Type','axes');%look for axes in the figure
         haxes=haxes(1);
-        set(hplot,'CurrentAxes',haxes);%set the first found axis as the current one
+        currentfig=hplot;
+       % set(hplot,'CurrentAxes',haxes);%set the first found axis as the current one
     else
-        figure; %create new figure
+        currentfig=figure; %create new figure
         hplot=axes;%create new axes
         haxes=hplot;
     end
 else
-    figure; %create new figure
+    currentfig=figure; %create new figure
     hplot=axes;%create new axes
     haxes=hplot;
 end
+set(0,'CurrentFigure',currentfig)%set the currentfigure as the current one
+set(currentfig,'CurrentAxes',haxes);%set the current axes in the current figure
 
 %% default input parameters
@@ -333 +338 @@
 %% create the object
 if test_newobj
-    axes(haxes)
+%     axes(haxes)
     hother=findobj('Tag','proj_object');%find all the proj objects
     for iobj=1:length(hother)