Merge branch 'v2_develop' into ansi-parser

This commit is contained in:
Thomas Nind
2024-11-10 04:07:17 +00:00
committed by GitHub

View File

@@ -19,7 +19,7 @@ type ExampleWindow() as this =
let btnLogin = new Button(Text = "Login", Y = Pos.Bottom(passwordLabel) + Pos.op_Implicit(1), X = Pos.Center(), IsDefault = true)
// When login button is clicked display a message popup
btnLogin.Accept.Add(fun _ ->
btnLogin.Accepting.Add(fun _ ->
if userNameText.Text = "admin" && passwordText.Text = "password" then
MessageBox.Query("Logging In", "Login Successful", "Ok") |> ignore
ExampleWindow.UserName <- userNameText.Text.ToString()