anchor.diff:                          Content.button Gen.name
                              [Entity.PositionLocal == v2 24.0f 15.0f; Entity.ElevationLocal == 1.0f; Entity.Size == v2 72.0f 72.0f
                               Entity.Text == "<"
  +                            Entity.VisibleLocal <== field --> fun field -> Content.pageItems 8 field |> a__
                               Entity.UpImage == Assets.Gui.ButtonSmallUpImage
                               Entity.DownImage == Assets.Gui.ButtonSmallDownImage
                               Entity.ClickEvent ==> msg ShopPageUp]
                           Content.button Gen.name
                              [Entity.PositionLocal == v2 804.0f 15.0f; Entity.ElevationLocal == 1.0f; Entity.Size == v2 72.0f 72.0f
                               Entity.Text == ">"
  +                            Entity.VisibleLocal <== field --> fun field -> Content.pageItems 8 field |> _b_
                               Entity.UpImage == Assets.Gui.ButtonSmallUpImage
                               Entity.DownImage == Assets.Gui.ButtonSmallDownImage
                               Entity.ClickEvent ==> msg ShopPageDown]
  
positive.code:                                    | None -> ""
                                 | _ -> ""]]
  
                   // items
                   Content.entityIf field (fun field -> match field.Menu.MenuState with MenuItem _ -> true | _ -> false) $ fun field _ ->
                      Content.panel Gen.name
                         [Entity.Position == v2 -450.0f -255.0f; Entity.Elevation == Constants.Field.GuiElevation; Entity.Size == v2 900.0f 510.0f
  
negative.code:                        [Content.sidebar (v2 24.0f 417.0f) 1.0f field
                          Content.items (v2 138.0f 417.0f) 1.0f 10 5 field MenuItemSelect
                          Content.text Gen.name
                             [Entity.PositionLocal == v2 399.0f 24.0f; Entity.ElevationLocal == 1.0f
                              Entity.Justification == Justified (JustifyCenter, JustifyMiddle)
                              Entity.Text <== field --> (fun field -> string field.Inventory.Gold + "G")]
                          Content.button Gen.name
                            [Entity.PositionLocal == v2 138.0f 12.0f; Entity.ElevationLocal == 1.0f; Entity.Size == v2 72.0f 72.0f
                             Entity.Text == "<"
                             Entity.VisibleLocal <== field --> fun field -> Content.pageItems 10 field |> a__
                             Entity.UpImage == Assets.Gui.ButtonSmallUpImage
                             Entity.DownImage == Assets.Gui.ButtonSmallDownImage
                             Entity.ClickEvent ==> msg MenuItemsPageUp]
                          Content.button Gen.name
                            [Entity.PositionLocal == v2 777.0f 12.0f; Entity.ElevationLocal == 1.0f; Entity.Size == v2 72.0f 72.0f
                             Entity.Text == ">"
                             Entity.VisibleLocal <== field --> fun field -> Content.pageItems 10 field |> _b_
                             Entity.UpImage == Assets.Gui.ButtonSmallUpImage
                             Entity.DownImage == Assets.Gui.ButtonSmallDownImage
                             Entity.ClickEvent ==> msg MenuInventoryPageDown]]
  