From: J.Merkel@TBX.berlinet.de (Joachim Merkel)
Hi,
S. Mitchell wrote:
> I assume that everything is now working/answered/finished regarding SaveAs 
and
> SaveBlock, referring to your last message on the TSE Pro mailing list?
Thanks, my wishes are fullfilled .
I have built many macros for the TSE, but this was the one I missed most.
Joachim Merkel
I built the following in my UI:
-----------------------------------------------------------------
menu AppendMenu()
    TITLE = "Choose"
    "&Overlay existing file"    // not just QEdit nostalgia
    "&Append to file"
end
                                                          // a second one
proc mSaveAs()                                            // proc 
SaveBlock()
                                                          // exists too, with
    string fNameStr[225] = CurrFilename()                 // ..= ""
    if AskFileName("Save file as:", fNameStr, _FULL_PATH_,
_EDIT_HISTORY_) and Length(fNameStr)
        if FileExists(CurrFileName())
            AppendMenu()
            case MenuOption()
                when 1
                    SaveAs(fNameStr, _OVERWRITE_)
                when 2
                    SaveAs(fNameStr, _APPEND_)
                otherwise
                    message("Operation canceled.")
                    Delay(10)
                    UpdateDisplay(_ALL_WINDOWS_REFRESH_)
            endcase
        else
                    SaveAs(fNameStr, _DEFAULT_)
        endif
    endif
end
---
---------------