浏览代码

Merge branch 'v2_develop' into v2_3761_2886-Draw-and-Layout-Perf

Tig 8 月之前
父节点
当前提交
72f0f3b0f8
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      FSharpExample/Program.fs

+ 1 - 1
FSharpExample/Program.fs

@@ -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()