Return to ftestlog.mst CVS log

Up to [WindowsNT SDKs] / mstools / mstest / include

Microsoft Windows NT Build 511 (SDK Final Release) 07-24-1993

'XTestLog.inc - definitions for Fast Test Utility routines
'
'  Copyright (c) 1991-1992, Microsoft Corporation. All rights reserved.
'
'Purpose:
' This file defines the Log and Dialog functions of the Fast Test
' functionality
'


'**********************************************************
'***************** Log Subroutines ************************
'**********************************************************

' XSetLogFileName(stFilename$)
'
' Description:
'       Sets global variable for use as the log name
'       The global variable gsCurrentDir$ can be used to build
'       the log name (it is the current directory for when the
'       script is started).  The default log name if this function
'       is not called, is gsCurrentDir$ + "\TESTLOG.LOG"
'
' Parameters:
'       stFilename$ - the filename to log to
'
' Returns:
'       nothing
'
' Example:
'       XSetLogFileName "c:\test\app.log"
'       XSetLogFileName gsCurrentDir$ + "\app.log"

SUB XSetLogFilename(sFilename$) STATIC

    gsLogFileName = sFilename$

END SUB

'
' XSetTerminate(fTerminate%)
'
' Description:
'       Sets the terminate state to argument.  If terminate is FALSE
'       the XLogfailure will log the failure but execution will
'       continue.  This can lead to many failures in the log do to
'       one early failure.  It can also give many valid failures in
'       a single run (checking all menu states for instance).
'
'
' Parameters:
'       fTerminate - TRUE if should terminate on failure on, FALSE if not
'
' Returns:
'       nothing
'
' Example:
'       XSetTerminate FALSE      ' allow multiple failures to be logged
'
'
SUB XSetTerminate(fTerminate%) STATIC
    gfTerminate% = fTerminate%
END SUB


'
' XLog(stString$)
'
' Description:
'       Logs string to one or several destinations
'       1. Disk  2. Screen  3. COM1 port 4: COM2 port 5. MsgBox
'       based on a OR'd Global flag gfLogOptions. The CONST's to
'       work with are LOG_DISK, LOG_SCREEN, LOG_COM, and
'       LOG_MSGBOX respectively.
'
' Parameters:
'       stString$  - string to Log
'
' Returns:
'       nothing
'
' Example:
'       XSetLogOptions LOG_DISK OR LOG_SCREEN
'       XLog "Something to Log"   'this will be logged to disk and viewport
'
'
SUB XLog (stLog$) STATIC
    DIM fh%

    fh% = FREEFILE

    IF gfLogOptions THEN
        gErrorType = ET_LOG


        IF (LOG_DISK AND gfLogOptions) THEN
            Open gsLogFileName$ For Append As #fh%
            Print #fh%, stLog$
            Close #fh%

        END IF

        IF (LOG_SCREEN AND gfLogOptions) THEN
            'Print the string to the Viewport
            Print stLog$
        END IF

        IF (LOG_COM1 AND gfLogOptions) THEN
            'log to comport COM1

            OPEN "COM1" For Append as #fh%
            Print #fh%, stLog$
            Close #fh%
        END IF

        IF (LOG_COM2 AND gfLogOptions) THEN
            'log to comport COM2

            OPEN "COM2" For Append as #fh%
            Print #fh%, stLog$
            Close #fh%
        END IF

        IF (LOG_MSGBOX AND gfLogOptions) THEN
            'Put the string in a MsgBox
            IF stLog$ <> "" THEN
                Pause stLog$
            END IF
        END IF
        gErrorType = ET_NOTHING

    END IF  'gfLogOptions
END SUB



'
' XLogBanner(stString$)
'
' Description:
'       Logs string with a blank line before and after,
'       and adds five *'s before and after the string.
'
' Parameters:
'       stString$  - string to Log
'
' Returns:
'       nothing
'
' Example:
'       XLogBanner "Starting FOO Test"
'
'


SUB XLogBanner(lpszInput$) STATIC

    XLog ""
    XLog "***** " + lpszInput$ + " *****"
    XLog ""

END SUB



'
' XLogWarning(stString$)
'
' Description:
'       Adds Warning banner to string
'
' Parameters:
'       stString$  - string to Log
'
' Returns:
'       nothing
'
' Example:
'       XLogWarning "Too many menu items??"
'
'

SUB XLogWarning(lpszInput$) STATIC

    XLog ""
    XLog "!!! =====> WARNING <===== !!!"
    XLog "***** " + lpszInput$ + " *****"
    XLog ""

END SUB



' XLogFailure (stFailure$)
'
' Description:
'     Logs failure with banner and ends the script
'
' Parameters:
'     stFailure - Error string to logged
'
' Return:
'     nothing
'
' Example:
'     XLogFailure "Button does not exist"
'
'

SUB XLogFailure(stFailure$) STATIC
    XLog ""
    XLog "***************** FAILURE ******************"
    XLog stFailure$
    XLog "********************************************"
    XLog ""
    IF gfTerminate THEN
        End
    ELSE
        gfFailure = TRUE
    END IF
END SUB

'
' XFailureCheck
'
' Description:
'       this routine checks to see if any failures
'       have occured.  If so, the script is stopped.  This would
'       be used if XSetTerminate has been used to disable the stopping
'       of the script on failures.
'
'
' Parameters:
'       none
'
' Returns:
'       nothing
'
' Example:
'       XFailureCheck        ' fail if other failures at this point
'
'
SUB XFailureCheck STATIC
    IF gfFailure THEN
        XSetTerminate TRUE
        XLogFailure "Ending script; failures have occurred"
    END IF
END SUB


'
' XSetLogOptions (wLogOptions%)
'
' Description:
'     Sets the global log options flag to the passed options
'
' Parameters:
'     wLogOptions  - a set of bits OR'ed together.
'                    currently we have LOG_COM1 LOG_COM2 LOG_SCREEN LOG_DISK
'                    and LOG_MSGBOX
' Return:
'     nothing
'
' Example:
'     XSetLogOptions LOG_COM1 OR LOG_SCREEN    'enable logging to screen and com1
'
SUB XSetLogOptions (wLogOptions%) STATIC
    'set the global log flag
    gfLogOptions = wLogOptions
    gfTmpLogOptions = gfLogOptions    ' allows XLogOn after XSetLogOptions
END SUB


'
' XLogOff ()
'
' Description:
'     Turn off logging
'
' Parameters:
'     none
'
' Return:
'     nothing
'
' Example:
'     XLogOff
'
'
SUB XLogOff () STATIC
    'save the global log flag to a temporary and set options to zero
    gfTmpLogOptions = gfLogOptions
    gfLogOptions = 0
END SUB



'
' XLogOn ()
'
' Description:
'     Turn on logging
'
' Parameters:
'     none
'
' Return:
'     nothing
'
' Example:
'     XLogOn
'
'
SUB XLogOn () STATIC
    'restore log options saved in temporary
    gfLogOptions = gfTmpLogOptions
END SUB



'**********************************************************
'***************** Dialog Subroutines *********************
'**********************************************************



'
' XDialogBoxExists(s$)
'
' Description:
'       Check if a dialog box exists with given captions
'
' Parameters:
'       s$ - caption of dialog to search for
'
' Returns:
'       nothing
'
' Example:
'       XDialogBoxExists "Open"
'
'
SUB XDialogBoxExists(s$) STATIC
    ' won't work if app creates special class for its dialogs

    IF FindWindow(gsDialogClass$,s$) = 0 THEN
        XLogFailure "dialog box " + s$ + " doesn't exist"
    END IF

END SUB

'
' XDialogBoxNotExists(s$)
'
' Description:
'       Check that a dialog of given caption doesn't exist
'
' Parameters:
'       s$ - caption of dialog to search for
'
' Returns:
'       nothing
'
' Example:
'       XDialogBoxNotExists "Close"
'
'
SUB XDialogBoxNotExists(s$) STATIC

    ' won't work if app creates special class for its dialogs

    IF FindWindow(gsDialogClass$,s$) <> 0 THEN
        XLogFailure "dialog box " + s$ + " exists"
    END IF

END SUB

'
' BDialogBoxExists(s$)
'
' Description:
'       return if a dialog with given captions exists
'
' Parameters:
'       s$ caption of dialog to search for
'
' Returns:
'       TRUE if exist, FALSE if not
'
' Example:
'       fHaveOpen% = BDialogBoxExists("Open")
'
'
'
FUNCTION BDialogBoxExists%(s$) STATIC

    ' won't work if app creates special class for its dialogs

    BDialogBoxExists = FindWindow(gsDialogClass$,s$) <> 0

END FUNCTION

'
' XWaitDialogBox(s$, WaitTime%)
'
' Description:
'       wait for dialog box with string argument for caption and
'       integer argument as estimate of time to keep trying before
'       logging a failure
'
' Parameters:
'       s$ - caption of dialog to search for
'       WaitTime% - max time to keep checking for dialog
'
' Returns:
'       nothing
'
' Example:
'       XWaitDialogBox "Done"
'
'
SUB XWaitDialogBox(s$, WaitTime%) STATIC

    DIM hWnd%
    DIM fDone%
    DIM fFound%
    DIM ret%

    fDone = FALSE
    fFound = FALSE


    WHILE NOT fDone%

        ' class for dialogs created by windows is gsDialogClass$
        ' won't work if app creates special class for its dialogs
        hWnd% = FindWindow(gsDialogClass$,s$)
        IF hWnd% <> 0 THEN
            fFound = TRUE
            fDone = TRUE
        ELSE
            SLEEP 1
            WaitTime% = WaitTime% - 1
            IF WaitTime% <= 0 THEN
                fDone = TRUE
            END IF
        END IF

    WEND
    IF NOT fFound% THEN
        XLogFailure "FAIL """ + s$ + """ dialogbox not found"
    END IF
END SUB





'       **********************************************************
'       ***************** Dialog: Button Subroutines *************
'       **********************************************************


'
' BButtonExists(stButtonName$)
'
' Description:
'       This procedure checks to see if the specified button
'       exists or not.
'
' Parameters:
'       stButtonName$      = button to be checked.
'
' Returns:
'       TRUE if button exists, FALSE if button does not exist.
'
' Example:
'       fExists% = BButtonExists("OK")
'
FUNCTION BButtonExists%(stButtonName$) STATIC

    BButtonExists = WButtonExists(stButtonName$) <> 0

END FUNCTION


'
' XButtonExists (stButtonName$)
'
' Description:
'       Reports error if button does not exist in active window.
'
' Parameters:
'       stButtonName$  - button to be found.
'
' Returns:
'       nothing
'
' Example:
'       XButtonExists "Cancel"
'
'
'
SUB XButtonExists(stButton$) STATIC
    IF BButtonExists(stButton$) = 0 THEN
        XLogFailure stButton$ + " does not Exist"
    END IF
END SUB


'
' XButtonNotExists (stButtonName$)
'
' Description:
'       Reports error if button Exists in active window.
'
' Parameters:
'       stButtonName$  - button to not be found.
'
' Returns:
'       nothing
'
' Example:
'       XButtonNotExists "Cancel"
'
'
'
SUB XButtonNotExists(stButton$) STATIC
    IF BButtonExists(stButton$) THEN
        XLogFailure stButton$ + " Exists"
    END IF
END SUB


'
' BButtonEnabled(stButtonName$)
'
' Description:
'       This procedure checks to see if the specified button
'       is enabled or not.
'
' Parameters:
'       stButtonName$ - button to be checked.
'
' Returns:
'       TRUE if button enabled, FALSE if button not enabled.
'
' Example:
'       fEnabled% = BButtonEnabled("OK")
'
FUNCTION BButtonEnabled%(stButtonName$) STATIC

    BButtonEnabled = WButtonEnabled(stButtonName$) <> 0

END FUNCTION


'
' XButtonEnabled (stButtonName$)
'
' Description:
'       Reports error if button is not Enabled.
'
' Parameters:
'       stButtonName$  - button to be checked.
'
' Returns:
'       nothing
'
' Example:
'       XButtonEnabled "Cancel"
'
'
SUB XButtonEnabled(stButton$) STATIC
    XButtonExists stButton$
    IF BButtonEnabled(stButton$) = 0 THEN
        XLogFailure stButton$ + " is not Enabled"
    END IF
END SUB


'
' XButtonNotEnabled (stButtonName$)
'
' Description:
'       Reports error if button is Enabled.
'
' Parameters:
'       stButtonName$  - button to be checked.
'
' Returns:
'       nothing
'
' Example:
'       XButtonNotEnabled "Cancel"
'
'
SUB XButtonNotEnabled(stButton$) STATIC
    XButtonExists stButton$
    IF BButtonEnabled(stButton$) THEN
        XLogFailure stButton$ + " Enabled"
    END IF
END SUB


'
' XClickButton(stButtonName$)
'
' Description:
'       This procedure clicks the specified button in the
'       currently active window.
'
' Parameters:
'       stButtonName$ - button to be clicked.
'
' Returns:
'       nothing
'
' Example:
'       XClickButton "OK"
'
'
SUB XClickButton(stButtonName$) STATIC
    XButtonExists stButtonName$
    WButtonClick stButtonName$

END SUB



'       **********************************************************
'       ************* Dialog: List Box Subroutines ***************
'       **********************************************************



'
' BListBoxExists(stListBox$)
'
' Description:
'       This procedure checks to see if the specified ListBox
'       exists or not.
'
' Parameters:
'       stListBox$ - ListBox to be checked.
'
' Returns:
'       TRUE if ListBox exists, FALSE if ListBox does not exist.
'
' Example:
'       fExists% = BListBoxExists("cars")
'
FUNCTION BListBoxExists%(stListBox$) STATIC

    BListBoxExists = WListExists(stListBox$) <> 0

END FUNCTION


'
' XListBoxExists (stListBox$)
'
' Description:
'       Reports error if ListBox does not exist in active window.
'
' Parameters:
'       stListBox$  - ListBox to be found.
'
' Returns:
'       nothing
'
' Example:
'       XListBoxExists "Cars"
'
'
SUB XListBoxExists(stListBox$) STATIC

    IF WListExists(stListBox$) = 0 THEN
        XLogFailure "ListBox " + stListBox$ + " does not Exist"
    END IF

END SUB

'
' XListBoxNotExists (stListBox$)
'
' Description:
'       Reports error if ListBox exists in active window.
'
' Parameters:
'       stListBox$  - ListBox not to be found.
'
' Returns:
'       nothing
'
' Example:
'       XListBoxNotExists "cars"
'
SUB XListBoxNotExists(stListBox$) STATIC

    IF WListExists(stListBox$) THEN
        XLogFailure "ListBox " + stListBox$ + " exists"
    END IF

END SUB





'
' XFocusListBox(stListBox$)
'
' Description:
'       This procedure puts focus to the specified ListBox in the
'       currently active window.
'
' Parameters:
'       stListBox$ - ListBox to be given focus.
'
' Returns:
'       nothing
'
' Example:
'       XFocusListBox "&Files:"
'
SUB XFocusListBox(stListBox$) STATIC

    IF WListExists(stListBox$) THEN
        WListItemClk stListBox$,1     'it now has focus
    ELSE
        XLogFailure "Could not put focus on " + stListBox$ + " ListBox"
    END IF

END SUB




'
' IGetListBoxItemCount%(stListBox$)
'
' Description:
'       Returns the number of items in listbox stListBox$.
'
' Parameters:
'       stListBox$ - ListBox to get item count from
'
' Returns:
'       Int   -  List box item count
'
' Example:
'       num% = IGetListBoxItemCount ("cars")
'
'
FUNCTION IGetListBoxItemCount%(stListBox$) STATIC
    XListBoxExists stListBox$
    IGetListBoxItemCount = WListCount(stListBox$)

END FUNCTION



'
' BListBoxItemExists%(stListBox$, stListBoxItem$)
'
' Description:
'       Returns true if list box item exists, false otherwise.
'
' Parameters:
'       stListBox$- ListBox to look in
'       stListBoxItem$ - Item to look for
'
' Returns:
'       Int - 0 if item does not exist, positive val otherwise
'
' Example:
'       flag% = BListBoxItemExists ("&Files:","FOO.C")
'
'
FUNCTION BListBoxItemExists%(stListBox$, stListBoxItem$) STATIC

    BListBoxItemExists = WListItemExists (stListBox$, stListBoxItem$) <> 0

END FUNCTION




'
' XListBoxItemExists(stListBox$, stListBoxItem$)
'
' Description:
'       Logs failure if list box item does not exist
'
' Parameters:
'       stListBox$- ListBox to look in
'       stListBoxItem$ - Item to look for
'
' Returns:
'       nothing
'
' Example:
'       XListBoxItemExists "&Files:","FOO.C"
'
'
SUB XListBoxItemExists (stListBox$, stListBoxItem$) STATIC

    XListBoxExists stListBox$
    IF WListItemExists (stListBox$, stListBoxItem$) = 0 THEN
        XLogFailure "ListBoxItem " + stListBoxItem$ + " does not exist"
    END IF

END SUB


'
' XListBoxItemNotExists(stListBox$, stListBoxItem$)
'
' Description:
'       Logs failure if list box item exists
'
' Parameters:
'       stListBox$ - ListBox to look in
'       stListBoxItem$ - Item to look for
'
' Returns:
'       nothing
'
' Example:
'       XListBoxItemNotExists "&Files:","FOO.C"
'
'
SUB XListBoxItemNotExists (stListBox$, stListBoxItem$) STATIC

    XListBoxExists stListBox$
    IF WListItemExists (stListBox$, stListBoxItem$) <> 0 THEN
        XLogFailure "ListBoxItem " + stListBoxItem$ + " exists"
    END IF

END SUB




'
' XClickListBoxItem(stListBox$, stListBoxItem$)
'
' Description:
'       Clicks on list box item
'
' Parameters:
'       stListBox$ - ListBox to look in
'       stListBoxItem$ - Item to click on
'
' Returns:
'       nothing
'
' Example:
'       XClickListBoxItem "&Files:","FOO.C"
'
'
SUB XClickListBoxItem (stListBox$, stListBoxItem$) STATIC

    XListBoxExists stListBox$
    XListBoxItemExists stListBox$, stListBoxItem$
    WListItemClkT stListBox$, stListBoxItem$

END SUB




'
' XDblClickListBoxItem% (stListBox$, stListBoxItem$)
'
' Description:
'       Clicks on list box item
'
' Parameters:
'       stListBox$ - ListBox to look in
'       stListBoxItem$ - Item to click on
'
' Returns:
'       nothing
'
' Example:
'       XDblClickListBoxItem "&Files:","FOO.C"
'
'
SUB XDblClickListBoxItem (stListBox$, stListBoxItem$) STATIC

    XListBoxExists stListBox$
    XListBoxItemExists stListBox$, stListBoxItem$
    WListItemDblClkT stListBox$, stListBoxItem$

END SUB




'
' SGetListBoxItemText (stListBox$)
'
' Description:
'       Returns currently selected list box item
'
' Parameters:
'       stListBox$ is the listbox to get item from
'
' Returns:
'       ListBox Item string
'
' Example:
'       a$ = SGetListBoxItemText ("&User List:")
'
'
FUNCTION SGetListBoxItemText$(stListBox$) STATIC

    XListBoxExists stListBox$
    SGetListBoxItemText = ListText(stListBox$)

END FUNCTION



'       **********************************************************
'       ************* Dialog: Combo Box Subroutines **************
'       **********************************************************



'
' BComboBoxExists%(stComboBox$)
'
' Description:
'       This procedure checks to see if the specified ComboBox
'       exists or not.
'
' Parameters:
'       stComboBox$  = ComboBox to be checked.
'
' Returns:
'       TRUE if ComboBox exists.
'       FALSE if ComboBox does not exist.
'
' Example:
'       fExists% = BComboBoxExists("&File")
'
FUNCTION BComboBoxExists%(stComboBox$) STATIC

    BComboBoxExists = WComboExists(stComboBox$) <> 0

END FUNCTION


'
' XComboBoxExists (stComboBox$)
'
' Description:
'       Reports error if ComboBox does not exist in active window.
'
' Parameters:
'       stComboBox$  - ComboBox to be found.
'
' Returns:
'       nothing
'
' Example:
'       XComboBoxExists "&File"
'
'
SUB XComboBoxExists(stComboBox$) STATIC

    IF WComboExists(stComboBox$) = 0 THEN
        XLogFailure "ComboBox " + stComboBox$ + " does not Exist"
    END IF

END SUB

'
' XComboBoxNotExists (stComboBox$)
'
' Description:
'       Reports error if ComboBox exists in active window.
'
' Parameters:
'       stComboBox$  - ComboBox not to be found.
'
' Returns:
'       nothing
'
' Example:
'       XComboBoxNotExists "&File"
'
SUB XComboBoxNotExists(stComboBox$) STATIC

    IF WComboExists(stComboBox$) THEN
        XLogFailure "ComboBox " + stComboBox$ + " exists"
    END IF

END SUB





'
' XFocusComboBox(stComboBox$)
'
' Description:
'       This procedure puts focus to the specified ComboBox in the
'       currently active window.
'
' Parameters:
'       stComboBox$  = ComboBox to be given focus.
'
' Returns:
'       nothing
'
' Example:
'       XFocusComboBox("&Files:")
'
SUB XFocusComboBox(stComboBox$) STATIC

    IF WComboExists(stComboBox$) THEN
        WComboItemClk stComboBox$,1     'it now has focus
    ELSE
        XLogFailure "Could not put focus on " + stComboBox$ + " ComboBox"
    END IF

END SUB




'
' IWGetComboBoxItemCount%(stComboBox$)
'
' Description:
'       Returns the number of items in ComboBox stComboBox$.
'
' Parameters:
'       stComboBox$ - ComboBox to get item count from
'
' Returns:
'       Int   -  Combo box item count
'
' Example:
'       num% = WComboBoxItemCount ()
'
'
FUNCTION IGetComboBoxItemCount%(stComboBox$) STATIC
    XComboBoxExists stComboBox$
    IGetComboBoxItemCount = WComboCount(stComboBox$)

END FUNCTION



'
' BComboBoxItemExists%(stComboBox$, stComboBoxItem$)
'
' Description:
'       Returns true if Combo box item exists, false otherwise.
'
' Parameters:
'       stComboBox$ - ComboBox to look in
'       stComboBoxItem$ - Item to look for
'
' Returns:
'       Int - 0 if item does not exist, positive val otherwise
'
' Example:
'       flag% = BComboBoxItemExists("&Files","FOO.C")
'
FUNCTION BComboBoxItemExists%(stComboBox$, stComboBoxItem$) STATIC

    BComboBoxItemExists = WComboItemExists (stComboBox$, stComboBoxItem$) <> 0

END FUNCTION




'
' XComboBoxItemExists(stComboBox$, stComboBoxItem$)
'
' Description:
'       Logs failure if combo box item does not exist
'
' Parameters:
'       stComboBox$ - ComboBox to look in
'       stComboBoxItem$ - Item to look for
'
' Returns:
'       nothing
'
' Example:
'       XComboBoxItemExists "&Files","FOO.C"
'
'
SUB XComboBoxItemExists (stComboBox$, stComboBoxItem$) STATIC
    XComboBoxExists stComboBox$
    IF WComboItemExists (stComboBox$, stComboBoxItem$) = 0 THEN
        XLogFailure "ComboBoxItem " + stComboBoxItem$ + " does not exist"
    END IF

END SUB


'
' XComboBoxItemNotExists(stComboBox$, stComboBoxItem$)
'
' Description:
'       Logs failure if combo box item exists
'
' Parameters:
'       stComboBox$ - ComboBox to look in
'       stComboBoxItem$ - Item to look for
'
' Returns:
'       nothing
'
' Example:
'       XComboBoxItemNotExists "&Files","FOO.C"
'
'
SUB XComboBoxItemNotExists (stComboBox$, stComboBoxItem$) STATIC

    XComboBoxExists stComboBox$
    IF WComboItemExists (stComboBox$, stComboBoxItem$) THEN
        XLogFailure "ComboBoxItem " + stComboBoxItem$ + " exists"
    END IF

END SUB




'
' XClickComboBoxItem(stComboBox$, stComboBoxItem$)
'
' Description:
'       Clicks on Combo box item
'
' Parameters:
'       stComboBox$ - ComboBox to look in
'       stComboBoxItem$ - Item to click on
'
' Returns:
'       nothing
'
' Example:
'       XClickComboBoxItem "&Files","FOO.C"
'
'
SUB XClickComboBoxItem (stComboBox$, stComboBoxItem$) STATIC

    XComboBoxExists stComboBox$
    XComboBoxItemExists stComboBox$,stComboBoxItem$
    WComboItemClkT stComboBox$, stComboBoxItem$

END SUB




'
' XDblClickComboBoxItem% (stComboBox$, stComboBoxItem$)
'
' Description:
'       Clicks on combo box item
'
' Parameters:
'       stComboBox$ - ComboBox to look in
'       stComboBoxItem$ - Item to click on
'
' Returns:
'       nothing
'
' Example:
'       XDblClickComboBoxItem "&Files","FOO.C"
'
'
SUB XDblClickComboBoxItem (stComboBox$, stComboBoxItem$) STATIC

    XComboBoxExists stComboBox$
    XComboBoxItemExists stComboBox$,stComboBoxItem$
    WComboItemDblClkT stComboBox$, stComboBoxItem$

END SUB




'
' StGetComboBoxItemText (stComboBox$)
'
' Description:
'       Returns currently selected Combo box item
'
' Parameters:
'       stComboBox$ is the ComboBox to get item from
'
' Returns:
'       ComboBox Item string
'
' Example:
'       a$ = SGetComboBoxItemText ("&User List:")
'
FUNCTION SGetComboBoxItemText$(stComboBox$) STATIC

    XComboBoxExists stComboBox$
    XComboBoxItemExists stComboBox$,stComboBoxItem$
    SGetComboBoxItemText = ComboText(stComboBox$)

END FUNCTION



'       **********************************************************
'       ************* Dialog: Check Box Subroutines **************
'       **********************************************************



'
' BCheckBoxExists(stCheckBox$)
'
' Description:
'       This procedure checks to see if the specified CheckBox
'       exists or not.
'
' Parameters:
'       stCheckBox$ = CheckBox to be checked.
'
' Returns:
'       TRUE if CheckBox exists.
'       FALSE if CheckBox does not exist.
'
' Example:
'       fExists% = BCheckBoxExists("&Delete")
'
FUNCTION BCheckBoxExists%(stCheckBox$) STATIC

    BCheckBoxExists = WCheckExists(stCheckBox$) <> 0

END FUNCTION


'
' XCheckBoxExists (stCheckBox$)
'
' Description:
'       Reports error if CheckBox does not exist in active window.
'
' Parameters:
'       stCheckBox$  - CheckBox to be found.
'
' Returns:
'       nothing
'
' Example:
'       XCheckBoxExists "&Delete"
'
SUB XCheckBoxExists(stCheckBox$) STATIC
    IF BCheckBoxExists(stCheckBox$) = 0 THEN
        XLogFailure "CheckBox " + stCheckBox$ + " does not Exist"
    END IF
END SUB


'
' XCheckBoxNotExists (stCheckBox$)
'
' Description:
'       Reports error if CheckBox Exists in active window.
'
' Parameters:
'       stCheckBox$  - CheckBox to not be found.
'
' Returns:
'       nothing
'
' Example:
'       XCheckBoxNotExists "&Delete"
'
'
SUB XCheckBoxNotExists(stCheckBox$) STATIC
    IF BCheckBoxExists(stCheckBox$) THEN
        XLogFailure "CheckBox " + stCheckBox$ + " Exists"
    END IF
END SUB

'
' BCheckBoxChecked(stCheckBox$)
'
' Description:
'       This procedure checks the state of checkbox
'
' Parameters:
'       stCheckBox$ = CheckBox to check state of.
'
' Returns:
'       -1(true) if the check box is checked.
'       0(false) if the check box is not checked.
'
' Example:
'       state% = BCheckBoxChecked("Special")
'
FUNCTION BCheckBoxChecked%(stCheckBox$) STATIC
    BCheckBoxChecked = WCheckState(stCheckBox$) <> 0
END FUNCTION


'
' XCheckBoxChecked(stCheckBox$)
'
' Description:
'       This procedure checks the state of checkbox
'
' Parameters:
'       stCheckBox$ = CheckBox to check state of.
'
' Returns:
'       -1(true) if the check box is checked.
'       0(false) if the check box is not checked.
'
' Example:
'       XCheckBoxChecked "Special"
'
SUB XCheckBoxChecked(stCheckBox$) STATIC
    XCheckBoxExists stCheckBox$
    IF BCheckBoxChecked(stCheckBox$) = 0 THEN
        XLogFailure "CheckBox " + stCheckBox$ + " is not checked"
    END IF

END SUB

'
' XCheckBoxNotChecked(stCheckBox$)
'
' Description:
'       This procedure checks the state of checkbox
'
' Parameters:
'       stCheckBox$ = CheckBox to check state of.
'
' Returns:
'       -1(true) if the check box is checked.
'       0(false) if the check box is not checked.
'
' Example:
'       XCheckBoxNotChecked "Special"
'
SUB XCheckBoxNotChecked(stCheckBox$) STATIC
    XCheckBoxExists stCheckBox$
    IF BCheckBoxChecked(stCheckBox$) THEN
        XLogFailure "CheckBox " + stCheckBox$ + " is checked"
    END IF

END SUB


'
' BCheckBoxEnabled(stCheckBox$)
'
' Description:
'       This procedure checks to see if the specified CheckBox
'       is enabled or not.
'
' Parameters:
'       stCheckBox$ = CheckBox to be checked.
'
' Returns:
'       TRUE if CheckBox enabled.
'       FALSE if CheckBox not enabled.
'
' Example:
'       fEnabled% = BCheckBoxEnabled("&Delete")
'
FUNCTION BCheckBoxEnabled%(stCheckBox$) STATIC

    BCheckBoxEnabled = WCheckEnabled(stCheckBox$) <> 0

END FUNCTION


'
' XCheckBoxEnabled (stCheckBox$)
'
' Description:
'       Reports error if CheckBox is not Enabled.
'
' Parameters:
'       stCheckBox$  - CheckBox to be checked.
'
' Returns:
'       nothing
'
' Example:
'       XCheckBoxEnabled "&Delete"
'
'
SUB XCheckBoxEnabled(stCheckBox$) STATIC
    XCheckBoxExists(stCheckBox$)
    IF BCheckBoxEnabled(stCheckBox$) = 0 THEN
        XLogFailure "CheckBox " + stCheckBox$ + " is not Enabled"
    END IF
END SUB


'
' XCheckBoxNotEnabled (stCheckBox$)
'
' Description:
'       Reports error if CheckBox is Enabled.
'
' Parameters:
'       stCheckBox$  - CheckBox to be checked.
'
' Returns:
'       nothing
'
' Example:
'       XCheckBoxNotEnabled "&Delete"
'
SUB XCheckBoxNotEnabled(stCheckBox$) STATIC
    XCheckBoxExists(stCheckBox$)
    IF BCheckBoxEnabled(stCheckBox$) THEN
        XLogFailure "CheckBox " + stCheckBox$ + " is Enabled"
    END IF

END SUB


'
' XClickCheckBox(stCheckBox$)
'
' Description:
'       This procedure clicks the specified CheckBox in the
'       currently active window.
'
' Parameters:
'       stCheckBox$ = CheckBox to be clicked.
'
' Returns:
'       nothing
'
' Example:
'       XClickCheckBox "&Delete"
'
SUB XClickCheckBox(stCheckBox$) STATIC
    XCheckBoxExists stCheckBox$
    WCheckClick stCheckBox$

END SUB



'       **********************************************************
'       ************* Dialog: Edit Control Subroutines ***********
'       **********************************************************


'
' XEditTextExists(stEditText$)
'
' Description:
'       This procedure checks to see if the specified EditText
'       exists or not.
'
' Parameters:
'       stEditText$ = EditText to be checked.
'
' Returns:
'       TRUE if EditText exists.
'       FALSE if EditText does not exist.
'
' Example:
'       XEditTextExists "File"
'
SUB XEditTextExists(stEditText$) STATIC

    IF BEditTextExists(stEditText$) = 0 THEN
        XLogFailure "Edit Text control " + stEditText$ + " does not exist"
    END IF

END SUB

'
' XEditTextNotExists(stEditTextNot$)
'
' Description:
'       This procedure checks to see that the specified EditText
'       doesn't exist
'
' Parameters:
'       stEditTextNot$ = EditText to be checked.
'
' Example:
'       XEditTextNotExists "File"
'
SUB XEditTextNotExists(stEditTextNot$) STATIC

    IF BEditTextExists(stEditTextNot$) THEN
        XLogFailure "Edit Text control " + stEditTextNot$ + " exists"
    END IF

END SUB

'
' BEditTextExists(stEditText$)
'
' Description:
'       This procedure checks to see if the specified EditText
'       exists or not.
'
' Parameters:
'       stEditText$ = EditText to be checked.
'
' Returns:
'       TRUE if EditText exists.
'       FALSE if EditText does not exist.
'
' Example:
'       fExists% = BEditTextExists("File")
'
FUNCTION BEditTextExists%(stEditText$) STATIC

    BEditTextExists = WEditExists(stEditText$) <> 0

END FUNCTION

'
' StGetEditText (stEditCaption$)
'
' Description:
'        Returns string in Edit box with caption stEditCaption$
'        Logs error if stEditCaption$ is not found, or if Edit control
'        is not found following stEditCaption$ in the tabbing order.
'
' Parameters:
'       stEditCaption$ - Caption that is associated with edit control
'
' Returns:
'       String that is in the Edit control
'
' Example:
'       a$ = SGetEditText("&FileName:")
'
'
FUNCTION SGetEditText$(stEditCaption$) STATIC
    XEditTextExists stEditCaption$
    SGetEditText = EditText(stEditCaption$)

END FUNCTION





'
' XSetEditText (stEditCaption$, stEditText$)
'
' Description:
'       Puts string stEditText$ in Edit box with caption stEditCaption$
'       Logs error if stEditCaption$ is not found, or if Edit control
'       is not found following stEditCaption$ in the tabbing order.
'
' Parameters:
'       stEditCaption$ - Caption that is associated with edit control
'       stEditText$ - Text to put in the Edit control
'
' Returns:
'       nothing
'
' Example:
'       XSetEditText "&FileName:", "calc.exe"
'
'

SUB XSetEditText (stEditCaption$, stEditText$) STATIC

    XEditTextExists stEditCaption$
    WEditSetText stEditCaption$, stEditText$

END SUB





'       **********************************************************
'       ************* Dialog: Option Button Subroutines ***********
'       **********************************************************



'
' BOptionButtonExists(stOptionButton$)
'
' Description:
'       This procedure checks to see if the specified OptionButton
'       exists or not.
'
' Parameters:
'       stOptionButton$ = OptionButton to be checked.
'
' Returns:
'       TRUE if OptionButton exists.
'       FALSE if OptionButton does not exist.
'
' Example:
'       fExists% = BOptionButtonExists("Blue")
'
FUNCTION BOptionButtonExists%(stOptionButton$) STATIC

    BOptionButtonExists = WOptionExists(stOptionButton$) <> 0

END FUNCTION


'
' XOptionButtonExists (stOptionButton$)
'
' Description:
'       Reports error if OptionButton does not exist in active window.
'
' Parameters:
'       stOptionButton$  - OptionButton to be found.
'
' Returns:
'       nothing
'
' Example:
'       XOptionButtonExists "Blue"
'
SUB XOptionButtonExists(stOptionButton$) STATIC
    IF BOptionButtonExists(stOptionButton$) = 0 THEN
        XLogFailure "OptionButton " + stOptionButton$ + " does not Exist"
    END IF
END SUB


'
' XOptionButtonNotExists (stOptionButton$)
'
' Description:
'       Reports error if OptionButton Exists in active window.
'
' Parameters:
'       stOptionButton$  - OptionButton to not be found.
'
' Returns:
'       nothing
'
' Example:
'       XOptionButtonNotExists "Blue"
'
SUB XOptionButtonNotExists(stOptionButton$) STATIC
    IF BOptionButtonExists(stOptionButton$) THEN
        XLogFailure "OptionButton " + stOptionButton$ + " Exists"
    END IF
END SUB


'
' BOptionButtonEnabled(stOptionButton$)
'
' Description:
'       This procedure checks to see if the specified OptionButton
'       is enabled or not.
'
' Parameters:
'       stOptionButton$ = OptionButton to be checked.
'
' Returns:
'       TRUE if OptionButton enabled.
'       FALSE if OptionButton not enabled.
'
' Example:
'       fEnabled% = BOptionButtonEnabled("Blue")
'
FUNCTION BOptionButtonEnabled%(stOptionButton$) STATIC
    BOptionButtonEnabled = WOptionEnabled(stOptionButton$) <> 0
END FUNCTION


'
' XOptionButtonEnabled (stOptionButton$)
'
' Description:
'       Reports error if OptionButton is not Enabled.
'
' Parameters:
'       stOptionButton$  - OptionButton to be checked.
'
' Returns:
'       nothing
'
' Example:
'       XOptionButtonEnabled "Blue"
'
SUB XOptionButtonEnabled(stOptionButton$) STATIC
    XOptionButtonExists stOptionButton$
    IF BOptionButtonEnabled(stOptionButton$) = 0 THEN
        XLogFailure "OptionButton " + stOptionButton$ + " is not Enabled"
    END IF
END SUB


'
' XOptionButtonNotEnabled (stOptionButton$)
'
' Description:
'       Reports error if OptionButton is Enabled.
'
' Parameters:
'       stOptionButton$  - OptionButton to be checked.
'
' Returns:
'       nothing
'
' Example:
'       XOptionButtonNotEnabled "Blue"
'
'
SUB XOptionButtonNotEnabled(stOptionButton$) STATIC
    XOptionButtonExists stOptionButton$
    IF BOptionButtonEnabled(stOptionButton$) THEN
        XLogFailure "OptionButton " + stOptionButton$ + " Enabled"
    END IF
END SUB

'
' BOptionButtonChecked(stOptionButton$)
'
' Description:
'       This procedure checks to see if the specified OptionButton
'       is Checked or not.
'
' Parameters:
'       stOptionButton$ = OptionButton to be checked.
'
' Returns:
'       TRUE if OptionButton Checked.
'       FALSE if OptionButton not Checked.
'
' Example:
'       fChecked% = BOptionButtonChecked("Blue")
'
FUNCTION BOptionButtonChecked%(stOptionButton$) STATIC

    BOptionButtonChecked = WOptionState(stOptionButton$) <> 0

END FUNCTION


'
' XOptionButtonChecked (stOptionButton$)
'
' Description:
'       Reports error if OptionButton is not Checked.
'
' Parameters:
'       stOptionButton$  - OptionButton to be checked.
'
' Returns:
'       nothing
'
' Example:
'       XOptionButtonChecked "Blue"
'
SUB XOptionButtonChecked(stOptionButton$) STATIC
    XOptionButtonExists stOptionButton$
    IF BOptionButtonChecked(stOptionButton$) = 0 THEN
        XLogFailure "OptionButton " + stOptionButton$ + " is not Checked"
    END IF
END SUB


'
' XOptionButtonNotChecked (stOptionButton$)
'
' Description:
'       Reports error if OptionButton is Checked.
'
' Parameters:
'       stOptionButton$  - OptionButton to be checked.
'
' Returns:
'       nothing
'
' Example:
'       XOptionButtonNotChecked "Blue"
'
'
SUB XOptionButtonNotChecked(stOptionButton$) STATIC
    XOptionButtonExists stOptionButton$
    IF BOptionButtonChecked(stOptionButton$) THEN
        XLogFailure "OptionButton " + stOptionButton$ + " Checked"
    END IF
END SUB


'
' XClickOptionButton(stOptionButton$)
'
' Description:
'       This procedure clicks the specified OptionButton in the
'       currently active window.
'
' Parameters:
'       stOptionButton$ = OptionButton to be clicked.
'
' Returns:
'       nothing
'
' Example:
'       XClickOptionButton "Blue"
'
SUB XClickOptionButton(stOptionButton$) STATIC
    XOptionButtonExists stOptionButton$
    WOptionClick stOptionButton$

END SUB

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.