Closes gui-cs#973. ScrollView and TextField fixes.

Author: BDisp

FSharpExample/Program.fs

@@ -27,7 +27,7 @@ type Box10x (x: int, y: int) =
         raise (NotImplementedException())
 
     override this.Redraw (_: Rect) =
-        Application.Driver.SetAttribute Application.Current.ColorScheme.Focus
+        Application.Driver.SetAttribute this.ColorScheme.Focus
         do
         let mutable y = 0
         while y < h do
@@ -47,7 +47,7 @@ type Filler (rect: Rect) =
         new Filler ()
 
     override this.Redraw (_: Rect) =
-        Application.Driver.SetAttribute Application.Current.ColorScheme.Focus
+        Application.Driver.SetAttribute this.ColorScheme.Focus
         let mutable f = this.Frame
         do
         let mutable y = 0

Terminal.Gui/Views/TextField.cs

@@ -48,13 +48,13 @@ public class TextField : View {
 		/// <param name="text">Initial text contents.</param>
 		public TextField (string text) : this (ustring.Make (text))
 		{
-			Height = 1;
+			Initialize ();
 		}
 
 		/// <summary>
 		/// Initializes a new instance of the <see cref="TextField"/> class using <see cref="LayoutStyle.Computed"/> positioning.
 		/// </summary>
-		public TextField () : this (string.Empty) { }
+		public TextField () : this (string.Empty) { Initialize (); }
 
 		/// <summary>
 		/// Initializes a new instance of the <see cref="TextField"/> class using <see cref="LayoutStyle.Computed"/> positioning.
@@ -80,6 +80,8 @@ public TextField (int x, int y, int w, ustring text) : base (new Rect (x, y, w,
 
 		void Initialize (ustring text, int w)
 		{
+			Initialize ();
+
 			if (text == null)
 				text = "";
 
@@ -91,6 +93,11 @@ void Initialize (ustring text, int w)
 			WantMousePositionReports = true;
 		}
 
+		void Initialize ()
+		{
+			Height = 1;
+		}
+
 		///<inheritdoc/>
 		public override bool OnLeave (View view)
 		{