opengl: make sure to reset the scale factor at startup.

diff --git a/basis/opengl/opengl.factor b/basis/opengl/opengl.factor
index f3ee56587df3132aadaf54e5f1dacafbeb62045c..9c66002f7eee0e2f142838f0f92bf02438bdaf6e 100644 (file)
--- a/basis/opengl/opengl.factor
+++ b/basis/opengl/opengl.factor
@@ -2,12 +2,10 @@
 ! Portions copyright (C) 2007 Eduardo Cavazos.
 ! Portions copyright (C) 2008 Joe Groff.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types alien.data ascii calendar
-combinators.short-circuit continuations kernel libc math macros
-namespaces math.vectors math.parser opengl.gl combinators
-combinators.smart arrays sequences splitting words byte-arrays
-assocs vocabs colors colors.constants accessors generalizations
-sequences.generalizations locals fry specialized-arrays ;
+USING: alien alien.c-types alien.data assocs colors
+combinators.smart continuations fry init kernel locals macros
+math namespaces opengl.gl sequences sequences.generalizations
+specialized-arrays ;
 FROM: alien.c-types => float ;
 SPECIALIZED-ARRAY: float
 SPECIALIZED-ARRAY: uint
@@ -223,3 +221,5 @@ MACRO: set-draw-buffers ( buffers -- )
     glLoadIdentity
     GL_MODELVIEW glMatrixMode
     glLoadIdentity ;
+
+[ f gl-scale-factor set-global ] "opengl" add-startup-hook