===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/glib,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -p -r1.18 -r1.19
--- OpenXM_contrib2/asir2000/lib/glib	2006/03/08 04:58:15	1.18
+++ OpenXM_contrib2/asir2000/lib/glib	2006/03/08 07:59:15	1.19
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.17 2006/03/03 10:36:18 takayama Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/lib/glib,v 1.18 2006/03/08 04:58:15 takayama Exp $ */
 
 /* BUG: this library has not yet been adapted to the new automatic launcher
         of ox_plot. 2002, Aug, 4.  Do not load glib more than twice. 
@@ -157,10 +157,14 @@ def glib_check_strict() {
   }
 }
 
+/*&usage begin: glib_clear()
+  Clear the screen.
+end: */
 def glib_clear() {
   extern Glib_process, Glib_canvas;
   if (Glib_canvas < 0) glib_open();
   if (!Cfep_loaded) clear_canvas(Glib_process,Glib_canvas);
+  else cfep.glib_clear();
 }
 
 /*&usage begin: glib_window(Xmin,Ymin,Xmax,Ymax)
@@ -523,16 +527,7 @@ def glib_set_pixel_size(X) {
   if (!Cfep_loaded) /*Not implemented.*/ ;
   else cfep.glib_set_pixel_size(X);
 }
-/*&usage begin: glib_clear()
-  Clear the screen.
- (cfep only).
-end: */
-def glib_clear() {
-  extern  Glib_canvas;
-  if (Glib_canvas < 0) glib_open();
-  if (!Cfep_loaded) /*Not implemented.*/ ;
-  else cfep.glib_clear();
-}
+
 /*&usage begin: glib_remove_last()
   Remove the last object.  glib_flush() should also be called to remove
   the last object.