|
|
1.1 ! root 1: '******************************* MYOWN.INC ********************************* ! 2: 'Required Files: MFUNCTS.MST, MSTEST.INC ! 3: ' ! 4: '****************************************************************************** ! 5: ! 6: ! 7: '****************************************************************************** ! 8: ' DEFINES ! 9: '****************************************************************************** ! 10: ! 11: '$DEFINE TESTSCRN ! 12: '$DEFINE TESTCTRL ! 13: '$DEFINE TESTEVNT ! 14: ! 15: ! 16: ! 17: '$INCLUDE 'MSTEST.INC' ! 18: ! 19: 'Prototypes from IMAGEF.MST ! 20: Declare FUNCTION GetSystemMetrics LIB "USER32" (SM_INDEX) AS INTEGER ! 21: Declare FUNCTION FindWindow LIB "USER32" ALIAS "FindWindowA" (szClass$, szWindow$) AS INTEGER ! 22: ! 23: Declare FUNCTION AttachThreadInput LIB "USER32" ALIAS "AttachThreadInput" (idAttach&, idAttachTo&, fAttach&) AS LONG ! 24: Declare FUNCTION GetCurrentThreadId LIB "KERNEL32" ALIAS "GetCurrentThreadId" () AS LONG ! 25: ! 26: Declare Function WinExec Lib "KERNEL32" ALIAS "WinExec" (lpCmdLine$, nCmdShow%) As Integer ! 27: ! 28: ! 29: Declare SUB PlaceViewWindow(BoxSize$) ! 30: Declare SUB PlaceToolBox(tx%,ty%) ! 31: Declare SUB PlacePalette(px%,py%) ! 32: Declare SUB ToolBoxShow(State$) ! 33: Declare SUB PaletteShow(State$) ! 34: Declare SUB ViewWindowShow(State$) ! 35: Declare SUB GridShow(State$) ! 36: Declare SUB SetBrushSize(Size$) ! 37: Declare SUB ProcessResults( FileName$, SubName$, DumpIndex% ) ! 38: Declare SUB CreateGolden( FileName$, SubName$, DumpIndex% ) ! 39: Declare SUB Verify(FileName$, SubName$, DumpIndex%) ! 40: Declare SUB ToolTest(Width$) ! 41: Declare SUB IToolTest(Width$) ! 42: Declare SUB Bitmap32x32x16init ! 43: DECLARE SUB WaitWhileWnd (Title$) ! 44: DECLARE SUB WaitForWnd (Title$) ! 45: ! 46: '$INCLUDE 'IMAGEINC.MST' ! 47: ! 48:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.