Fix display list leak with turtle graphics
parent
a40b1e12de
commit
4eb25def02
|
@ -1,4 +1,3 @@
|
||||||
- examples/canvas: free display lists
|
|
||||||
- fix remaining HTML stream issues
|
- fix remaining HTML stream issues
|
||||||
- help cross-referencing
|
- help cross-referencing
|
||||||
- UI browser pane needs 'back' button
|
- UI browser pane needs 'back' button
|
||||||
|
|
|
@ -49,6 +49,9 @@ M: canvas add-notify* ( gadget -- )
|
||||||
dup canvas-quot GL_COMPILE [ with-scope ] make-dlist
|
dup canvas-quot GL_COMPILE [ with-scope ] make-dlist
|
||||||
swap set-canvas-id ;
|
swap set-canvas-id ;
|
||||||
|
|
||||||
|
M: canvas remove-notify* ( gadget -- )
|
||||||
|
canvas-id 1 glDeleteLists ;
|
||||||
|
|
||||||
M: canvas draw-gadget* ( gadget -- )
|
M: canvas draw-gadget* ( gadget -- )
|
||||||
GL_MODELVIEW [
|
GL_MODELVIEW [
|
||||||
dup rect-dim 2 v/n gl-translate
|
dup rect-dim 2 v/n gl-translate
|
||||||
|
|
Loading…
Reference in New Issue