diff --git a/src/ce_interfaces.pas b/src/ce_interfaces.pas
index bfe14f0f..85f9d687 100644
--- a/src/ce_interfaces.pas
+++ b/src/ce_interfaces.pas
@@ -218,8 +218,10 @@ type
   ICEProcInputHandler = interface(ICESingleService)
     // add an entry to the list of process which can receive an user input.
     procedure addProcess(aProcess: TProcess);
-    // remove an entry.
+    // removes an entry.
     procedure removeProcess(aProcess: TProcess);
+    // indicates the current process
+    function process(): TProcess;
   end;
 
 
diff --git a/src/ce_procinput.pas b/src/ce_procinput.pas
index f019ffe3..ca32a8a7 100644
--- a/src/ce_procinput.pas
+++ b/src/ce_procinput.pas
@@ -28,6 +28,7 @@ type
     function singleServiceName: string;
     procedure addProcess(aProcess: TProcess);
     procedure removeProcess(aProcess: TProcess);
+    function process(): TProcess;
   public
     constructor create(aOwner: TComponent); override;
     destructor destroy; override;
@@ -103,6 +104,11 @@ begin
   if fProc = aProcess then
     addProcess(nil);
 end;
+
+function TCEProcInputWidget.process(): TProcess;
+begin
+  exit(fProc);
+end;
 {$ENDREGION}
 
 {$REGION Process input things --------------------------------------------------}