: <pixel-format> ( world attributes -- pixel-format )
2dup (make-pixel-format)
[ pixel-format new-disposable swap >>handle swap >>world ]
- [ invalid-pixel-format-attributes ]
+ [ throw-invalid-pixel-format-attributes ]
?if ;
M: pixel-format dispose*