I suspect having 
> LONG IF isPictOn=_true
> PICTURE OFF, pictHandle
separated from the rest of your pict making code.

Try making your pict completely in a separate FN.
Picture on: draw pict: Picture off: all in a separate fn
Make the pictHandle global or pass it to the save fn which would also be a
separate function.



> From: Tom Russell <tom@...>
> Reply-To: <futurebasic@...>
> Date: Mon, 3 May 2010 19:27:19 -0400
> To: <futurebasic@...>
> Subject: [FB] Save a Pict file
> 
> I have a file I am converting from FB2 to FB5.4.4.
> 
> I am having some issues trying to save a pict file. I use the same function in
> another project, code is the same but for some reason it just will not even
> prompt for a "Save As" dialog.
> 
> Code is this:
> 
> Dim filename$
> dim as FSSpec saveSpec
> LONG IF isPictOn=_true
> PICTURE OFF, pictHandle
> 'saves PICT as a file
> LONG IF pictHandle'valid handle?
> DEF OPEN "PICT"
> filename$=FILES$(_FSSpecSave,"Save PICT as...","Untitled",saveSpec)
> OPEN "O",1,@saveSpec
> WRITE FILE#1, @buff%(0),512'save 512 byte empty header
> bytes& = FN GETHANDLESIZE(pictHandle)'get picture size
> WRITE FILE#1, [pictHandle], bytes&'save it
> CLOSE #1'close it
> END IF
> END IF
> 
> 
> I have everything dimmed and all but this just does not seem to do anything.
> It normally gets called via a menu choice but seems to lock up and display a
> window that is blank.
> 
> Anything I should be looking for trying to figure this out?
> 
> Also, does it matter whether this is a single file or should I place it in a
> project?
> 
> Thanks,
> 
> Tom
> --
> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
>