# HG changeset patch
# User Ben Abbott <bpabbott@mac.com>
# Date 1244680390 14400
# Node ID 0307f5e5568c0714da288248d45fcad1975bebed
# Parent  e12a5ec6cf0d5fccc9e01944a928c639bdc66aba
__go_draw_axes__.m: Fix order when pushing group children onto kid list.

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,5 +1,8 @@
-2009-06-10  Marco Caliari  <marco.caliari@univr.it>
-
+2009-06-10  Marco Caliari <marco.caliari@univr.it>
+
+	* plot/hold.m: Add demo including a hggroup.
+	* plot/__go_draw_axes__.m: Fix order when pushing group children onto
+	the axes kid list.
 	* general/quadgk.m: Better waypoint transform.
 
 2009-06-09  David Bateman  <dbateman@free.fr>
diff --git a/scripts/plot/__go_draw_axes__.m b/scripts/plot/__go_draw_axes__.m
--- a/scripts/plot/__go_draw_axes__.m
+++ b/scripts/plot/__go_draw_axes__.m
@@ -1028,7 +1028,7 @@
 	  if (isempty (kids))
 	    kids = obj.children;
 	  elseif (! isempty (obj.children))
-	    kids = [obj.children; kids];
+	    kids = [kids; obj.children];
 	  endif
 
 	otherwise
diff --git a/scripts/plot/hold.m b/scripts/plot/hold.m
--- a/scripts/plot/hold.m
+++ b/scripts/plot/hold.m
@@ -121,3 +121,18 @@
 %! imagesc(1./hilb(4));
 %! hold off
 
+%!demo
+%! clf
+%! colormap (jet)
+%! t = linspace (-3, 3, 50);
+%! [x, y] = meshgrid (t, t);
+%! z = peaks (x, y);
+%! contourf (x, y, z, 10);
+%! hold ("on");
+%! plot (vec (x), vec (y), "^");
+%! patch ([-1.0 1.0 1.0 -1.0 -1.0], [-1.0 -1.0 1.0 1.0 -1.0], "red");
+%! xlim ([-2.0 2.0]);
+%! ylim ([-2.0 2.0]);
+%! colorbar ("SouthOutside");
+%! title ("Test script for some plot functions");
+