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

added thread names

This commit is contained in:
frese 2003-04-11 01:24:15 +00:00
parent fbc1478a17
commit 74d9ecbb9c
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/titlebar.scm
View File

@ -30,7 +30,7 @@
) )
(mdisplay "creating titlebar " window "\n") (mdisplay "creating titlebar " window "\n")
(spawn* (spawn*
(list "titlebar " window) (list 'titlebar window)
(lambda (release) (lambda (release)
(call-with-event-channel (call-with-event-channel
dpy window (event-mask exposure structure-notify) dpy window (event-mask exposure structure-notify)
@ -76,9 +76,7 @@
(unmap-window (titlebar:dpy tb) (titlebar:window tb))) (unmap-window (titlebar:dpy tb) (titlebar:window tb)))
(define (move-resize-titlebar tb rect) (define (move-resize-titlebar tb rect)
(move-resize-window (titlebar:dpy tb) (titlebar:window tb) (move-resize-window* (titlebar:dpy tb) (titlebar:window tb) rect))
(rectangle:x rect) (rectangle:y rect)
(rectangle:width rect) (rectangle:height rect)))
(define (set-titlebar-title! tb title) (define (set-titlebar-title! tb title)
(send (titlebar:channel tb) (cons 'title title))) (send (titlebar:channel tb) (cons 'title title)))