steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

x: Check for XOpenDisplay failure in "create" method of <display>

release
Eduardo Cavazos 2007-11-26 16:11:32 -06:00
parent 9ada5aad82
commit 3a12daacfb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/x/x.factor
View File

@ -29,7 +29,8 @@ define-independent-class
<display> "create" !( name <display> -- display ) [ <display> "create" !( name <display> -- display ) [
new-empty swap >>name new-empty swap >>name
dup $name dup [ string>char-alien ] [ ] if XOpenDisplay >>ptr dup $name dup [ string>char-alien ] [ ] if XOpenDisplay
dup [ >>ptr ] [ "XOpenDisplay error" throw ] if
dup $ptr XDefaultScreen >>default-screen dup $ptr XDefaultScreen >>default-screen
dup $ptr XDefaultRootWindow dupd <window> new >>default-root dup $ptr XDefaultRootWindow dupd <window> new >>default-root
dup $ptr over $default-screen XDefaultGC >>default-gc dup $ptr over $default-screen XDefaultGC >>default-gc