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

  1. --- unix/tkUnixWm.c.orig 2009-12-05 12:09:38.000000000 -0300
  2. +++ unix/tkUnixWm.c 2009-12-05 14:10:12.000000000 -0300
  3. @@ -6634,6 +6634,7 @@
  4. WmInfo *wmPtr;
  5. XSetWindowAttributes atts;
  6. TkWindow *wrapperPtr;
  7. + Atom atom;
  8.  
  9. if (!Tk_HasWrapper(tkwin)) {
  10. return;
  11. @@ -6646,10 +6647,16 @@
  12. if (transient) {
  13. atts.override_redirect = True;
  14. atts.save_under = True;
  15. + atom = Tk_InternAtom((Tk_Window) tkwin, "_NET_WM_WINDOW_TYPE_MENU");
  16. } else {
  17. atts.override_redirect = False;
  18. atts.save_under = False;
  19. + atom = Tk_InternAtom((Tk_Window) tkwin, "_NET_WM_WINDOW_TYPE_NORMAL");
  20. }
  21. + XChangeProperty(Tk_Display(tkwin), wrapperPtr->window,
  22. + Tk_InternAtom((Tk_Window) tkwin, "_NET_WM_WINDOW_TYPE"),
  23. + XA_ATOM, 32, PropModeReplace,
  24. + (unsigned char *) &atom, 1);
  25.  
  26. /*
  27. * The override-redirect and save-under bits must be set on the wrapper
  28.  

Comments

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

Patch against HEAD (5 dec 2009)