patch for "area" when parent is not an axes object

[John W. Eaton]

On 14-Nov-2007, Michael Goffioul wrote:

| 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);

I applied this patch.

Thanks,

jwe