From 4eb25def02b40c149aedcf5a13c357d52fd380ce Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Wed, 1 Feb 2006 22:12:41 +0000
Subject: [PATCH] Fix display list leak with turtle graphics

---
 TODO.FACTOR.txt        | 1 -
 examples/canvas.factor | 3 +++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 9ea7eb5e91..b9defe17fa 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,4 +1,3 @@
-- examples/canvas: free display lists
 - fix remaining HTML stream issues
 - help cross-referencing
 - UI browser pane needs 'back' button
diff --git a/examples/canvas.factor b/examples/canvas.factor
index 7b93497e02..65270eda95 100644
--- a/examples/canvas.factor
+++ b/examples/canvas.factor
@@ -49,6 +49,9 @@ M: canvas add-notify* ( gadget -- )
     dup canvas-quot GL_COMPILE [ with-scope ] make-dlist
     swap set-canvas-id ;
 
+M: canvas remove-notify* ( gadget -- )
+    canvas-id 1 glDeleteLists ;
+
 M: canvas draw-gadget* ( gadget -- )
     GL_MODELVIEW [
         dup rect-dim 2 v/n gl-translate