Re: jquery-based slideshow?

I use in a Pier2 image, the PRSlideshow package from Pier1. Here are a few examples: <http://www.aas-platform.com/about/doc/slideslist/>http://www.aas-platform.com/about/doc/slideslist/ I've a few patches that are attached (not sure if they are mandatory fro the Pier1 package to work with Pier2, and as far as I remember, they are mostly copied from PRSlideshowCrossFade). Also, I've a specialized distribution builder that loads the slides at build time. The scripts are provided below. Hoping this helps, Reza slideWidget slidesWidget ifNotNil: [^slidesWidget]. slidesWidget := self defaultSlideShowWidgetNamed: 'slides'. self addPresentationSlidesTo: slidesWidget from: self defaultSlideShowDir total: self defaultSlideShowSize. ^slidesWidget defaultSlideShowWidgetNamed: aString | aWidget | aWidget := PRComponent named: aString. aWidget title: PRSlideshow label; componentClass: PRSlideshow. aWidget write: true using: PRSlideshow descriptionSlideList; write: true using: PRSlideshow descriptionSlideNumber. ^aWidget addPresentationSlidesTo: aSlidesWidget from: dirS total: aNumber | prefixS suffixS coef fileS fn n t sPage w h contentF p | prefixS := 'Diapositive'. suffixS := '.png'. GRPlatform current isUnix ifTrue: [suffixS := suffixS asUppercase]. coef := "0.8" 1. 1 to: aNumber do: [:i | fileS := dirS, FileDirectory slash, (fn := (prefixS, i printString), suffixS). t := prefixS, ' ', i printString. n := "prefixS" 'slide-', i printString. sPage := PRPage named: n. sPage title: t. w := (768 * coef) printString. h := (576 * coef) printString. sPage contents: ('+', n, '|width=', w, '|height=', h, '+'). contentF := GRPlatform current contentsOfFile: fileS binary: true. p := PRFile named: n. p title: 'Slide ', i printString. p filename: fn; title: t; mimetype: 'image/png'; contents: contentF. aSlidesWidget addChild: sPage. sPage addChild: p]. At 12:36 27/05/2011, Tudor Girba wrote: