From 5a2871381640d27b8ac75facb36152f702c4d1b9 Mon Sep 17 00:00:00 2001
From: patthoyts <patthoyts@users.sourceforge.net>
Date: Sat, 22 Nov 2008 20:34:37 +0000
Subject: Backported combobox toplevel fix for [Bug 1939129]

---
 ChangeLog                | 5 +++++
 library/ttk/combobox.tcl | 4 +++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 5b25111..6920857 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-22  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+	* library/ttk/combobox.tcl: [Bug 1939129] combobox dropdown was
+	                            drawn behind topmost toplevels.
+
 2008-11-19  Jan Nijtmans  <nijtmans@users.sf.net>
 
 	* generic/tkImage.c    Relax the constraint that every Tk_ImageType
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl
index 2f4838f..6dad7e0 100644
--- a/library/ttk/combobox.tcl
+++ b/library/ttk/combobox.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: combobox.tcl,v 1.12 2008/02/23 18:41:07 jenglish Exp $
+# $Id: combobox.tcl,v 1.12.2.1 2008/11/22 20:34:37 patthoyts Exp $
 #
 # Combobox bindings.
 #
@@ -391,6 +391,8 @@ proc ttk::combobox::Post {cb} {
 
     # Post the listbox:
     #
+    wm attribute $popdown \
+        -topmost [wm attribute [winfo toplevel $cb] -topmost]
     wm deiconify $popdown
     raise $popdown
 }
-- 
cgit v0.12