Closing help brings REPL to front

PDLPorters · Jun 17, 2014 · 90637cd · 90637cd
1 parent 78d6547
commit 90637cd
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/lib/App/Prima/REPL.pm b/lib/App/Prima/REPL.pm
@@ -302,9 +302,15 @@ sub get_help {
 	}
 
 	# Make sure the the opened help is visible (but check that the active
-	# window is defined, as this can cause trouble on Windows).
-	$::application->get_active_window->bring_to_front
-		if $::application->get_active_window;
+	# window is defined, as this can cause trouble on Windows). Also, make
+	# sure that the REPL gets focus again when the help window closes.
+	if ($::application->get_active_window) {
+		$::application->get_active_window->bring_to_front;
+		$::application->get_active_window->onClose(sub {
+			$self->window->select(1);
+			$::application->get_active_window->bring_to_front;
+		});
+	}
 }
 
 # Add some accelerator keys to the window for easier navigaton: