Logo Search packages:      
Sourcecode: wayland-demos version File versions  Download package

window.c

/*
 * Copyright © 2008 Kristian Høgsberg
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that copyright
 * notice and this permission notice appear in supporting documentation, and
 * that the name of the copyright holders not be used in advertising or
 * publicity pertaining to distribution of the software without specific,
 * written prior permission.  The copyright holders make no representations
 * about the suitability of this software for any purpose.  It is provided "as
 * is" without express or implied warranty.
 *
 * THE COPYRIGHT HOLDERS DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
 * EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY SPECIAL, INDIRECT OR
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
 * OF THIS SOFTWARE.
 */

#include "../config.h"

#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <unistd.h>
#include <math.h>
#include <time.h>
#include <cairo.h>
#include <glib.h>
#include <glib-object.h>
#include <gdk-pixbuf/gdk-pixbuf.h>
#include <sys/mman.h>

#include <wayland-egl.h>

#include <GL/gl.h>
#include <EGL/egl.h>
#include <EGL/eglext.h>

#ifdef HAVE_CAIRO_EGL
#include <cairo-gl.h>
#endif

#include <X11/extensions/XKBcommon.h>

#include <linux/input.h>
#include "wayland-util.h"
#include "wayland-client.h"
#include "wayland-glib.h"
#include "cairo-util.h"

#include "window.h"

struct display {
      struct wl_display *display;
      struct wl_compositor *compositor;
      struct wl_shell *shell;
      struct wl_shm *shm;
      struct wl_output *output;
      struct wl_visual *argb_visual, *premultiplied_argb_visual, *rgb_visual;
      struct rectangle screen_allocation;
      int authenticated;
      EGLDisplay dpy;
      EGLConfig conf;
      EGLContext ctx;
      cairo_device_t *device;
      int fd;
      GMainLoop *loop;
      GSource *source;
      struct wl_list window_list;
      struct wl_list input_list;
      char *device_name;
      cairo_surface_t *active_frame, *inactive_frame, *shadow;
      struct xkb_desc *xkb;
      cairo_surface_t **pointer_surfaces;

      display_global_handler_t global_handler;

      PFNGLEGLIMAGETARGETTEXTURE2DOESPROC image_target_texture_2d;
      PFNEGLCREATEIMAGEKHRPROC create_image;
      PFNEGLDESTROYIMAGEKHRPROC destroy_image;
};

struct window {
      struct display *display;
      struct window *parent;
      struct wl_surface *surface;
      char *title;
      struct rectangle allocation, saved_allocation, server_allocation;
      int x, y;
      int resize_edges;
      int redraw_scheduled;
      int minimum_width, minimum_height;
      int margin;
      int fullscreen;
      int decoration;
      int transparent;
      struct input *grab_device;
      struct input *keyboard_device;
      uint32_t name;
      enum window_buffer_type buffer_type;

      EGLImageKHR *image;
      cairo_surface_t *cairo_surface, *pending_surface;

      window_resize_handler_t resize_handler;
      window_redraw_handler_t redraw_handler;
      window_key_handler_t key_handler;
      window_button_handler_t button_handler;
      window_keyboard_focus_handler_t keyboard_focus_handler;
      window_motion_handler_t motion_handler;

      void *user_data;
      struct wl_list link;
};

00122 struct input {
      struct display *display;
      struct wl_input_device *input_device;
      struct window *pointer_focus;
      struct window *keyboard_focus;
      struct selection_offer *offer;
      uint32_t current_pointer_image;
      uint32_t modifiers;
      int32_t x, y, sx, sy;
      struct wl_list link;
};

enum {
      POINTER_DEFAULT = 100,
      POINTER_UNSET
};

enum window_location {
      WINDOW_INTERIOR = 0,
      WINDOW_RESIZING_TOP = 1,
      WINDOW_RESIZING_BOTTOM = 2,
      WINDOW_RESIZING_LEFT = 4,
      WINDOW_RESIZING_TOP_LEFT = 5,
      WINDOW_RESIZING_BOTTOM_LEFT = 6,
      WINDOW_RESIZING_RIGHT = 8,
      WINDOW_RESIZING_TOP_RIGHT = 9,
      WINDOW_RESIZING_BOTTOM_RIGHT = 10,
      WINDOW_RESIZING_MASK = 15,
      WINDOW_EXTERIOR = 16,
      WINDOW_TITLEBAR = 17,
      WINDOW_CLIENT_AREA = 18,
};

const char *option_xkb_layout = "us";
const char *option_xkb_variant = "";
const char *option_xkb_options = "";

static const GOptionEntry xkb_option_entries[] = {
      { "xkb-layout", 0, 0, G_OPTION_ARG_STRING,
        &option_xkb_layout, "XKB Layout" },
      { "xkb-variant", 0, 0, G_OPTION_ARG_STRING,
        &option_xkb_variant, "XKB Variant" },
      { "xkb-options", 0, 0, G_OPTION_ARG_STRING,
        &option_xkb_options, "XKB Options" },
      { NULL }
};

static void
rounded_rect(cairo_t *cr, int x0, int y0, int x1, int y1, int radius)
{
      cairo_move_to(cr, x0, y0 + radius);
      cairo_arc(cr, x0 + radius, y0 + radius, radius, M_PI, 3 * M_PI / 2);
      cairo_line_to(cr, x1 - radius, y0);
      cairo_arc(cr, x1 - radius, y0 + radius, radius, 3 * M_PI / 2, 2 * M_PI);
      cairo_line_to(cr, x1, y1 - radius);
      cairo_arc(cr, x1 - radius, y1 - radius, radius, 0, M_PI / 2);
      cairo_line_to(cr, x0 + radius, y1);
      cairo_arc(cr, x0 + radius, y1 - radius, radius, M_PI / 2, M_PI);
      cairo_close_path(cr);
}

static const cairo_user_data_key_t surface_data_key;
00184 struct surface_data {
      struct wl_buffer *buffer;
};

#define MULT(_d,c,a,t) \
      do { t = c * a + 0x7f; _d = ((t >> 8) + t) >> 8; } while (0)

#ifdef HAVE_CAIRO_EGL

struct egl_window_surface_data {
      struct display *display;
      struct wl_surface *surface;
      struct wl_egl_window *window;
      EGLSurface surf;
};

static void
egl_window_surface_data_destroy(void *p)
{
      struct egl_window_surface_data *data = p;
      struct display *d = data->display;

      eglDestroySurface(d->dpy, data->surf);
      wl_egl_window_destroy(data->window);
      data->surface = NULL;

      free(p);
}

static cairo_surface_t *
display_create_egl_window_surface(struct display *display,
                          struct wl_surface *surface,
                          struct wl_visual *visual,
                          struct rectangle *rectangle)
{
      cairo_surface_t *cairo_surface;
      struct egl_window_surface_data *data;

      data = malloc(sizeof *data);
      if (data == NULL)
            return NULL;

      data->display = display;
      data->surface = surface;

      data->window = wl_egl_window_create(surface,
                                  rectangle->width,
                                  rectangle->height,
                                  visual);

      data->surf = eglCreateWindowSurface(display->dpy, display->conf,
                                  data->window, NULL);

      cairo_surface = cairo_gl_surface_create_for_egl(display->device,
                                          data->surf,
                                          rectangle->width,
                                          rectangle->height);

      cairo_surface_set_user_data(cairo_surface, &surface_data_key,
                            data, egl_window_surface_data_destroy);

      return cairo_surface;
}

struct egl_image_surface_data {
      struct surface_data data;
      EGLImageKHR image;
      GLuint texture;
      struct display *display;
      struct wl_egl_pixmap *pixmap;
};

static void
egl_image_surface_data_destroy(void *p)
{
      struct egl_image_surface_data *data = p;
      struct display *d = data->display;

      cairo_device_acquire(d->device);
      glDeleteTextures(1, &data->texture);
      cairo_device_release(d->device);

      d->destroy_image(d->dpy, data->image);
      wl_buffer_destroy(data->data.buffer);
      wl_egl_pixmap_destroy(data->pixmap);
      free(p);
}

EGLImageKHR
display_get_image_for_egl_image_surface(struct display *display,
                              cairo_surface_t *surface)
{
      struct egl_image_surface_data *data;

      data = cairo_surface_get_user_data (surface, &surface_data_key);

      return data->image;
}

static cairo_surface_t *
display_create_egl_image_surface(struct display *display,
                         struct wl_visual *visual,
                         struct rectangle *rectangle)
{
      struct egl_image_surface_data *data;
      EGLDisplay dpy = display->dpy;
      cairo_surface_t *surface;

      data = malloc(sizeof *data);
      if (data == NULL)
            return NULL;

      data->display = display;

      data->pixmap = wl_egl_pixmap_create(rectangle->width,
                                  rectangle->height,
                                  visual, 0);
      if (data->pixmap == NULL) {
            free(data);
            return NULL;
      }

      data->image = display->create_image(dpy, NULL,
                                  EGL_NATIVE_PIXMAP_KHR,
                                  (EGLClientBuffer) data->pixmap,
                                  NULL);
      if (data->image == EGL_NO_IMAGE_KHR) {
            wl_egl_pixmap_destroy(data->pixmap);
            free(data);
            return NULL;
      }

      data->data.buffer =
            wl_egl_pixmap_create_buffer(data->pixmap);

      cairo_device_acquire(display->device);
      glGenTextures(1, &data->texture);
      glBindTexture(GL_TEXTURE_2D, data->texture);
      display->image_target_texture_2d(GL_TEXTURE_2D, data->image);
      cairo_device_release(display->device);

      surface = cairo_gl_surface_create_for_texture(display->device,
                                          CAIRO_CONTENT_COLOR_ALPHA,
                                          data->texture,
                                          rectangle->width,
                                          rectangle->height);

      cairo_surface_set_user_data (surface, &surface_data_key,
                             data, egl_image_surface_data_destroy);

      return surface;
}

static cairo_surface_t *
display_create_egl_image_surface_from_file(struct display *display,
                                 const char *filename,
                                 struct rectangle *rect)
{
      cairo_surface_t *surface;
      GdkPixbuf *pixbuf;
      GError *error = NULL;
      int stride, i;
      unsigned char *pixels, *p, *end;
      struct egl_image_surface_data *data;
      struct wl_visual *visual;

      pixbuf = gdk_pixbuf_new_from_file_at_scale(filename,
                                       rect->width, rect->height,
                                       FALSE, &error);
      if (error != NULL)
            return NULL;

      if (!gdk_pixbuf_get_has_alpha(pixbuf) ||
          gdk_pixbuf_get_n_channels(pixbuf) != 4) {
            g_object_unref(pixbuf);
            return NULL;
      }


      stride = gdk_pixbuf_get_rowstride(pixbuf);
      pixels = gdk_pixbuf_get_pixels(pixbuf);

      for (i = 0; i < rect->height; i++) {
            p = pixels + i * stride;
            end = p + rect->width * 4;
            while (p < end) {
                  unsigned int t;

                  MULT(p[0], p[0], p[3], t);
                  MULT(p[1], p[1], p[3], t);
                  MULT(p[2], p[2], p[3], t);
                  p += 4;

            }
      }

      visual = display->premultiplied_argb_visual;
      surface = display_create_egl_image_surface(display, visual, rect);
      if (surface == NULL) {
            g_object_unref(pixbuf);
            return NULL;
      }

      data = cairo_surface_get_user_data(surface, &surface_data_key);

      cairo_device_acquire(display->device);
      glBindTexture(GL_TEXTURE_2D, data->texture);
      glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, rect->width, rect->height,
                  GL_RGBA, GL_UNSIGNED_BYTE, pixels);
      cairo_device_release(display->device);

      g_object_unref(pixbuf);

      return surface;
}

#endif

struct wl_buffer *
display_get_buffer_for_surface(struct display *display,
                         cairo_surface_t *surface)
{
      struct surface_data *data;

      data = cairo_surface_get_user_data (surface, &surface_data_key);

      return data->buffer;
}

00413 struct shm_surface_data {
      struct surface_data data;
      void *map;
      size_t length;
};

static void
shm_surface_data_destroy(void *p)
{
      struct shm_surface_data *data = p;

      wl_buffer_destroy(data->data.buffer);
      munmap(data->map, data->length);
}

static cairo_surface_t *
display_create_shm_surface(struct display *display,
                     struct rectangle *rectangle, uint32_t flags)
{
      struct shm_surface_data *data;
      struct wl_visual *visual;
      cairo_surface_t *surface;
      int stride, fd;
      char filename[] = "/tmp/wayland-shm-XXXXXX";

      data = malloc(sizeof *data);
      if (data == NULL)
            return NULL;

      stride = cairo_format_stride_for_width (CAIRO_FORMAT_ARGB32,
                                    rectangle->width);
      data->length = stride * rectangle->height;
      fd = mkstemp(filename);
      if (fd < 0) {
            fprintf(stderr, "open %s failed: %m\n", filename);
            return NULL;
      }
      if (ftruncate(fd, data->length) < 0) {
            fprintf(stderr, "ftruncate failed: %m\n");
            close(fd);
            return NULL;
      }

      data->map = mmap(NULL, data->length,
                   PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
      unlink(filename);

      if (data->map == MAP_FAILED) {
            fprintf(stderr, "mmap failed: %m\n");
            close(fd);
            return NULL;
      }

      surface = cairo_image_surface_create_for_data (data->map,
                                           CAIRO_FORMAT_ARGB32,
                                           rectangle->width,
                                           rectangle->height,
                                           stride);

      cairo_surface_set_user_data (surface, &surface_data_key,
                             data, shm_surface_data_destroy);

      if (flags & SURFACE_OPAQUE)
            visual = display->rgb_visual;
      else
            visual = display->premultiplied_argb_visual;

      data->data.buffer = wl_shm_create_buffer(display->shm,
                                     fd,
                                     rectangle->width,
                                     rectangle->height,
                                     stride, visual);

      close(fd);

      return surface;
}

static cairo_surface_t *
display_create_shm_surface_from_file(struct display *display,
                             const char *filename,
                             struct rectangle *rect)
{
      cairo_surface_t *surface;
      GdkPixbuf *pixbuf;
      GError *error = NULL;
      int stride, i;
      unsigned char *pixels, *p, *end, *dest_data;
      int dest_stride;
      uint32_t *d;

      pixbuf = gdk_pixbuf_new_from_file_at_scale(filename,
                                       rect->width, rect->height,
                                       FALSE, &error);
      if (error != NULL)
            return NULL;

      if (!gdk_pixbuf_get_has_alpha(pixbuf) ||
          gdk_pixbuf_get_n_channels(pixbuf) != 4) {
            g_object_unref(pixbuf);
            return NULL;
      }

      stride = gdk_pixbuf_get_rowstride(pixbuf);
      pixels = gdk_pixbuf_get_pixels(pixbuf);

      surface = display_create_shm_surface(display, rect, 0);
      if (surface == NULL) {
            g_object_unref(pixbuf);
            return NULL;
      }

      dest_data = cairo_image_surface_get_data (surface);
      dest_stride = cairo_image_surface_get_stride (surface);

      for (i = 0; i < rect->height; i++) {
            d = (uint32_t *) (dest_data + i * dest_stride);
            p = pixels + i * stride;
            end = p + rect->width * 4;
            while (p < end) {
                  unsigned int t;
                  unsigned char a, r, g, b;

                  a = p[3];
                  MULT(r, p[0], a, t);
                  MULT(g, p[1], a, t);
                  MULT(b, p[2], a, t);
                  p += 4;
                  *d++ = (a << 24) | (r << 16) | (g << 8) | b;
            }
      }

      g_object_unref(pixbuf);

      return surface;
}

static int
check_size(struct rectangle *rect)
{
      if (rect->width && rect->height)
            return 0;

      fprintf(stderr, "tried to create surface of "
            "width: %d, height: %d\n", rect->width, rect->height);
      return -1;
}

cairo_surface_t *
display_create_surface(struct display *display,
                   struct wl_surface *surface,
                   struct rectangle *rectangle,
                   uint32_t flags)
{
      struct wl_visual *visual;

      if (flags & SURFACE_OPAQUE)
            visual = display->rgb_visual;
      else
            visual = display->premultiplied_argb_visual;

      if (check_size(rectangle) < 0)
            return NULL;
#ifdef HAVE_CAIRO_EGL
      if (display->dpy) {
            if (surface)
                  return display_create_egl_window_surface(display,
                                                 surface,
                                                 visual,
                                                 rectangle);
            else
                  return display_create_egl_image_surface(display,
                                                visual,
                                                rectangle);
      }
#endif
      return display_create_shm_surface(display, rectangle, flags);
}

static cairo_surface_t *
display_create_surface_from_file(struct display *display,
                         const char *filename,
                         struct rectangle *rectangle)
{
      if (check_size(rectangle) < 0)
            return NULL;
#ifdef HAVE_CAIRO_EGL
      if (display->dpy) {
            return display_create_egl_image_surface_from_file(display,
                                                  filename,
                                                  rectangle);
      }
#endif
      return display_create_shm_surface_from_file(display, filename, rectangle);
}
 static const struct {
      const char *filename;
      int hotspot_x, hotspot_y;
} pointer_images[] = {
      { DATADIR "/wayland/bottom_left_corner.png",     6, 30 },
      { DATADIR "/wayland/bottom_right_corner.png",   28, 28 },
      { DATADIR "/wayland/bottom_side.png",           16, 20 },
      { DATADIR "/wayland/grabbing.png",        20, 17 },
      { DATADIR "/wayland/left_ptr.png",        10,  5 },
      { DATADIR "/wayland/left_side.png",       10, 20 },
      { DATADIR "/wayland/right_side.png",            30, 19 },
      { DATADIR "/wayland/top_left_corner.png",  8,  8 },
      { DATADIR "/wayland/top_right_corner.png",      26,  8 },
      { DATADIR "/wayland/top_side.png",        18,  8 },
      { DATADIR "/wayland/xterm.png",                 15, 15 },
      { DATADIR "/wayland/hand1.png",                 18, 11 }
};

static void
create_pointer_surfaces(struct display *display)
{
      int i, count;
      const int width = 32, height = 32;
      struct rectangle rect;

      count = ARRAY_LENGTH(pointer_images);
      display->pointer_surfaces =
            malloc(count * sizeof *display->pointer_surfaces);
      rect.width = width;
      rect.height = height;
      for (i = 0; i < count; i++) {
            display->pointer_surfaces[i] =
                  display_create_surface_from_file(display,
                                           pointer_images[i].filename,
                                           &rect);
      }

}

cairo_surface_t *
display_get_pointer_surface(struct display *display, int pointer,
                      int *width, int *height,
                      int *hotspot_x, int *hotspot_y)
{
      cairo_surface_t *surface;

      surface = display->pointer_surfaces[pointer];
#if HAVE_CAIRO_EGL
      *width = cairo_gl_surface_get_width(surface);
      *height = cairo_gl_surface_get_height(surface);
#else
      *width = cairo_image_surface_get_width(surface);
      *height = cairo_image_surface_get_height(surface);
#endif
      *hotspot_x = pointer_images[pointer].hotspot_x;
      *hotspot_y = pointer_images[pointer].hotspot_y;

      return cairo_surface_reference(surface);
}


static void
window_attach_surface(struct window *window);

static void
free_surface(void *data)
{
      struct window *window = data;

      cairo_surface_destroy(window->pending_surface);
      window->pending_surface = NULL;
      if (window->cairo_surface)
            window_attach_surface(window);
}

static void
window_get_resize_dx_dy(struct window *window, int *x, int *y)
{
      if (window->resize_edges & WINDOW_RESIZING_LEFT)
            *x = window->server_allocation.width - window->allocation.width;
      else
            *x = 0;

      if (window->resize_edges & WINDOW_RESIZING_TOP)
            *y = window->server_allocation.height -
                  window->allocation.height;
      else
            *y = 0;

      window->resize_edges = 0;
}

static void
window_attach_surface(struct window *window)
{
      struct display *display = window->display;
      struct wl_buffer *buffer;
      struct egl_window_surface_data *data;
      int32_t x, y;

      switch (window->buffer_type) {
      case WINDOW_BUFFER_TYPE_EGL_WINDOW:
            data = cairo_surface_get_user_data(window->cairo_surface,
                                       &surface_data_key);

            cairo_gl_surface_swapbuffers(window->cairo_surface);
            wl_egl_window_get_attached_size(data->window,
                        &window->server_allocation.width,
                        &window->server_allocation.height);
            break;
      case WINDOW_BUFFER_TYPE_EGL_IMAGE:
      case WINDOW_BUFFER_TYPE_SHM:
            window_get_resize_dx_dy(window, &x, &y);

            if (window->pending_surface != NULL)
                  return;

            window->pending_surface = window->cairo_surface;
            window->cairo_surface = NULL;

            buffer =
                  display_get_buffer_for_surface(display,
                                           window->pending_surface);

            wl_surface_attach(window->surface, buffer, x, y);
            window->server_allocation = window->allocation;
            wl_display_sync_callback(display->display, free_surface,
                               window);
            break;
      }

      if (window->fullscreen)
            wl_shell_set_fullscreen(display->shell, window->surface);
      else if (!window->parent)
            wl_shell_set_toplevel(display->shell, window->surface);
      else
            wl_shell_set_transient(display->shell, window->surface,
                               window->parent->surface,
                               window->x, window->y, 0);

      wl_surface_damage(window->surface, 0, 0,
                    window->allocation.width,
                    window->allocation.height);
}

void
window_flush(struct window *window)
{
      if (window->cairo_surface) {
            switch (window->buffer_type) {
            case WINDOW_BUFFER_TYPE_EGL_IMAGE:
            case WINDOW_BUFFER_TYPE_SHM:
                  display_surface_damage(window->display,
                                     window->cairo_surface,
                                     0, 0,
                                     window->allocation.width,
                                     window->allocation.height);
                  break;
            default:
                  break;
            }
            window_attach_surface(window);
      }
}

void
window_set_surface(struct window *window, cairo_surface_t *surface)
{
      cairo_surface_reference(surface);

      if (window->cairo_surface != NULL)
            cairo_surface_destroy(window->cairo_surface);

      window->cairo_surface = surface;
}

static void
window_resize_cairo_window_surface(struct window *window)
{
      struct egl_window_surface_data *data;
      int x, y;

      data = cairo_surface_get_user_data(window->cairo_surface,
                                 &surface_data_key);

      window_get_resize_dx_dy(window, &x, &y),
      wl_egl_window_resize(data->window,
                       window->allocation.width,
                       window->allocation.height,
                       x,y);

      cairo_gl_surface_set_size(window->cairo_surface,
                          window->allocation.width,
                          window->allocation.height);
}

void
window_create_surface(struct window *window)
{
      cairo_surface_t *surface;
      uint32_t flags = 0;
      
      if (!window->transparent)
            flags = SURFACE_OPAQUE;
      
      switch (window->buffer_type) {
#ifdef HAVE_CAIRO_EGL
      case WINDOW_BUFFER_TYPE_EGL_WINDOW:
            if (window->cairo_surface) {
                  window_resize_cairo_window_surface(window);
                  return;
            }
            surface = display_create_surface(window->display,
                                     window->surface,
                                     &window->allocation, flags);
            break;
      case WINDOW_BUFFER_TYPE_EGL_IMAGE:
            surface = display_create_surface(window->display,
                                     NULL,
                                     &window->allocation, flags);
            break;
#endif
      case WINDOW_BUFFER_TYPE_SHM:
            surface = display_create_shm_surface(window->display,
                                         &window->allocation, flags);
            break;
        default:
            surface = NULL;
            break;
      }

      window_set_surface(window, surface);
      cairo_surface_destroy(surface);
}

static void
window_draw_menu(struct window *window)
{
      cairo_t *cr;
      int width, height, r = 5;

      window_create_surface(window);

      cr = cairo_create(window->cairo_surface);
      cairo_set_operator(cr, CAIRO_OPERATOR_SOURCE);
      cairo_set_source_rgba(cr, 0.0, 0.0, 0.0, 0.0);
      cairo_paint(cr);

      width = window->allocation.width;
      height = window->allocation.height;
      rounded_rect(cr, r, r, width - r, height - r, r);
      cairo_set_operator(cr, CAIRO_OPERATOR_SOURCE);
      cairo_set_source_rgba(cr, 1.0, 1.0, 0.0, 0.5);
      cairo_fill(cr);
      cairo_destroy(cr);
}

static void
window_draw_decorations(struct window *window)
{
      cairo_t *cr;
      cairo_text_extents_t extents;
      cairo_surface_t *frame;
      int width, height, shadow_dx = 3, shadow_dy = 3;

      window_create_surface(window);

      width = window->allocation.width;
      height = window->allocation.height;

      cr = cairo_create(window->cairo_surface);

      cairo_set_operator(cr, CAIRO_OPERATOR_SOURCE);
      cairo_set_source_rgba(cr, 0, 0, 0, 0);
      cairo_paint(cr);

      cairo_set_source_rgba(cr, 0, 0, 0, 0.6);
      tile_mask(cr, window->display->shadow,
              shadow_dx, shadow_dy, width, height,
              window->margin + 10 - shadow_dx,
              window->margin + 10 - shadow_dy);

      if (window->keyboard_device)
            frame = window->display->active_frame;
      else
            frame = window->display->inactive_frame;

      tile_source(cr, frame, 0, 0, width, height,
                window->margin + 10, window->margin + 50);

      cairo_set_operator(cr, CAIRO_OPERATOR_OVER);
      cairo_set_font_size(cr, 14);
      cairo_text_extents(cr, window->title, &extents);
      cairo_move_to(cr, (width - extents.width) / 2, 32 - extents.y_bearing);
      if (window->keyboard_device)
            cairo_set_source_rgb(cr, 0, 0, 0);
      else
            cairo_set_source_rgb(cr, 0.8, 0.8, 0.8);
      cairo_show_text(cr, window->title);

      cairo_destroy(cr);

      /* FIXME: this breakes gears, fix cairo? */
#if 0 
      cairo_device_flush (window->display->device);
#endif
}

void
window_destroy(struct window *window)
{
      wl_surface_destroy(window->surface);
      wl_list_remove(&window->link);
      free(window);
}

void
display_flush_cairo_device(struct display *display)
{
      cairo_device_flush (display->device);
}

void
window_draw(struct window *window)
{
      if (window->parent)
            window_draw_menu(window);
      else if (window->fullscreen || !window->decoration)
            window_create_surface(window);
      else
            window_draw_decorations(window);
}

cairo_surface_t *
window_get_surface(struct window *window)
{
      return cairo_surface_reference(window->cairo_surface);
}

struct wl_surface *
window_get_wl_surface(struct window *window)
{
      return window->surface;
}

static int
get_pointer_location(struct window *window, int32_t x, int32_t y)
{
      int vlocation, hlocation, location;
      const int grip_size = 8;

      if (!window->decoration)
            return WINDOW_CLIENT_AREA;

      if (x < window->margin)
            hlocation = WINDOW_EXTERIOR;
      else if (window->margin <= x && x < window->margin + grip_size)
            hlocation = WINDOW_RESIZING_LEFT;
      else if (x < window->allocation.width - window->margin - grip_size)
            hlocation = WINDOW_INTERIOR;
      else if (x < window->allocation.width - window->margin)
            hlocation = WINDOW_RESIZING_RIGHT;
      else
            hlocation = WINDOW_EXTERIOR;

      if (y < window->margin)
            vlocation = WINDOW_EXTERIOR;
      else if (window->margin <= y && y < window->margin + grip_size)
            vlocation = WINDOW_RESIZING_TOP;
      else if (y < window->allocation.height - window->margin - grip_size)
            vlocation = WINDOW_INTERIOR;
      else if (y < window->allocation.height - window->margin)
            vlocation = WINDOW_RESIZING_BOTTOM;
      else
            vlocation = WINDOW_EXTERIOR;

      location = vlocation | hlocation;
      if (location & WINDOW_EXTERIOR)
            location = WINDOW_EXTERIOR;
      if (location == WINDOW_INTERIOR && y < window->margin + 50)
            location = WINDOW_TITLEBAR;
      else if (location == WINDOW_INTERIOR)
            location = WINDOW_CLIENT_AREA;

      return location;
}

static void
set_pointer_image(struct input *input, uint32_t time, int pointer)
{
      struct display *display = input->display;
      struct wl_buffer *buffer;
      cairo_surface_t *surface;
      int location;

      location = get_pointer_location(input->pointer_focus,
                              input->sx, input->sy);
      switch (location) {
      case WINDOW_RESIZING_TOP:
            pointer = POINTER_TOP;
            break;
      case WINDOW_RESIZING_BOTTOM:
            pointer = POINTER_BOTTOM;
            break;
      case WINDOW_RESIZING_LEFT:
            pointer = POINTER_LEFT;
            break;
      case WINDOW_RESIZING_RIGHT:
            pointer = POINTER_RIGHT;
            break;
      case WINDOW_RESIZING_TOP_LEFT:
            pointer = POINTER_TOP_LEFT;
            break;
      case WINDOW_RESIZING_TOP_RIGHT:
            pointer = POINTER_TOP_RIGHT;
            break;
      case WINDOW_RESIZING_BOTTOM_LEFT:
            pointer = POINTER_BOTTOM_LEFT;
            break;
      case WINDOW_RESIZING_BOTTOM_RIGHT:
            pointer = POINTER_BOTTOM_RIGHT;
            break;
      case WINDOW_EXTERIOR:
      case WINDOW_TITLEBAR:
            if (input->current_pointer_image == POINTER_DEFAULT)
                  return;

            wl_input_device_attach(input->input_device, time, NULL, 0, 0);
            input->current_pointer_image = POINTER_DEFAULT;
            return;
      default:
            break;
      }

      if (pointer == input->current_pointer_image)
            return;

      input->current_pointer_image = pointer;
      surface = display->pointer_surfaces[pointer];
      buffer = display_get_buffer_for_surface(display, surface);
      wl_input_device_attach(input->input_device, time, buffer,
                         pointer_images[pointer].hotspot_x,
                         pointer_images[pointer].hotspot_y);
}

static void
window_handle_motion(void *data, struct wl_input_device *input_device,
                 uint32_t time,
                 int32_t x, int32_t y, int32_t sx, int32_t sy)
{
      struct input *input = data;
      struct window *window = input->pointer_focus;
      int pointer = POINTER_LEFT_PTR;

      input->x = x;
      input->y = y;
      input->sx = sx;
      input->sy = sy;

      if (window->motion_handler)
            pointer = (*window->motion_handler)(window, input, time,
                                        x, y, sx, sy,
                                        window->user_data);

      set_pointer_image(input, time, pointer);
}

static void
window_handle_button(void *data,
                 struct wl_input_device *input_device,
                 uint32_t time, uint32_t button, uint32_t state)
{
      struct input *input = data;
      struct window *window = input->pointer_focus;
      int location;

      location = get_pointer_location(window, input->sx, input->sy);

      if (button == BTN_LEFT && state == 1) {
            switch (location) {
            case WINDOW_TITLEBAR:
                  wl_shell_move(window->display->shell,
                              window->surface, input_device, time);
                  break;
            case WINDOW_RESIZING_TOP:
            case WINDOW_RESIZING_BOTTOM:
            case WINDOW_RESIZING_LEFT:
            case WINDOW_RESIZING_RIGHT:
            case WINDOW_RESIZING_TOP_LEFT:
            case WINDOW_RESIZING_TOP_RIGHT:
            case WINDOW_RESIZING_BOTTOM_LEFT:
            case WINDOW_RESIZING_BOTTOM_RIGHT:
                  wl_shell_resize(window->display->shell,
                              window->surface, input_device, time,
                              location);
                  break;
            case WINDOW_CLIENT_AREA:
                  if (window->button_handler)
                        (*window->button_handler)(window,
                                            input, time,
                                            button, state,
                                            window->user_data);
                  break;
            }
      } else {
            if (window->button_handler)
                  (*window->button_handler)(window,
                                      input, time,
                                      button, state,
                                      window->user_data);
      }
}

static void
window_handle_key(void *data, struct wl_input_device *input_device,
              uint32_t time, uint32_t key, uint32_t state)
{
      struct input *input = data;
      struct window *window = input->keyboard_focus;
      struct display *d = window->display;
      uint32_t code, sym, level;

      code = key + d->xkb->min_key_code;
      if (window->keyboard_device != input)
            return;

      level = 0;
      if (input->modifiers & XKB_COMMON_SHIFT_MASK &&
          XkbKeyGroupWidth(d->xkb, code, 0) > 1)
            level = 1;

      sym = XkbKeySymEntry(d->xkb, code, level, 0);

      if (state)
            input->modifiers |= d->xkb->map->modmap[code];
      else
            input->modifiers &= ~d->xkb->map->modmap[code];

      if (window->key_handler)
            (*window->key_handler)(window, input, time, key, sym, state,
                               window->user_data);
}

static void
window_handle_pointer_focus(void *data,
                      struct wl_input_device *input_device,
                      uint32_t time, struct wl_surface *surface,
                      int32_t x, int32_t y, int32_t sx, int32_t sy)
{
      struct input *input = data;
      struct window *window;
      int pointer;

      if (surface) {
            input->pointer_focus = wl_surface_get_user_data(surface);
            window = input->pointer_focus;

            input->x = x;
            input->y = y;
            input->sx = sx;
            input->sy = sy;

            pointer = POINTER_LEFT_PTR;
            if (window->motion_handler)
                  pointer = (*window->motion_handler)(window,
                                              input, time,
                                              x, y, sx, sy,
                                              window->user_data);

            set_pointer_image(input, time, pointer);
      } else {
            input->pointer_focus = NULL;
            input->current_pointer_image = POINTER_UNSET;
      }
}

static void
window_handle_keyboard_focus(void *data,
                       struct wl_input_device *input_device,
                       uint32_t time,
                       struct wl_surface *surface,
                       struct wl_array *keys)
{
      struct input *input = data;
      struct window *window = input->keyboard_focus;
      struct display *d = input->display;
      uint32_t *k, *end;

      window = input->keyboard_focus;
      if (window) {
            window->keyboard_device = NULL;
            if (window->keyboard_focus_handler)
                  (*window->keyboard_focus_handler)(window, NULL,
                                            window->user_data);
      }

      if (surface)
            input->keyboard_focus = wl_surface_get_user_data(surface);
      else
            input->keyboard_focus = NULL;

      end = keys->data + keys->size;
      input->modifiers = 0;
      for (k = keys->data; k < end; k++)
            input->modifiers |= d->xkb->map->modmap[*k];

      window = input->keyboard_focus;
      if (window) {
            window->keyboard_device = input;
            if (window->keyboard_focus_handler)
                  (*window->keyboard_focus_handler)(window,
                                            window->keyboard_device,
                                            window->user_data);
      }
}

static const struct wl_input_device_listener input_device_listener = {
      window_handle_motion,
      window_handle_button,
      window_handle_key,
      window_handle_pointer_focus,
      window_handle_keyboard_focus,
};

void
input_get_position(struct input *input, int32_t *x, int32_t *y)
{
      *x = input->sx;
      *y = input->sy;
}

struct wl_input_device *
input_get_input_device(struct input *input)
{
      return input->input_device;
}

uint32_t
input_get_modifiers(struct input *input)
{
      return input->modifiers;
}

struct wl_drag *
window_create_drag(struct window *window)
{
      cairo_device_flush (window->display->device);

      return wl_shell_create_drag(window->display->shell);
}

void
window_move(struct window *window, struct input *input, uint32_t time)
{
      wl_shell_move(window->display->shell,
                  window->surface, input->input_device, time);
}

void
window_activate_drag(struct wl_drag *drag, struct window *window,
                 struct input *input, uint32_t time)
{
      wl_drag_activate(drag, window->surface, input->input_device, time);
}

static void
handle_configure(void *data, struct wl_shell *shell,
             uint32_t time, uint32_t edges,
             struct wl_surface *surface, int32_t width, int32_t height)
{
      struct window *window = wl_surface_get_user_data(surface);
      int32_t child_width, child_height;

      /* FIXME: this is probably the wrong place to check for width
       * or height <= 0, but it prevents the compositor from crashing
       */
      if (width <= 0 || height <= 0)
            return;

      window->resize_edges = edges;

      if (window->resize_handler) {
            child_width = width - 20 - window->margin * 2;
            child_height = height - 60 - window->margin * 2;

            (*window->resize_handler)(window,
                                child_width, child_height,
                                window->user_data);
      } else {
            window->allocation.width = width;
            window->allocation.height = height;

            if (window->redraw_handler)
                  window_schedule_redraw(window);
      }
}

static const struct wl_shell_listener shell_listener = {
      handle_configure,
};

void
window_get_allocation(struct window *window,
                  struct rectangle *allocation)
{
      *allocation = window->allocation;
}

void
window_get_child_allocation(struct window *window,
                      struct rectangle *allocation)
{
      if (window->fullscreen || !window->decoration) {
            *allocation = window->allocation;
      } else {
            allocation->x = window->margin + 10;
            allocation->y = window->margin + 50;
            allocation->width =
                  window->allocation.width - 20 - window->margin * 2;
            allocation->height =
                  window->allocation.height - 60 - window->margin * 2;
      }
}

void
window_set_child_size(struct window *window, int32_t width, int32_t height)
{
      if (!window->fullscreen && window->decoration) {
            window->allocation.x = 20 + window->margin;
            window->allocation.y = 60 + window->margin;
            window->allocation.width = width + 20 + window->margin * 2;
            window->allocation.height = height + 60 + window->margin * 2;
      } else {
            window->allocation.x = 0;
            window->allocation.y = 0;
            window->allocation.width = width;
            window->allocation.height = height;
      }
}

static gboolean
idle_redraw(void *data)
{
      struct window *window = data;

      window->redraw_handler(window, window->user_data);

      window->redraw_scheduled = 0;

      return FALSE;
}

void
window_schedule_redraw(struct window *window)
{
      if (!window->redraw_scheduled) {
            g_idle_add(idle_redraw, window);
            window->redraw_scheduled = 1;
      }
}

void
window_set_fullscreen(struct window *window, int fullscreen)
{
      int32_t width, height;

      if (window->fullscreen == fullscreen)
            return;

      window->fullscreen = fullscreen;
      if (window->fullscreen) {
            window->saved_allocation = window->allocation;
            width = window->display->screen_allocation.width;
            height = window->display->screen_allocation.height;
      } else {
            width = window->saved_allocation.width - 20 - window->margin * 2;
            height = window->saved_allocation.height - 60 - window->margin * 2;
      }

      (*window->resize_handler)(window, width, height, window->user_data);
}

void
window_set_decoration(struct window *window, int decoration)
{
      window->decoration = decoration;
}

void
window_set_user_data(struct window *window, void *data)
{
      window->user_data = data;
}

void *
window_get_user_data(struct window *window)
{
      return window->user_data;
}

void
window_set_resize_handler(struct window *window,
                    window_resize_handler_t handler)
{
      window->resize_handler = handler;
}

void
window_set_redraw_handler(struct window *window,
                    window_redraw_handler_t handler)
{
      window->redraw_handler = handler;
}

void
window_set_key_handler(struct window *window,
                   window_key_handler_t handler)
{
      window->key_handler = handler;
}

void
window_set_button_handler(struct window *window,
                    window_button_handler_t handler)
{
      window->button_handler = handler;
}

void
window_set_motion_handler(struct window *window,
                    window_motion_handler_t handler)
{
      window->motion_handler = handler;
}

void
window_set_keyboard_focus_handler(struct window *window,
                          window_keyboard_focus_handler_t handler)
{
      window->keyboard_focus_handler = handler;
}

void
window_set_transparent(struct window *window, int transparent)
{
      window->transparent = transparent;
}

void
window_set_title(struct window *window, const char *title)
{
      free(window->title);
      window->title = strdup(title);
}

const char *
window_get_title(struct window *window)
{
      return window->title;
}

void
display_surface_damage(struct display *display, cairo_surface_t *cairo_surface,
                   int32_t x, int32_t y, int32_t width, int32_t height)
{
      struct wl_buffer *buffer;

      buffer = display_get_buffer_for_surface(display, cairo_surface);

      wl_buffer_damage(buffer, x, y, width, height);
}

void
window_damage(struct window *window, int32_t x, int32_t y,
            int32_t width, int32_t height)
{
      wl_surface_damage(window->surface, x, y, width, height);
}

static struct window *
window_create_internal(struct display *display, struct window *parent,
                  int32_t width, int32_t height)
{
      struct window *window;

      window = malloc(sizeof *window);
      if (window == NULL)
            return NULL;

      memset(window, 0, sizeof *window);
      window->display = display;
      window->parent = parent;
      window->surface = wl_compositor_create_surface(display->compositor);
      window->allocation.x = 0;
      window->allocation.y = 0;
      window->allocation.width = width;
      window->allocation.height = height;
      window->saved_allocation = window->allocation;
      window->margin = 16;
      window->decoration = 1;
      window->transparent = 1;

      if (display->dpy)
            /* FIXME: make TYPE_EGL_IMAGE choosable for testing */
            window->buffer_type = WINDOW_BUFFER_TYPE_EGL_WINDOW;
      else
            window->buffer_type = WINDOW_BUFFER_TYPE_SHM;

      wl_surface_set_user_data(window->surface, window);
      wl_list_insert(display->window_list.prev, &window->link);

      return window;
}

struct window *
window_create(struct display *display, int32_t width, int32_t height)
{
      struct window *window;

      window = window_create_internal(display, NULL, width, height);
      if (!window)
            return NULL;

      return window;
}

struct window *
window_create_transient(struct display *display, struct window *parent,
                  int32_t x, int32_t y, int32_t width, int32_t height)
{
      struct window *window;

      window = window_create_internal(parent->display,
                              parent, width, height);
      if (!window)
            return NULL;

      window->x = x;
      window->y = y;

      return window;
}

void
window_set_buffer_type(struct window *window, enum window_buffer_type type)
{
      window->buffer_type = type;
}

static void
compositor_handle_visual(void *data,
                   struct wl_compositor *compositor,
                   uint32_t id, uint32_t token)
{
      struct display *d = data;

      switch (token) {
      case WL_COMPOSITOR_VISUAL_ARGB32:
            d->argb_visual = wl_visual_create(d->display, id, 1);
            break;
      case WL_COMPOSITOR_VISUAL_PREMULTIPLIED_ARGB32:
            d->premultiplied_argb_visual =
                  wl_visual_create(d->display, id, 1);
            break;
      case WL_COMPOSITOR_VISUAL_XRGB32:
            d->rgb_visual = wl_visual_create(d->display, id, 1);
            break;
      }
}

static const struct wl_compositor_listener compositor_listener = {
      compositor_handle_visual,
};

static void
display_handle_geometry(void *data,
                  struct wl_output *wl_output,
                  int x, int y,
                  int physical_width,
                  int physical_height,
                  int subpixel,
                  const char *make,
                  const char *model)
{
      struct display *display = data;

      display->screen_allocation.x = x;
      display->screen_allocation.y = y;
}

static void
display_handle_mode(void *data,
                struct wl_output *wl_output,
                uint32_t flags,
                int width,
                int height,
                int refresh)
{
      struct display *display = data;

      display->screen_allocation.width = width;
      display->screen_allocation.height = height;
}

static const struct wl_output_listener output_listener = {
      display_handle_geometry,
      display_handle_mode
};

static void
display_add_input(struct display *d, uint32_t id)
{
      struct input *input;

      input = malloc(sizeof *input);
      if (input == NULL)
            return;

      memset(input, 0, sizeof *input);
      input->display = d;
      input->input_device = wl_input_device_create(d->display, id, 1);
      input->pointer_focus = NULL;
      input->keyboard_focus = NULL;
      wl_list_insert(d->input_list.prev, &input->link);

      wl_input_device_add_listener(input->input_device,
                             &input_device_listener, input);
      wl_input_device_set_user_data(input->input_device, input);
}

01638 struct selection_offer {
      struct display *display;
      struct wl_selection_offer *offer;
      struct wl_array types;
      struct input *input;
};

int
input_offers_mime_type(struct input *input, const char *type)
{
      struct selection_offer *offer = input->offer;
      char **p, **end;

      if (offer == NULL)
            return 0;

      end = offer->types.data + offer->types.size;
      for (p = offer->types.data; p < end; p++)
            if (strcmp(*p, type) == 0)
                  return 1;

      return 0;
}

void
input_receive_mime_type(struct input *input, const char *type, int fd)
{
      struct selection_offer *offer = input->offer;

      /* FIXME: A number of things can go wrong here: the object may
       * not be the current selection offer any more (which could
       * still work, but the source may have gone away or just
       * destroyed its wl_selection) or the offer may not have the
       * requested type after all (programmer/client error,
       * typically) */
      wl_selection_offer_receive(offer->offer, type, fd);
}

static void
selection_offer_offer(void *data,
                  struct wl_selection_offer *selection_offer,
                  const char *type)
{
      struct selection_offer *offer = data;

      char **p;

      p = wl_array_add(&offer->types, sizeof *p);
      if (p)
            *p = strdup(type);
};

static void
selection_offer_keyboard_focus(void *data,
                         struct wl_selection_offer *selection_offer,
                         struct wl_input_device *input_device)
{
      struct selection_offer *offer = data;
      struct input *input;
      char **p, **end;

      if (input_device == NULL) {
            printf("selection offer retracted %p\n", selection_offer);
            input = offer->input;
            input->offer = NULL;
            wl_selection_offer_destroy(selection_offer);
            wl_array_release(&offer->types);
            free(offer);
            return;
      }

      input = wl_input_device_get_user_data(input_device);
      printf("new selection offer %p:", selection_offer);

      offer->input = input;
      input->offer = offer;
      end = offer->types.data + offer->types.size;
      for (p = offer->types.data; p < end; p++)
            printf(" %s", *p);

      printf("\n");
}

struct wl_selection_offer_listener selection_offer_listener = {
      selection_offer_offer,
      selection_offer_keyboard_focus
};

static void
add_selection_offer(struct display *d, uint32_t id)
{
      struct selection_offer *offer;

      offer = malloc(sizeof *offer);
      if (offer == NULL)
            return;

      offer->offer = wl_selection_offer_create(d->display, id, 1);
      offer->display = d;
      wl_array_init(&offer->types);
      offer->input = NULL;

      wl_selection_offer_add_listener(offer->offer,
                              &selection_offer_listener, offer);
}

static void
display_handle_global(struct wl_display *display, uint32_t id,
                  const char *interface, uint32_t version, void *data)
{
      struct display *d = data;

      if (strcmp(interface, "wl_compositor") == 0) {
            d->compositor = wl_compositor_create(display, id, 1);
            wl_compositor_add_listener(d->compositor,
                                 &compositor_listener, d);
      } else if (strcmp(interface, "wl_output") == 0) {
            d->output = wl_output_create(display, id, 1);
            wl_output_add_listener(d->output, &output_listener, d);
      } else if (strcmp(interface, "wl_input_device") == 0) {
            display_add_input(d, id);
      } else if (strcmp(interface, "wl_shell") == 0) {
            d->shell = wl_shell_create(display, id, 1);
            wl_shell_add_listener(d->shell, &shell_listener, d);
      } else if (strcmp(interface, "wl_shm") == 0) {
            d->shm = wl_shm_create(display, id, 1);
      } else if (strcmp(interface, "wl_selection_offer") == 0) {
            add_selection_offer(d, id);
      } else if (d->global_handler) {
            d->global_handler(d, interface, id, version);
      }
}

static void
display_render_frame(struct display *d)
{
      int radius = 8;
      cairo_t *cr;

      d->shadow = cairo_image_surface_create (CAIRO_FORMAT_ARGB32, 128, 128);
      cr = cairo_create(d->shadow);
      cairo_set_operator(cr, CAIRO_OPERATOR_OVER);
      cairo_set_source_rgba(cr, 0, 0, 0, 1);
      rounded_rect(cr, 16, 16, 112, 112, radius);
      cairo_fill(cr);
      cairo_destroy(cr);
      blur_surface(d->shadow, 64);

      d->active_frame =
            cairo_image_surface_create (CAIRO_FORMAT_ARGB32, 128, 128);
      cr = cairo_create(d->active_frame);
      cairo_set_operator(cr, CAIRO_OPERATOR_OVER);
      cairo_set_source_rgba(cr, 0.8, 0.8, 0.4, 1);
      rounded_rect(cr, 16, 16, 112, 112, radius);
      cairo_fill(cr);
      cairo_destroy(cr);

      d->inactive_frame =
            cairo_image_surface_create (CAIRO_FORMAT_ARGB32, 128, 128);
      cr = cairo_create(d->inactive_frame);
      cairo_set_operator(cr, CAIRO_OPERATOR_OVER);
      cairo_set_source_rgba(cr, 0.6, 0.6, 0.6, 1);
      rounded_rect(cr, 16, 16, 112, 112, radius);
      cairo_fill(cr);
      cairo_destroy(cr);
}

static void
init_xkb(struct display *d)
{
      struct xkb_rule_names names;

      names.rules = "evdev";
      names.model = "pc105";
      names.layout = option_xkb_layout;
      names.variant = option_xkb_variant;
      names.options = option_xkb_options;

      d->xkb = xkb_compile_keymap_from_rules(&names);
      if (!d->xkb) {
            fprintf(stderr, "Failed to compile keymap\n");
            exit(1);
      }
}

static int
init_egl(struct display *d)
{
      EGLint major, minor;
      EGLint n;
      static const EGLint cfg_attribs[] = {
            EGL_SURFACE_TYPE, EGL_WINDOW_BIT | EGL_PIXMAP_BIT,
            EGL_RED_SIZE, 1,
            EGL_GREEN_SIZE, 1,
            EGL_BLUE_SIZE, 1,
            EGL_ALPHA_SIZE, 1,
            EGL_DEPTH_SIZE, 1,
            EGL_RENDERABLE_TYPE, EGL_OPENGL_BIT,
            EGL_NONE
      };

      setenv("EGL_PLATFORM", "wayland", 1);
      d->dpy = eglGetDisplay(d->display);
      if (!eglInitialize(d->dpy, &major, &minor)) {
            fprintf(stderr, "failed to initialize display\n");
            return -1;
      }

      if (!eglBindAPI(EGL_OPENGL_API)) {
            fprintf(stderr, "failed to bind api EGL_OPENGL_API\n");
            return -1;
      }

      if (!eglChooseConfig(d->dpy, cfg_attribs, &d->conf, 1, &n) || n != 1) {
            fprintf(stderr, "failed to choose config\n");
            return -1;
      }

      d->ctx = eglCreateContext(d->dpy, d->conf, EGL_NO_CONTEXT, NULL);
      if (d->ctx == NULL) {
            fprintf(stderr, "failed to create context\n");
            return -1;
      }

      if (!eglMakeCurrent(d->dpy, NULL, NULL, d->ctx)) {
            fprintf(stderr, "failed to make context current\n");
            return -1;
      }

#ifdef HAVE_CAIRO_EGL
      d->device = cairo_egl_device_create(d->dpy, d->ctx);
      if (cairo_device_status(d->device) != CAIRO_STATUS_SUCCESS) {
            fprintf(stderr, "failed to get cairo egl device\n");
            return -1;
      }
#endif

      return 0;
}

static void
sync_callback(void *data)
{
      int *done = data;

      *done = 1;
}

static void
force_roundtrip(struct display *d)
{
      int done = 0;

      wl_display_sync_callback(d->display, sync_callback, &done);
      wl_display_iterate(d->display, WL_DISPLAY_WRITABLE);
      while (!done)
            wl_display_iterate(d->display, WL_DISPLAY_READABLE);
}

struct display *
display_create(int *argc, char **argv[], const GOptionEntry *option_entries,
             display_global_handler_t handler)
{
      struct display *d;
      GOptionContext *context;
      GOptionGroup *xkb_option_group;
      GError *error;

      g_type_init();

      context = g_option_context_new(NULL);
      if (option_entries)
            g_option_context_add_main_entries(context, option_entries, "Wayland View");

      xkb_option_group = g_option_group_new("xkb",
                                    "Keyboard options",
                                    "Show all XKB options",
                                    NULL, NULL);
      g_option_group_add_entries(xkb_option_group, xkb_option_entries);
      g_option_context_add_group (context, xkb_option_group);

      if (!g_option_context_parse(context, argc, argv, &error)) {
            fprintf(stderr, "option parsing failed: %s\n", error->message);
            exit(EXIT_FAILURE);
      }

        g_option_context_free(context);

      d = malloc(sizeof *d);
      if (d == NULL)
            return NULL;

        memset(d, 0, sizeof *d);

      d->global_handler = handler;

      d->display = wl_display_connect(NULL);
      if (d->display == NULL) {
            fprintf(stderr, "failed to create display: %m\n");
            return NULL;
      }

      wl_list_init(&d->input_list);

      /* Set up listener so we'll catch all events. */
      wl_display_add_global_listener(d->display,
                               display_handle_global, d);

      /* Process connection events. */
      wl_display_iterate(d->display, WL_DISPLAY_READABLE);
      if (init_egl(d) < 0)
            return NULL;

      d->image_target_texture_2d =
            (void *) eglGetProcAddress("glEGLImageTargetTexture2DOES");
      d->create_image = (void *) eglGetProcAddress("eglCreateImageKHR");
      d->destroy_image = (void *) eglGetProcAddress("eglDestroyImageKHR");

      if (!d->premultiplied_argb_visual || !d->rgb_visual) {
            force_roundtrip(d);
            if (!d->premultiplied_argb_visual || !d->rgb_visual) {
                  fprintf(stderr, "failed to retreive visuals\n");
                  return NULL;
            }
      }

      create_pointer_surfaces(d);

      display_render_frame(d);

      d->loop = g_main_loop_new(NULL, FALSE);
      d->source = wl_glib_source_new(d->display);
      g_source_attach(d->source, NULL);

      wl_list_init(&d->window_list);

      init_xkb(d);

      return d;
}

struct wl_display *
display_get_display(struct display *display)
{
      return display->display;
}

struct wl_compositor *
display_get_compositor(struct display *display)
{
      return display->compositor;
}

EGLDisplay
display_get_egl_display(struct display *d)
{
      return d->dpy;
}

EGLConfig
display_get_egl_config(struct display *d)
{
      return d->conf;
}

struct wl_shell *
display_get_shell(struct display *display)
{
      return display->shell;
}

void
display_acquire_window_surface(struct display *display,
                         struct window *window,
                         EGLContext ctx)
{
      struct egl_window_surface_data *data;

      if (!window->cairo_surface)
            return;

      if (!ctx)
            ctx = display->ctx;

      data = cairo_surface_get_user_data(window->cairo_surface,
                                 &surface_data_key);

      cairo_device_acquire(display->device);
      if (!eglMakeCurrent(display->dpy, data->surf, data->surf, ctx))
            fprintf(stderr, "failed to make surface current\n");
}

void
display_release(struct display *display)
{
      if (!eglMakeCurrent(display->dpy, NULL, NULL, display->ctx))
            fprintf(stderr, "failed to make context current\n");
      cairo_device_release(display->device);
}

void
display_run(struct display *d)
{
      g_main_loop_run(d->loop);
}

Generated by  Doxygen 1.6.0   Back to index