diff --git a/gl/src/TGLKernel.cxx b/gl/src/TGLKernel.cxx
index 220ea72d62f8d958c58da656bdbb905a462b4372..23a2aca57aab2d6dff605c38c9c4791eb2022707 100644
--- a/gl/src/TGLKernel.cxx
+++ b/gl/src/TGLKernel.cxx
@@ -1,4 +1,4 @@
-// @(#)root/gl:$Name:  $:$Id: TGLKernel.cxx,v 1.1.1.1 2000/05/16 17:00:47 rdm Exp $
+// @(#)root/gl:$Name:  $:$Id: TGLKernel.cxx,v 1.2 2000/06/05 07:28:06 brun Exp $
 // Author: Valery Fine(fine@vxcern.cern.ch)   05/03/97
 
 /*************************************************************************
@@ -493,7 +493,7 @@ void TGLKernel::PaintGLPointsObject(const TPoints3DABC *points, Option_t *option
                        ,GLfloat(points->GetY(i))
                        ,GLfloat(points->GetZ(i)));
       glEnd();
-    } while ((mode=GL_POINTS) && pass);
+    } while ((mode==GL_POINTS) && pass);
 }
 
 //______________________________________________________________________________
diff --git a/treeviewer/inc/TPaveVar.h b/treeviewer/inc/TPaveVar.h
index d53aacdc177abc3a5809646ceb5c0b3cbb11ed68..619146cc3e7770a87eb662317be35c6b0112b1d5 100644
--- a/treeviewer/inc/TPaveVar.h
+++ b/treeviewer/inc/TPaveVar.h
@@ -1,4 +1,4 @@
-// @(#)root/treeviewer:$Name$:$Id$
+// @(#)root/treeviewer:$Name:  $:$Id: TPaveVar.h,v 1.1.1.1 2000/05/16 17:00:45 rdm Exp $
 // Author: Rene Brun   08/12/98
 
 /*************************************************************************
@@ -39,7 +39,7 @@ public:
         enum { kBranchObject = BIT(15) };
 
         TPaveVar();
-        TPaveVar(Coord_t x1, Coord_t y1,Coord_t x2 ,Coord_t y2, const char *label, TTreeViewer *viewer);
+        TPaveVar(Double_t x1, Double_t y1,Double_t x2 ,Double_t y2, const char *label, TTreeViewer *viewer);
         TPaveVar(const TPaveVar &PaveVar);
         virtual      ~TPaveVar();
                 void  Copy(TObject &PaveVar);
diff --git a/treeviewer/src/TPaveVar.cxx b/treeviewer/src/TPaveVar.cxx
index 379bf4ef12b0e5bf93e1831740808146b285ca73..137a3861709f8f5c26d43aaeaa6e5a9dc3bac6ee 100644
--- a/treeviewer/src/TPaveVar.cxx
+++ b/treeviewer/src/TPaveVar.cxx
@@ -1,4 +1,4 @@
-// @(#)root/treeviewer:$Name$:$Id$
+// @(#)root/treeviewer:$Name:  $:$Id: TPaveVar.cxx,v 1.1.1.1 2000/05/16 17:00:45 rdm Exp $
 // Author: Rene Brun   08/12/98
 /*************************************************************************
  * Copyright (C) 1995-2000, Rene Brun and Fons Rademakers.               *
@@ -38,7 +38,7 @@ TPaveVar::TPaveVar(): TPaveLabel()
 }
 
 //______________________________________________________________________________
-TPaveVar::TPaveVar(Coord_t x1, Coord_t y1,Coord_t x2, Coord_t  y2, const char *label, TTreeViewer *viewer)
+TPaveVar::TPaveVar(Double_t x1, Double_t y1,Double_t x2, Double_t  y2, const char *label, TTreeViewer *viewer)
            :TPaveLabel(x1,y1,x2,y2,label,"br")
 {
 //*-*-*-*-*-*-*-*-*-*-*PaveVar normal constructor*-*-*-*-*-*-*-*-*-*-*-*-*-*
@@ -279,10 +279,10 @@ again:
 
       // In case pave coordinates have been modified, recompute NDC coordinates
       {
-         Float_t dpx  = gPad->GetX2() - gPad->GetX1();
-         Float_t dpy  = gPad->GetY2() - gPad->GetY1();
-         Float_t xp1  = gPad->GetX1();
-         Float_t yp1  = gPad->GetY1();
+         Double_t dpx  = gPad->GetX2() - gPad->GetX1();
+         Double_t dpy  = gPad->GetY2() - gPad->GetY1();
+         Double_t xp1  = gPad->GetX1();
+         Double_t yp1  = gPad->GetY1();
          fX1NDC = (fX1-xp1)/dpx;
          fY1NDC = (fY1-yp1)/dpy;
          fX2NDC = (fX2-xp1)/dpx;