From 4485bc0c01ef002c323d918959203103e4167d55 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 4 Nov 2007 21:24:22 -0500
Subject: [PATCH] Remove code duplication
---
extra/ui/gadgets/canvas/canvas.factor | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/extra/ui/gadgets/canvas/canvas.factor b/extra/ui/gadgets/canvas/canvas.factor
index 5a013113b8..a1fb95cdbf 100644
--- a/extra/ui/gadgets/canvas/canvas.factor
+++ b/extra/ui/gadgets/canvas/canvas.factor
@@ -1,7 +1,8 @@
! Copyright (C) 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: ui.backend ui.gadgets ui.gadgets.theme ui.gadgets.worlds
-ui.render opengl opengl.gl kernel namespaces tuples colors ;
+USING: ui.backend ui.gadgets ui.gadgets.theme ui.gadgets.lib
+ui.gadgets.worlds ui.render opengl opengl.gl kernel namespaces
+tuples colors ;
IN: ui.gadgets.canvas
TUPLE: canvas dlist ;
@@ -10,9 +11,6 @@ TUPLE: canvas dlist ;
canvas construct-gadget
dup black solid-interior ;
-: find-gl-context ( gadget -- )
- find-world world-handle select-gl-context ;
-
: delete-canvas-dlist ( canvas -- )
dup find-gl-context
dup canvas-dlist [ delete-dlist ] when*