able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/published/sdk/inc/ftestlog.mst

1829 lines
35 KiB
Plaintext
Raw Normal View History

Add source files
2020-09-26 03:20:57 -05:00
'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
Reference in a new issue Copy permalink