From 1fdc965b347a2cfc4a136ed1ed0430a2331e16d6 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 28 Apr 2014 13:00:20 -0700
Subject: [PATCH] ui.backend.cocoa.views: clear cache to remove possibly
 non-retina stuff.

---
 basis/ui/backend/cocoa/views/views.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor
index d1f4f31c0e..6fa3495280 100644
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@@ -160,6 +160,7 @@ CLASS: FactorView < NSOpenGLView NSTextInput
             self SEND: backingScaleFactor execute( x x -- x )
             dup 1.0 > [
                 gl-scale-factor set-global t retina? set-global
+                cached-lines get-global clear-assoc
             ] [ drop ] if
 
         ] when