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

Use set-error-handler

darcs
wayo.cavazos 2006-02-25 06:05:41 +00:00
parent 2479ef1d5d
commit b3cda2a3c9
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
contrib/factory/factory.factor
View File

@ -591,16 +591,9 @@ SYMBOL: window-list
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: xlib-error-handler ( -- xt ) "void" { "Display*" "XErrorEvent*" }
[ "X11 : error-handler called" print flush ] alien-callback ; compiled
: install-error-handler ( -- ) xlib-error-handler XSetErrorHandler drop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: start-factory ( dpy-string -- )
initialize-x
install-error-handler
[ "X11 : error-handler called" print flush ] set-error-handler
root get [ make-drag-gc ] with-win drag-gc set
root get [ black-pixel get set-window-background clear-window ] with-win
root get create-wm-root