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

3
src/titlebar.scm
View File

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