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 "No accessible member or object constructor named 'Button' takes"

Browse Source 
Fix "No accessible member or object constructor named 'Button' takes X
arguments. The named argument 'Clicked' doesn't correspond to any
argument or settable return property for any overload.".
This commit is contained in:
Martin Andersen
2020-10-22 11:20:45 +02:00
parent 0446c0a202
commit a0dc1b59c9
1 changed files with 22 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
FSharpExample/Program.fs
View File

@@ -82,11 +82,12 @@ type Demo() = class end
()
let ShowTextAlignments() =
let mutable container = new Dialog(
ustr "Text Alignments", 50, 20,
new Button (ustr "Ok", true, Clicked = Action(Application.RequestStop)),
new Button (ustr "Cancel", true, Clicked = Action(Application.RequestStop))
)
let okButton = new Button(ustr "Ok", true)
okButton.add_Clicked(Action(Application.RequestStop))
let cancelButton = new Button(ustr "Cancel", true)
cancelButton.add_Clicked(Action(Application.RequestStop))
let mutable container = new Dialog(ustr "Text Alignments", 50, 20, okButton, cancelButton)
let mutable (i : int) = 0
let mutable (txt : string) = "Hello world, how are you doing today"
container.Add (
@@ -166,10 +167,12 @@ type Demo() = class end
()
let NewFile() =
let mutable d = new Dialog (ustr "New File", 50, 20,
new Button (ustr "Ok", true, Clicked = Action(Application.RequestStop)),
new Button (ustr "Cancel", true, Clicked = Action(Application.RequestStop))
)
let okButton = new Button(ustr "Ok", true)
okButton.add_Clicked(Action(Application.RequestStop))
let cancelButton = new Button(ustr "Cancel", true)
cancelButton.add_Clicked(Action(Application.RequestStop))
let mutable d = new Dialog (ustr "New File", 50, 20, okButton, cancelButton)
ml2 <- new Label(1, 1, ustr "Mouse Debug Line")
d.Add (ml2)
Application.Run (d)
@@ -297,10 +300,12 @@ type Demo() = class end
|> ignore
let ListSelectionDemo(multiple : System.Boolean) =
let mutable d = new Dialog (ustr "Selection Demo", 60, 20,
new Button (ustr "Ok", true, Clicked = fun () -> Application.RequestStop ()),
new Button (ustr "Cancel", Clicked = fun () -> Application.RequestStop ())
)
let okButton = new Button(ustr "Ok", true)
okButton.add_Clicked(Action(Application.RequestStop))
let cancelButton = new Button(ustr "Cancel")
cancelButton.add_Clicked(Action(Application.RequestStop))
let mutable d = new Dialog (ustr "Selection Demo", 60, 20, okButton, cancelButton)
let mutable animals = new List<string> ()
animals.AddRange([|"Alpaca"; "Llama"; "Lion"; "Shark"; "Goat"|])
let mutable msg = new Label (ustr "Use space bar or control-t to toggle selection",
@@ -331,11 +336,10 @@ type Demo() = class end
MessageBox.Query (60, 10, ustr "Selected Animals", ustr (if result = "" then "No animals selected" else result), ustr "Ok") |> ignore
let OnKeyDownPressUpDemo() =
let mutable container = new Dialog (ustr "KeyDown & KeyPress & KeyUp demo", 80, 20,
new Button (ustr "Close", Clicked = fun () -> Application.RequestStop ()),
Width = Dim.Fill (),
Height = Dim.Fill ()
)
let closeButton = new Button(ustr "Close")
closeButton.add_Clicked(Action(Application.RequestStop))
let mutable container = new Dialog (ustr "KeyDown & KeyPress & KeyUp demo", 80, 20, closeButton, Width = Dim.Fill (), Height = Dim.Fill ())
let mutable list = new List<string> ()
let mutable listView = new ListView (list,