From 0484ff7f56bf2f73c03625a5c2a0c97df0421437 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 11 Oct 2005 14:58:40 +0000 Subject: [PATCH] somewhat fixed up -d mode svn: r1044 --- collects/slideshow/viewer.ss | 22 +++++++++++++++++++--- 1 file changed, 19 insertions(+), 3 deletions(-) diff --git a/collects/slideshow/viewer.ss b/collects/slideshow/viewer.ss index 94385d7ae7..5ae8689d24 100644 --- a/collects/slideshow/viewer.ss +++ b/collects/slideshow/viewer.ss @@ -761,13 +761,29 @@ (send dc set-brush b)))]) (send dc set-scale 1 1))] [else - (paint-slide dc current-page 2/3 1/2 cw ch cw ch #f) - (send dc set-origin (* cw 2/3) 0) + (paint-slide dc current-page 2/3 1 cw ch cw ch #f) + (let ([pen (send dc get-pen)] + [brush (send dc get-brush)]) + (send dc set-pen "black" 1 'solid) + (send dc set-brush "black" 'solid) + (send dc draw-rectangle + (* cw 2/3) + 0 + (* cw 1/3) + (* ch 1/6)) + (send dc draw-rectangle + (* cw 2/3) + (* ch 5/6) + (* cw 1/3) + (* ch 1/6)) + (send dc set-pen pen) + (send dc set-brush brush)) + (send dc set-origin (* cw 2/3) (* ch 1/6)) (when (< (add1 current-page) slide-count) (send dc draw-rectangle (* cw 2/3) 0 (* cw 1/3) ch) (paint-slide dc (+ current-page 1) - 1/3 1/6 + 1/3 1/2 cw ch cw ch #f))]) (send dc set-origin 0 0)