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)