Rev Crash Again! ... cardImage() function

[Dar Scott]

On Friday, January 9, 2004, at 05:10 AM, Wouter wrote:

> #### = changed
> function cardImage theStack ####
>   local tCurrentCardImage, tOldBuffer, tID
>   put the alwaysBuffer of stack theStack into tOldBuffer
>   put the cantmodify of stack theStack into tCMOldBuffer  ####
>   set the cantmodify of  stack theStack to false   ####
>   set the alwaysBuffer of  stack theStack to false
>   set the alwaysBuffer of stack theStack to true
>   put the windowID of stack theStack into wID
>   put the pixMapID of  stack theStack into pID
>   if not ((pID is wID) or (pID is 0)) then
>     create invisible image
>     put the imagePixMapID of last image into tID
>     set the imagePixMapID of last image to (the pixMapID of stack 
> theStack) ####
>     export last image to tCurrentCardImage as PNG
>     set the imagePixMapID of last image to tID
>     set the alwaysBuffer of stack theStack to false
>     set the cantmodify of stack theStack to tCMOldBuffer  ####
>     delete last image
>   end if
>   return tCurrentCardImage
> end cardImage

I like it!  Maybe theStack can be made optional, too.  If so, should it 
be defaultStack or topStack?

Anybody have ideas on specifying the card?

Dar Scott