/* version info
$VER: vertool 1.0 (3.11.99)
*/

options results
options failat 50
address workbench

GETATTR OBJECT WINDOWS.ACTIVE
activewin=result
getattr object window.icons.selected.count name '"' || activewin || '"'
iconnum = result
do i=0 to iconnum-1
getattr object window.icons.selected.i name '"' || activewin || '"' stem iconinfo.i
sep = '/'
if right(activewin,1)=':' then sep=''
if activewin='root' then do
    sep=''
    activewin=''
    end
fullpath = '"' || activewin || sep || iconinfo.i.name || '"'
address command
version '>t:version.tmp' fullpath 'full'
dummy = open('vertmp','t:version.tmp','R')
ver = readln('vertmp')
dummy = close('vertmp')
requestchoice '>nil: "'|| iconinfo.i.name ||'" "' || ver || '" OK'
delete '>nil: t:version.tmp'
end