Moveto top

pmichael · ‎08-18-2002

After outputting a bunch (~100 lines) of text to a QWICKWIN window (after SETWINDOWCONFIG(wc)) I would like to scroll to the top so that the user can read the top lines first. I have tried:
CALL MOVETO(int2(1),int2(1),XXYYxy)
and
CALL settextposition(int2(1),int2(1),XXYYrc)

Neither did anything at all! Any suggestions?

james1 · ‎08-19-2002

Make sure your window has enough buffer lines for your output. For example:

program test ! quickwin
use dflib
implicit none
type (windowconfig) wc
integer i
if (GETWINDOWCONFIG(wc)) then
  wc%numxpixels  = -1
  wc%numypixels  = -1
  wc%numtextrows = 120
  call SETWINDOWCONFIG(wc)
end if
call clearscreen($GCLEARSCREEN)
do i = 1, 100
  print *, "Hello, this is line ", i
end do
pause
end program test

James

pmichael · ‎08-20-2002

Sorry for posting such a dumb question!

It was all my fault, I had nadvertently left the folloing statment in my program:

wc.mode = QWIN$SCROLLDOWN

and so, of course, window was scrolled to bottom.