' Gambas class file
PUBLIC SUB Button1_Click()
IF Dialog.OpenFile() THEN RETURN
Label1.Text = Dialog.Path
TextArea1.Text = File.Load(Dialog.Path)
END
PUBLIC SUB Button2_Click()
IF Dialog.SaveFile() THEN RETURN
File.Save(Dialog.Path, TextArea1.Text)
END