Dec 282017
 
Microsoft Fortran functions for alternatives to terminating a Quickwin Program.
File HF0450.ZIP from The Programmer’s Corner in
Category Miscellaneous Language Source Code
Microsoft Fortran functions for alternatives to terminating a Quickwin Program.
File Name File Size Zip Size Zip Type
EXITMODE.OBJ 297 242 deflated
EXMODE.FOR 1355 375 deflated
FLIB.FD 10025 2062 deflated
FLIB.FI 8002 1447 deflated
HF0450.DOC 6219 2161 deflated
QWIN.LIB 54521 25338 deflated
REPLACE.BAT 408 148 deflated

Download File HF0450.ZIP Here

Contents of the HF0450.DOC file


======================================================================
Microsoft Product Support Services Application Note (Text File)
HF0450: ALTERNATIVES TO QUICKWIN TERMINATION MESSAGE BOX
======================================================================
Revision Date: 9/91
Disk Included

The following information applies to Microsoft FORTRAN version 5.1.

--------------------------------------------------------------------
| INFORMATION PROVIDED IN THIS DOCUMENT AND ANY SOFTWARE THAT MAY |
| ACCOMPANY THIS DOCUMENT (collectively referred to as an |
| Application Note) IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY |
| KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO |
| THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A |
| PARTICULAR PURPOSE. The user assumes the entire risk as to the |
| accuracy and the use of this Application Note. This Application |
| Note may be copied and distributed subject to the following |
| conditions: 1) All text must be copied without modification and |
| all pages must be included; 2) If software is included, all files |
| on the disk(s) must be copied without modification [the MS-DOS(R) |
| utility DISKCOPY is appropriate for this purpose]; 3) All |
| components of this Application Note must be distributed together; |
| and 4) This Application Note may not be distributed for profit. |
| |
| Copyright 1991 Microsoft Corporation. All Rights Reserved. |
| Microsoft, MS-DOS, and the Microsoft logo are registered |
| trademarks and Windows is a trademark of Microsoft Corporation. |
--------------------------------------------------------------------

This application note illustrates how to modify the QuickWin default
for program termination. Included on the enclosed "Alternatives to
QuickWin Termination Message Box" disk are the files listed below;
these files include the new object modules to be added to the QuickWin
run-time library, a batch file that adds the object files to the
QuickWin run-time library, and a sample program that asks the user
which of the three available exit methods to use to terminate the
application.

File Description
---- -----------

EXMODE.FOR FORTRAN QuickWin program example

QWIN.LIB Library of object modules to be added to the
QuickWin run-time library

EXITMODE.OBJ Additional object module to be added to the
QuickWin run-time library

REPLACE.BAT Batch file that modifies the existing QuickWin
run-time library to include QWIN.LIB and
EXITMODE.OBJ

FLIB.FI Updated FLIB.FI

FLIB.FD Updated FLIB.FD

There are three alternatives for terminating a QuickWin application:

1. A termination message box is displayed on conclusion of a QuickWin
application, asking the user whether or not to close the
application window. This is the default method.

2. No message box is displayed on conclusion of the QuickWin
application, and the application window is closed.

3. No message box is displayed on conclusion of the QuickWin
application, and the application window remains active.

Alternatives 2 and 3 require modification of the QuickWin run-time
library and the FLIB.FI and FLIB.FD files.

Implementing the Alternative Exit Mode Functions
------------------------------------------------

1. Copy the QWIN.LIB, EXITMODE.OBJ, and REPLACE.BAT files from the
enclosed disk to your \FORTRAN\LIB directory.

2. Run the batch file REPLACE.BAT by typing "replace" (without the
quotation marks) at the command prompt from within the
\FORTRAN\LIB directory. Your existing LLIBFEW.LIB library will
be changed.

3. Replace the FLIB.FI and FLIB.FD files in your \FORTRAN\INCLUDE
directory with those on the enclosed disk.

After you make these modifications, two new functions (SETEXITQQ and
GETEXITQQ) that control the termination message box mode will be
available to you. The interfaces for these two functions are as
follows:

INTERFACE TO INTEGER*2 FUNCTION SETEXITQQ(EXITMODE)
INTEGER*2 EXITMODE

END

INTERFACE TO INTEGER*2 FUNCTION GETEXITQQ()
END

SETEXITQQ returns a 0 for success and a -1 for failure. The function
will fail upon an incorrect argument. SETEXITQQ takes an argument of
one of the following three constant values and sets the exit mode
accordingly:

Constant Value Result
-------------- ------

QWIN$EXITPROMPT Sets the exit mode to display the termination
message box (the default)

QWIN$EXITNOPERSIST Sets the exit mode to suppress the
termination message box and closes the
application window

QWIN$EXITPERSIST Sets the exit mode to suppress the termination
message box and leaves the application window
open

GETEXITQQ returns the current exit mode, which is one of the above
constant values.

Running the Sample Program
--------------------------

After copying EXMODE.FOR to your hard disk, compile the program at the
command prompt as follows:

fl /MW exmode.for

Run the program as you would any QuickWin application, either by
selecting EXMODE.EXE from the File Manager, by choosing Run from the
File menu and typing the full path to EXMODE.EXE, or by typing the
following at the command prompt:

win exmode

The sample program prompts you for the desired exit mode (select 1 for
QWIN$EXITPROMPT, 2 for QWIN$EXITNOPERSIST, or 3 for QWIN$EXITPERSIST).
The program then uses GETEXITQQ to display the current exit mode and
uses SETEXITQQ to set the exit mode to the desired value. If the exit
mode is correctly set, the program then calls GETEXITQQ to display the
new exit mode before exiting as directed.


 December 28, 2017  Add comments

Leave a Reply