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

View File

@ -29,7 +29,8 @@ define-independent-class
<display> "create" !( name <display> -- display ) [
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 XDefaultRootWindow dupd <window> new >>default-root
dup $ptr over $default-screen XDefaultGC >>default-gc