5c for today (error popup)

Started by newdep, November 15, 2008, 03:13:31 PM

Previous topic - Next topic

newdep

a simple error popup tool for newlisp using "xmessage" (old but handy tool)

Handy if you want screen popups when running/testing newlisp or notifications even when not using error-event..



You can adjust xmessage from your Xdefaults or from /usr/lib/X11/app-defaults/


;-- put this in your init.lsp for every day error popups, disappears after 10 seconds
(define (handler) (exec { xmessage -center -timeout 10 -title "newLisp error console" -file -} (append {Error# } (error-text (error-number))) ))
(error-event 'handler)
-- (define? (Cornflakes))