Xbasic

A5_LIST_OPEN_WINDOWS Function

Syntax

Window_List as C = a5_list_open_windows()

Arguments

Window_List: A CR-LF delimited list of open windows.

Description

The A5_LIST_OPEN_WINDOWS() function returns a CR-LF delimited list of open windows.

Example

? a5_list_open_windows()
= ControlPanel
Customer_Information
Code_Editor

The following function closes all open windows.

function close_all_windows as C()
dim open_windows as C
open_windows = a5_list_open_windows()
if is_object(topparent.this) then
    current_window = topparent.name()
else
    current_window = ""
end if
open_windows = word_subtract(open_windows,current_window,crlf() )'remove the current window from the list
'generate the Xbasic to close all of the open windows
cmd = *for_each(x, x + ".close() ", open_windows)
'now execute the Xbasic
evaluate_template(cmd)
end function

Limitations

Desktop applications only.