gambas-source-code/app/examples/Networking/SerialPort/.src/FAbout.class

' Gambas class file


Public Sub Form_Open()

  FAbout.text = ("About")
  Label1.width = FAbout.width
  Label1.text = Application.name & " " & ("Version") & " " & Application.Version

End

Public Sub Button1_Click()

  Me.close

End
[EXAMPLES] * NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec 2014-12-12 20:58:52 +01:00			`' Gambas class file`


			`Public Sub Form_Open()`

examples: SerialPort: better caption of About dialog 2019-05-23 08:33:31 +02:00			`FAbout.text = ("About")`
[EXAMPLES] * NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec 2014-12-12 20:58:52 +01:00			`Label1.width = FAbout.width`
examples: Networking: improve i18n 2019-05-17 09:04:14 +02:00			`Label1.text = Application.name & " " & ("Version") & " " & Application.Version`
[EXAMPLES] * NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec 2014-12-12 20:58:52 +01:00
			`End`

			`Public Sub Button1_Click()`

			`Me.close`

			`End`