From 22f2a0d856b5e680d74f20dad2d7646d4037bfad Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 31 Jul 2008 16:12:58 -0500
Subject: [PATCH] ui.gadgets.cartesian: Use the new slate

---
 extra/ui/gadgets/cartesian/cartesian.factor | 21 ++++++++-------------
 1 file changed, 8 insertions(+), 13 deletions(-)

diff --git a/extra/ui/gadgets/cartesian/cartesian.factor b/extra/ui/gadgets/cartesian/cartesian.factor
index 027c1061a8..730b0f5b44 100644
--- a/extra/ui/gadgets/cartesian/cartesian.factor
+++ b/extra/ui/gadgets/cartesian/cartesian.factor
@@ -22,20 +22,15 @@ TUPLE: cartesian < slate x-min x-max y-min y-max z-min z-max perspective ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-M: cartesian draw-gadget* ( cartesian -- )
-   GL_PROJECTION glMatrixMode
-   glLoadIdentity
+M: cartesian establish-coordinate-system ( cartesian -- cartesian )
    dup
-       {
-         [ x-min>> ] [ x-max>> ]
-         [ y-min>> ] [ y-max>> ]
-         [ z-min>> ] [ z-max>> ]
-       }
-     cleave
-     glOrtho
-   GL_MODELVIEW glMatrixMode
-   glLoadIdentity
-   call-next-method ;
+   {
+     [ x-min>> ] [ x-max>> ]
+     [ y-min>> ] [ y-max>> ]
+     [ z-min>> ] [ z-max>> ]
+   }
+   cleave
+   glOrtho ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!