Posted to tcl by emiliano at Sat Dec 05 17:20:17 GMT 2009view pretty

--- unix/tkUnixWm.c.orig	2009-12-05 12:09:38.000000000 -0300
+++ unix/tkUnixWm.c	2009-12-05 14:10:12.000000000 -0300
@@ -6634,6 +6634,7 @@
     WmInfo *wmPtr;
     XSetWindowAttributes atts;
     TkWindow *wrapperPtr;
+    Atom atom;
 
     if (!Tk_HasWrapper(tkwin)) {
 	return;
@@ -6646,10 +6647,16 @@
     if (transient) {
 	atts.override_redirect = True;
 	atts.save_under = True;
+	atom = Tk_InternAtom((Tk_Window) tkwin, "_NET_WM_WINDOW_TYPE_MENU");
     } else {
 	atts.override_redirect = False;
 	atts.save_under = False;
+	atom = Tk_InternAtom((Tk_Window) tkwin, "_NET_WM_WINDOW_TYPE_NORMAL");
     }
+    XChangeProperty(Tk_Display(tkwin), wrapperPtr->window,
+    Tk_InternAtom((Tk_Window) tkwin, "_NET_WM_WINDOW_TYPE"),
+	XA_ATOM, 32, PropModeReplace,
+	(unsigned char *) &atom, 1);
 
     /*
      * The override-redirect and save-under bits must be set on the wrapper

Comments

Posted by emiliano at Sat Dec 05 17:20:49 GMT 2009 [text] [code]

Patch against HEAD (5 dec 2009)