From 893386563554b3cbe092b95663446db60237b7d4 Mon Sep 17 00:00:00 2001 From: BDisp Date: Sun, 14 Jun 2020 21:15:15 +0100 Subject: [PATCH] Update FSharpExample. --- FSharpExample/Program.fs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/FSharpExample/Program.fs b/FSharpExample/Program.fs index f6f4d2462..079a5dd9a 100644 --- a/FSharpExample/Program.fs +++ b/FSharpExample/Program.fs @@ -140,7 +140,7 @@ type Demo() = class end container.Add (login, loginText, password, passText, new FrameView (new Rect (3, 10, 25, 6), ustr "Options", [|new CheckBox (1, 0, ustr "Remember me"); - new RadioGroup (1, 2, [|"_Personal"; "_Company"|])|] + new RadioGroup (1, 2, [|ustr "_Personal"; ustr "_Company"|])|] ), new ListView (new Rect(59, 6, 16, 4), [|"First row"; @@ -434,8 +434,7 @@ type Demo() = class end new StatusItem(Key.F2, ustr "~F2~ Load", Action(Load)); new StatusItem(Key.F3, ustr "~F3~ Save", Action(Save)); new StatusItem(Key.ControlX, ustr "~^X~ Quit", fun () -> if (Quit ()) then top.Running <- false) - |], - Parent = null + |] ) win.Add (drag, dragText) let mutable bottom = new Label(ustr "This should go on the bottom of the same top-level!")