gui-cs.Terminal.Gui/UICatalog/Scenarios/AllViewsTester.cs

using System;
using System.Collections.Generic;
using System.Collections.ObjectModel;
using System.Diagnostics;
using System.Linq;
using System.Reflection;
using Terminal.Gui;

namespace UICatalog.Scenarios;

[ScenarioMetadata ("All Views Tester", "Provides a test UI for all classes derived from View.")]
[ScenarioCategory ("Layout")]
[ScenarioCategory ("Tests")]
[ScenarioCategory ("Top Level Windows")]
public class AllViewsTester : Scenario
{
    private readonly List<string> _dimNames = new () { "Auto", "Percent", "Fill", "Absolute" };

    // TODO: This is missing some
    private readonly List<string> _posNames = new () { "Percent", "AnchorEnd", "Center", "Absolute" };
    private ListView _classListView;
    private View _curView;
    private FrameView _hostPane;
    private AdornmentsEditor _adornmentsEditor;
    private RadioGroup _hRadioGroup;
    private TextField _hText;
    private int _hVal;
    private FrameView _leftPane;
    private FrameView _locationFrame;

    // Settings
    private FrameView _settingsPane;
    private FrameView _sizeFrame;
    private Dictionary<string, Type> _viewClasses;
    private RadioGroup _wRadioGroup;
    private TextField _wText;
    private int _wVal;
    private RadioGroup _xRadioGroup;
    private TextField _xText;
    private int _xVal;
    private RadioGroup _yRadioGroup;
    private TextField _yText;
    private int _yVal;
    private RadioGroup _orientation;
    private string _demoText = "This, that, and the other thing.";
    private TextView _demoTextView;

    public override void Main ()
    {
        // Don't create a sub-win (Scenario.Win); just use Application.Top
        Application.Init ();
        ConfigurationManager.Apply ();

        var app = new Window
        {
            Title = $"{Application.QuitKey} to Quit - Scenario: {GetName ()}",
            ColorScheme = Colors.ColorSchemes ["TopLevel"]
        };

        _viewClasses = GetAllViewClassesCollection ()
                       .OrderBy (t => t.Name)
                       .Select (t => new KeyValuePair<string, Type> (t.Name, t))
                       .ToDictionary (t => t.Key, t => t.Value);

        _leftPane = new ()
        {
            X = 0,
            Y = 0,
            Width = Dim.Auto (DimAutoStyle.Content),
            Height = Dim.Fill (),
            CanFocus = false,
            ColorScheme = Colors.ColorSchemes ["TopLevel"],
            Title = "Classes"
        };

        _classListView = new ()
        {
            X = 0,
            Y = 0,
            Width = Dim.Auto (),
            Height = Dim.Fill (),
            AllowsMarking = false,
            ColorScheme = Colors.ColorSchemes ["TopLevel"],
            SelectedItem = 0,
            Source = new ListWrapper<string> (new (_viewClasses.Keys.ToList ()))
        };
        _classListView.OpenSelectedItem += (s, a) => { _settingsPane.SetFocus (); };

        _classListView.SelectedItemChanged += (s, args) =>
                                              {
                                                  // Remove existing class, if any
                                                  if (_curView != null)
                                                  {
                                                      _curView.LayoutComplete -= LayoutCompleteHandler;
                                                      _hostPane.Remove (_curView);
                                                      _curView.Dispose ();
                                                      _curView = null;
                                                      _hostPane.Clear ();
                                                  }

                                                  _curView = CreateClass (_viewClasses.Values.ToArray () [_classListView.SelectedItem]);
                                              };
        _leftPane.Add (_classListView);

        _adornmentsEditor = new ()
        {
            X = Pos.Right (_leftPane),
            Y = 0,
            Width = Dim.Auto (),
            Height = Dim.Fill (),
            ColorScheme = Colors.ColorSchemes ["TopLevel"],
            BorderStyle = LineStyle.Single
        };

        var expandButton = new ExpanderButton
        {
            CanFocus = false,
            Orientation = Orientation.Horizontal
        };
        _adornmentsEditor.Border.Add (expandButton);

        _settingsPane = new ()
        {
            X = Pos.Right (_adornmentsEditor),
            Y = 0, // for menu
            Width = Dim.Fill (),
            Height = Dim.Auto (),
            CanFocus = false,
            ColorScheme = Colors.ColorSchemes ["TopLevel"],
            Title = "Settings"
        };

        string [] radioItems = { "_Percent(x)", "_AnchorEnd", "_Center", "A_bsolute(x)" };

        _locationFrame = new ()
        {
            X = 0,
            Y = 0,
            Height = Dim.Auto (),
            Width = Dim.Auto (),
            Title = "Location (Pos)"
        };
        _settingsPane.Add (_locationFrame);

        var label = new Label { X = 0, Y = 0, Text = "X:" };
        _locationFrame.Add (label);
        _xRadioGroup = new () { X = 0, Y = Pos.Bottom (label), RadioLabels = radioItems };
        _xRadioGroup.SelectedItemChanged += (s, selected) => DimPosChanged (_curView);
        _xText = new () { X = Pos.Right (label) + 1, Y = 0, Width = 4, Text = $"{_xVal}" };

        _xText.Accept += (s, args) =>
                         {
                             try
                             {
                                 _xVal = int.Parse (_xText.Text);
                                 DimPosChanged (_curView);
                             }
                             catch
                             { }
                         };
        _locationFrame.Add (_xText);

        _locationFrame.Add (_xRadioGroup);

        radioItems = new [] { "P_ercent(y)", "A_nchorEnd", "C_enter", "Absolute(_y)" };
        label = new () { X = Pos.Right (_xRadioGroup) + 1, Y = 0, Text = "Y:" };
        _locationFrame.Add (label);
        _yText = new () { X = Pos.Right (label) + 1, Y = 0, Width = 4, Text = $"{_yVal}" };

        _yText.Accept += (s, args) =>
                         {
                             try
                             {
                                 _yVal = int.Parse (_yText.Text);
                                 DimPosChanged (_curView);
                             }
                             catch
                             { }
                         };
        _locationFrame.Add (_yText);
        _yRadioGroup = new () { X = Pos.X (label), Y = Pos.Bottom (label), RadioLabels = radioItems };
        _yRadioGroup.SelectedItemChanged += (s, selected) => DimPosChanged (_curView);
        _locationFrame.Add (_yRadioGroup);

        _sizeFrame = new ()
        {
            X = Pos.Right (_locationFrame),
            Y = Pos.Y (_locationFrame),
            Height = Dim.Auto (),
            Width = Dim.Auto (),
            Title = "Size (Dim)"
        };

        radioItems = new [] { "Auto", "_Percent(width)", "_Fill(width)", "A_bsolute(width)" };
        label = new () { X = 0, Y = 0, Text = "Width:" };
        _sizeFrame.Add (label);
        _wRadioGroup = new () { X = 0, Y = Pos.Bottom (label), RadioLabels = radioItems };
        _wRadioGroup.SelectedItemChanged += (s, selected) => DimPosChanged (_curView);
        _wText = new () { X = Pos.Right (label) + 1, Y = 0, Width = 4, Text = $"{_wVal}" };

        _wText.Accept += (s, args) =>
                         {
                             try
                             {
                                 switch (_wRadioGroup.SelectedItem)
                                 {
                                     case 1:
                                         _wVal = Math.Min (int.Parse (_wText.Text), 100);

                                         break;
                                     case 0:
                                     case 2:
                                     case 3:
                                         _wVal = int.Parse (_wText.Text);

                                         break;
                                 }

                                 DimPosChanged (_curView);
                             }
                             catch
                             { }
                         };
        _sizeFrame.Add (_wText);
        _sizeFrame.Add (_wRadioGroup);

        radioItems = new [] { "_Auto", "P_ercent(height)", "F_ill(height)", "Ab_solute(height)" };
        label = new () { X = Pos.Right (_wRadioGroup) + 1, Y = 0, Text = "Height:" };
        _sizeFrame.Add (label);
        _hText = new () { X = Pos.Right (label) + 1, Y = 0, Width = 4, Text = $"{_hVal}" };

        _hText.Accept += (s, args) =>
                         {
                             try
                             {
                                 switch (_hRadioGroup.SelectedItem)
                                 {
                                     case 1:
                                         _hVal = Math.Min (int.Parse (_hText.Text), 100);

                                         break;
                                     case 0:
                                     case 2:
                                     case 3:
                                         _hVal = int.Parse (_hText.Text);

                                         break;
                                 }

                                 DimPosChanged (_curView);
                             }
                             catch
                             { }
                         };
        _sizeFrame.Add (_hText);

        _hRadioGroup = new () { X = Pos.X (label), Y = Pos.Bottom (label), RadioLabels = radioItems };
        _hRadioGroup.SelectedItemChanged += (s, selected) => DimPosChanged (_curView);
        _sizeFrame.Add (_hRadioGroup);

        _settingsPane.Add (_sizeFrame);

        label = new () { X = 0, Y = Pos.Bottom (_sizeFrame), Text = "_Orientation:" };

        _orientation = new ()
        {
            X = Pos.Right (label) + 1,
            Y = Pos.Top (label),
            RadioLabels = new [] { "Horizontal", "Vertical" },
            Orientation = Orientation.Horizontal
        };

        _orientation.SelectedItemChanged += (s, selected) =>
                                            {
                                                if (_curView?.GetType ().GetProperty ("Orientation") is { } prop)
                                                {
                                                    prop.GetSetMethod ()?.Invoke (_curView, new object [] { _orientation.SelectedItem });
                                                }
                                            };
        _settingsPane.Add (label, _orientation);

        label = new () { X = 0, Y = Pos.Bottom (_orientation), Text = "_Text:" };

        _demoTextView = new ()
        {
            X = Pos.Right (label) + 1,
            Y = Pos.Top (label),
            Width = Dim.Fill (),
            Height = Dim.Auto (minimumContentDim: 2),
            Text = _demoText
        };

        _demoTextView.ContentsChanged += (s, e) =>
                                         {
                                             _demoText = _demoTextView.Text;

                                             if (_curView is { })
                                             {
                                                 _curView.Text = _demoText;
                                             }
                                         };

        _settingsPane.Add (label, _demoTextView);

        _hostPane = new ()
        {
            X = Pos.Right (_adornmentsEditor),
            Y = Pos.Bottom (_settingsPane),
            Width = Dim.Fill (),
            Height = Dim.Fill (), // + 1 for status bar
            ColorScheme = Colors.ColorSchemes ["Dialog"]
        };

        app.Add (_leftPane, _adornmentsEditor, _settingsPane, _hostPane);

        _classListView.SelectedItem = 0;

        Application.Run (app);
        app.Dispose ();
        Application.Shutdown ();
    }

    // TODO: Add Command.HotKey handler (pop a message box?)
    private View CreateClass (Type type)
    {
        // If we are to create a generic Type
        if (type.IsGenericType)
        {
            // For each of the <T> arguments
            List<Type> typeArguments = new ();

            // use <object>
            foreach (Type arg in type.GetGenericArguments ())
            {
                typeArguments.Add (typeof (object));
            }

            // And change what type we are instantiating from MyClass<T> to MyClass<object>
            type = type.MakeGenericType (typeArguments.ToArray ());
        }

        // Instantiate view
        var view = (View)Activator.CreateInstance (type);

        // Set the colorscheme to make it stand out if is null by default
        if (view.ColorScheme == null)
        {
            view.ColorScheme = Colors.ColorSchemes ["Base"];
        }

        // If the view supports a Text property, set it so we have something to look at
        if (view.GetType ().GetProperty ("Text") != null)
        {
            try
            {
                view.GetType ()
                    .GetProperty ("Text")
                    ?.GetSetMethod ()
                    ?.Invoke (view, new [] { _demoText });
            }
            catch (TargetInvocationException e)
            {
                MessageBox.ErrorQuery ("Exception", e.InnerException.Message, "Ok");
                view = null;
            }
        }

        // If the view supports a Title property, set it so we have something to look at
        if (view != null && view.GetType ().GetProperty ("Title") != null)
        {
            if (view.GetType ().GetProperty ("Title")!.PropertyType == typeof (string))
            {
                view?.GetType ()
                    .GetProperty ("Title")
                    ?.GetSetMethod ()
                    ?.Invoke (view, new [] { "Test Title" });
            }
            else
            {
                view?.GetType ()
                    .GetProperty ("Title")
                    ?.GetSetMethod ()
                    ?.Invoke (view, new [] { "Test Title" });
            }
        }

        // If the view supports a Source property, set it so we have something to look at
        if (view != null && view.GetType ().GetProperty ("Source") != null && view.GetType ().GetProperty ("Source").PropertyType == typeof (IListDataSource))
        {
            var source = new ListWrapper<string> (["Test Text #1", "Test Text #2", "Test Text #3"]);
            view?.GetType ().GetProperty ("Source")?.GetSetMethod ()?.Invoke (view, [source]);
        }

        // If the view supports a Title property, set it so we have something to look at
        if (view?.GetType ().GetProperty ("Orientation") is { } prop)
        {
            _orientation.SelectedItem = (int)prop.GetGetMethod ()!.Invoke (view, null)!;
            _orientation.Enabled = true;
        }
        else
        {
            _orientation.Enabled = false;
        }

        view.Initialized += View_Initialized;

        // Add
        _hostPane.Add (view);
        _hostPane.SetNeedsDisplay ();

        return view;
    }

    private void DimPosChanged (View view)
    {
        if (view == null)
        {
            return;
        }

        try
        {
            view.X = _xRadioGroup.SelectedItem switch
                     {
                         0 => Pos.Percent (_xVal),
                         1 => Pos.AnchorEnd (),
                         2 => Pos.Center (),
                         3 => Pos.Absolute (_xVal),
                         _ => view.X
                     };

            view.Y = _yRadioGroup.SelectedItem switch
                     {
                         0 => Pos.Percent (_yVal),
                         1 => Pos.AnchorEnd (),
                         2 => Pos.Center (),
                         3 => Pos.Absolute (_yVal),
                         _ => view.Y
                     };

            view.Width = _wRadioGroup.SelectedItem switch
                         {
                             0 => Dim.Auto (),
                             1 => Dim.Percent (_wVal),
                             2 => Dim.Fill (_wVal),
                             3 => Dim.Absolute (_wVal),
                             _ => view.Width
                         };

            view.Height = _hRadioGroup.SelectedItem switch
                          {
                              0 => Dim.Auto (),
                              1 => Dim.Percent (_hVal),
                              2 => Dim.Fill (_hVal),
                              3 => Dim.Absolute (_hVal),
                              _ => view.Height
                          };
        }
        catch (Exception e)
        {
            MessageBox.ErrorQuery ("Exception", e.Message, "Ok");
        }

        if (view.Width is DimAuto)
        {
            _wText.Text = "Auto";
            _wText.Enabled = false;
        }
        else
        {
            _wText.Text = $"{_wVal}";
            _wText.Enabled = true;
        }

        if (view.Height is DimAuto)
        {
            _hText.Text = "Auto";
            _hText.Enabled = false;
        }
        else
        {
            _hText.Text = $"{_hVal}";
            _hText.Enabled = true;
        }

        UpdateTitle (view);
    }

    private List<Type> GetAllViewClassesCollection ()
    {
        List<Type> types = new ();

        foreach (Type type in typeof (View).Assembly.GetTypes ()
                                           .Where (
                                                   myType =>
                                                       myType.IsClass && !myType.IsAbstract && myType.IsPublic && myType.IsSubclassOf (typeof (View))
                                                  ))
        {
            types.Add (type);
        }

        types.Add (typeof (View));

        return types;
    }

    private void LayoutCompleteHandler (object sender, LayoutEventArgs args)
    {
        UpdateSettings (_curView);
        UpdateTitle (_curView);
    }

    private void Quit () { Application.RequestStop (); }

    private void UpdateSettings (View view)
    {
        _adornmentsEditor.ViewToEdit = view;

        var x = view.X.ToString ();
        var y = view.Y.ToString ();

        try
        {
            _xRadioGroup.SelectedItem = _posNames.IndexOf (_posNames.First (s => x.Contains (s)));
            _yRadioGroup.SelectedItem = _posNames.IndexOf (_posNames.First (s => y.Contains (s)));
        }
        catch (InvalidOperationException e)
        {
            // This is a hack to work around the fact that the Pos enum doesn't have an "Align" value yet
            Debug.WriteLine($"{e}");
        }

        _xText.Text = $"{view.Frame.X}";
        _yText.Text = $"{view.Frame.Y}";

        var w = view.Width.ToString ();
        var h = view.Height.ToString ();
        _wRadioGroup.SelectedItem = _dimNames.IndexOf (_dimNames.First (s => w.Contains (s)));
        _hRadioGroup.SelectedItem = _dimNames.IndexOf (_dimNames.First (s => h.Contains (s)));

        if (view.Width is DimAuto)
        {
            _wText.Text = "Auto";
            _wText.Enabled = false;
        }
        else
        {
            _wText.Text = "100";
            _wText.Enabled = true;
        }

        if (view.Height is DimAuto)
        {
            _hText.Text = "Auto";
            _hText.Enabled = false;
        }
        else
        {
            _hText.Text = "100";
            _hText.Enabled = true;
        }
    }

    private void UpdateTitle (View view) { _hostPane.Title = $"{view.GetType ().Name} - {view.X}, {view.Y}, {view.Width}, {view.Height}"; }

    private void View_Initialized (object sender, EventArgs e)
    {
        if (sender is not View view)
        {
            return;
        }

        if (view.Width is not DimAuto && (view.Width is null || view.Frame.Width == 0))
        {
            view.Width = Dim.Fill ();
        }

        if (view.Height is not DimAuto && (view.Height is null || view.Frame.Height == 0))
        {
            view.Height = Dim.Fill ();
        }

        UpdateSettings (view);
        UpdateTitle (view);
    }
}