Refactoring get_system_colors() into Fl_Screen_Driver

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3-porting@11164 ea41ed52-d2ee-0310-a9c1-e6b18d33e121

FL/Fl_Screen_Driver.H

@@ -42,6 +42,11 @@ protected:
 
   int num_screens;
 
+public:
+  static char bg_set;
+  static char bg2_set;
+  static char fg_set;
+
 public:
   static Fl_Screen_Driver *newScreenDriver();
   // --- display management
@@ -69,6 +74,8 @@ public:
   virtual void flush() = 0;
   // --- global colors
   virtual int parse_color(const char* p, uchar& r, uchar& g, uchar& b) = 0;
+  virtual void get_system_colors() = 0;
+
 };
 
 

src/Fl_Screen_Driver.cxx

@@ -22,6 +22,11 @@
 #include <FL/Fl.H>
 
 
+char Fl_Screen_Driver::bg_set = 0;
+char Fl_Screen_Driver::bg2_set = 0;
+char Fl_Screen_Driver::fg_set = 0;
+
+
 Fl_Screen_Driver::Fl_Screen_Driver() :
 num_screens(-1)
 {

src/Fl_get_system_colors.cxx

@@ -35,9 +35,6 @@
 #  define putenv _putenv
 #endif // WIN32 && !__CYGWIN__
 
-static char	fl_bg_set = 0;
-static char	fl_bg2_set = 0;
-static char	fl_fg_set = 0;
 
 /**
     Changes fl_color(FL_BACKGROUND_COLOR) to the given color, 
@@ -46,7 +43,7 @@ static char	fl_fg_set = 0;
     the edges of all the boxtypes.
 */
 void Fl::background(uchar r, uchar g, uchar b) {
-  fl_bg_set = 1;
+  Fl_Screen_Driver::bg_set = 1;
 
   // replace the gray ramp so that FL_GRAY is this color
   if (!r) r = 1; else if (r==255) r = 254;
@@ -65,7 +62,7 @@ void Fl::background(uchar r, uchar g, uchar b) {
 }
 /** Changes fl_color(FL_FOREGROUND_COLOR). */
 void Fl::foreground(uchar r, uchar g, uchar b) {
-  fl_fg_set = 1;
+  Fl_Screen_Driver::fg_set = 1;
 
   Fl::set_color(FL_FOREGROUND_COLOR,r,g,b);
 }
@@ -77,7 +74,7 @@ void Fl::foreground(uchar r, uchar g, uchar b) {
     does not provide sufficient contrast to FL_BACKGROUND2_COLOR.
 */
 void Fl::background2(uchar r, uchar g, uchar b) {
-  fl_bg2_set = 1;
+  Fl_Screen_Driver::bg2_set = 1;
 
   Fl::set_color(FL_BACKGROUND2_COLOR,r,g,b);
   Fl::set_color(FL_FOREGROUND_COLOR,
@@ -89,13 +86,9 @@ const char *fl_fg = NULL;
 const char *fl_bg = NULL;
 const char *fl_bg2 = NULL;
 
-static void set_selection_color(uchar r, uchar g, uchar b) {
-  Fl::set_color(FL_SELECTION_COLOR,r,g,b);
-}
-
 
 int fl_parse_color(const char* p, uchar& r, uchar& g, uchar& b) {
-  Fl::screen_driver()->parse_color(p, r, g, b);
+  return Fl::screen_driver()->parse_color(p, r, g, b);
 }
 
 
@@ -111,106 +104,11 @@ int fl_parse_color(const char* p, uchar& r, uchar& g, uchar& b) {
     newer versions of KDE set this automatically if you check the "apply
     style to other X programs" switch in their control panel.
 */
-
-#if defined(WIN32)				// --- WIN32 ---
-
-static void
-getsyscolor(int what, const char* arg, void (*func)(uchar,uchar,uchar))
-{
-  if (arg) {
-    uchar r,g,b;
-    if (!fl_parse_color(arg, r,g,b))
-      Fl::error("Unknown color: %s", arg);
-    else
-      func(r,g,b);
-  } else {
-    DWORD x = GetSysColor(what);
-    func(uchar(x&255), uchar(x>>8), uchar(x>>16));
-  }
-}
-
-void Fl::get_system_colors() {
-  if (!fl_bg2_set) getsyscolor(COLOR_WINDOW,	fl_bg2,Fl::background2);
-  if (!fl_fg_set) getsyscolor(COLOR_WINDOWTEXT,	fl_fg, Fl::foreground);
-  if (!fl_bg_set) getsyscolor(COLOR_BTNFACE,	fl_bg, Fl::background);
-  getsyscolor(COLOR_HIGHLIGHT,	0,     set_selection_color);
-}
-
-#elif defined(__APPLE__) // PORTME: Fl_Screen_Driver - platform system colors
-
-// MacOS X currently supports two color schemes - Blue and Graphite.
-// Since we aren't emulating the Aqua interface (even if Apple would
-// let us), we use some defaults that are similar to both.  The
-// Fl::scheme("plastic") color/box scheme provides a usable Aqua-like
-// look-n-feel...
 void Fl::get_system_colors()
 {
-  fl_open_display();
+  Fl::screen_driver()->get_system_colors();
-
-  if (!fl_bg2_set) background2(0xff, 0xff, 0xff);
-  if (!fl_fg_set) foreground(0, 0, 0);
-  if (!fl_bg_set) background(0xd8, 0xd8, 0xd8);
-  
-#if 0 
-  // this would be the correct code, but it does not run on all versions
-  // of OS X. Also, setting a bright selection color would require 
-  // some updates in Fl_Adjuster and Fl_Help_Browser
-  OSStatus err;
-  RGBColor c;
-  err = GetThemeBrushAsColor(kThemeBrushPrimaryHighlightColor, 24, true, &c);
-  if (err)
-    set_selection_color(0x00, 0x00, 0x80);
-  else
-    set_selection_color(c.red, c.green, c.blue);
-#else
-  set_selection_color(0x00, 0x00, 0x80);
-#endif
 }
 
-#elif defined(FL_PORTING)
-
-#  pragma message "FL_PORTING: implement code to find the current desktop color scheme"
-void Fl::get_system_colors() { }
-
-#else						// --- X11 ---
-
-// Read colors that KDE writes to the xrdb database.
-
-// XGetDefault does not do the expected thing: it does not like
-// periods in either word. Therefore it cannot match class.Text.background.
-// However *.Text.background is matched by pretending the program is "Text".
-// But this will also match *.background if there is no *.Text.background
-// entry, requiring users to put in both (unless they want the text fields
-// the same color as the windows).
-
-static void
-getsyscolor(const char *key1, const char* key2, const char *arg, const char *defarg, void (*func)(uchar,uchar,uchar))
-{
-  if (!arg) {
-    arg = XGetDefault(fl_display, key1, key2);
-    if (!arg) arg = defarg;
-  }
-  XColor x;
-  if (!XParseColor(fl_display, fl_colormap, arg, &x))
-    Fl::error("Unknown color: %s", arg);
-  else
-    func(x.red>>8, x.green>>8, x.blue>>8);
-}
-
-void Fl::get_system_colors()
-{
-  fl_open_display();
-  const char* key1 = 0;
-  if (Fl::first_window()) key1 = Fl::first_window()->xclass();
-  if (!key1) key1 = "fltk";
-  if (!fl_bg2_set) getsyscolor("Text","background",	fl_bg2,	"#ffffff", Fl::background2);
-  if (!fl_fg_set) getsyscolor(key1,  "foreground",	fl_fg,	"#000000", Fl::foreground);
-  if (!fl_bg_set) getsyscolor(key1,  "background",	fl_bg,	"#c0c0c0", Fl::background);
-  getsyscolor("Text", "selectBackground", 0, "#000080", set_selection_color);
-}
-
-#endif					// --- WIN32 | APPLE | X11 ---
-
 
 //// Simple implementation of 2.0 Fl::scheme() interface...
 #define D1 BORDER_WIDTH

src/drivers/Cocoa/Fl_Cocoa_Screen_Driver.cxx

@@ -19,6 +19,7 @@
 
 #include "../../config_lib.h"
 #include "Fl_Cocoa_Screen_Driver.h"
+#include <FL/Fl.H>
 #include <FL/fl_ask.h>
 #include <stdio.h>
 
@@ -145,6 +146,43 @@ int Fl_Cocoa_Screen_Driver::parse_color(const char* p, uchar& r, uchar& g, uchar
 }
 
 
+static void set_selection_color(uchar r, uchar g, uchar b)
+{
+  Fl::set_color(FL_SELECTION_COLOR,r,g,b);
+}
+
+
+// MacOS X currently supports two color schemes - Blue and Graphite.
+// Since we aren't emulating the Aqua interface (even if Apple would
+// let us), we use some defaults that are similar to both.  The
+// Fl::scheme("plastic") color/box scheme provides a usable Aqua-like
+// look-n-feel...
+void Fl_Cocoa_Screen_Driver::get_system_colors()
+{
+  fl_open_display();
+
+  if (!bg2_set) Fl::background2(0xff, 0xff, 0xff);
+  if (!fg_set) Fl::foreground(0, 0, 0);
+  if (!bg_set) Fl::background(0xd8, 0xd8, 0xd8);
+
+#if 0
+  // this would be the correct code, but it does not run on all versions
+  // of OS X. Also, setting a bright selection color would require
+  // some updates in Fl_Adjuster and Fl_Help_Browser
+  OSStatus err;
+  RGBColor c;
+  err = GetThemeBrushAsColor(kThemeBrushPrimaryHighlightColor, 24, true, &c);
+  if (err)
+    set_selection_color(0x00, 0x00, 0x80);
+  else
+    set_selection_color(c.red, c.green, c.blue);
+#else
+  set_selection_color(0x00, 0x00, 0x80);
+#endif
+}
+
+
+
 //
 // End of "$Id$".
 //

src/drivers/Cocoa/Fl_Cocoa_Screen_Driver.h

@@ -61,6 +61,7 @@ public:
   virtual void flush();
   // --- global colors
   virtual int parse_color(const char* p, uchar& r, uchar& g, uchar& b);
+  virtual void get_system_colors();
 };
 
 

src/drivers/WinAPI/Fl_WinAPI_Screen_Driver.cxx

@@ -241,7 +241,7 @@ void Fl_WinAPI_Screen_Driver::flush()
 
 
 // simulation of XParseColor:
-int Fl_WinAPI_Screen_Driverparse_color(const char* p, uchar& r, uchar& g, uchar& b)
+int Fl_WinAPI_Screen_Driver::parse_color(const char* p, uchar& r, uchar& g, uchar& b)
 {
   if (*p == '#') p++;
   size_t n = strlen(p);
@@ -265,6 +265,38 @@ int Fl_WinAPI_Screen_Driverparse_color(const char* p, uchar& r, uchar& g, uchar&
 }
 
 
+static void set_selection_color(uchar r, uchar g, uchar b)
+{
+  Fl::set_color(FL_SELECTION_COLOR,r,g,b);
+}
+
+
+static void getsyscolor(int what, const char* arg, void (*func)(uchar,uchar,uchar))
+{
+  if (arg) {
+    uchar r,g,b;
+    if (!fl_parse_color(arg, r,g,b))
+      Fl::error("Unknown color: %s", arg);
+    else
+      func(r,g,b);
+  } else {
+    DWORD x = GetSysColor(what);
+    func(uchar(x&255), uchar(x>>8), uchar(x>>16));
+  }
+}
+
+
+void Fl_WinAPI_Screen_Driver::get_system_colors()
+{
+  if (!bg2_set) getsyscolor(COLOR_WINDOW,	fl_bg2,Fl::background2);
+  if (!fg_set) getsyscolor(COLOR_WINDOWTEXT,	fl_fg, Fl::foreground);
+  if (!bg_set) getsyscolor(COLOR_BTNFACE,	fl_bg, Fl::background);
+  getsyscolor(COLOR_HIGHLIGHT,	0,     set_selection_color);
+}
+
+
+
+
 //
 // End of "$Id$".
 //

src/drivers/WinAPI/Fl_WinAPI_Screen_Driver.h

@@ -55,6 +55,7 @@ public:
   virtual void flush();
   // --- global colors
   virtual int parse_color(const char* p, uchar& r, uchar& g, uchar& b);
+  virtual void get_system_colors();
 };
 
 

src/drivers/X11/Fl_X11_Screen_Driver.cxx

@@ -246,6 +246,50 @@ int Fl_X11_Screen_Driver::parse_color(const char* p, uchar& r, uchar& g, uchar&
 }
 
 
+// Read colors that KDE writes to the xrdb database.
+
+// XGetDefault does not do the expected thing: it does not like
+// periods in either word. Therefore it cannot match class.Text.background.
+// However *.Text.background is matched by pretending the program is "Text".
+// But this will also match *.background if there is no *.Text.background
+// entry, requiring users to put in both (unless they want the text fields
+// the same color as the windows).
+
+static void set_selection_color(uchar r, uchar g, uchar b)
+{
+  Fl::set_color(FL_SELECTION_COLOR,r,g,b);
+}
+
+static void getsyscolor(const char *key1, const char* key2, const char *arg, const char *defarg, void (*func)(uchar,uchar,uchar))
+{
+  if (!arg) {
+    arg = XGetDefault(fl_display, key1, key2);
+    if (!arg) arg = defarg;
+  }
+  XColor x;
+  if (!XParseColor(fl_display, fl_colormap, arg, &x))
+    Fl::error("Unknown color: %s", arg);
+  else
+    func(x.red>>8, x.green>>8, x.blue>>8);
+}
+
+
+void Fl_X11_Screen_Driver::get_system_colors()
+{
+  fl_open_display();
+  const char* key1 = 0;
+  if (Fl::first_window()) key1 = Fl::first_window()->xclass();
+  if (!key1) key1 = "fltk";
+  if (!bg2_set)
+    getsyscolor("Text","background",	fl_bg2,	"#ffffff", Fl::background2);
+  if (!fg_set)
+    getsyscolor(key1,  "foreground",	fl_fg,	"#000000", Fl::foreground);
+  if (!bg_set)
+    getsyscolor(key1,  "background",	fl_bg,	"#c0c0c0", Fl::background);
+  getsyscolor("Text", "selectBackground", 0, "#000080", set_selection_color);
+}
+
+
 //
 // End of "$Id$".
 //

src/drivers/X11/Fl_X11_Screen_Driver.h

@@ -59,6 +59,7 @@ public:
   virtual void flush();
   // --- global colors
   virtual int parse_color(const char* p, uchar& r, uchar& g, uchar& b);
+  virtual void get_system_colors();
 };