APPNOTE: Alternatives to QuickWin Termination Message Box

 Last reviewed: February 16, 1996
Article ID: Q76368
The information in this article applies to:
  • Microsoft FORTRAN for MS-DOS, version 5.1

SUMMARY

This application note provides three new functions as alternatives to terminating a QuickWin program. To obtain this application note, "Alternatives to QuickWin Termination Message Box," call Microsoft Product Support Services.

HF0450 can be found in the Microsoft Software Library.

Download HF0450.EXE, a self-extracting file, from the Microsoft Software Library (MSL) on the following services:

  • Microsoft Download Service (MSDL) 

          Dial (206) 936-6735 to connect to MSDL
      Download HF0450.EXE (size: 48971 bytes)
  • Internet (anonymous FTP) 

          ftp ftp.microsoft.com
      Change to the \softlib\mslfiles directory
      Get HF0450.EXE (size: 48971 bytes)

MORE INFORMATION

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 "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.

Additional reference words: 5.00 5.10 softlib appnote HF0450.exe
KBCategory: kbtool kbappnote
KBSubcategory: FLIss

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: February 16, 1996
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.