You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
573 B
16 lines
573 B
2 years ago
|
0 400 400 (* This file caused an infinite loop in the folder before #128 was fixed.*)
|
||
|
|
0 400 400 MODULE Form;
|
||
|
|
0 400 400 IMPORT
|
||
|
|
1 400 400
|
||
|
|
0 400 400 PROCEDURE (bf: ButtonForm) InitializeComponent(), NEW;
|
||
|
|
2 400 401 + BEGIN
|
||
|
|
0 401 401 | bf.SuspendLayout();
|
||
|
|
0 401 401 | REGISTER(bf.button1.Click, bf.button1_Click);
|
||
|
|
0 401 401 | bf.get_Controls().Add(bf.button2);
|
||
|
|
0 401 400 | END InitializeComponent;
|
||
|
|
1 400 400
|
||
|
|
2 400 401 + BEGIN
|
||
|
|
0 401 401 | NEW(bf);
|
||
|
|
0 401 401 | Wfm.Application.Run(bf);
|
||
|
|
0 401 400 | END Form.
|
||
|
|
1 400 400
|