]> icculus.org git repositories - dana/openbox.git/blob - src/screen.cc
make sure windows aren't doing things they aren't allowed when their allowed actions...
[dana/openbox.git] / src / screen.cc
1 // -*- mode: C++; indent-tabs-mode: nil; c-basic-offset: 2; -*-
2
3 #ifdef HAVE_CONFIG_H
4 # include "../config.h"
5 #endif
6
7 extern "C" {
8 #ifdef    HAVE_STDIO_H
9 #  include <stdio.h>
10 #endif // HAVE_STDIO_H
11
12 #ifdef    HAVE_STRING_H
13 #  include <string.h>
14 #endif // HAVE_STRING_H
15
16 #ifdef    HAVE_UNISTD_H
17 #  include <sys/types.h>
18 #  include <unistd.h>
19 #endif // HAVE_UNISTD_H
20
21 #include "gettext.h"
22 #define _(str) gettext(str)
23 }
24
25 #include "screen.hh"
26 #include "client.hh"
27 #include "openbox.hh"
28 #include "frame.hh"
29 #include "bindings.hh"
30 #include "python.hh"
31 #include "otk/display.hh"
32 #include "otk/property.hh"
33
34 #include <vector>
35 #include <algorithm>
36
37 static bool running;
38 static int anotherWMRunning(Display *display, XErrorEvent *) {
39   printf(_("Another window manager already running on display %s.\n"),
40          DisplayString(display));
41   running = true;
42   return -1;
43 }
44
45
46 namespace ob {
47
48
49 Screen::Screen(int screen)
50   : WidgetBase(WidgetBase::Type_Root),
51     _number(screen),
52     _style(screen, "")
53 {
54   assert(screen >= 0); assert(screen < ScreenCount(**otk::display));
55   _info = otk::display->screenInfo(screen);
56
57   ::running = false;
58   XErrorHandler old = XSetErrorHandler(::anotherWMRunning);
59   XSelectInput(**otk::display, _info->rootWindow(),
60                Screen::event_mask);
61   XSync(**otk::display, false);
62   XSetErrorHandler(old);
63
64   _managed = !::running;
65   if (! _managed) return; // was unable to manage the screen
66
67   printf(_("Managing screen %d: visual 0x%lx, depth %d\n"),
68          _number, XVisualIDFromVisual(_info->visual()), _info->depth());
69
70   otk::Property::set(_info->rootWindow(), otk::Property::atoms.openbox_pid,
71                      otk::Property::atoms.cardinal, (unsigned long) getpid());
72
73   // set the mouse cursor for the root window (the default cursor)
74   XDefineCursor(**otk::display, _info->rootWindow(),
75                 openbox->cursors().session);
76
77   // XXX: initialize the screen's style
78   /*
79   otk::ustring stylepath;
80   python_get_string("THEME", &stylepath);
81   otk::Configuration sconfig(false);
82   sconfig.setFile(otk::expandTilde(stylepath.c_str()));
83   if (!sconfig.load()) {
84     sconfig.setFile(otk::expandTilde(DEFAULTSTYLE));
85     if (!sconfig.load()) {
86       printf(_("Unable to load default style: %s. Aborting.\n"), DEFAULTSTYLE);
87       ::exit(1);
88     }
89   }
90   _style.load(sconfig);
91   */
92   otk::display->renderControl(_number)->drawRoot(*_style.rootColor());
93
94   // set up notification of netwm support
95   changeSupportedAtoms();
96
97   // Set the netwm properties for geometry
98   unsigned long geometry[] = { _info->width(),
99                                _info->height() };
100   otk::Property::set(_info->rootWindow(),
101                      otk::Property::atoms.net_desktop_geometry,
102                      otk::Property::atoms.cardinal, geometry, 2);
103
104   // Set the net_desktop_names property
105   std::vector<otk::ustring> names;
106   python_get_stringlist("DESKTOP_NAMES", &names);
107   otk::Property::set(_info->rootWindow(),
108                      otk::Property::atoms.net_desktop_names,
109                      otk::Property::utf8, names);
110   // the above set() will cause the updateDesktopNames to fire right away so
111   // we have a list of desktop names
112
113   _desktop = 0;
114   
115   if (!python_get_long("NUMBER_OF_DESKTOPS", &_num_desktops))
116     _num_desktops = 1;
117   changeNumDesktops(_num_desktops); // set the hint
118
119   changeDesktop(0); // set the hint
120
121   // create the window which gets focus when no clients get it
122   XSetWindowAttributes attr;
123   attr.override_redirect = true;
124   _focuswindow = XCreateWindow(**otk::display, _info->rootWindow(),
125                                -100, -100, 1, 1, 0, 0, InputOnly,
126                                _info->visual(), CWOverrideRedirect, &attr);
127   XMapRaised(**otk::display, _focuswindow);
128   
129   // these may be further updated if any pre-existing windows are found in
130   // the manageExising() function
131   changeClientList();  // initialize the client lists, which will be empty
132   calcArea();          // initialize the available working area
133
134   // register this class as the event handler for the root window
135   openbox->registerHandler(_info->rootWindow(), this);
136
137   // call the python Startup callbacks
138   EventData data(_number, 0, EventAction::Startup, 0);
139   openbox->bindings()->fireEvent(&data);
140 }
141
142
143 Screen::~Screen()
144 {
145   if (! _managed) return;
146
147   XSelectInput(**otk::display, _info->rootWindow(), NoEventMask);
148   
149   // unmanage all windows
150   while (!clients.empty())
151     unmanageWindow(clients.front());
152
153   // call the python Shutdown callbacks
154   EventData data(_number, 0, EventAction::Shutdown, 0);
155   openbox->bindings()->fireEvent(&data);
156
157   XDestroyWindow(**otk::display, _focuswindow);
158   XDestroyWindow(**otk::display, _supportwindow);
159 }
160
161
162 void Screen::manageExisting()
163 {
164   unsigned int i, j, nchild;
165   Window r, p, *children;
166   XQueryTree(**otk::display, _info->rootWindow(), &r, &p,
167              &children, &nchild);
168
169   // preen the window list of all icon windows... for better dockapp support
170   for (i = 0; i < nchild; i++) {
171     if (children[i] == None) continue;
172
173     XWMHints *wmhints = XGetWMHints(**otk::display,
174                                     children[i]);
175
176     if (wmhints) {
177       if ((wmhints->flags & IconWindowHint) &&
178           (wmhints->icon_window != children[i])) {
179         for (j = 0; j < nchild; j++) {
180           if (children[j] == wmhints->icon_window) {
181             children[j] = None;
182             break;
183           }
184         }
185       }
186
187       XFree(wmhints);
188     }
189   }
190
191   // manage shown windows
192   for (i = 0; i < nchild; ++i) {
193     if (children[i] == None)
194       continue;
195
196     XWindowAttributes attrib;
197     if (XGetWindowAttributes(**otk::display, children[i], &attrib)) {
198       if (attrib.override_redirect) continue;
199
200       if (attrib.map_state != IsUnmapped) {
201         manageWindow(children[i]);
202       }
203     }
204   }
205
206   XFree(children);
207 }
208
209
210 void Screen::updateStrut()
211 {
212   _strut.left = _strut.right = _strut.top = _strut.bottom = 0;
213
214   ClientList::iterator it, end = clients.end();
215   for (it = clients.begin(); it != end; ++it) {
216     const otk::Strut &s = (*it)->strut();
217     _strut.left = std::max(_strut.left, s.left);
218     _strut.right = std::max(_strut.right, s.right);
219     _strut.top = std::max(_strut.top, s.top);
220     _strut.bottom = std::max(_strut.bottom, s.bottom);
221   }
222   calcArea();
223 }
224
225
226 void Screen::calcArea()
227 {
228   otk::Rect old_area = _area;
229
230 /*
231 #ifdef    XINERAMA
232   // reset to the full areas
233   if (isXineramaActive())
234     xineramaUsableArea = getXineramaAreas();
235 #endif // XINERAMA
236 */
237   
238   _area.setRect(_strut.left, _strut.top,
239                 _info->width() - (_strut.left + _strut.right),
240                 _info->height() - (_strut.top + _strut.bottom));
241
242 /*
243 #ifdef    XINERAMA
244   if (isXineramaActive()) {
245     // keep each of the ximerama-defined areas inside the strut
246     RectList::iterator xit, xend = xineramaUsableArea.end();
247     for (xit = xineramaUsableArea.begin(); xit != xend; ++xit) {
248       if (xit->x() < usableArea.x()) {
249         xit->setX(usableArea.x());
250         xit->setWidth(xit->width() - usableArea.x());
251       }
252       if (xit->y() < usableArea.y()) {
253         xit->setY(usableArea.y());
254         xit->setHeight(xit->height() - usableArea.y());
255       }
256       if (xit->x() + xit->width() > usableArea.width())
257         xit->setWidth(usableArea.width() - xit->x());
258       if (xit->y() + xit->height() > usableArea.height())
259         xit->setHeight(usableArea.height() - xit->y());
260     }
261   }
262 #endif // XINERAMA
263 */
264  
265   if (old_area != _area) {
266     // the area has changed, adjust all the maximized windows
267     ClientList::iterator it, end = clients.end();
268     for (it = clients.begin(); it != end; ++it)
269       (*it)->remaximize();
270   }
271
272   changeWorkArea();
273 }
274
275
276 void Screen::changeSupportedAtoms()
277 {
278   // create the netwm support window
279   _supportwindow = XCreateSimpleWindow(**otk::display,
280                                        _info->rootWindow(),
281                                        0, 0, 1, 1, 0, 0, 0);
282
283   // set supporting window
284   otk::Property::set(_info->rootWindow(),
285                      otk::Property::atoms.net_supporting_wm_check,
286                      otk::Property::atoms.window, _supportwindow);
287
288   //set properties on the supporting window
289   otk::Property::set(_supportwindow, otk::Property::atoms.net_wm_name,
290                      otk::Property::utf8, "Openbox");
291   otk::Property::set(_supportwindow,
292                      otk::Property::atoms.net_supporting_wm_check,
293                      otk::Property::atoms.window, _supportwindow);
294
295   
296   Atom supported[] = {
297     otk::Property::atoms.net_current_desktop,
298     otk::Property::atoms.net_number_of_desktops,
299     otk::Property::atoms.net_desktop_geometry,
300     otk::Property::atoms.net_desktop_viewport,
301     otk::Property::atoms.net_active_window,
302     otk::Property::atoms.net_workarea,
303     otk::Property::atoms.net_client_list,
304     otk::Property::atoms.net_client_list_stacking,
305     otk::Property::atoms.net_desktop_names,
306     otk::Property::atoms.net_close_window,
307     otk::Property::atoms.net_wm_name,
308     otk::Property::atoms.net_wm_visible_name,
309     otk::Property::atoms.net_wm_icon_name,
310     otk::Property::atoms.net_wm_visible_icon_name,
311 /*
312     otk::Property::atoms.net_wm_desktop,
313 */
314     otk::Property::atoms.net_wm_strut,
315     otk::Property::atoms.net_wm_window_type,
316     otk::Property::atoms.net_wm_window_type_desktop,
317     otk::Property::atoms.net_wm_window_type_dock,
318     otk::Property::atoms.net_wm_window_type_toolbar,
319     otk::Property::atoms.net_wm_window_type_menu,
320     otk::Property::atoms.net_wm_window_type_utility,
321     otk::Property::atoms.net_wm_window_type_splash,
322     otk::Property::atoms.net_wm_window_type_dialog,
323     otk::Property::atoms.net_wm_window_type_normal,
324 /*
325     otk::Property::atoms.net_wm_moveresize,
326     otk::Property::atoms.net_wm_moveresize_size_topleft,
327     otk::Property::atoms.net_wm_moveresize_size_topright,
328     otk::Property::atoms.net_wm_moveresize_size_bottomleft,
329     otk::Property::atoms.net_wm_moveresize_size_bottomright,
330     otk::Property::atoms.net_wm_moveresize_move,
331 */
332     otk::Property::atoms.net_wm_allowed_actions,
333     otk::Property::atoms.net_wm_action_move,
334     otk::Property::atoms.net_wm_action_resize,
335     otk::Property::atoms.net_wm_action_minimize,
336     otk::Property::atoms.net_wm_action_shade,
337 /*    otk::Property::atoms.net_wm_action_stick,*/
338     otk::Property::atoms.net_wm_action_maximize_horz,
339     otk::Property::atoms.net_wm_action_maximize_vert,
340     otk::Property::atoms.net_wm_action_fullscreen,
341     otk::Property::atoms.net_wm_action_change_desktop,
342     otk::Property::atoms.net_wm_action_close,
343
344     otk::Property::atoms.net_wm_state,
345     otk::Property::atoms.net_wm_state_modal,
346     otk::Property::atoms.net_wm_state_maximized_vert,
347     otk::Property::atoms.net_wm_state_maximized_horz,
348     otk::Property::atoms.net_wm_state_shaded,
349     otk::Property::atoms.net_wm_state_skip_taskbar,
350     otk::Property::atoms.net_wm_state_skip_pager,
351     otk::Property::atoms.net_wm_state_hidden,
352     otk::Property::atoms.net_wm_state_fullscreen,
353     otk::Property::atoms.net_wm_state_above,
354     otk::Property::atoms.net_wm_state_below,
355   };
356   const int num_supported = sizeof(supported)/sizeof(Atom);
357
358   otk::Property::set(_info->rootWindow(), otk::Property::atoms.net_supported,
359                      otk::Property::atoms.atom, supported, num_supported);
360 }
361
362
363 void Screen::changeClientList()
364 {
365   Window *windows;
366   unsigned int size = clients.size();
367
368   // create an array of the window ids
369   if (size > 0) {
370     Window *win_it;
371     
372     windows = new Window[size];
373     win_it = windows;
374     ClientList::const_iterator it = clients.begin();
375     const ClientList::const_iterator end = clients.end();
376     for (; it != end; ++it, ++win_it)
377       *win_it = (*it)->window();
378   } else
379     windows = (Window*) 0;
380
381   otk::Property::set(_info->rootWindow(), otk::Property::atoms.net_client_list,
382                      otk::Property::atoms.window, windows, size);
383
384   if (size)
385     delete [] windows;
386
387   changeStackingList();
388 }
389
390
391 void Screen::changeStackingList()
392 {
393   Window *windows;
394   unsigned int size = _stacking.size();
395
396   assert(size == clients.size()); // just making sure.. :)
397
398   
399   // create an array of the window ids (from bottom to top, reverse order!)
400   if (size > 0) {
401     Window *win_it;
402     
403     windows = new Window[size];
404     win_it = windows;
405     ClientList::const_reverse_iterator it = _stacking.rbegin();
406     const ClientList::const_reverse_iterator end = _stacking.rend();
407     for (; it != end; ++it, ++win_it)
408       *win_it = (*it)->window();
409   } else
410     windows = (Window*) 0;
411
412   otk::Property::set(_info->rootWindow(),
413                      otk::Property::atoms.net_client_list_stacking,
414                      otk::Property::atoms.window, windows, size);
415
416   if (size)
417     delete [] windows;
418 }
419
420
421 void Screen::changeWorkArea() {
422   unsigned long *dims = new unsigned long[4 * _num_desktops];
423   for (long i = 0; i < _num_desktops; ++i) {
424     dims[(i * 4) + 0] = _area.x();
425     dims[(i * 4) + 1] = _area.y();
426     dims[(i * 4) + 2] = _area.width();
427     dims[(i * 4) + 3] = _area.height();
428   }
429   otk::Property::set(_info->rootWindow(), otk::Property::atoms.net_workarea,
430                      otk::Property::atoms.cardinal, dims, 4 * _num_desktops);
431   delete [] dims;
432 }
433
434
435 void Screen::manageWindow(Window window)
436 {
437   Client *client = 0;
438   XWMHints *wmhint;
439   XSetWindowAttributes attrib_set;
440   XEvent e;
441   XWindowAttributes attrib;
442
443   otk::display->grab();
444
445   // check if it has already been unmapped by the time we started mapping
446   // the grab does a sync so we don't have to here
447   if (XCheckTypedWindowEvent(**otk::display, window, DestroyNotify, &e) ||
448       XCheckTypedWindowEvent(**otk::display, window, UnmapNotify, &e)) {
449     XPutBackEvent(**otk::display, &e);
450     
451     otk::display->ungrab();
452     return; // don't manage it
453   }
454   
455   if (!XGetWindowAttributes(**otk::display, window, &attrib) ||
456       attrib.override_redirect) {
457     otk::display->ungrab();
458     return; // don't manage it
459   }
460   
461   // is the window a docking app
462   if ((wmhint = XGetWMHints(**otk::display, window))) {
463     if ((wmhint->flags & StateHint) &&
464         wmhint->initial_state == WithdrawnState) {
465       //slit->addClient(w); // XXX: make dock apps work!
466
467       otk::display->ungrab();
468       XFree(wmhint);
469       return;
470     }
471     XFree(wmhint);
472   }
473
474   // choose the events we want to receive on the CLIENT window
475   attrib_set.event_mask = Client::event_mask;
476   attrib_set.do_not_propagate_mask = Client::no_propagate_mask;
477   XChangeWindowAttributes(**otk::display, window,
478                           CWEventMask|CWDontPropagate, &attrib_set);
479
480   // create the Client class, which gets all of the hints on the window
481   client = new Client(_number, window);
482   // register for events
483   openbox->registerHandler(window, client);
484   // add to the wm's map
485   openbox->addClient(window, client);
486
487   // we dont want a border on the client
488   client->toggleClientBorder(false);
489   
490   // specify that if we exit, the window should not be destroyed and should be
491   // reparented back to root automatically
492   XChangeSaveSet(**otk::display, window, SetModeInsert);
493
494   // create the decoration frame for the client window
495   client->frame = new Frame(client, &_style);
496   // register the plate for events (map req's)
497   // this involves removing itself from the handler list first, since it is
498   // auto added to the list, being a widget. we won't get any events on the
499   // plate except for events for the client (SubstructureRedirectMask)
500   openbox->clearHandler(client->frame->plate());
501   openbox->registerHandler(client->frame->plate(), client);
502
503   // add to the wm's map
504   openbox->addClient(client->frame->window(), client);
505   openbox->addClient(client->frame->plate(), client);
506   openbox->addClient(client->frame->titlebar(), client);
507   openbox->addClient(client->frame->label(), client);
508   openbox->addClient(client->frame->button_max(), client);
509   openbox->addClient(client->frame->button_iconify(), client);
510   openbox->addClient(client->frame->button_alldesk(), client);
511   openbox->addClient(client->frame->button_close(), client);
512   openbox->addClient(client->frame->handle(), client);
513   openbox->addClient(client->frame->grip_left(), client);
514   openbox->addClient(client->frame->grip_right(), client);
515
516   // reparent the client to the frame
517   client->frame->grabClient();
518
519   if (openbox->state() != Openbox::State_Starting) {
520     // position the window intelligenty .. hopefully :)
521     // call the python PLACEWINDOW binding
522     EventData data(_number, client, EventAction::PlaceWindow, 0);
523     openbox->bindings()->fireEvent(&data);
524   }
525
526   EventData ddata(_number, client, EventAction::DisplayingWindow, 0);
527   openbox->bindings()->fireEvent(&ddata);
528
529   // if on the current desktop.. (or all desktops)
530   if (client->desktop() == _desktop ||
531       client->desktop() == (signed)0xffffffff) {
532     client->frame->show();
533   }
534
535   client->applyStartupState();
536
537   otk::display->ungrab();
538
539   // add to the screen's list
540   clients.push_back(client);
541   // once the client is in the list, update our strut to include the new
542   // client's (it is good that this happens after window placement!)
543   updateStrut();
544   // this puts into the stacking order, then raises it
545   _stacking.push_back(client);
546   raiseWindow(client);
547   // update the root properties
548   changeClientList();
549
550   openbox->bindings()->grabButtons(true, client);
551
552   EventData ndata(_number, client, EventAction::NewWindow, 0);
553   openbox->bindings()->fireEvent(&ndata);
554
555 #ifdef DEBUG
556   printf("Managed window 0x%lx frame 0x%lx\n",
557          window, client->frame->window());
558 #endif
559 }
560
561
562 void Screen::unmanageWindow(Client *client)
563 {
564   Frame *frame = client->frame;
565
566   // call the python CLOSEWINDOW binding 
567   EventData data(_number, client, EventAction::CloseWindow, 0);
568   openbox->bindings()->fireEvent(&data);
569
570   openbox->bindings()->grabButtons(false, client);
571
572   // remove from the wm's map
573   openbox->removeClient(client->window());
574   openbox->removeClient(frame->window());
575   openbox->removeClient(frame->plate());
576   openbox->removeClient(frame->titlebar());
577   openbox->removeClient(frame->label());
578   openbox->removeClient(frame->button_max());
579   openbox->removeClient(frame->button_iconify());
580   openbox->removeClient(frame->button_alldesk());
581   openbox->removeClient(frame->button_close());
582   openbox->removeClient(frame->handle());
583   openbox->removeClient(frame->grip_left());
584   openbox->removeClient(frame->grip_right());
585   // unregister for handling events
586   openbox->clearHandler(client->window());
587   
588   // remove the window from our save set
589   XChangeSaveSet(**otk::display, client->window(), SetModeDelete);
590
591   // we dont want events no more
592   XSelectInput(**otk::display, client->window(), NoEventMask);
593
594   frame->hide();
595
596   // give the client its border back
597   client->toggleClientBorder(true);
598
599   // reparent the window out of the frame
600   frame->releaseClient();
601
602 #ifdef DEBUG
603   Window framewin = client->frame->window();
604 #endif
605   delete client->frame;
606   client->frame = 0;
607
608   // remove from the stacking order
609   _stacking.remove(client);
610
611   // remove from the screen's list
612   clients.remove(client);
613
614   // once the client is out of the list, update our strut to remove it's
615   // influence
616   updateStrut();
617
618   // unset modal before dropping our focus
619   client->setModal(false);
620   
621   // unfocus the client (calls the focus callbacks)
622   client->unfocus();
623
624 #ifdef DEBUG
625   printf("Unmanaged window 0x%lx frame 0x%lx\n", client->window(), framewin);
626 #endif
627   
628   delete client;
629
630   // update the root properties
631   changeClientList();
632 }
633
634 void Screen::lowerWindow(Client *client)
635 {
636   Window wins[2];  // only ever restack 2 windows.
637
638   assert(!_stacking.empty()); // this would be bad
639
640   ClientList::iterator it = --_stacking.end();
641   const ClientList::iterator end = _stacking.begin();
642
643   if (client->modal() && client->transientFor()) {
644     // don't let a modal window lower below its transient_for
645     it = std::find(_stacking.begin(), _stacking.end(), client->transientFor());
646     assert(it != _stacking.end());
647
648     wins[0] = (it == _stacking.begin() ? _focuswindow :
649                ((*(--ClientList::const_iterator(it)))->frame->window()));
650     wins[1] = client->frame->window();
651     if (wins[0] == wins[1]) return; // already right above the window
652
653     _stacking.remove(client);
654     _stacking.insert(it, client);
655   } else {
656     for (; it != end && (*it)->layer() < client->layer(); --it);
657     if (*it == client) return;          // already the bottom, return
658
659     wins[0] = (*it)->frame->window();
660     wins[1] = client->frame->window();
661
662     _stacking.remove(client);
663     _stacking.insert(++it, client);
664   }
665
666   XRestackWindows(**otk::display, wins, 2);
667   changeStackingList();
668 }
669
670 void Screen::raiseWindow(Client *client)
671 {
672   Window wins[2];  // only ever restack 2 windows.
673
674   assert(!_stacking.empty()); // this would be bad
675
676   // remove the client before looking so we can't run into ourselves
677   _stacking.remove(client);
678   
679   ClientList::iterator it = _stacking.begin();
680   const ClientList::iterator end = _stacking.end();
681
682   // the stacking list is from highest to lowest
683   for (; it != end && (*it)->layer() > client->layer(); ++it);
684
685   /*
686     if our new position is the top, we want to stack under the _focuswindow
687     otherwise, we want to stack under the previous window in the stack.
688   */
689   wins[0] = (it == _stacking.begin() ? _focuswindow :
690              ((*(--ClientList::const_iterator(it)))->frame->window()));
691   wins[1] = client->frame->window();
692
693   _stacking.insert(it, client);
694
695   XRestackWindows(**otk::display, wins, 2);
696
697   // if the window has a modal child, then raise it after us to put it on top
698   if (client->modalChild())
699     raiseWindow(client->modalChild());
700   else
701     changeStackingList(); // no need to do this twice!
702 }
703
704 void Screen::changeDesktop(long desktop)
705 {
706   if (!(desktop >= 0 && desktop < _num_desktops)) return;
707
708   printf("Moving to desktop %ld\n", desktop);
709   
710   long old = _desktop;
711   
712   _desktop = desktop;
713   otk::Property::set(_info->rootWindow(),
714                      otk::Property::atoms.net_current_desktop,
715                      otk::Property::atoms.cardinal, _desktop);
716
717   if (old == _desktop) return;
718
719   ClientList::iterator it, end = clients.end();
720   for (it = clients.begin(); it != end; ++it) {
721     if ((*it)->desktop() == old) {
722       (*it)->frame->hide();
723     } else if ((*it)->desktop() == _desktop) {
724       (*it)->frame->show();
725     }
726   }
727
728   // force the callbacks to fire
729   if (!openbox->focusedClient())
730     openbox->setFocusedClient(0);
731 }
732
733 void Screen::changeNumDesktops(long num)
734 {
735   assert(num > 0);
736   
737   if (!(num > 0)) return;
738
739   // move windows on desktops that will no longer exist!
740   ClientList::iterator it, end = clients.end();
741   for (it = clients.begin(); it != end; ++it) {
742     int d = (*it)->desktop();
743     if (d >= num && !(d == (signed) 0xffffffff ||
744                       d == Client::ICONIC_DESKTOP)) {
745       XEvent ce;
746       ce.xclient.type = ClientMessage;
747       ce.xclient.message_type = otk::Property::atoms.net_wm_desktop;
748       ce.xclient.display = **otk::display;
749       ce.xclient.window = (*it)->window();
750       ce.xclient.format = 32;
751       ce.xclient.data.l[0] = num - 1;
752       XSendEvent(**otk::display, _info->rootWindow(), False,
753                  SubstructureNotifyMask | SubstructureRedirectMask, &ce);
754     }
755   }
756
757   _num_desktops = num;
758   otk::Property::set(_info->rootWindow(),
759                      otk::Property::atoms.net_number_of_desktops,
760                      otk::Property::atoms.cardinal, _num_desktops);
761
762   // set the viewport hint
763   unsigned long *viewport = new unsigned long[_num_desktops * 2];
764   memset(viewport, 0, sizeof(unsigned long) * _num_desktops * 2);
765   otk::Property::set(_info->rootWindow(),
766                      otk::Property::atoms.net_desktop_viewport,
767                      otk::Property::atoms.cardinal,
768                      viewport, _num_desktops * 2);
769   delete [] viewport;
770
771   // update the work area hint
772   changeWorkArea();
773
774   // change our desktop if we're on one that no longer exists!
775   if (_desktop >= num)
776     changeDesktop(num - 1);
777 }
778
779
780 void Screen::updateDesktopNames()
781 {
782   unsigned long num = (unsigned) -1;
783   
784   if (!otk::Property::get(_info->rootWindow(),
785                           otk::Property::atoms.net_desktop_names,
786                           otk::Property::utf8, &num, &_desktop_names))
787     _desktop_names.clear();
788   while ((long)_desktop_names.size() < _num_desktops)
789     _desktop_names.push_back("Unnamed");
790 }
791
792
793 void Screen::setDesktopName(long i, const otk::ustring &name)
794 {
795   assert(i >= 0);
796
797   if (i >= _num_desktops) return;
798
799   otk::Property::StringVect newnames = _desktop_names;
800   newnames[i] = name;
801   otk::Property::set(_info->rootWindow(),
802                      otk::Property::atoms.net_desktop_names,
803                      otk::Property::utf8, newnames);
804 }
805
806
807 void Screen::installColormap(bool install) const
808 {
809   if (install)
810     XInstallColormap(**otk::display, _info->colormap());
811   else
812     XUninstallColormap(**otk::display, _info->colormap());
813 }
814
815
816 void Screen::propertyHandler(const XPropertyEvent &e)
817 {
818   otk::EventHandler::propertyHandler(e);
819
820   // compress changes to a single property into a single change
821   XEvent ce;
822   while (XCheckTypedWindowEvent(**otk::display, _info->rootWindow(),
823                                 e.type, &ce)) {
824     // XXX: it would be nice to compress ALL changes to a property, not just
825     //      changes in a row without other props between.
826     if (ce.xproperty.atom != e.atom) {
827       XPutBackEvent(**otk::display, &ce);
828       break;
829     }
830   }
831
832   if (e.atom == otk::Property::atoms.net_desktop_names)
833     updateDesktopNames();
834 }
835
836
837 void Screen::clientMessageHandler(const XClientMessageEvent &e)
838 {
839   otk::EventHandler::clientMessageHandler(e);
840
841   if (e.format != 32) return;
842
843   if (e.message_type == otk::Property::atoms.net_current_desktop) {
844     changeDesktop(e.data.l[0]);
845   } else if (e.message_type == otk::Property::atoms.net_number_of_desktops) {
846     changeNumDesktops(e.data.l[0]);
847   }
848 }
849
850
851 void Screen::mapRequestHandler(const XMapRequestEvent &e)
852 {
853   otk::EventHandler::mapRequestHandler(e);
854
855 #ifdef    DEBUG
856   printf("MapRequest for 0x%lx\n", e.window);
857 #endif // DEBUG
858
859   Client *c = openbox->findClient(e.window);
860   if (c) {
861 #ifdef DEBUG
862     printf("DEBUG: MAP REQUEST CAUGHT IN SCREEN. IGNORED.\n");
863 #endif
864   } else
865     manageWindow(e.window);
866 }
867
868 }