WoConfirmClose Procedure

Reference Guide > W Routines > WoConfirmClose Procedure

Displays a dialog box requiring the user to confirm a window close action.

Usage

WoConfirmClose, wid, tool_name

Input Parameters

wid — (long) Specifies the widget ID of the parent of the dialog box.

tool_name — (string) Specifies the unique name of the VDA Tool to close.

Input Keywords

NoUnRegister — If nonzero, the VDA Tool is not automatically unregistered.

Output Keywords

Status — Returns the status of the user interaction: If 0, then the user cancelled the close operation; if 1, the user confirmed the close operation.

Discussion

If the user’s response is to close the VDA Tool, TmUnregister is called to close the specified VDA Tool.

This routine is registered with the ConfirmClose keyword of the WwInit and WwMainWindow functions. It is used when the Close command on the Window Manager menu is selected. This routine is also used by the File menu’s Exit command in VDA Tools.

WoConfirmClose checks the confirmClose resource to determine whether or not to display the confirmation dialog box. If this resource is set to FALSE, the TmUnregister procedure is called without asking the user to confirm the close.

Example 1

The following command is taken from the code for the WzColorEdit VDA Tool. Here, WoConfirmClose is called as a keyword to the WwMainWindow function.

...

top = WwMainWindow (parent, layout, 'WoDestroyCB', $

   Shell_name = 'WzColorEdit', Layout_name = 'toolArea', $

   ConfirmClose = 'WoConfirmClose', Title = unique_name, $

   /Form, Userdata = unique_name)

...

Example 2

The NoUnRegister and Status keywords are primarily used by the Navigator. These keywords allow the Navigator to systematically unregister VDA Tools when the Navigator is unregistered.

PRO NavCloseCB, wid, index

   ; Forward declaration of TM functions.

   DECLARE FUNC, TmEnumerateToolNames

   DECLARE FUNC, TmGetTop

   top = TmGetTop('Navigator')

   ; Make sure the user wants to quit.

   WoConfirmClose, top, 'Navigator', Status=status, $

      /NoUnRegister

   ; If answer affirmative, close all tools, ending with Nav.

   IF status EQ 1 THEN BEGIN

      all_tools = TmEnumerateToolNames()

      FOR i=0L, N_ELEMENTS(all_tools)-1 DO BEGIN

         IF all_tools(i) NE 'Navigator' $

           THEN TmUnregister, all_tools(i)

      ENDFOR

      ; Finish with the Navigator closed.

      TmUnregister, 'Navigator'

   ENDIF

END