|
|
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.