added options to change default fonts

WINGs/ChangeLog

@@ -1,3 +1,9 @@
+changes since wmaker 0.62.0:
+............................
+- added WMSetWidgetDefaultFont(), WMSetWidgetDefaultBoldFont()
+
+
+
 changes since wmaker 0.62.0:
 ............................
 - added WM{S,G}etDataFormat()

WINGs/WINGs.h

@@ -7,7 +7,7 @@
 #include <WUtil.h>
 #include <X11/Xlib.h>
 
-#define WINGS_H_VERSION  20000402
+#define WINGS_H_VERSION  20000521
 
 
 #ifdef __cplusplus
@@ -648,6 +648,11 @@ WMFont *WMUserFontOfSize(WMScreen *scrPtr, int size);
 WMFont *WMUserFixedPitchFontOfSize(WMScreen *scrPtr, int size);
 */
 
+
+void WMSetWidgetDefaultFont(WMScreen *scr, WMFont *font);
+
+void WMSetWidgetDefaultBoldFont(WMScreen *scr, WMFont *font);
+
 WMFont *WMSystemFontOfSize(WMScreen *scrPtr, int size);
 
 WMFont *WMBoldSystemFontOfSize(WMScreen *scrPtr, int size);

WINGs/WINGsP.h

@@ -8,7 +8,7 @@
 
 #include "WINGs.h"
 
-#if WINGS_H_VERSION < 20000402
+#if WINGS_H_VERSION < 20000521
 #error There_is_an_old_WINGs.h_file_somewhere_in_your_system._Please_remove_it.
 #endif
 

WINGs/widgets.c

@@ -815,6 +815,24 @@ WMCreateScreenWithRContext(Display *display, int screen, RContext *context)
 }
 
 
+
+void
+WMSetWidgetDefaultFont(WMScreen *scr, WMFont *font)
+{
+    WMReleaseFont(scr->normalFont);
+    scr->normalFont = WMRetainFont(font);
+}
+
+
+void
+WMSetWidgetDefaultBoldFont(WMScreen *scr, WMFont *font)
+{
+    WMReleaseFont(scr->boldFont);
+    scr->boldFont = WMRetainFont(font);
+}
+
+
+
 void 
 WMHangData(WMWidget *widget, void *data)
 {

WINGs/wpopupbutton.c

@@ -15,7 +15,7 @@ typedef struct W_PopUpButton {
     char *caption;
 
     WMBag *items;
-
+    
     short selectedItemIndex;
     
     short highlightedItem;