[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
patch for "area" when parent is not an axes object
From: |
Michael Goffioul |
Subject: |
patch for "area" when parent is not an axes object |
Date: |
Wed, 14 Nov 2007 10:31:16 +0100 |
Index: scripts/plot/patch.m
===================================================================
RCS file: /cvs/octave/scripts/plot/patch.m,v
retrieving revision 1.7
diff -c -p -r1.7 patch.m
*** scripts/plot/patch.m 9 Nov 2007 16:59:43 -0000 1.7
--- scripts/plot/patch.m 14 Nov 2007 09:30:23 -0000
*************** function h = patch (varargin)
*** 38,49 ****
if (isscalar (varargin{1}) && ishandle (varargin{1}))
h = varargin {1};
! if (! strcmp (get (h, "type"), "axes"))
! error ("patch: expecting first argument to be an axes object");
endif
oldh = gca ();
unwind_protect
! axes (h);
[tmp, fail] = __patch__ (h, varargin{2:end});
unwind_protect_cleanup
axes (oldh);
--- 38,49 ----
if (isscalar (varargin{1}) && ishandle (varargin{1}))
h = varargin {1};
! if (! strcmp (get (h, "type"), "axes") && ! strcmp (get (h,
"type"), "hggroup"))
! error ("patch: expecting first argument to be an axes or
hggroup object");
endif
oldh = gca ();
unwind_protect
! axes (ancestor (h, "axes"));
[tmp, fail] = __patch__ (h, varargin{2:end});
unwind_protect_cleanup
axes (oldh);
- patch for "area" when parent is not an axes object,
Michael Goffioul <=