瀏覽代碼

Fix "The event 'Toggled' has a non-standard type."

Martin Andersen 4 年之前
父節點
當前提交
878ed5259d
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      FSharpExample/Program.fs

+ 2 - 2
FSharpExample/Program.fs

@@ -449,9 +449,9 @@ type Demo() = class end
                 |]
             )
         menuKeysStyle <- new CheckBox(3, 25, ustr "UseKeysUpDownAsKeysLeftRight", true)
-        menuKeysStyle.Toggled <- Action<bool> (MenuKeysStyle_Toggled)
+        menuKeysStyle.add_Toggled(Action<bool>(MenuKeysStyle_Toggled))
         menuAutoMouseNav <- new CheckBox(40, 25, ustr "UseMenuAutoNavigation", true)
-        menuAutoMouseNav.Toggled <- Action<bool> (MenuAutoMouseNav_Toggled)
+        menuAutoMouseNav.add_Toggled(Action<bool>(MenuAutoMouseNav_Toggled))
         ShowEntries (win)
         let mutable (count : int) = 0
         ml <- new Label(new Rect(3, 17, 47, 1), ustr "Mouse: ")