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

optimized redrawing

This commit is contained in:
frese 2003-03-30 01:46:54 +00:00
parent 17b4f5e624
commit da76ea4b48
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/split-wm.scm
View File

@ -199,7 +199,8 @@
(draw-resizer r)
(drag r r (button-event-x e) (button-event-y e))))
((expose-event? e)
(draw-resizer-window)
(if (= 0 (expose-event-count e))
(draw-resizer-window))
(idle))
((destroy-window-event? e) #t)
(else (idle))))))
@ -222,7 +223,8 @@
(- (button-event-y e) start-y))
(idle))
((expose-event? e)
(draw-resizer-window)
(if (= 0 (expose-event-count e))
(draw-resizer-window))
(drag start-rect last-rect start-x start-y))
((destroy-window-event? e) #t)
(else

3
src/titlebar.scm
View File

@ -43,7 +43,8 @@
(lambda (xevent)
(cond
((expose-event? xevent)
(draw-titlebar tb options gc))
(if (= 0 (expose-event-count xevent))
(draw-titlebar tb options gc)))
((destroy-window-event? xevent)
(exit)))))
(wrap (receive-rv in-channel)