' 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