Fsharp examples

src/.gitignore

@@ -328,4 +328,8 @@ ASALocalRun/
 # MFractors (Xamarin productivity tool) working folder
 .mfractor/
 
-**/*.qmlc
+**/*.qmlc
+
+# VS Code
+.ionide
+.vscode

src/Features/CalculatorModel.cs → src/Features.CSharp/CalculatorModel.cs

@@ -1,80 +1,80 @@
-using Qml.Net;
-using System;
-
-namespace Features
-{
-    public class CalculatorModel
-    {
-        private bool _isValid = false;
-        private string _computedResult = "";
-
-        [NotifySignal]
-        public string ComputedResult
-        {
-            get
-            {
-                return _computedResult;
-            }
-            set
-            {
-                if (_computedResult == value)
-                {
-                    // No signal is raised, Qml doesn't update any bound properties.
-                    return;
-                }
-
-                _computedResult = value;
-                this.ActivateSignal("computedResultChanged");
-            }
-        }
-
-        [NotifySignal]
-        public bool IsValid
-        {
-            get
-            {
-                return _isValid;
-            }
-            set
-            {
-                if (_isValid == value)
-                {
-                    // No signal is raised, Qml doesn't update any bound properties.
-                    return;
-                }
-
-                _isValid = value;
-                this.ActivateSignal("isValidChanged");
-            }
-        }
-
-        public void Add(string inputValue1, string inputValue2)
-        {
-            ComputedResult = Convert.ToString(decimal.Parse(inputValue1) + decimal.Parse(inputValue2));
-        }
-
-        public void Subtract(string inputValue1, string inputValue2)
-        {
-            ComputedResult = Convert.ToString(decimal.Parse(inputValue1) - decimal.Parse(inputValue2));
-        }
-
-        public void Multiply(string inputValue1, string inputValue2)
-        {
-            ComputedResult = Convert.ToString(decimal.Parse(inputValue1) * decimal.Parse(inputValue2));
-        }
-
-        public void Divide(string inputValue1, string inputValue2)
-        {
-            var value1 = decimal.Parse(inputValue1);
-            var value2 = decimal.Parse(inputValue2);
-
-            if (value2 == 0)
-            {
-                ComputedResult = $"Cannot devide by zero.";
-                return;
-            }
-
-            ComputedResult = Convert.ToString(value1 / value2);
-        }
-    }
+using Qml.Net;
+using System;
+
+namespace Features
+{
+    public class CalculatorModel
+    {
+        private bool _isValid = false;
+        private string _computedResult = "";
+
+        [NotifySignal]
+        public string ComputedResult
+        {
+            get
+            {
+                return _computedResult;
+            }
+            set
+            {
+                if (_computedResult == value)
+                {
+                    // No signal is raised, Qml doesn't update any bound properties.
+                    return;
+                }
+
+                _computedResult = value;
+                this.ActivateSignal("computedResultChanged");
+            }
+        }
+
+        [NotifySignal]
+        public bool IsValid
+        {
+            get
+            {
+                return _isValid;
+            }
+            set
+            {
+                if (_isValid == value)
+                {
+                    // No signal is raised, Qml doesn't update any bound properties.
+                    return;
+                }
+
+                _isValid = value;
+                this.ActivateSignal("isValidChanged");
+            }
+        }
+
+        public void Add(string inputValue1, string inputValue2)
+        {
+            ComputedResult = Convert.ToString(decimal.Parse(inputValue1) + decimal.Parse(inputValue2));
+        }
+
+        public void Subtract(string inputValue1, string inputValue2)
+        {
+            ComputedResult = Convert.ToString(decimal.Parse(inputValue1) - decimal.Parse(inputValue2));
+        }
+
+        public void Multiply(string inputValue1, string inputValue2)
+        {
+            ComputedResult = Convert.ToString(decimal.Parse(inputValue1) * decimal.Parse(inputValue2));
+        }
+
+        public void Divide(string inputValue1, string inputValue2)
+        {
+            var value1 = decimal.Parse(inputValue1);
+            var value2 = decimal.Parse(inputValue2);
+
+            if (value2 == 0)
+            {
+                ComputedResult = $"Cannot devide by zero.";
+                return;
+            }
+
+            ComputedResult = Convert.ToString(value1 / value2);
+        }
+    }
 }

src/Features/Features.csproj → src/Features.CSharp/Features.CSharp.csproj

@@ -14,8 +14,6 @@
     <PackageReference Include="Qml.Net.WindowsBinaries" Version="0.11.0" />
   </ItemGroup>
   <ItemGroup>
-    <Content Include="images\**" CopyToPublishDirectory="Always" />
-    <Content Include="pages\**" CopyToPublishDirectory="Always" />
-    <Content Include="Main.qml" CopyToPublishDirectory="Always" />
+    <ProjectReference Include="..\Features.Common\Features.Common.csproj" />
   </ItemGroup>
 </Project>

src/Features/Program.cs → src/Features.CSharp/Program.cs

@@ -10,7 +10,7 @@ class Program
         static int Main(string[] args)
         {
             RuntimeManager.DiscoverOrDownloadSuitableQtRuntime();
-            
+
             QQuickStyle.SetStyle("Material");
 
             using (var application = new QGuiApplication(args))
@@ -25,6 +25,8 @@ static int Main(string[] args)
                     Qml.Net.Qml.RegisterType<CalculatorModel>("Features");
                     Qml.Net.Qml.RegisterType<CollectionsModel>("Features");
 
+                    string binaryPath = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location);
+                    Directory.SetCurrentDirectory(binaryPath);
                     qmlEngine.Load("Main.qml");
 
                     return application.Exec();

src/Features.Common/Features.Common.csproj

@@ -0,0 +1,13 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netstandard2.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Content Include="images\**" CopyToPublishDirectory="Always" CopyToOutputDirectory="Always" />
+    <Content Include="pages\**" CopyToPublishDirectory="Always" CopyToOutputDirectory="Always" />
+    <Content Include="Main.qml" CopyToPublishDirectory="Always" CopyToOutputDirectory="Always" />
+  </ItemGroup>
+
+</Project>