Refactor procs and http procs to allow having a common base object and intercept Execute methods.

Remove WebControl as a base clase of GXHttpHandler. Next change will add GXBaseObject as a base class, as in .NETCORE.

Author: claudiamurialdo

dotnet/src/dotnetframework/GxClasses/Middleware/GXHttp.cs

@@ -48,7 +48,7 @@ namespace GeneXus.Http
 #if NETCORE
 	public abstract class GXHttpHandler : GXBaseObject, IHttpHandler
 #else
-	public abstract class GXHttpHandler : WebControl, IHttpHandler
+	public abstract class GXHttpHandler : IHttpHandler
 #endif
 	{
 		static readonly ILog log = log4net.LogManager.GetLogger(typeof(GeneXus.Http.GXHttpHandler));
@@ -77,6 +77,17 @@ public GXHttpHandler()
 			initpars();
 		}
 
+#if !NETCORE
+		protected virtual void ExecutePrivate()
+		{
+
+		}
+		protected virtual void ExecuteImpl()
+		{
+			ExecutePrivate();
+		}
+
+#endif
 		public virtual void SetPrefix(string s)
 		{
 		}
@@ -2222,15 +2233,8 @@ public virtual bool CompressHtmlResponse()
 			return GXUtil.CompressResponse();
 		}
 
-#if NETCORE
 		protected virtual void Render(HtmlTextWriter output)
-#else
-		protected override void Render(HtmlTextWriter output)
-#endif
 		{
-#if !NETCORE
-			localHttpContext = Context;         
-#endif
 			ControlOutputWriter = output;
 			LoadParameters(Parms);
 			InitPrivates();
@@ -2833,20 +2837,6 @@ public void ComponentInit()
 			initialize();
 		}
 
-		protected override void Render(HtmlTextWriter output)
-		{
-			ControlOutputWriter = output;
-#if NETCORE
-			localHttpContext = localHttpContext;
-#else
-			localHttpContext = Context;
-#endif
-			LoadParameters(Parms);
-			InitPrivates();
-			SetPrefix(_prefixId + "_");         // Load Prefix from Name property
-			initpars();                         // Initialize Iterator Parameters
-			webExecuteEx(localHttpContext);
-		}
 		public virtual void componentdrawstyles()
 		{
 		}

dotnet/src/dotnetframework/GxClasses/Model/GXBaseObject.cs

@@ -19,6 +19,14 @@ public class GXBaseObject
 		protected IGxContext _Context;
 		bool _isMain;
 		protected bool _isApi;
+		protected virtual void ExecutePrivate()
+		{
+
+		}
+		protected virtual void ExecuteImpl()
+		{
+			ExecutePrivate();
+		}
 
 		public virtual IGxContext context
 		{

dotnet/src/dotnetframework/GxClasses/Model/gxproc.cs

@@ -59,6 +59,42 @@ public GXProcedure()
 #endif
 		}
 
+		/*protected static int MainImpl(string[] args, GXProcedure instance)
+		{
+			try
+			{
+				Config.ParseArgs(ref args);
+				return instance.ExecuteCmdLine(args);
+			}
+			catch (Exception e)
+			{
+				GXUtil.SaveToEventLog("Design", e);
+				Console.WriteLine(e.ToString());
+				return 1;
+			}
+		}
+		protected virtual int ExecuteCmdLine(string[] args)
+		{
+			return GX.GXRuntime.ExitCode;
+		}*/
+		protected void SubmitImpl()
+		{
+			context.SetSubmitInitialConfig(context);
+			initialize();
+			Submit(ExecutePrivateCatch, this);
+		}
+		protected virtual void ExecutePrivateCatch(object stateInfo)
+		{
+			try
+			{
+				((GXProcedure)stateInfo).ExecutePrivate();
+			}
+			catch (Exception e)
+			{
+				GXUtil.SaveToEventLog("Design", e);
+				Console.WriteLine(e.ToString());
+			}
+		}
 		public bool DisconnectAtCleanup
 		{
 			get{ return disconnectUserAtCleanup;}