Dim f as folderitem
If Document = nil or DisplaySaveDialog = True then
   f=GetSaveFolderItem("text",FileName)
   If f <> nil then //if the user clicked Save
      Title=f.Name
      Document=f
   End if
End if
If Document <> nil then
   Document.SaveStyledEditField TextField
   TextHasChanged=False
End if

Example 4: REALbasic BASIC.