/* Quit.dme */
/* Copyright © 1994 Fergus Duniho */

if ~show("L","rexxreqtools.library") then
    if ~addlib("rexxreqtools.library", 0, -30) then exit

options results
'rxresult $fname'
name = result
'rxresult $modified'
m = result
if m = 0 then do
    tstr = ""
    btext = "Quit" name || "?"
    gadtxt = " _Quit | _Cancel "
end
else do
    tstr = "*** Text has been modified!!! ***"
    btext = "DO YOU REALLY WANT TO QUIT" name || "?"
    gadtxt = " _Quit | _Save & Quit | _Cancel "
end
tagstr = "rt_reqpos=reqpos_centerscr"
call rtezrequest(btext, gadtxt, tstr, tagstr)
if rtresult = 2 then do
    call save()
end
if rtresult > 0 then do
    'mw- viewmode off modified off quit updmenu'
end