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

[Michael Goffioul]

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