scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Display continuation of exception.

This commit is contained in:
mainzelm 2003-05-06 11:39:28 +00:00
parent db1b2a561f
commit fb87737511
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/packages.scm
View File

@ -39,7 +39,7 @@
with-prevent-events) with-prevent-events)
(open scheme i/o list-lib define-record-types finite-types enum-sets (open scheme i/o list-lib define-record-types finite-types enum-sets
threads locks placeholders rendezvous rendezvous-channels threads locks placeholders rendezvous rendezvous-channels
signals handle scsh signals handle scsh inspect-exception
rx-syntax field-reader-package rx-syntax field-reader-package
xlib) xlib)
(files utils)) (files utils))

16
src/utils.scm
View File

@ -40,9 +40,9 @@
(fun (if (null? fun) id (car fun)))) (fun (if (null? fun) id (car fun))))
(let ((sp (make-sync-point))) (let ((sp (make-sync-point)))
(spawn (lambda () (spawn (lambda ()
(with-handler (with-fatal-and-capturing-error-handler
(lambda (condition punt) (lambda (condition continuation punt)
(mdisplay "condition in " id ":") (display-continuation continuation)
(punt)) (punt))
(lambda () (lambda ()
(let ((res (fun (lambda () (sync-point-release sp))))) (let ((res (fun (lambda () (sync-point-release sp)))))
@ -341,9 +341,13 @@
(define (delete-window dpy window time) (define (delete-window dpy window time)
(let* ((protocols (get-wm-protocols dpy window)) (let* ((protocols (get-wm-protocols dpy window))
(wm-delete-window (intern-atom dpy "WM_DELETE_WINDOW" #f))) (wm-delete-window (intern-atom dpy "WM_DELETE_WINDOW" #f)))
(if (member wm-delete-window protocols) (if protocols
(send-protocol-message dpy window wm-delete-window time) (if (member wm-delete-window protocols)
(destroy-window dpy window)))) (send-protocol-message dpy window wm-delete-window time)
(destroy-window dpy window))
(begin
(warn "get-wm-protocols #f" dpy window)
(destroy-window dpy window)))))
(define (move-resize-window* dpy window rect) (define (move-resize-window* dpy window rect)
(move-resize-window dpy window (move-resize-window dpy window