Microsoft KB Archive/76368

= Alternatives to QuickWin Termination Message Box =

PSS ID Number: 76368

Article Last Modified on 4/20/2003

-

The information in this article applies to:


 * Microsoft FORTRAN Compiler for MS-DOS 5.1

-



This article was previously published under Q76368



SUMMARY
The application note, &quot;Alternatives to QuickWin Termination Message Box,&quot; provides three new functions as alternatives to terminating a QuickWin program. To obtain this application note, please see the self-extracting executable file to follow.



MORE INFORMATION
The following file is available for download from the Microsoft Download Center:

hf0450.exe

For additional information about how to download Microsoft Support files, click the following article number to view the article in the Microsoft Knowledge Base:

119591 How to Obtain Microsoft Support Files from Online Services

Microsoft scanned this file for viruses. Microsoft used the most current virus-detection software that was available on the date that the file was posted. The file is stored on security-enhanced servers that help to prevent any unauthorized changes to the file. The following is the text of the application note: ====================================================================== 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 &quot;AS IS&quot; 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.   |
 * 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 &quot;Alternatives to QuickWin Termination Message Box&quot; 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 &quot;replace&quot; (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.

Keywords: kbappnote kbfile kbinfo kbLangFortran KB76368

Technology: kbAudDeveloper kbFORTRAN510DOS kbFortranSearch kbZNotKeyword3

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© 2004 Microsoft Corporation. All rights reserved.