Lister Set Position

back to section start!

  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 :)

DOpus PLUS - giving you that bit extra...