Fortran - Removing QuickWin

Author

Removing QuickWin

David Larsen

2004-10-05, 8:58 pm

I have a FORTRAN app that is a QuickWin app. It was built with
Microsofts 5.1 compiler. I need to rid myself of the Quickwin
wrappings.

Some issues seem to be related to the I/O.

I've included the first few lines of my code...

Can anyone tell me how IUNIT plays into all this? There is also an
IREADUNIT. These seem to be blocking my I/O. I want to just do I/O
through standard input and output.

Any suggestions would be appreciated.

--------------
The code...

include 'c:\superl\fortran\include\flib.fi'

PROGRAM MAIN

include 'c:\superl\fortran\include\flib.fd'

RECORD /QWINFO/ WINFO
INTEGER*2 IUNIT,IREQ,IC

C FIND OUT MAX SIZE FOR APPICATION(OR FRAME WINDOW - THE MAIN WINDOW
(*)
IREQ=QWIN$FRAMEMAX
IC=GETWSIZEQQ(IUNIT,IREQ,WINFO)

C SET FRAME TO MAXIMIZE
WINFO.TYPE=QWIN$MAX
IC=SETWSIZEQQ(IUNIT,WINFO)

C OPENING MESSAGE BOX
IC=MESSAGEBOXQQ('Welcome to DYNAMIC PBS - Version 2.1'C,
+' 'C, MB$ICONINFORMATION.OR.MB$OK)

C FOR THE ABOUT BOX
IC=ABOUTBOXQQ('Welcome to DYNAMIC PBS - Version 2.1'C)

C CASCADE ALL WINDOWS
IC=CLICKQQ(QWIN$CASCADE)

C ****************************************
WRITE PROGRAM HERE
CALL CBPROG(IUNIT)
C ****************************************
END PROGRAM
900 CLOSE(IUNIT)
CONTINUE
END

rih5342

2004-10-15, 8:56 pm

It would be helpful to know if
you still using DOS, or if you are using QuickWin under Windows 2000 with
CVF V6.

In any case, the window you last opened has the focus,
and you to keep track of this, ie which window you are
using, with your iunit variables. Each window needs its own
variable, and number.

Your QuickWin program is pretty minimal, and you may benefit from
downloading a sample QuickWin from Compaq,
but its usefulness depends on what OS you're using.

You remove all the QuickWin code as follows.

program main
integer iunit
CALL CBPROG(IUNIT)
end program main

QuickWin ain't so bad once you get to know it a little.
If you're using CVF, try the sample download, that'll
"fleshout" how to take advantage of it.

Sponsored Links