Add example of OneWaySeqT

elmish · Apr 22, 2024 · 97a283a · 97a283a
1 parent 8491aec
commit 97a283a
Show file tree

Hide file tree

Showing 3 changed files with 42 additions and 14 deletions.
diff --git a/src/Samples/SubModelStatic.Core/Program.fs b/src/Samples/SubModelStatic.Core/Program.fs
@@ -11,7 +11,8 @@ module Counter =
 
   type Model =
     { Count: int
-      StepSize: int }
+      StepSize: int
+      History: (int * int) list }
 
   type Msg =
     | Increment
@@ -21,21 +22,22 @@ module Counter =
 
   let init =
     { Count = 0
-      StepSize = 1 }
+      StepSize = 1
+      History = [] }
 
   let canReset = (<>) init
 
   let update msg m =
     match msg with
-    | Increment -> { m with Count = m.Count + m.StepSize }
-    | Decrement -> { m with Count = m.Count - m.StepSize }
+    | Increment -> { m with Count = m.Count + m.StepSize; History = (m.Count, m.History.Length) :: m.History }
+    | Decrement -> { m with Count = m.Count - m.StepSize; History = (m.Count, m.History.Length) :: m.History }
     | SetStepSize x -> { m with StepSize = x }
     | Reset -> init
 
 type [<AllowNullLiteral>] CounterViewModel (args) =
   inherit ViewModelBase<Counter.Model, Counter.Msg>(args)
 
-  new() = CounterViewModel(Counter.init |> ViewModelArgs.simple)
+  new() = CounterViewModel({ Counter.init with History = [ (3,1); (0,0) ] } |> ViewModelArgs.simple)
 
   member _.StepSize
     with get() = base.Get() (Binding.OneWayT.id >> Binding.addLazy (=) >> Binding.mapModel (fun m -> m.StepSize))
@@ -44,6 +46,7 @@ type [<AllowNullLiteral>] CounterViewModel (args) =
   member _.Increment = base.Get() (Binding.CmdT.setAlways Counter.Increment)
   member _.Decrement = base.Get() (Binding.CmdT.setAlways Counter.Decrement)
   member _.Reset = base.Get() (Binding.CmdT.set Counter.canReset Counter.Reset)
+  member _.History = base.Get() (Binding.OneWaySeqT.id (=) snd >> Binding.mapModel (fun m -> m.History))
 
 
 module Clock =

diff --git a/src/Samples/SubModelStatic/Counter.xaml b/src/Samples/SubModelStatic/Counter.xaml
@@ -6,12 +6,37 @@
              xmlns:vm="clr-namespace:Elmish.WPF.Samples.SubModelStatic;assembly=SubModelStatic.Core"
              mc:Ignorable="d"
              d:DataContext="{d:DesignInstance Type=vm:CounterViewModel, IsDesignTimeCreatable=True}">
-  <StackPanel Orientation="Horizontal" HorizontalAlignment="Center" VerticalAlignment="Top">
-    <TextBlock Text="{Binding CounterValue, StringFormat='Counter value: {0}'}" Width="110" Margin="0,5,10,5" />
-    <Button Command="{Binding Decrement}" Content="-" Margin="0,5,10,5" Width="30" />
-    <Button Command="{Binding Increment}" Content="+" Margin="0,5,10,5" Width="30" />
-    <TextBlock Text="{Binding StepSize, StringFormat='Step size: {0}'}" Width="70" Margin="0,5,10,5" />
-    <Slider Value="{Binding StepSize}" TickFrequency="1" Maximum="10" Minimum="1" IsSnapToTickEnabled="True" Width="100" Margin="0,5,10,5" />
-    <Button Command="{Binding Reset}" Content="Reset" Margin="0,5,10,5" Width="50" />
-  </StackPanel>
+  <Grid>
+    <Grid.RowDefinitions>
+      <RowDefinition/>
+      <RowDefinition/>
+    </Grid.RowDefinitions>
+    <StackPanel Orientation="Horizontal" HorizontalAlignment="Center" VerticalAlignment="Top">
+      <TextBlock Text="{Binding CounterValue, StringFormat='Counter value: {0}'}" Width="110" Margin="0,5,10,5" />
+      <Button Command="{Binding Decrement}" Content="-" Margin="0,5,10,5" Width="30" />
+      <Button Command="{Binding Increment}" Content="+" Margin="0,5,10,5" Width="30" />
+      <TextBlock Text="{Binding StepSize, StringFormat='Step size: {0}'}" Width="70" Margin="0,5,10,5" />
+      <Slider Value="{Binding StepSize}" TickFrequency="1" Maximum="10" Minimum="1" IsSnapToTickEnabled="True" Width="100" Margin="0,5,10,5" />
+      <Button Command="{Binding Reset}" Content="Reset" Margin="0,5,10,5" Width="50" />
+    </StackPanel>
+    <DockPanel Grid.Row="1" HorizontalAlignment="Stretch" VerticalAlignment="Top">
+      <TextBlock DockPanel.Dock="Left" Margin="0,5,10,5">History:</TextBlock>
+      <TextBlock Margin="2,5,2,5">
+        <Run Text="{Binding CounterValue, Mode=OneWay, StringFormat='({0},'}" />
+        <Run Text="{Binding History.Count, Mode=OneWay, StringFormat='{}{0})'}" />
+      </TextBlock>
+      <ItemsControl ItemsSource="{Binding History}">
+        <ItemsControl.ItemTemplate>
+          <DataTemplate>
+            <TextBlock Text="{Binding}" TextDecorations="Strikethrough" Margin="2,5,2,5" />
+          </DataTemplate>
+        </ItemsControl.ItemTemplate>
+        <ItemsControl.ItemsPanel>
+          <ItemsPanelTemplate>
+            <StackPanel Orientation="Horizontal"/>
+          </ItemsPanelTemplate>
+        </ItemsControl.ItemsPanel>
+      </ItemsControl>
+    </DockPanel>
+  </Grid>
 </UserControl>
diff --git a/src/Samples/SubModelStatic/MainWindow.xaml b/src/Samples/SubModelStatic/MainWindow.xaml
@@ -6,7 +6,7 @@
         xmlns:local="clr-namespace:Elmish.WPF.Samples.SubModelStatic"
         xmlns:vm="clr-namespace:Elmish.WPF.Samples.SubModelStatic;assembly=SubModelStatic.Core"
         Title="Sub-model"
-        Height="270"
+        Height="300"
         Width="500"
         WindowStartupLocation="CenterScreen"
         mc:Ignorable="d"