Complete class Fl_Cairo_Graphics_Driver using Fl_Wayland_Graphics_Driver

4 files changed, 28 insertions, 718 deletions

diff --git a/src/drivers/Wayland/Fl_Font.H b/src/drivers/Wayland/Fl_Font.H
deleted file mode 100644
index eca2f32ca..000000000
--- a/src/drivers/Wayland/Fl_Font.H
+++ /dev/null
@@ -1,33 +0,0 @@
-//
-// Font definitions for the Fast Light Tool Kit (FLTK).
-//
-// Copyright 2021 by Bill Spitzak and others.
-//
-// This library is free software. Distribution and use rights are outlined in
-// the file "COPYING" which should have been included with this file.  If this
-// file is missing or damaged, see the license at:
-//
-//     https://www.fltk.org/COPYING.php
-//
-// Please see the following page on how to report bugs and issues:
-//
-//     https://www.fltk.org/bugs.php
-//
-
-#ifndef FL_FONT_
-#define FL_FONT_
-
-#include <config.h>
-#include "Fl_Wayland_Graphics_Driver.H"
-
-class Fl_Wayland_Font_Descriptor : public Fl_Font_Descriptor {
-public:
-  Fl_Wayland_Font_Descriptor(const char* fontname, Fl_Fontsize size);
-  FL_EXPORT ~Fl_Wayland_Font_Descriptor();
-  PangoFontDescription *fontref;
-  int **width; // array of arrays of character widths
-};
-
-extern FL_EXPORT Fl_Fontdesc *fl_fonts; // the table
-
-#endif // FL_FONT_
diff --git a/src/drivers/Wayland/Fl_Wayland_Graphics_Driver.H b/src/drivers/Wayland/Fl_Wayland_Graphics_Driver.H
index 19991c531..8023c6c94 100644
--- a/src/drivers/Wayland/Fl_Wayland_Graphics_Driver.H
+++ b/src/drivers/Wayland/Fl_Wayland_Graphics_Driver.H
@@ -42,22 +42,16 @@
  gives the stride of this buffer;
  - size_t data_size
  gives the total buffer size in bytes (thus, data_size / stride gives the buffer height);
- - bool draw_buffer_needs_commit
- is TRUE when draw_buffer has been modified and needs being committed for display, and
- FALSE after having been committed but before having been modified;
  - struct wl_callback *cb
  is used to synchronize drawing with the compositor during progressive drawing.
  
  When a graphics scene is to be committed, the data_size bytes of draw_buffer are copied by memcpy()
  starting at data, and wl_buffer is attached to the wl_surface which is committed for display
- by wl_surface_commit(). Finally, draw_buffer_needs_commit is set to FALSE.
- 
- All drawing functions have Cairo write to draw_buffer and turn draw_buffer_needs_commit to TRUE.
-*/
+ by wl_surface_commit().
+ */
 
 
 #include "../Cairo/Fl_Cairo_Graphics_Driver.H"
-#include <cairo/cairo.h>
 #include <stdint.h> // for uint32_t
 typedef struct _PangoLayout  PangoLayout;
 
@@ -75,34 +69,19 @@ struct fl_wld_buffer {
 };
 struct wld_window;
 
+
 class FL_EXPORT Fl_Wayland_Graphics_Driver : public Fl_Cairo_Graphics_Driver {
 private:
   struct fl_wld_buffer *buffer_;
   PangoLayout *dummy_pango_layout_; // used to measure text width before showing a window
-  int linestyle_;
-  void draw_cached_pattern_(Fl_Image *img, cairo_pattern_t *pat, int X, int Y, int W, int H, int cx, int cy);
 public:
   Fl_Wayland_Graphics_Driver();
   ~Fl_Wayland_Graphics_Driver();
   static const uint32_t wld_format;
-  static const cairo_format_t cairo_format;
   void activate(struct fl_wld_buffer *buffer, float scale);
   void font(Fl_Font fnum, Fl_Fontsize s);
   Fl_Font font() { return Fl_Graphics_Driver::font(); }
-  void draw(const char* s, int nBytes, int x, int y) { draw(s, nBytes, float(x), float(y)); }
-  void draw(const char* s, int nBytes, float x, float y);
-  void draw(int angle, const char *str, int n, int x, int y);
-  void rtl_draw(const char* str, int n, int x, int y);
-  int height();
-  int descent();
-  double width(const char *str, int n);
-  double width(unsigned c);
-  void text_extents(const char* txt, int n, int& dx, int& dy, int& w, int& h);
-  int not_clipped(int x, int y, int w, int h);
-  int clip_box(int x, int y, int w, int h, int &X, int &Y, int &W, int &H);
-  void restore_clip();
   void clip_region(Fl_Region r);
-  void line_style(int style, int width=0, char* dashes=0);
   Fl_Region XRectangleRegion(int x, int y, int w, int h);
   void add_rectangle_to_region(Fl_Region r, int X, int Y, int W, int H);
   void XDestroyRegion(Fl_Region r);
@@ -112,45 +91,12 @@ public:
   void font_name(int num, const char *name);
   const char* get_font_name(Fl_Font fnum, int* ap);
   int get_font_sizes(Fl_Font fnum, int*& sizep);
-  void point(int x, int y);
   void copy_offscreen(int x, int y, int w, int h, Fl_Offscreen osrc, int srcx, int srcy);
-  void draw_image(const uchar *data, int ix, int iy, int iw, int ih, int D, int LD);
-  void curve(double x, double y, double x1, double y1, double x2, double y2, double x3, double y3);
-  void begin_points();
-  void end_points();
-  void transformed_vertex(double x, double y);
-  void draw_rgb(Fl_RGB_Image *rgb,int XP, int YP, int WP, int HP, int cx, int cy);
-  void cache(Fl_RGB_Image *rgb);
-  void uncache(Fl_RGB_Image *img, fl_uintptr_t &id_, fl_uintptr_t &mask_);
-  void draw_bitmap(Fl_Bitmap *bm,int XP, int YP, int WP, int HP, int cx, int cy);
-  void cache(Fl_Bitmap *img);
-  void delete_bitmask(Fl_Bitmask bm);
-  void cache(Fl_Pixmap *pxm);
-  void draw_pixmap(Fl_Pixmap *rgb,int XP, int YP, int WP, int HP, int cx, int cy);
-  void uncache_pixmap(fl_uintptr_t p);
-  void overlay_rect(int x, int y, int w , int h);
   static void init_built_in_fonts();
   static struct fl_wld_buffer *create_shm_buffer(int width, int height);
   static void buffer_release(struct wld_window *window);
   static void buffer_commit(struct wld_window *window);
   static void cairo_init(struct fl_wld_buffer *buffer, int width, int height, int stride, cairo_format_t format);
-  void line(int x1, int y1, int x2, int y2);
-  void line(int x1, int y1, int x2, int y2, int x3, int y3);
-  void xyline(int x, int y, int x1);
-  void xyline(int x, int y, int x1, int y2);
-  void xyline(int x, int y, int x1, int y2, int x3);
-  void yxline(int x, int y, int y1);
-  void yxline(int x, int y, int y1, int x2);
-  void yxline(int x, int y, int y1, int x2, int y3);
-  void loop(int x0, int y0, int x1, int y1, int x2, int y2);
-  void loop(int x0, int y0, int x1, int y1, int x2, int y2, int x3, int y3);
-  void rect(int x, int y, int w, int h);
-  void rectf(int x, int y, int w, int h);
-  void polygon(int x0, int y0, int x1, int y1, int x2, int y2);
-  void polygon(int x0, int y0, int x1, int y1, int x2, int y2, int x3, int y3);
-  void end_loop();
-  void end_line();
-  void end_polygon();
   void set_spot(int font, int height, int x, int y, int w, int h, Fl_Window *win);
   void reset_spot();
 };
diff --git a/src/drivers/Wayland/Fl_Wayland_Graphics_Driver.cxx b/src/drivers/Wayland/Fl_Wayland_Graphics_Driver.cxx
index 55f6de8d9..6f57c6cec 100644
--- a/src/drivers/Wayland/Fl_Wayland_Graphics_Driver.cxx
+++ b/src/drivers/Wayland/Fl_Wayland_Graphics_Driver.cxx
@@ -19,7 +19,6 @@
 #include "Fl_Wayland_Graphics_Driver.H"
 #include "Fl_Wayland_Screen_Driver.H"
 #include "Fl_Wayland_Window_Driver.H"
-#include "Fl_Font.H"
 #include "text-input-client-protocol.h"
 #include <pango/pangocairo.h>
 #if ! PANGO_VERSION_CHECK(1,22,0)
@@ -63,7 +62,7 @@ static int create_anonymous_file(int size, char **pshared)
 struct fl_wld_buffer *Fl_Wayland_Graphics_Driver::create_shm_buffer(int width, int height)
 {
   struct fl_wld_buffer *buffer;
-  int stride = cairo_format_stride_for_width(Fl_Wayland_Graphics_Driver::cairo_format, width);
+  int stride = cairo_format_stride_for_width(Fl_Cairo_Graphics_Driver::cairo_format, width);
   int size = stride * height;
   static char *pool_memory = NULL;
   static int pool_size = 10000000; // gets increased if necessary
@@ -91,7 +90,7 @@ struct fl_wld_buffer *Fl_Wayland_Graphics_Driver::create_shm_buffer(int width, i
   buffer->draw_buffer = new uchar[buffer->data_size];
   buffer->draw_buffer_needs_commit = false;
 //fprintf(stderr, "create_shm_buffer: %dx%d = %d\n", width, height, size);
-  cairo_init(buffer, width, height, stride, Fl_Wayland_Graphics_Driver::cairo_format);
+  cairo_init(buffer, width, height, stride, Fl_Cairo_Graphics_Driver::cairo_format);
   return buffer;
 }
 
@@ -146,7 +145,6 @@ void Fl_Wayland_Graphics_Driver::buffer_release(struct wld_window *window)
 
 // these 2 refer to the same memory layout for pixel data
 const uint32_t Fl_Wayland_Graphics_Driver::wld_format = WL_SHM_FORMAT_ARGB8888;
-const cairo_format_t Fl_Wayland_Graphics_Driver::cairo_format = CAIRO_FORMAT_ARGB32;
 
 
 Fl_Wayland_Graphics_Driver::Fl_Wayland_Graphics_Driver () : Fl_Cairo_Graphics_Driver() {
@@ -213,75 +211,26 @@ static Fl_Fontdesc built_in_table[] = {  // Pango font names
 
 FL_EXPORT Fl_Fontdesc *fl_fonts = built_in_table;
 
-
-static Fl_Font_Descriptor* find(Fl_Font fnum, Fl_Fontsize size) {
-  Fl_Fontdesc* s = fl_fonts+fnum;
-  if (!s->name) s = fl_fonts; // use 0 if fnum undefined
-  Fl_Font_Descriptor* f;
-  for (f = s->first; f; f = f->next)
-    if (f->size == size) return f;
-  f = new Fl_Wayland_Font_Descriptor(s->name, size);
-  f->next = s->first;
-  s->first = f;
-  return f;
-}
-
-
-Fl_Wayland_Font_Descriptor::Fl_Wayland_Font_Descriptor(const char* name, Fl_Fontsize size) : Fl_Font_Descriptor(name, size) {
-  char string[70];
-  strcpy(string, name);
-  sprintf(string + strlen(string), " %d", int(size * 0.7 + 0.5) ); // why reduce size?
-  fontref = pango_font_description_from_string(string);
-  width = NULL;
-  static PangoFontMap *def_font_map = pango_cairo_font_map_get_default(); // 1.10
-  static PangoContext *pango_context = pango_font_map_create_context(def_font_map); // 1.22
-  static PangoLanguage *language = pango_language_get_default(); // 1.16
-  PangoFontset *fontset = pango_font_map_load_fontset(def_font_map, pango_context, fontref, language);
-  PangoFontMetrics *metrics = pango_fontset_get_metrics(fontset);
-  ascent = pango_font_metrics_get_ascent(metrics)/PANGO_SCALE;
-  descent = pango_font_metrics_get_descent(metrics)/PANGO_SCALE;
-  q_width = pango_font_metrics_get_approximate_char_width(metrics)/PANGO_SCALE;
-  pango_font_metrics_unref(metrics);
-  g_object_unref(fontset);
-//fprintf(stderr, "[%s](%d) ascent=%d descent=%d q_width=%d\n", name, size, ascent, descent, q_width);
-}
-
-
-Fl_Wayland_Font_Descriptor::~Fl_Wayland_Font_Descriptor() {
-  pango_font_description_free(fontref);
-  if (width) {
-    for (int i = 0; i < 64; i++) delete[] width[i];
+void Fl_Wayland_Graphics_Driver::init_built_in_fonts() {
+  static int i = 0;
+  if (!i) {
+    while (i < FL_FREE_FONT) {
+      i++;
+      Fl::set_font((Fl_Font)i-1, built_in_table[i-1].name);
+    }
   }
-  delete[] width;
-}
-
-
-int Fl_Wayland_Graphics_Driver::height() {
-  return (font_descriptor()->ascent + font_descriptor()->descent)*1.1  /*1.15 scale=1*/;
-}
-
-
-int Fl_Wayland_Graphics_Driver::descent() {
-  return font_descriptor()->descent;
 }
 
 
 void Fl_Wayland_Graphics_Driver::font(Fl_Font fnum, Fl_Fontsize s) {
-  if (font() == fnum && size() == s) return;
   if (!font_descriptor()) fl_open_display();
   if (!pango_layout_) {
-    cairo_surface_t *surf = cairo_image_surface_create(Fl_Wayland_Graphics_Driver::cairo_format, 100, 100);
+    cairo_surface_t *surf = cairo_image_surface_create(Fl_Cairo_Graphics_Driver::cairo_format, 100, 100);
     cairo_ = cairo_create(surf);
     dummy_pango_layout_ = pango_cairo_create_layout(cairo_);
     pango_layout_ = dummy_pango_layout_;
   }
-  if (fnum == -1) {
-    Fl_Graphics_Driver::font(0, 0);
-    return;
-  }
-  Fl_Graphics_Driver::font(fnum, s);
-  font_descriptor( find(fnum, s) );
-  pango_layout_set_font_description(pango_layout_, ((Fl_Wayland_Font_Descriptor*)font_descriptor())->fontref);
+  Fl_Cairo_Graphics_Driver::font(fnum, s);
 }
 
 
@@ -339,17 +288,6 @@ Fl_Font Fl_Wayland_Graphics_Driver::set_fonts(const char* pattern_name)
 }
 
 
-void Fl_Wayland_Graphics_Driver::init_built_in_fonts() {
-  static int i = 0;
-  if (!i) {
-    while (i < FL_FREE_FONT) {
-      i++;
-      Fl::set_font((Fl_Font)i-1, built_in_table[i-1].name);
-    }
-  }
-}
-
-
 const char *Fl_Wayland_Graphics_Driver::font_name(int num) {
   return fl_fonts[num].name;
 }
@@ -403,136 +341,6 @@ int Fl_Wayland_Graphics_Driver::get_font_sizes(Fl_Font fnum, int*& sizep) {
 }
 
 
-void Fl_Wayland_Graphics_Driver::draw(const char* str, int n, float x, float y) {
-  if (!n) return;
-  cairo_save(cairo_);
-  cairo_translate(cairo_, x, y - height() + descent() -1);
-  pango_layout_set_text(pango_layout_, str, n);
-  pango_cairo_show_layout(cairo_, pango_layout_);
-  cairo_restore(cairo_);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-
-void Fl_Wayland_Graphics_Driver::draw(int rotation, const char *str, int n, int x, int y)
-{
-  cairo_save(cairo_);
-  cairo_translate(cairo_, x, y);
-  cairo_rotate(cairo_, -rotation * M_PI / 180);
-  this->draw(str, n, 0, 0);
-  cairo_restore(cairo_);
-}
-
-
-void Fl_Wayland_Graphics_Driver::rtl_draw(const char* str, int n, int x, int y) {
-  int w = (int)width(str, n);
-  draw(str, n, x - w, y);
-}
-
-
-double Fl_Wayland_Graphics_Driver::width(const char* c, int n) {
-  if (!font_descriptor()) return -1.0;
-  int i = 0, w = 0, l;
-  const char *end = c + n;
-  unsigned int ucs;
-  while (i < n) {
-    ucs = fl_utf8decode(c + i, end, &l);
-    i += l;
-    w += width(ucs);
-  }
-  return (double)w;
-}
-
-
-double Fl_Wayland_Graphics_Driver::width(unsigned int c) {
-  unsigned int r = 0;
-  Fl_Wayland_Font_Descriptor *desc = NULL;
-  if (c <= 0xFFFF) { // when inside basic multilingual plane
-    desc = (Fl_Wayland_Font_Descriptor*)font_descriptor();
-    r = (c & 0xFC00) >> 10;
-    if (!desc->width) {
-      desc->width = (int**)new int*[64];
-      memset(desc->width, 0, 64*sizeof(int*));
-    }
-    if (!desc->width[r]) {
-      desc->width[r] = (int*)new int[0x0400];
-      for (int i = 0; i < 0x0400; i++) desc->width[r][i] = -1;
-    } else {
-      if ( desc->width[r][c & 0x03FF] >= 0 ) { // already cached
-        return (double) desc->width[r][c & 0x03FF];
-      }
-    }
-  }
-  char buf[4];
-  int n = fl_utf8encode(c, buf);
-  pango_layout_set_text(pango_layout_, buf, n);
-  int  W = 0, H;
-  pango_layout_get_pixel_size(pango_layout_, &W, &H);
-  if (c <= 0xFFFF) desc->width[r][c & 0x03FF] = W;
-  return (double)W;
-}
-
-
-void Fl_Wayland_Graphics_Driver::text_extents(const char* txt, int n, int& dx, int& dy, int& w, int& h) {
-  pango_layout_set_text(pango_layout_, txt, n);
-  PangoRectangle ink_rect;
-  pango_layout_get_pixel_extents(pango_layout_, &ink_rect, NULL);
-  dx = ink_rect.x;
-  dy = ink_rect.y - height() + descent();
-  w = ink_rect.width;
-  h = ink_rect.height;
-}
-
-
-int Fl_Wayland_Graphics_Driver::not_clipped(int x, int y, int w, int h) {
-  if (!clip_) return 1;
-  if (clip_->w < 0) return 1;
-  int X = 0, Y = 0, W = 0, H = 0;
-  clip_box(x, y, w, h, X, Y, W, H);
-  if (W) return 1;
-  return 0;
-}
-
-int Fl_Wayland_Graphics_Driver::clip_box(int x, int y, int w, int h, int &X, int &Y, int &W, int &H) {
-  if (!clip_) {
-    X = x; Y = y; W = w; H = h;
-    return 0;
-  }
-  if (clip_->w < 0) {
-    X = x; Y = y; W = w; H = h;
-    return 1;
-  }
-  int ret = 0;
-  if (x > (X=clip_->x)) {X=x; ret=1;}
-  if (y > (Y=clip_->y)) {Y=y; ret=1;}
-  if ((x+w) < (clip_->x+clip_->w)) {
-    W=x+w-X;
-
-    ret=1;
-
-  }else
-    W = clip_->x + clip_->w - X;
-  if(W<0){
-    W=0;
-    return 1;
-  }
-  if ((y+h) < (clip_->y+clip_->h)) {
-    H=y+h-Y;
-    ret=1;
-  }else
-    H = clip_->y + clip_->h - Y;
-  if(H<0){
-    W=0;
-    H=0;
-    return 1;
-  }
-  return ret;
-}
-
-void Fl_Wayland_Graphics_Driver::restore_clip() {
-  if (cairo_) cairo_reset_clip(cairo_);
-}
-
 void Fl_Wayland_Graphics_Driver::clip_region(Fl_Region r) {
   if (cairo_) {
     cairo_reset_clip(cairo_);
@@ -590,8 +398,15 @@ void Fl_Wayland_Graphics_Driver::set_color(Fl_Color i, unsigned c) {
 }
 
 
-void Fl_Wayland_Graphics_Driver::point(int x, int y) {
-  rectf(x, y, 1, 1);
+void Fl_Wayland_Graphics_Driver::set_spot(int font, int height, int x, int y, int w, int h, Fl_Window *win) {
+  Fl_Wayland_Screen_Driver::insertion_point_location(x, y, height);
+}
+
+
+void Fl_Wayland_Graphics_Driver::reset_spot() {
+  Fl::compose_state = 0;
+  Fl_Wayland_Screen_Driver::next_marked_length = 0;
+  Fl_Wayland_Screen_Driver::insertion_point_location_is_valid = false;
 }
 
 
@@ -604,7 +419,7 @@ void Fl_Wayland_Graphics_Driver::copy_offscreen(int x, int y, int w, int h, Fl_O
   cairo_save(cairo_);
   cairo_rectangle(cairo_, x, y, w, h);
   cairo_clip(cairo_);
-  cairo_surface_t *surf = cairo_image_surface_create_for_data(osrc->draw_buffer, Fl_Wayland_Graphics_Driver::cairo_format, osrc->width, height, osrc->stride);
+  cairo_surface_t *surf = cairo_image_surface_create_for_data(osrc->draw_buffer, Fl_Cairo_Graphics_Driver::cairo_format, osrc->width, height, osrc->stride);
   cairo_pattern_t *pat = cairo_pattern_create_for_surface(surf);
   cairo_set_source(cairo_, pat);
   cairo_matrix_init_scale(&matrix, s, s);
@@ -615,425 +430,3 @@ void Fl_Wayland_Graphics_Driver::copy_offscreen(int x, int y, int w, int h, Fl_O
   cairo_surface_destroy(surf);
   cairo_restore(cairo_);
 }
-
-
-struct callback_data {
-  const uchar *data;
-  int D, LD;
-};
-
-
-static void draw_image_cb(void *data, int x, int y, int w, uchar *buf) {
-  struct callback_data *cb_data;
-  const uchar *curdata;
-
-  cb_data = (struct callback_data*)data;
-  int last = x+w;
-  const size_t aD = abs(cb_data->D);
-  curdata = cb_data->data + x*cb_data->D + y*cb_data->LD;
-  for (; x<last; x++) {
-    memcpy(buf, curdata, aD);
-    buf += aD;
-    curdata += cb_data->D;
-  }
-}
-
-
-void Fl_Wayland_Graphics_Driver::draw_image(const uchar *data, int ix, int iy, int iw, int ih, int D, int LD) {
-  if (abs(D)<3){ //mono
-    draw_image_mono(data, ix, iy, iw, ih, D, LD);
-    return;
-  }
-  struct callback_data cb_data;
-  if (!LD) LD = iw*abs(D);
-  if (D<0) data += iw*abs(D);
-  cb_data.data = data;
-  cb_data.D = D;
-  cb_data.LD = LD;
-  Fl_Cairo_Graphics_Driver::draw_image(draw_image_cb, &cb_data, ix, iy, iw, ih, abs(D));
-}
-
-
-void Fl_Wayland_Graphics_Driver::curve(double x, double y, double x1, double y1, double x2, double y2, double x3, double y3) {
-  if (shape_ == POINTS) Fl_Graphics_Driver::curve(x, y, x1, y1, x2, y2, x3, y3);
-  else Fl_Cairo_Graphics_Driver::curve(x, y, x1, y1, x2, y2, x3, y3);
-}
-
-
-void Fl_Wayland_Graphics_Driver::begin_points() {
-  cairo_save(cairo_);
-  gap_=1;
-  shape_=POINTS;
-}
-
-
-void Fl_Wayland_Graphics_Driver::end_points() {
-  cairo_restore(cairo_);
-}
-
-
-void Fl_Wayland_Graphics_Driver::transformed_vertex(double x, double y) {
-  if (shape_ == POINTS){
-    cairo_move_to(cairo_, x, y);
-    point(x, y);
-    gap_ = 1;
-  } else {
-    Fl_Cairo_Graphics_Driver::transformed_vertex(x, y);
-  }
-}
-
-void Fl_Wayland_Graphics_Driver::line_style(int style, int width, char* dashes) {
-  linestyle_ = style;
-  Fl_Cairo_Graphics_Driver::line_style(style, width, dashes);
-}
-
-void Fl_Wayland_Graphics_Driver::overlay_rect(int x, int y, int w , int h) {
-  cairo_save(cairo_);
-  cairo_matrix_t mat;
-  cairo_get_matrix(cairo_, &mat);
-  float s = (float)mat.xx;
-  cairo_matrix_init_identity(&mat);
-  cairo_set_matrix(cairo_, &mat); // use drawing units
-  int lwidth = s < 1 ? 1 : int(s);
-  cairo_set_line_width(cairo_, lwidth);
-  cairo_translate(cairo_, lwidth/2., lwidth/2.); // translate by half of line width
-  double ddash = (lwidth > 2 ? lwidth : 2);
-  if (linestyle_ == FL_DOT){
-    cairo_set_dash(cairo_, &ddash, 1, 0); // dash size = line width
-  }
-  // rectangle in drawing units
-  int Xs = Fl_Scalable_Graphics_Driver::floor(x, s);
-  int Ws = Fl_Scalable_Graphics_Driver::floor(x+w-1, s) - Xs;
-  int Ys = Fl_Scalable_Graphics_Driver::floor(y, s);
-  int Hs = Fl_Scalable_Graphics_Driver::floor(y+h-1, s) - Ys;
-  cairo_move_to(cairo_, Xs, Ys);
-  cairo_line_to(cairo_, Xs+Ws, Ys);
-  cairo_line_to(cairo_, Xs+Ws, Ys+Hs);
-  cairo_line_to(cairo_, Xs, Ys+Hs);
-  cairo_close_path(cairo_);
-  cairo_stroke(cairo_);
-  cairo_restore(cairo_);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-
-void Fl_Wayland_Graphics_Driver::draw_cached_pattern_(Fl_Image *img, cairo_pattern_t *pat, int X, int Y, int W, int H, int cx, int cy) {
-  // compute size of output image in drawing units
-  cairo_matrix_t matrix;
-  cairo_get_matrix(cairo_, &matrix);
-  float s = (float)matrix.xx;
-  int Xs = Fl_Scalable_Graphics_Driver::floor(X - cx, s);
-  int Ws = Fl_Scalable_Graphics_Driver::floor(X - cx + img->w(), s) - Xs  ;
-  int Ys = Fl_Scalable_Graphics_Driver::floor(Y - cy, s);
-  int Hs = Fl_Scalable_Graphics_Driver::floor(Y - cy + img->h(), s) - Ys;
-  if (Ws == 0 || Hs == 0) return;
-  cairo_save(cairo_);
-  if (cx || cy || W < img->w() || H < img->h()) { // clip when necessary
-    cairo_rectangle(cairo_, X-0.5, Y-0.5, W+1, H+1);
-    cairo_clip(cairo_);
-  }
-  // remove any scaling and the current "0.5" translation useful for lines but bad for images
-  matrix.xx = matrix.yy = 1;
-  matrix.x0 -= 0.5 * s; matrix.y0 -= 0.5 * s;
-  cairo_set_matrix(cairo_, &matrix);
-  if (img->d() >= 1) cairo_set_source(cairo_, pat);
-  int offset = 0;
-  if (Ws >= img->data_w()*1.09 || Hs >= img->data_h()*1.09) {
-    // When enlarging while drawing, 1 pixel around target area seems unpainted,
-    // so we increase a bit the target area and move it int(s) pixels to left and top.
-    Ws = (img->w()+2)*s, Hs = (img->h()+2)*s;
-    offset = int(s);
-  }
-
-//fprintf(stderr,"WHs=%dx%d dataWH=%dx%d s=%.1f offset=%d\n",Ws,Hs,img->data_w(),img->data_h(),s,offset);
-  cairo_matrix_init_scale(&matrix, double(img->data_w())/Ws, double(img->data_h())/Hs);
-  cairo_matrix_translate(&matrix, -Xs + offset, -Ys + offset);
-  cairo_pattern_set_matrix(pat, &matrix);
-  cairo_mask(cairo_, pat);
-  cairo_restore(cairo_);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-
-void Fl_Wayland_Graphics_Driver::draw_rgb(Fl_RGB_Image *rgb,int XP, int YP, int WP, int HP, int cx, int cy) {
-  int X, Y, W, H;
-  // Don't draw an empty image...
-  if (!rgb->d() || !rgb->array) {
-    Fl_Graphics_Driver::draw_empty(rgb, XP, YP);
-    return;
-  }
-  if (start_image(rgb, XP, YP, WP, HP, cx, cy, X, Y, W, H)) {
-    return;
-  }
-  cairo_pattern_t *pat = (cairo_pattern_t*)*Fl_Graphics_Driver::id(rgb);
-  if (!pat) {
-    cache(rgb);
-    pat = (cairo_pattern_t*)*Fl_Graphics_Driver::id(rgb);
-  }
-  draw_cached_pattern_(rgb, pat, X, Y, W, H, cx, cy);
-}
-
-
-static cairo_user_data_key_t data_key_for_surface = {};
-
-static void dealloc_surface_data(void *data) {
-  delete[] (uchar*)data;
-}
-
-
-void Fl_Wayland_Graphics_Driver::cache(Fl_RGB_Image *rgb) {
-  int stride = cairo_format_stride_for_width(Fl_Wayland_Graphics_Driver::cairo_format, rgb->data_w());
-  uchar *BGRA = new uchar[stride * rgb->data_h()];
-  memset(BGRA, 0, stride * rgb->data_h());
-  int lrgb = rgb->ld() ? rgb->ld() : rgb->data_w() * rgb->d();
-  uchar A = 0xff, R,G,B, *q;
-  const uchar *r;
-  float f = 1;
-  if (rgb->d() >= 3) { // color images
-    for (int j = 0; j < rgb->data_h(); j++) {
-      r = rgb->array + j * lrgb;
-      q = BGRA + j * stride;
-      for (int i = 0; i < rgb->data_w(); i++) {
-        R = *r;
-        G = *(r+1);
-        B = *(r+2);
-        if (rgb->d() == 4) {
-          A = *(r+3);
-          f = float(A)/0xff;
-        }
-        *q =  B * f;
-        *(q+1) =  G * f;
-        *(q+2) =  R * f;
-        *(q+3) =  A;
-        r += rgb->d(); q += 4;
-      }
-    }
-  } else if (rgb->d() == 1 || rgb->d() == 2) { // B&W
-    for (int j = 0; j < rgb->data_h(); j++) {
-      r = rgb->array + j * lrgb;
-      q = BGRA + j * stride;
-      for (int i = 0; i < rgb->data_w(); i++) {
-        G = *r;
-        if (rgb->d() == 2) {
-          A = *(r+1);
-          f = float(A)/0xff;
-        }
-        *(q) =  G * f;
-        *(q+1) =  G * f;
-        *(q+2) =  G * f;
-        *(q+3) =  A;
-        r += rgb->d(); q += 4;
-      }
-    }
-  }
-  cairo_surface_t *surf = cairo_image_surface_create_for_data(BGRA, Fl_Wayland_Graphics_Driver::cairo_format, rgb->data_w(), rgb->data_h(), stride);
-  if (cairo_surface_status(surf) != CAIRO_STATUS_SUCCESS) return;
-  (void)cairo_surface_set_user_data(surf, &data_key_for_surface, BGRA, dealloc_surface_data);
-  cairo_pattern_t *pat = cairo_pattern_create_for_surface(surf);
-  *Fl_Graphics_Driver::id(rgb) = (fl_uintptr_t)pat;
-}
-
-
-void Fl_Wayland_Graphics_Driver::uncache(Fl_RGB_Image *img, fl_uintptr_t &id_, fl_uintptr_t &mask_) {
-  cairo_pattern_t *pat = (cairo_pattern_t*)id_;
-  if (pat) {
-    cairo_surface_t *surf;
-    cairo_pattern_get_surface(pat, &surf);
-    cairo_pattern_destroy(pat);
-    cairo_surface_destroy(surf);
-    id_ = 0;
-  }
-}
-
-
-void Fl_Wayland_Graphics_Driver::draw_bitmap(Fl_Bitmap *bm,int XP, int YP, int WP, int HP, int cx, int cy) {
-  int X, Y, W, H;
-  if (!bm->array) {
-    draw_empty(bm, XP, YP);
-    return;
-  }
-  if (start_image(bm, XP,YP,WP,HP,cx,cy,X,Y,W,H)) return;
-  cairo_pattern_t *pat = (cairo_pattern_t*)*Fl_Graphics_Driver::id(bm);
-  if (!pat) {
-    cache(bm);
-    pat = (cairo_pattern_t*)*Fl_Graphics_Driver::id(bm);
-  }
-  if (pat) {
-    draw_cached_pattern_(bm, pat, X, Y, W, H, cx, cy);
-  }
-}
-
-
-void Fl_Wayland_Graphics_Driver::cache(Fl_Bitmap *bm) {
-  int stride = cairo_format_stride_for_width(CAIRO_FORMAT_A1, bm->data_w());
-  uchar *BGRA = new uchar[stride * bm->data_h()];
-  memset(BGRA, 0, stride * bm->data_h());
-    uchar  *r, p;
-    unsigned *q;
-    for (int j = 0; j < bm->data_h(); j++) {
-      r = (uchar*)bm->array + j * ((bm->data_w() + 7)/8);
-      q = (unsigned*)(BGRA + j * stride);
-      unsigned k = 0, mask32 = 1;
-      p = *r;
-      for (int i = 0; i < bm->data_w(); i++) {
-        if (p&1) (*q) |= mask32;
-        k++;
-        if (k % 8 != 0) p >>= 1; else p = *(++r);
-        if (k % 32 != 0) mask32 <<= 1; else {q++; mask32 = 1;}
-      }
-    }
-  cairo_surface_t *surf = cairo_image_surface_create_for_data(BGRA, CAIRO_FORMAT_A1, bm->data_w(), bm->data_h(), stride);
-  if (cairo_surface_status(surf) == CAIRO_STATUS_SUCCESS) {
-    (void)cairo_surface_set_user_data(surf, &data_key_for_surface, BGRA, dealloc_surface_data);
-    cairo_pattern_t *pat = cairo_pattern_create_for_surface(surf);
-    *Fl_Graphics_Driver::id(bm) = (fl_uintptr_t)pat;
-  }
-}
-
-
-void Fl_Wayland_Graphics_Driver::delete_bitmask(Fl_Bitmask bm) {
-  cairo_pattern_t *pat = (cairo_pattern_t*)bm;
-  if (pat) {
-    cairo_surface_t *surf;
-    cairo_pattern_get_surface(pat, &surf);
-    cairo_pattern_destroy(pat);
-    cairo_surface_destroy(surf);
-  }
-}
-
-
-void Fl_Wayland_Graphics_Driver::draw_pixmap(Fl_Pixmap *pxm,int XP, int YP, int WP, int HP, int cx, int cy) {
-  int X, Y, W, H;
-  // Don't draw an empty image...
-  if (!pxm->data() || !pxm->w()) {
-    Fl_Graphics_Driver::draw_empty(pxm, XP, YP);
-    return;
-  }
-  if (start_image(pxm, XP, YP, WP, HP, cx, cy, X, Y, W, H)) {
-    return;
-  }
-  cairo_pattern_t *pat = (cairo_pattern_t*)*Fl_Graphics_Driver::id(pxm);
-  if (!pat) {
-    cache(pxm);
-    pat = (cairo_pattern_t*)*Fl_Graphics_Driver::id(pxm);
-  }
-  draw_cached_pattern_(pxm, pat, X, Y, W, H, cx, cy);
-}
-
-
-void Fl_Wayland_Graphics_Driver::cache(Fl_Pixmap *pxm) {
-  Fl_RGB_Image *rgb = new Fl_RGB_Image(pxm);
-  cache(rgb);
-  *Fl_Graphics_Driver::id(pxm) = *Fl_Graphics_Driver::id(rgb);
-  *Fl_Graphics_Driver::id(rgb) = 0;
-  delete rgb;
-}
-
-
-void Fl_Wayland_Graphics_Driver::uncache_pixmap(fl_uintptr_t p) {
-  cairo_pattern_t *pat = (cairo_pattern_t*)p;
-  if (pat) {
-    cairo_surface_t *surf;
-    cairo_pattern_get_surface(pat, &surf);
-    cairo_pattern_destroy(pat);
-    cairo_surface_destroy(surf);
-  }
-}
-
-
-void Fl_Wayland_Graphics_Driver::set_spot(int font, int height, int x, int y, int w, int h, Fl_Window *win) {
-  Fl_Wayland_Screen_Driver::insertion_point_location(x, y, height);
-}
-
-
-void Fl_Wayland_Graphics_Driver::reset_spot() {
-  Fl::compose_state = 0;
-  Fl_Wayland_Screen_Driver::next_marked_length = 0;
-  Fl_Wayland_Screen_Driver::insertion_point_location_is_valid = false;
-}
-
-
-void Fl_Wayland_Graphics_Driver::line(int x1, int y1, int x2, int y2) {
-  Fl_Cairo_Graphics_Driver::line(x1, y1, x2, y2);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::line(int x1, int y1, int x2, int y2, int x3, int y3) {
-  Fl_Cairo_Graphics_Driver::line(x1, y1, x2, y2, x3, y3);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::xyline(int x, int y, int x1) {
-  Fl_Cairo_Graphics_Driver::xyline(x, y, x1);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::xyline(int x, int y, int x1, int y2) {
-  Fl_Cairo_Graphics_Driver::xyline(x, y, x1, y2);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::xyline(int x, int y, int x1, int y2, int x3) {
-  Fl_Cairo_Graphics_Driver::xyline(x, y, x1, y2, x3);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::yxline(int x, int y, int y1) {
-  Fl_Cairo_Graphics_Driver::yxline(x, y, y1);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::yxline(int x, int y, int y1, int x2) {
-  Fl_Cairo_Graphics_Driver::yxline(x, y, y1, x2);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::yxline(int x, int y, int y1, int x2, int y3) {
-  Fl_Cairo_Graphics_Driver::yxline(x, y, y1, x2, y3);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::loop(int x0, int y0, int x1, int y1, int x2, int y2) {
-  Fl_Cairo_Graphics_Driver::loop(x0, y0, x1, y1, x2, y2);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::loop(int x0, int y0, int x1, int y1, int x2, int y2, int x3, int y3) {
-  Fl_Cairo_Graphics_Driver::loop(x0, y0, x1, y1, x2, y2, x3, y3);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::rectf(int x, int y, int w, int h) {
-  Fl_Cairo_Graphics_Driver::rectf(x, y, w, h);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::rect(int x, int y, int w, int h) {
-  Fl_Cairo_Graphics_Driver::rect(x, y, w, h);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::polygon(int x0, int y0, int x1, int y1, int x2, int y2) {
-  Fl_Cairo_Graphics_Driver::polygon(x0, y0, x1, y1, x2, y2);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::polygon(int x0, int y0, int x1, int y1, int x2, int y2, int x3, int y3) {
-  Fl_Cairo_Graphics_Driver::polygon(x0, y0, x1, y1, x2, y2, x3, y3);
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::end_line() {
-  Fl_Cairo_Graphics_Driver::end_line();
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::end_loop(){
-  Fl_Cairo_Graphics_Driver::end_loop();
-  buffer_->draw_buffer_needs_commit = true;
-}
-
-void Fl_Wayland_Graphics_Driver::end_polygon() {
-  Fl_Cairo_Graphics_Driver::end_polygon();
-  buffer_->draw_buffer_needs_commit = true;
-}
diff --git a/src/drivers/Wayland/Fl_Wayland_Window_Driver.cxx b/src/drivers/Wayland/Fl_Wayland_Window_Driver.cxx
index 9738ab861..e852bc6a6 100644
--- a/src/drivers/Wayland/Fl_Wayland_Window_Driver.cxx
+++ b/src/drivers/Wayland/Fl_Wayland_Window_Driver.cxx
@@ -396,6 +396,10 @@ void Fl_Wayland_Window_Driver::make_current() {
   
   struct wld_window *window = fl_xid(pWindow);
   float scale = Fl::screen_scale(pWindow->screen_num()) * window->scale;
+  if (window && window->buffer) {
+    ((Fl_Cairo_Graphics_Driver*)fl_graphics_driver)->needs_commit_tag(
+                                            &window->buffer->draw_buffer_needs_commit);
+  }
 
   // to support progressive drawing
   if ( (!Fl_Wayland_Window_Driver::in_flush) && window && window->buffer && (!window->buffer->cb)) {