From 301e8466c3b87c6dec019c0ecfd360b9f3560075 Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Fri, 12 Jun 1998 16:20:16 +0000
Subject: changed so focus -force also sets the foreground window

---
 win/tkWinPointer.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/win/tkWinPointer.c b/win/tkWinPointer.c
index 96661ae..d62161f 100644
--- a/win/tkWinPointer.c
+++ b/win/tkWinPointer.c
@@ -409,6 +409,15 @@ TkpChangeFocus(winPtr, force)
     if (winPtr->window == None) {
 	panic("ChangeXFocus got null X window");
     }
+ 
+    /*
+     * Change the foreground window so the focus window is raised to the top of
+     * the system stacking order and gets the keyboard focus.
+     */
+
+    if (force) {
+	SetForegroundWindow(Tk_GetHWND(winPtr->window));
+    }
     XSetInputFocus(dispPtr->display, winPtr->window, RevertToParent,
 	    CurrentTime);
 
-- 
cgit v0.12