The lister set position command allows you to move listers around the
screen, this could be useful for uncovering parts of the display or, as you
can see here , Edmund has used it to emulate the Opus v4 SwapWin
command.
Example:
/* ListerPosition.dopus5 */
options results
address 'DOPUS.1'
dopus front
dopus screen
width = word(result,4)
"lister new 0/50/200/200"
handle = result
text = 'What''s over there ->'
lister request handle '"'text'" OK'
do forever
lister query handle position
pos = result
parse var pos x'/'y'/'w'/'h
newx = x + 5
if newx + w > width then do
text = 'Looks like the end of the screen!'
lister request handle '"'text'" OK'
leave
end
x = newx
lister set handle position x'/'y'/'w'/'h
end
address command wait 2
lister close handle
exit
I'm sure someone can think of another use for this command :)
|