From 01401e2becac32ebe6f6e8557105653006bc90ae Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 1 Aug 2008 14:22:54 -0500
Subject: [PATCH] ui.gadgets.slate: Restore glOrtho settings such that
 workspace isn't blurry

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

diff --git a/extra/ui/gadgets/slate/slate.factor b/extra/ui/gadgets/slate/slate.factor
index 08e8b2765c..0505586b53 100644
--- a/extra/ui/gadgets/slate/slate.factor
+++ b/extra/ui/gadgets/slate/slate.factor
@@ -96,18 +96,21 @@ M: slate draw-gadget* ( slate -- )
 
    establish-coordinate-system
 
-   GL_MODELVIEW glMatrixMode glLoadIdentity glPushMatrix
+   GL_MODELVIEW glMatrixMode glPushMatrix glLoadIdentity 
 
    setup-viewport
 
    draw-slate
 
-   GL_PROJECTION glMatrixMode glPopMatrix
-   GL_MODELVIEW  glMatrixMode glPopMatrix
+   GL_PROJECTION glMatrixMode glPopMatrix glLoadIdentity
+   GL_MODELVIEW  glMatrixMode glPopMatrix glLoadIdentity
 
    dup
    find-world
-   default-coordinate-system
+   ! The world coordinate system is a little wacky:
+   dup { [ drop 0 ] [ width ] [ height ] [ drop 0 ] } cleave -1 1 glOrtho
    setup-viewport
    drop
-   drop ;
\ No newline at end of file
+   drop ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!