Browse Source

Merge pull request #691 from BDisp/fsharp-example

Update FSharpExample.
Charlie Kindel 5 years ago
parent
commit
35a7a9e8d8
1 changed files with 2 additions and 3 deletions
  1. 2 3
      FSharpExample/Program.fs

+ 2 - 3
FSharpExample/Program.fs

@@ -140,7 +140,7 @@ type Demo() = class end
         container.Add (login, loginText, password, passText,
         container.Add (login, loginText, password, passText,
             new FrameView (new Rect (3, 10, 25, 6), ustr "Options",
             new FrameView (new Rect (3, 10, 25, 6), ustr "Options",
                 [|new CheckBox (1, 0, ustr "Remember me");
                 [|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),
             new ListView (new Rect(59, 6, 16, 4),
                     [|"First row";
                     [|"First row";
@@ -434,8 +434,7 @@ type Demo() = class end
             new StatusItem(Key.F2, ustr "~F2~ Load", Action(Load));
             new StatusItem(Key.F2, ustr "~F2~ Load", Action(Load));
             new StatusItem(Key.F3, ustr "~F3~ Save", Action(Save));
             new StatusItem(Key.F3, ustr "~F3~ Save", Action(Save));
             new StatusItem(Key.ControlX, ustr "~^X~ Quit", fun () -> if (Quit ()) then top.Running <- false)
             new StatusItem(Key.ControlX, ustr "~^X~ Quit", fun () -> if (Quit ()) then top.Running <- false)
-            |],
-            Parent = null
+            |]
             )
             )
         win.Add (drag, dragText)
         win.Add (drag, dragText)
         let mutable bottom = new Label(ustr "This should go on the bottom of the same top-level!")
         let mutable bottom = new Label(ustr "This should go on the bottom of the same top-level!")