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