History in QuickWin window

[ferrad01]

We have a number of QuickWin applications. The scrolling history is lost beyond 1.5 pages or so. I'm not sure how to increase the buffer size to increase the number of lines we can scroll back.

This is what we use to set up the window:

type (windowconfig) wc

wc.numtextrows = 26
wc.numtextcols = 80
wc.numcolors = -1
wc%mode = QWIN$SCROLLDOWN
wc.title = "esp"C
wc.fontsize = -1

I see nothing in ifqwin.f90 to set the buffer size.

Any idea?

[ferrad01]

Steve, any idea ...???

If I set the font size to #0080010 and write the integers 1-400, and then pause, I can scroll back to 336 or 67 lines in total. (336-400 + 2 lines for the "Fortran Pause ..." statement).

With the font size to -1 I can only scroll back to 376 or 27 lines in total.

[ferrad01]

Steve,
Here the code:

program wintest

use MT
use DFLIB

implicit none

integer :: i
logical :: cstatus
type (windowconfig) :: wc

wc%numxpixels = 1920
wc%numypixels = 1024
wc%numtextrows = 200
wc%numtextcols = 80
wc%numcolors = -1
wc%mode = QWIN$SCROLLDOWN
wc%title = "esp"C
wc%fontsize = #0080010

cstatus = SETWINDOWCONFIG(wc)

do i = 1, 400
write(6,'(i10)') i
enddo

pause

end

[Michael_J_Slater__In]

I don't think you can.

There is support for doing this using the regular console it appears.

http://software.intel.com/sites/products/documentation/hpc/compilerpro/en-us/fortran/win/compiler_f/bldaps_for/win/bldaps_use_console.htm#conscode

[Steven_L_Intel1]

Yes, it can be done. I am trying to locate an example demonstrating it - may take me a while (I am traveling this week.)

[ferrad01]

... any update?

[Steven_L_Intel1]

I've attached two samples from CVF that may be of use to you.

TESTSCRL.F90 is the one I was remembering. CONFUNC.F90 is an interesting alternative - it shows how you can use a regular console window from a QuickWin application. I have not tried this in Intel Fortran but I see no reason they shouldn't work.

[ferrad01]

I tried playing with the file TESTSCRL.F90 which manages to display / scroll back a few more lines than my app. However I can only get rows (numbers) 174-1500 (1327 lines) to display in the scroll back. I tried increasing wc%numtextrows but that did not help.

Modifed file attached.

[Steven_L_Intel1]

The problem with this approach is that it doesn't scale well. You are creating a huge bitmap window and there are Windows limits to how large it can be.

I had thought this sample repositioned the cursor, but I guess not. Perhaps you'd do better with using a real console window for this. You can use the approach in the other attachment or just call the Windows API AllocConsole and use WriteFile to write to it.

[ferrad01]

Just an update: I got it to get to the end of the window by adding:

wc%mode = QWIN$SCROLLDOWN

Adrian