Home
Saving
Add a SaveAs dialogue box to the drawfile application in Example 2.4.b and attach it to the window as its Show menu object.
I.e. when the menu button is pressed over the window a SaveAs dialogue box pops up.
- Double-click the SaveAs object in the resfile display
- Select the Deliver event before showing option
- Add the event-handler
DEF PROCDealWith_SaveAs(event,object,component)
CASE event OF
WHEN SaveAs_AboutToBeShown
PROCSaveAs_SetDataAddress(object,drawfile,length)
ENDCASE
ENDPROC
The PROCSaveAs_SetDataAddress method supplies the address and length of the drawfile to the SaveAs object which automatically takes care of all aspects of the save. - Worked solution
- Double-click the SaveAs object in the resfile display
- Select the Client participates option
- Add the event-handler
DEF PROCDealWith_SaveAs(event,object,component)
LOCAL filename$
CASE event OF
WHEN SaveAs_SaveToFile
PROCSaveAs_GetFileName(object,filename$)
PROCFile_Save(filename$,drawfile,length,&AFF)
PROCSaveAs_FileSaveCompleted(object,filename$)
ENDCASE
ENDPROC
DEF PROCFile_Save(filename$,buffer,length,filetype%)
SYS "OS_File",10,filename$,filetype%,,buffer,buffer+length
ENDPROC
The SaveAs_SaveToFile event is reported when the save is to be made. The client retrieves the pathname of the file by calling the PROCSaveAs_GetFileName method and signals that the save is completed by calling PROCSaveAs_FileSaveCompleted. The client must provide the orutines which perform the save e.g. PROCFile_Save above. - Worked solution