works great on XP! cool!
> -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Wouter > Sent: Wednesday, August 18, 2004 18:12 > To: [EMAIL PROTECTED] > Subject: fun with emerging stacks > > > For those who like things coming out of thin air. > Place the following in a button named "fader": > > /* place this one in the card script or in an existing preOpenStack > handler > on preOpenStack > send "startTheProcess" to btn "fader" > end preOpenStack > */ > > on startTheProcess > set the loc of this stack to -1000,1000 > set decorations of this stack to noshadow,empty > doCapture > send "fadeIn" to me in 100 millisecs > end startTheProcess > > on doCapture > put the screenloc into tSL > put the width of this stack div 2 into tW > put the height of this stack div 2 into tH > put item 1 of tSL - tW,item 2 of tsL - tH,item 1 of tSL + tW,item 2 > of tsL + tH into tRect > if the width of this stack mod 2 = 1 then add 1 to item 3 of tRect > if the height of this stack mod 2 = 1 then add 1 to item 4 of tRect > import snapshot from rect tRect > choose browse tool > set the name of last control to "tempimage" > set the blendlevel of img "tempimage" to 0 > set the loc of this stack to the screenloc > end doCapture > > on fadeIn > if there is an img "tempimage" then > set the blendlevel of img "tempimage" to (the blendlevel of img > "tempimage" + 2) > if the blendlevel of img "tempimage" < 100 then send "fadeIn" to me > in 20 millisecs > else > delete img "tempimage" > if the decorations of this stack = noshadow then set the > decorations of this stack to default > end if > end if > end fadeIn > > on mouseUp > if the decorations of this stack = noshadow then > set the decorations of this stack to default > if there is a img "tempimage" then > delete img "tempimage" > end if > else > answer "Do you want to do it again?" with "No" or "Ok" > if it is "Ok" then > send "startTheProcess" to me > end if > end if > end mouseUp > > It is just an experiment and it performs well on Mac OS X. > But it is not tested on other platforms yet. > So please.... > TIA, > WA > > _______________________________________________ > use-revolution mailing list > [EMAIL PROTECTED] > http://lists.runrev.com/mailman/listinfo/use-revolution _______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution
