[plt-scheme] Ugly hacks in slideshow?

From: Paulo Jorge O. C. Matos (pocm at netvisao.pt)
Date: Mon Jun 21 18:38:49 EDT 2004

Hi all,

I've been having a hard time understanding some issues of
There seems to have some ugly hacks in it.
The main issue of the post is the following:
(module test (lib "run.ss" "slideshow")
  (let ([orig (current-slide-assembler)])
     (lambda (title sep content)
       (let* ((titlepic (if (not title)
                            (titlet title)))
              (title-w (if (not title) 0 (pict-width titlepic))))
          (inset titlepic 0 (+ 25 margin))
          (cc-superimpose (orig #f sep content)
  (define page-item/test
    (lambda (p)
      (inset (page-item p) 20 0)))
   "test 1"
   (page-item "To the left")
   (page-item "Again to the left"))
   "test 2"
   (page-item/test "oops, look to the title")
   (page-item/test "what happened?"))


Why is the title also shifted in the second slide?

Another question, made already in another thread to which I
received no answer yet is if it is possible to have different
margin lengths? For example, the top margin should be twice has
the bottom margin, is this possible?


Paulo J. Matos : pocm [_at_] mega . ist . utl . pt
Instituto Superior Tecnico - Lisbon
Computer and Software Eng. - A.I.
 - > http://mega.ist.utl.pt/~pocm
        -> God had a deadline...
                So, he wrote it all in Lisp!

Posted on the users mailing list.