--- demo.pl_orig	2012-10-23 12:30:13 +1100
+++ demo.pl	2012-10-24 15:09:04 +1100
@@ -35,7 +35,8 @@
     $a=<>;
 }
 
-$w=gpwin(x11);
+my $term = $^O =~ /MSWin32/i ? 'wxt' : 'x11';
+$w=gpwin($term);
 
 
 $w->plot($x**2);
@@ -73,8 +74,8 @@
 	  
 	  {with => 'line', legend => 'cubic', tuplesize => 2},
 	  {legend => ['shifted cubic A','shifted cubic B']},
-	  $x, PDL::cat($x**3, $x**3 - 100) );
-
+#	  $x, PDL::cat($x**3, $x**3 - 100) );
+);
 
 prompt("Error bars and other things");
 
@@ -102,7 +103,7 @@
 # Plot a collection of lines
 $w->plot3d( 
     with=>'linespoints',
-    cdim=>1,
+#    cdim=>1,
     xvals($zv), yvals($zv),
     $zv
     );