How to use projects to do a slide show
Last updated at 4:57 pm UTC on 16 January 2006
From: Bob Arning
Subject: Re: [Q][presentation] Slide-show of projects
Date: Thu, 21 Feb 2002
>On Thu, 21 Feb 2002 Hannes Hirzel (email@example.com) wrote:
>I tried a simple code snippet to get a slide show of the projects I have in an image. Actually I put the code below into a class method I call from the world's personal menu.
[Project allNames do: [ :n |
(Project named: n) enter. (Delay forMilliseconds: 5000) wait]]
But it did not work. Just one project was opened and then it stopped. Does anybody have a suggestion for a solution?
First filein this
'From Squeak3.3alpha of 28 January 2002 [latest update: #4736] on 21 February 2002 at 8:57:54 pm'!
!Collection methodsFor: 'testing' stamp: 'RAA 2/21/2002 20:57'!enterNextProject
| tempProject m p |
self isEmpty ifTrue: [^self].
tempProject _ Project named: self first.
(m _ DoCommandOnceMorph new)
color: Color transparent;
borderColor: Color transparent;
p _ Project current projectParameters.
p at: #armsLengthCmd ifPresent: [ :morph | morph delete].
p removeKey: #armsLengthCmd ifAbsent: .
(Delay forMilliseconds: 1000) wait.
self allButFirst enterNextProject.
Then do this:
(Project allNames copyWithout: Project current name) enterNextProject