5c for today (error popup)

Featuring the Dragonfly web framework
Locked
newdep
Posts: 2038
Joined: Mon Feb 23, 2004 7:40 pm
Location: Netherlands

5c for today (error popup)

Post by 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/

Code: Select all

;-- 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))

Locked