WzClose Procedure

WzClose Procedure

Closes all VDA tools registered with the Tools Manager.

Usage

WzClose

Parameters

None.

Keywords

Tools — A string or string array of tool names to unregister and close. If this keyword is set only the tool names listed are unregistered.

Discussion

The string names in the Tools keyword ARE case sensitive and must match items in the list given by:

TmInit

tools = TmEnumerateToolNames()

PM, tools

Example

PRO BBOXCB, wid, which

   DECLARE FUNC, TmEnumerateToolNames

   DECLARE FUNC, TmGetTop

   CASE which OF

      1: BEGIN

            WzPlot, RANDOMN(s,100), Parent=wid, Xsize=300, $

               Ysize=300, Position=[100,200]

            WzPlot, HANNING(100), Parent=wid, Xsize=400, $

               Ysize=300, Position=[150,250]

            WzSurface, DIST(200), Parent=wid, Xsize=200, $

               Ysize=200, Position=[300, 400]

END

      2: BEGIN

            TmInit

            tools = TmEnumerateToolNames()

            PM, tools, title='Open tools are:'

            WzClose, tools='WzPlot_0'

            WzClose, tools=['WzPlot_1', 'WzSurface_0']

            WzClose

END

   ENDCASE

END

PRO WZCLOSE_TEST

   topshell = WwInit('WzClose Test', 'WzClose Test', $

                 layout, /Vertical)

   button = WwButtonBox(layout, $

	            ['Create VDA Tools', 'Close All'], 'BBOXCB')

   status = WwSetValue(topshell, /Display)

   WwLoop

END