21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
29 lines
293 B
Text
29 lines
293 B
Text
' Gambas class file
|
|
|
|
Static $sText As String
|
|
|
|
Public Sub Run(sText As String) As Boolean
|
|
|
|
$sText = sText
|
|
Return Not Me.ShowModal()
|
|
|
|
End
|
|
|
|
Public Sub btnOK_Click()
|
|
|
|
Me.Close(True)
|
|
|
|
End
|
|
|
|
Public Sub btnCancel_Click()
|
|
|
|
Me.Close
|
|
|
|
End
|
|
|
|
|
|
Public Sub Form_Open()
|
|
|
|
TextArea1.Text = $sText
|
|
|
|
End
|