Fix display list leak with turtle graphics

2006-02-01 22:12:41 +00:00 · 2006-02-01 22:12:41 +00:00 · 4eb25def02
parent a40b1e12de
commit 4eb25def02
2 changed files with 3 additions and 1 deletions
--- 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
--- 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