Merge branch 'main' of github.com:flagxor/ueforth into main

This commit is contained in:
Brad Nelson
2022-03-26 11:03:49 -07:00

View File

@ -49,7 +49,7 @@ StructureNotifyMask or constant EVENT-MASK
: image-resize { w h } : image-resize { w h }
w to width h to height w to width h to height
image if image XDestroyImage then image if image XDestroyImage drop then
w h * 4* malloc dup 0= throw to backbuffer w h * 4* malloc dup 0= throw to backbuffer
display visual screen-depth ZPixmap 0 backbuffer display visual screen-depth ZPixmap 0 backbuffer
width height 32 width 4* XCreateImage to image width height 32 width 4* XCreateImage to image