alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix name clash between visual vocab + name in posix grapihcs.

Browse Source
This commit is contained in:
Brad Nelson
2022-11-19 22:05:55 -08:00
parent d5675806fc
commit 80fb47f87b
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
posix/graphics.fs
View File

@ -25,7 +25,7 @@ also posix also x11
0 value display 0 value display
0 value screen 0 value screen
0 value colormap 0 value colormap
0 value visual 0 value xvisual
0 value screen-depth 0 value screen-depth
0 value black 0 value black
0 value white 0 value white
@ -51,7 +51,7 @@ StructureNotifyMask or constant EVENT-MASK
w to width h to height w to width h to height
image if image XDestroyImage drop 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 xvisual screen-depth ZPixmap 0 backbuffer
width height 32 width 4* XCreateImage to image width height 32 width 4* XCreateImage to image
; ;
@ -136,7 +136,7 @@ also graphics definitions
NULL XOpenDisplay to display NULL XOpenDisplay to display
display XDefaultScreen to screen display XDefaultScreen to screen
display screen XDefaultColorMap to colormap display screen XDefaultColorMap to colormap
display screen XDefaultVisual to visual display screen XDefaultVisual to xvisual
display screen XDefaultDepth to screen-depth display screen XDefaultDepth to screen-depth
display screen XBlackPixel to black display screen XBlackPixel to black
display screen XWhitePixel to white display screen XWhitePixel to white