-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathsample.sc2
84 lines (68 loc) · 2.43 KB
/
sample.sc2
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.20" SourceFile="sample.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
*<PropValue>
DataSource = .NULL.
Height = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
*<PropValue>
Caption = "Sample form"
DoCreate = .T.
Height = 116
Left = 0
Name = "Form1"
Top = 0
Width = 233
*</PropValue>
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "Cause an error", ;
FontName = "Segoe UI", ;
Height = 27, ;
Left = 41, ;
Name = "Command1", ;
Top = 24, ;
Width = 150
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Caption = "Cause an error inside TRY", ;
FontName = "Segoe UI", ;
Height = 27, ;
Left = 41, ;
Name = "Command2", ;
Top = 64, ;
Width = 150
*< END OBJECT: BaseClass="commandbutton" />
PROCEDURE QueryUnload
clear events
ENDPROC
PROCEDURE Command1.Click
* This causes an error because Y hasn't been defined.
x = y
messagebox('This message appears after the error has occurred.')
ENDPROC
PROCEDURE Command2.Click
* Raise a error in a method of an object that has code in its Error method
* called from inside a TRY structure.
try
loTest = newobject('Test', 'sample.vcx')
loTest.Test()
catch
endtry
ENDPROC
ENDDEFINE