16 lines
365 B
Plaintext
16 lines
365 B
Plaintext
(* This file caused an infinite loop in the folder before #128 was fixed.*)
|
|
MODULE Form;
|
|
IMPORT
|
|
|
|
PROCEDURE (bf: ButtonForm) InitializeComponent(), NEW;
|
|
BEGIN
|
|
bf.SuspendLayout();
|
|
REGISTER(bf.button1.Click, bf.button1_Click);
|
|
bf.get_Controls().Add(bf.button2);
|
|
END InitializeComponent;
|
|
|
|
BEGIN
|
|
NEW(bf);
|
|
Wfm.Application.Run(bf);
|
|
END Form.
|