21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
38 lines
508 B
Text
38 lines
508 B
Text
' Gambas class file
|
|
|
|
Static Public User As String
|
|
Static Public Password As String
|
|
|
|
'Private $sUrl As String
|
|
'Private $sRealm As String
|
|
|
|
Public Sub Run(sUrl As String, sRealm As String) As Boolean
|
|
|
|
lblRealm.Text = sRealm
|
|
Me.Title = sUrl
|
|
'$sUrl = sUrl
|
|
'$sRealm = sRealm
|
|
Return Not Me.ShowModal()
|
|
|
|
End
|
|
|
|
Public Sub btnOK_Click()
|
|
|
|
User = txtUser.Text
|
|
Password = txtPassword.Text
|
|
Me.Close(True)
|
|
|
|
End
|
|
|
|
Public Sub btnCancel_Click()
|
|
|
|
Me.Close
|
|
|
|
End
|
|
|
|
|
|
Public Sub Form_Open()
|
|
|
|
txtUser.SetFocus
|
|
|
|
End
|