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
| ' Gambas class file
PUBLIC SUB btnQuitter_Click()
ME.Close()
END
PUBLIC SUB btnEfface_Click()
TextArea1.Clear()
END
PUBLIC SUB btnCopier_Click()
TextArea1.Copy()
END
PUBLIC SUB btnCouper_Click()
TextArea1.Cut()
END
PUBLIC SUB btnColler_Click()
TextArea1.Paste()
END
PUBLIC SUB btnEnsureVisible_Click()
TextArea1.EnsureVisible()
END
PUBLIC SUB Form_Open()
TextArea1.Pos = 0
END
|