Git_Mirror/Terminal.Gui
1
0
Fork 0
mirror of https://github.com/gui-cs/Terminal.Gui.git synced 2025-12-26 15:57:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix the build issue of F# example

Browse Source
This commit is contained in:
Shohei YOSHIDA
2024-10-30 16:15:03 +09:00
parent 2f7d80a000
commit 43994047ab
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
FSharpExample/Program.fs
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) 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 // 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 if userNameText.Text = "admin" && passwordText.Text = "password" then
MessageBox.Query("Logging In", "Login Successful", "Ok") |> ignore MessageBox.Query("Logging In", "Login Successful", "Ok") |> ignore
ExampleWindow.UserName <- userNameText.Text.ToString() ExampleWindow.UserName <- userNameText.Text.ToString()