screen.c 17.5 KB
Newer Older
rhp's avatar
...  
rhp committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
/* Metacity X screen handler */

/* 
 * Copyright (C) 2001 Havoc Pennington
 * 
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 * 02111-1307, USA.
 */
rhp's avatar
...  
rhp committed
21

22
#include <config.h>
rhp's avatar
...  
rhp committed
23 24
#include "screen.h"
#include "util.h"
rhp's avatar
...  
rhp committed
25
#include "errors.h"
rhp's avatar
...  
rhp committed
26
#include "window.h"
rhp's avatar
...  
rhp committed
27
#include "frame.h"
28
#include "prefs.h"
rhp's avatar
...  
rhp committed
29 30
#include "workspace.h"
#include "keybindings.h"
rhp's avatar
...  
rhp committed
31
#include "stack.h"
rhp's avatar
...  
rhp committed
32

rhp's avatar
...  
rhp committed
33
#include <X11/Xatom.h>
rhp's avatar
...  
rhp committed
34 35
#include <locale.h>
#include <string.h>
rhp's avatar
...  
rhp committed
36

rhp's avatar
...  
rhp committed
37 38 39
static char* get_screen_name (MetaDisplay *display,
                              int          number);

40
static void update_num_workspaces  (MetaScreen *screen);
41
static void update_focus_mode      (MetaScreen *screen);
42 43
static void prefs_changed_callback (MetaPreference pref,
                                    gpointer       data);
rhp's avatar
...  
rhp committed
44

rhp's avatar
...  
rhp committed
45 46 47 48 49
static int
set_wm_check_hint (MetaScreen *screen)
{
  unsigned long data[1];

rhp's avatar
...  
rhp committed
50 51
  g_return_val_if_fail (screen->display->leader_window != None, 0);
  
rhp's avatar
...  
rhp committed
52 53 54 55 56 57
  data[0] = screen->display->leader_window;

  XChangeProperty (screen->display->xdisplay, screen->xroot,
                   screen->display->atom_net_supporting_wm_check,
                   XA_WINDOW,
                   32, PropModeReplace, (guchar*) data, 1);
rhp's avatar
...  
rhp committed
58

59 60 61 62
  /* Legacy GNOME hint (uses cardinal, dunno why) */

  /* legacy hint window should have property containing self */
  XChangeProperty (screen->display->xdisplay, screen->display->leader_window,
rhp's avatar
...  
rhp committed
63
                   screen->display->atom_win_supporting_wm_check,
rhp's avatar
...  
rhp committed
64
                   XA_CARDINAL,
rhp's avatar
...  
rhp committed
65 66
                   32, PropModeReplace, (guchar*) data, 1);

67 68 69 70 71 72 73 74
  /* do this after setting up window fully, to avoid races
   * with clients listening to property notify on root.
   */
  XChangeProperty (screen->display->xdisplay, screen->xroot,
                   screen->display->atom_win_supporting_wm_check,
                   XA_CARDINAL,
                   32, PropModeReplace, (guchar*) data, 1);
  
rhp's avatar
...  
rhp committed
75 76 77 78 79 80
  return Success;
}

static int
set_supported_hint (MetaScreen *screen)
{
81
#define N_SUPPORTED 23
rhp's avatar
...  
rhp committed
82
#define N_WIN_SUPPORTED 1
rhp's avatar
...  
rhp committed
83
  Atom atoms[N_SUPPORTED];
rhp's avatar
...  
rhp committed
84
  
rhp's avatar
...  
rhp committed
85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101
  atoms[0] = screen->display->atom_net_wm_name;
  atoms[1] = screen->display->atom_net_close_window;
  atoms[2] = screen->display->atom_net_wm_state;
  atoms[3] = screen->display->atom_net_wm_state_shaded;
  atoms[4] = screen->display->atom_net_wm_state_maximized_vert;
  atoms[5] = screen->display->atom_net_wm_state_maximized_horz;
  atoms[6] = screen->display->atom_net_wm_desktop;
  atoms[7] = screen->display->atom_net_number_of_desktops;
  atoms[8] = screen->display->atom_net_current_desktop;
  atoms[9] = screen->display->atom_net_wm_window_type;
  atoms[10] = screen->display->atom_net_wm_window_type_desktop;
  atoms[11] = screen->display->atom_net_wm_window_type_dock;
  atoms[12] = screen->display->atom_net_wm_window_type_toolbar;
  atoms[13] = screen->display->atom_net_wm_window_type_menu;
  atoms[14] = screen->display->atom_net_wm_window_type_dialog;
  atoms[15] = screen->display->atom_net_wm_window_type_normal;
  atoms[16] = screen->display->atom_net_wm_state_modal;
rhp's avatar
...  
rhp committed
102 103
  atoms[17] = screen->display->atom_net_client_list;
  atoms[18] = screen->display->atom_net_client_list_stacking;
rhp's avatar
...  
rhp committed
104 105
  atoms[19] = screen->display->atom_net_wm_state_skip_taskbar;
  atoms[20] = screen->display->atom_net_wm_state_skip_pager;
Havoc Pennington's avatar
Havoc Pennington committed
106
  atoms[21] = screen->display->atom_net_wm_icon;
107
  atoms[22] = screen->display->atom_net_wm_moveresize;
rhp's avatar
...  
rhp committed
108 109
  
  XChangeProperty (screen->display->xdisplay, screen->xroot,
110
                   screen->display->atom_net_supported,
rhp's avatar
...  
rhp committed
111 112 113
                   XA_ATOM,
                   32, PropModeReplace, (guchar*) atoms, N_SUPPORTED);

rhp's avatar
...  
rhp committed
114 115 116 117 118 119 120 121
  /* Set legacy GNOME hints */
  atoms[0] = screen->display->atom_win_layer;
  
  XChangeProperty (screen->display->xdisplay, screen->xroot,
                   screen->display->atom_win_protocols,
                   XA_ATOM,
                   32, PropModeReplace, (guchar*) atoms, N_WIN_SUPPORTED);
  
rhp's avatar
...  
rhp committed
122 123 124 125
  return Success;
#undef N_SUPPORTED
}

Havoc Pennington's avatar
Havoc Pennington committed
126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148
static int
set_wm_icon_size_hint (MetaScreen *screen)
{
#define N_VALS 6
  gulong vals[N_VALS];

  /* min width, min height, max w, max h, width inc, height inc */
  vals[0] = META_ICON_WIDTH;
  vals[1] = META_ICON_HEIGHT;
  vals[2] = META_ICON_WIDTH;
  vals[3] = META_ICON_HEIGHT;
  vals[4] = 0;
  vals[5] = 0;
  
  XChangeProperty (screen->display->xdisplay, screen->xroot,
                   screen->display->atom_wm_icon_size,
                   XA_CARDINAL,
                   32, PropModeReplace, (guchar*) vals, N_VALS);
  
  return Success;
#undef N_VALS
}

rhp's avatar
...  
rhp committed
149 150 151 152 153
MetaScreen*
meta_screen_new (MetaDisplay *display,
                 int          number)
{
  MetaScreen *screen;
rhp's avatar
...  
rhp committed
154 155
  Window xroot;
  Display *xdisplay;
rhp's avatar
...  
rhp committed
156
  
rhp's avatar
...  
rhp committed
157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192
  /* Only display->name, display->xdisplay, and display->error_traps
   * can really be used in this function, since normally screens are
   * created from the MetaDisplay constructor
   */
  
  xdisplay = display->xdisplay;
  
  meta_verbose ("Trying screen %d on display '%s'\n",
                number, display->name);

  xroot = RootWindow (xdisplay, number);

  /* FVWM checks for None here, I don't know if this
   * ever actually happens
   */
  if (xroot == None)
    {
      meta_warning (_("Screen %d on display '%s' is invalid\n"),
                    number, display->name);
      return NULL;
    }

  /* Select our root window events */
  meta_error_trap_push (display);
  XSelectInput (xdisplay,
                xroot,
                SubstructureRedirectMask | SubstructureNotifyMask |
                ColormapChangeMask | PropertyChangeMask |
                LeaveWindowMask | EnterWindowMask |
                ButtonPressMask | ButtonReleaseMask);
  if (meta_error_trap_pop (display) != Success)
    {
      meta_warning (_("Screen %d on display '%s' already has a window manager\n"),
                    number, display->name);
      return NULL;
    }
rhp's avatar
...  
rhp committed
193 194 195
  
  screen = g_new (MetaScreen, 1);

rhp's avatar
...  
rhp committed
196
  screen->display = display;
rhp's avatar
...  
rhp committed
197
  screen->number = number;
rhp's avatar
...  
rhp committed
198
  screen->screen_name = get_screen_name (display, number);
rhp's avatar
...  
rhp committed
199
  screen->xscreen = ScreenOfDisplay (xdisplay, number);
rhp's avatar
...  
rhp committed
200
  screen->xroot = xroot;
rhp's avatar
...  
rhp committed
201 202
  screen->width = WidthOfScreen (screen->xscreen);
  screen->height = HeightOfScreen (screen->xscreen);
rhp's avatar
...  
rhp committed
203
  screen->current_cursor = -1; /* invalid/unset */
Havoc Pennington's avatar
Havoc Pennington committed
204 205
  screen->default_xvisual = DefaultVisualOfScreen (screen->xscreen);
  screen->default_depth = DefaultDepthOfScreen (screen->xscreen);
rhp's avatar
...  
rhp committed
206 207
  
  meta_screen_set_cursor (screen, META_CURSOR_DEFAULT);
rhp's avatar
...  
rhp committed
208
  
rhp's avatar
...  
rhp committed
209 210 211 212
  if (display->leader_window == None)
    display->leader_window = XCreateSimpleWindow (display->xdisplay,
                                                  screen->xroot,
                                                  -100, -100, 1, 1, 0, 0, 0);
Havoc Pennington's avatar
Havoc Pennington committed
213 214

  set_wm_icon_size_hint (screen);
rhp's avatar
...  
rhp committed
215
  
rhp's avatar
...  
rhp committed
216 217 218 219
  set_supported_hint (screen);
  
  set_wm_check_hint (screen);
  
rhp's avatar
...  
rhp committed
220 221 222 223
  /* Screens must have at least one workspace at all times,
   * so create that required workspace.
   */
  screen->active_workspace = meta_workspace_new (screen);
224 225
  update_num_workspaces (screen);
  
rhp's avatar
...  
rhp committed
226
  meta_screen_grab_keys (screen);
rhp's avatar
...  
rhp committed
227

rhp's avatar
...  
rhp committed
228
  screen->ui = meta_ui_new (screen->display->xdisplay,
rhp's avatar
...  
rhp committed
229
                            screen->xscreen);
rhp's avatar
...  
rhp committed
230

231 232
  screen->tab_popup = NULL;
  
rhp's avatar
...  
rhp committed
233
  screen->stack = meta_stack_new (screen);
234 235

  meta_prefs_add_listener (prefs_changed_callback, screen);
rhp's avatar
...  
rhp committed
236
  
rhp's avatar
...  
rhp committed
237 238
  meta_verbose ("Added screen %d ('%s') root 0x%lx\n",
                screen->number, screen->screen_name, screen->xroot);  
rhp's avatar
...  
rhp committed
239 240 241 242 243 244
  
  return screen;
}

void
meta_screen_free (MetaScreen *screen)
245
{  
246 247
  meta_prefs_remove_listener (prefs_changed_callback, screen);
  
rhp's avatar
...  
rhp committed
248
  meta_screen_ungrab_keys (screen);
249

rhp's avatar
...  
rhp committed
250
  meta_ui_free (screen->ui);
rhp's avatar
...  
rhp committed
251

rhp's avatar
...  
rhp committed
252
  meta_stack_free (screen->stack);
253 254 255 256 257 258

  meta_error_trap_push (screen->display);
  XSelectInput (screen->display->xdisplay, screen->xroot, 0);
  if (meta_error_trap_pop (screen->display) != Success)
    meta_warning (_("Could not release screen %d on display '%s'\n"),
                  screen->number, screen->display->name);
rhp's avatar
...  
rhp committed
259
  
rhp's avatar
...  
rhp committed
260
  g_free (screen->screen_name);
rhp's avatar
...  
rhp committed
261 262 263
  g_free (screen);
}

rhp's avatar
...  
rhp committed
264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279
void
meta_screen_manage_all_windows (MetaScreen *screen)
{
  Window ignored1, ignored2;
  Window *children;
  unsigned int n_children;
  int i;

  /* Must grab server to avoid obvious race condition */
  meta_display_grab (screen->display);

  meta_error_trap_push (screen->display);
  
  XQueryTree (screen->display->xdisplay,
              screen->xroot,
              &ignored1, &ignored2, &children, &n_children);
rhp's avatar
...  
rhp committed
280

rhp's avatar
...  
rhp committed
281 282 283 284 285
  if (meta_error_trap_pop (screen->display))
    {
      meta_display_ungrab (screen->display);
      return;
    }
rhp's avatar
...  
rhp committed
286 287

  meta_stack_freeze (screen->stack);
rhp's avatar
...  
rhp committed
288 289 290
  i = 0;
  while (i < n_children)
    {
rhp's avatar
...  
rhp committed
291
      meta_window_new (screen->display, children[i], TRUE);
rhp's avatar
...  
rhp committed
292 293 294

      ++i;
    }
rhp's avatar
...  
rhp committed
295
  meta_stack_thaw (screen->stack);
rhp's avatar
...  
rhp committed
296 297 298 299 300 301

  meta_display_ungrab (screen->display);
  
  if (children)
    XFree (children);
}
rhp's avatar
...  
rhp committed
302 303 304 305 306 307 308 309 310 311 312 313 314

MetaScreen*
meta_screen_for_x_screen (Screen *xscreen)
{
  MetaDisplay *display;
  
  display = meta_display_for_x_display (DisplayOfScreen (xscreen));

  if (display == NULL)
    return NULL;
  
  return meta_display_screen_for_x_screen (display, xscreen);
}
rhp's avatar
...  
rhp committed
315

316 317 318 319 320 321 322 323 324 325
static void
prefs_changed_callback (MetaPreference pref,
                        gpointer       data)
{
  MetaScreen *screen = data;
  
  if (pref == META_PREF_NUM_WORKSPACES)
    {
      update_num_workspaces (screen);
    }
326 327 328 329
  else if (pref == META_PREF_FOCUS_MODE)
    {
      update_focus_mode (screen);
    }
330 331 332
}


rhp's avatar
...  
rhp committed
333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361
static char*
get_screen_name (MetaDisplay *display,
                 int          number)
{
  char *p;
  char *dname;
  char *scr;
  
  /* DisplayString gives us a sort of canonical display,
   * vs. the user-entered name from XDisplayName()
   */
  dname = g_strdup (DisplayString (display->xdisplay));

  /* Change display name to specify this screen.
   */
  p = strrchr (dname, ':');
  if (p)
    {
      p = strchr (p, '.');
      if (p)
        *p = '\0';
    }
  
  scr = g_strdup_printf ("%s.%d", dname, number);

  g_free (dname);

  return scr;
}
rhp's avatar
...  
rhp committed
362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417

static gint
ptrcmp (gconstpointer a, gconstpointer b)
{
  if (a < b)
    return -1;
  else if (a > b)
    return 1;
  else
    return 0;
}

static void
listify_func (gpointer key, gpointer value, gpointer data)
{
  GSList **listp;
  
  listp = data;

  *listp = g_slist_prepend (*listp, value);
}

void
meta_screen_foreach_window (MetaScreen *screen,
                            MetaScreenWindowFunc func,
                            gpointer data)
{
  GSList *winlist;
  GSList *tmp;

  /* If we end up doing this often, just keeping a list
   * of windows might be sensible.
   */
  
  winlist = NULL;
  g_hash_table_foreach (screen->display->window_ids,
                        listify_func,
                        &winlist);
  
  winlist = g_slist_sort (winlist, ptrcmp);
  
  tmp = winlist;
  while (tmp != NULL)
    {
      /* If the next node doesn't contain this window
       * a second time, delete the window.
       */
      if (tmp->next == NULL ||
          (tmp->next && tmp->next->data != tmp->data))
        {
          MetaWindow *window = tmp->data;

          if (window->screen == screen)
            (* func) (screen, window, data);
        }
      
418
      tmp = tmp->next;
rhp's avatar
...  
rhp committed
419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434
    }
  g_slist_free (winlist);
}

static void
queue_draw (MetaScreen *screen, MetaWindow *window, gpointer data)
{
  if (window->frame)
    meta_frame_queue_draw (window->frame);
}

void
meta_screen_queue_frame_redraws (MetaScreen *screen)
{
  meta_screen_foreach_window (screen, queue_draw, NULL);
}
rhp's avatar
...  
rhp committed
435

rhp's avatar
...  
rhp committed
436 437 438 439 440 441 442 443 444 445 446
static void
queue_resize (MetaScreen *screen, MetaWindow *window, gpointer data)
{
  meta_window_queue_move_resize (window);
}

void
meta_screen_queue_window_resizes (MetaScreen *screen)
{
  meta_screen_foreach_window (screen, queue_resize, NULL);
}
rhp's avatar
...  
rhp committed
447

rhp's avatar
rhp committed
448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466
int
meta_screen_get_n_workspaces (MetaScreen *screen)
{
  GList *tmp;
  int i;

  i = 0;
  tmp = screen->display->workspaces;
  while (tmp != NULL)
    {
      MetaWorkspace *w = tmp->data;

      if (w->screen == screen)
        ++i;
      
      tmp = tmp->next;
    }

  return i;
467
}
rhp's avatar
rhp committed
468

469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551
static void
update_num_workspaces (MetaScreen *screen)
{
  int new_num;
  GList *tmp;
  int i;
  GList *extras;
  MetaWorkspace *last_remaining;
  gboolean need_change_space;
  
  new_num = meta_prefs_get_num_workspaces ();

  g_assert (new_num > 0);

  last_remaining = NULL;
  extras = NULL;
  i = 0;
  tmp = screen->display->workspaces;
  while (tmp != NULL)
    {
      MetaWorkspace *w = tmp->data;

      if (w->screen == screen)
        {          
          ++i;

          if (i > new_num)
            extras = g_list_prepend (extras, w);
          else
            last_remaining = w;
        }
      
      tmp = tmp->next;
    }

  g_assert (last_remaining);
  
  /* Get rid of the extra workspaces by moving all their windows
   * to last_remaining, then activating last_remaining if
   * one of the removed workspaces was active. This will be a bit
   * wacky if the config tool for changing number of workspaces
   * is on a removed workspace ;-)
   */
  need_change_space = FALSE;
  tmp = extras;
  while (tmp != NULL)
    {
      MetaWorkspace *w = tmp->data;

      meta_workspace_relocate_windows (w, last_remaining);      

      if (w == screen->active_workspace)
        need_change_space = TRUE;
      
      tmp = tmp->next;
    }

  if (need_change_space)
    meta_workspace_activate (last_remaining);

  /* Should now be safe to free the workspaces */
  tmp = extras;
  while (tmp != NULL)
    {
      MetaWorkspace *w = tmp->data;

      g_assert (w->windows == NULL);
      meta_workspace_free (w);
      
      tmp = tmp->next;
    }
  
  g_list_free (extras);
  
  /* Add missing workspaces. FIXME This will keep setting the
   * number-of-workspaces root window property on each workspace
   * creation, kind of a lame thing
   */
  while (i < new_num)
    {
      meta_workspace_new (screen);
      ++i;
    }
rhp's avatar
rhp committed
552
}
rhp's avatar
...  
rhp committed
553

554 555 556
static void
update_focus_mode (MetaScreen *screen)
{
557
  /* nothing to do anymore */ ;
558 559
}

rhp's avatar
...  
rhp committed
560 561 562 563 564 565 566 567 568 569 570 571 572 573 574
void
meta_screen_set_cursor (MetaScreen *screen,
                        MetaCursor  cursor)
{
  Cursor xcursor;

  if (cursor == screen->current_cursor)
    return;

  screen->current_cursor = cursor;
  
  xcursor = meta_display_create_x_cursor (screen->display, cursor);
  XDefineCursor (screen->display->xdisplay, screen->xroot, xcursor);
  XFreeCursor (screen->display->xdisplay, xcursor);
}
575 576 577 578 579 580 581 582 583 584 585 586 587

void
meta_screen_ensure_tab_popup (MetaScreen *screen)
{
  MetaTabEntry *entries;
  GSList *tab_list;
  GSList *tmp;
  int len;
  int i;
  
  if (screen->tab_popup)
    return;

Havoc Pennington's avatar
Havoc Pennington committed
588 589
  tab_list = meta_stack_get_tab_list (screen->stack,
                                      screen->active_workspace);
590 591 592 593 594 595 596 597 598 599 600 601
  len = g_slist_length (tab_list);

  entries = g_new (MetaTabEntry, len + 1);
  entries[len].xwindow = None;
  entries[len].title = NULL;
  entries[len].icon = NULL;
  
  i = 0;
  tmp = tab_list;
  while (i < len)
    {
      MetaWindow *window;
602 603
      MetaRectangle r;
      
604 605 606 607 608
      window = tmp->data;
      
      entries[i].xwindow = window->xwindow;
      entries[i].title = window->title;
      entries[i].icon = window->icon;
609 610 611 612 613
      meta_window_get_outer_rect (window, &r);
      entries[i].x = r.x;
      entries[i].y = r.y;
      entries[i].width = r.width;
      entries[i].height = r.height;
614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640

      /* Find inside of highlight rectangle to be used
       * when window is outlined for tabbing.
       * This should be the size of the east/west frame,
       * and the size of the south frame, on those sides.
       * on the top it should be the size of the south frame
       * edge.
       */
      if (window->frame)
        {
          int south = window->frame->rect.height - window->frame->child_y -
            window->rect.height;
          int east = window->frame->child_x;
          entries[i].inner_x = east;
          entries[i].inner_y = south;
          entries[i].inner_width = window->rect.width;
          entries[i].inner_height = window->frame->rect.height - south * 2;
        }
      else
        {
          /* Use an arbitrary border size */
#define OUTLINE_WIDTH 5
          entries[i].inner_x = OUTLINE_WIDTH;
          entries[i].inner_y = OUTLINE_WIDTH;
          entries[i].inner_width = window->rect.width - OUTLINE_WIDTH * 2;
          entries[i].inner_height = window->rect.height - OUTLINE_WIDTH * 2;
        }
641 642 643 644 645 646 647 648
      
      ++i;
      tmp = tmp->next;
    }
  
  screen->tab_popup = meta_ui_tab_popup_new (entries);
  g_free (entries);

649 650
  g_slist_free (tab_list);
  
651 652
  /* don't show tab popup, since proper window isn't selected yet */
}
653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681

/* Focus top window on active workspace */
void
meta_screen_focus_top_window (MetaScreen *screen,
                              MetaWindow *not_this_one)
{
  MetaWindow *window;

  if (not_this_one)
    meta_topic (META_DEBUG_FOCUS,
                "Focusing top window excluding %s\n", not_this_one->desc);
  
  window = meta_stack_get_default_focus_window (screen->stack,
                                                screen->active_workspace,
                                                not_this_one);

  /* FIXME I'm a loser on the CurrentTime front */
  if (window)
    {
      meta_topic (META_DEBUG_FOCUS,
                  "Focusing top window %s\n", window->desc);

      meta_window_focus (window, meta_display_get_current_time (screen->display));
    }
  else
    {
      meta_topic (META_DEBUG_FOCUS, "No top window to focus found\n");
    }
}