WPrefs.app/WPrefs.c

   1 /* WPrefs.c- main window and other basic stuff
   2  *
   3  *  WPrefs - Window Maker Preferences Program
   4  *
   5  *  Copyright (c) 1998-2003 Alfredo K. Kojima
   6  *
   7  *  This program is free software; you can redistribute it and/or modify
   8  *  it under the terms of the GNU General Public License as published by
   9  *  the Free Software Foundation; either version 2 of the License, or
  10  *  (at your option) any later version.
  11  *
  12  *  This program is distributed in the hope that it will be useful,
  13  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *  GNU General Public License for more details.
  16  *
  17  *  You should have received a copy of the GNU General Public License along
  18  *  with this program; if not, write to the Free Software Foundation, Inc.,
  19  *  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  20  */
  21
  22 #include "WPrefs.h"
  23 #include <assert.h>
  24
  25 extern Panel *InitWindowHandling(WMScreen * scr, WMWidget * parent);
  26
  27 extern Panel *InitKeyboardSettings(WMScreen * scr, WMWidget * parent);
  28
  29 extern Panel *InitMouseSettings(WMScreen * scr, WMWidget * parent);
  30
  31 extern Panel *InitKeyboardShortcuts(WMScreen * scr, WMWidget * parent);
  32
  33 extern Panel *InitWorkspace(WMScreen * scr, WMWidget * parent);
  34
  35 extern Panel *InitDocks(WMScreen *scr, WMWidget *parent);
  36
  37 extern Panel *InitFocus(WMScreen * scr, WMWidget * parent);
  38
  39 extern Panel *InitPreferences(WMScreen * scr, WMWidget * parent);
  40
  41 extern Panel *InitFont(WMScreen * scr, WMWidget * parent);
  42 extern Panel *InitFontSimple(WMScreen * scr, WMWidget * parent);
  43
  44 extern Panel *InitConfigurations(WMScreen * scr, WMWidget * parent);
  45
  46 extern Panel *InitPaths(WMScreen * scr, WMWidget * parent);
  47
  48 extern Panel *InitMenu(WMScreen * scr, WMWidget * parent);
  49
  50 extern Panel *InitExpert(WMScreen * scr, WMWidget * parent);
  51
  52 extern Panel *InitMenuPreferences(WMScreen * scr, WMWidget * parent);
  53
  54 extern Panel *InitIcons(WMScreen * scr, WMWidget * parent);
  55
  56 extern Panel *InitThemes(WMScreen * scr, WMWidget * parent);
  57
  58 extern Panel *InitAppearance(WMScreen * scr, WMWidget * parent);
  59
  60 #define ICON_TITLE_FONT "sans serif:pixelsize=9"
  61 #define ICON_TITLE_VFONT "sans serif:pixelsize=9:weight=100"
  62
  63 #define MAX_SECTIONS 16
  64
  65 typedef struct _WPrefs {
  66         WMWindow *win;
  67
  68         WMScrollView *scrollV;
  69         WMFrame *buttonF;
  70         WMButton *sectionB[MAX_SECTIONS];
  71
  72         int sectionCount;
  73
  74         WMButton *saveBtn;
  75         WMButton *closeBtn;
  76         WMButton *undoBtn;
  77         WMButton *undosBtn;
  78
  79         WMButton *balloonBtn;
  80
  81         WMFrame *banner;
  82         WMLabel *nameL;
  83         WMLabel *versionL;
  84         WMLabel *statusL;
  85
  86         Panel *currentPanel;
  87 } _WPrefs;
  88
  89 static _WPrefs WPrefs;
  90
  91 /* system wide defaults dictionary. Read-only */
  92 static WMPropList *GlobalDB = NULL;
  93 /* user defaults dictionary */
  94 static WMPropList *WindowMakerDB = NULL;
  95 static char *WindowMakerDBPath = NULL;
  96
  97 static Bool TIFFOK = False;
  98
  99 #define INITIALIZED_PANEL       (1<<0)
 100
 101 static void loadConfigurations(WMScreen * scr, WMWindow * mainw);
 102
 103 static void savePanelData(Panel * panel);
 104
 105 static void prepareForClose();
 106
 107 void quit(WMWidget * w, void *data)
 108 {
 109         prepareForClose();
 110
 111         exit(0);
 112 }
 113
 114 static void save(WMWidget * w, void *data)
 115 {
 116         int i;
 117         WMPropList *p1, *p2;
 118         WMPropList *keyList;
 119         WMPropList *key;
 120         XEvent ev;
 121
 122         /*    puts("gathering data"); */
 123         for (i = 0; i < WPrefs.sectionCount; i++) {
 124                 PanelRec *rec = WMGetHangedData(WPrefs.sectionB[i]);
 125                 if ((rec->callbacks.flags & INITIALIZED_PANEL))
 126                         savePanelData((Panel *) rec);
 127         }
 128         /*    puts("compressing data"); */
 129         /* compare the user dictionary with the global and remove redundant data */
 130         keyList = WMGetPLDictionaryKeys(GlobalDB);
 131         /*    puts(WMGetPropListDescription(WindowMakerDB, False)); */
 132         for (i = 0; i < WMGetPropListItemCount(keyList); i++) {
 133                 key = WMGetFromPLArray(keyList, i);
 134
 135                 /* We don't have this value anyway, so no problem.
 136                  * Probably  a new option */
 137                 p1 = WMGetFromPLDictionary(WindowMakerDB, key);
 138                 if (!p1)
 139                         continue;
 140                 /* The global doesn't have it, so no problem either. */
 141                 p2 = WMGetFromPLDictionary(GlobalDB, key);
 142                 if (!p2)
 143                         continue;
 144                 /* If both values are the same, don't save. */
 145                 if (WMIsPropListEqualTo(p1, p2))
 146                         WMRemoveFromPLDictionary(WindowMakerDB, key);
 147         }
 148         /*    puts(WMGetPropListDescription(WindowMakerDB, False)); */
 149         WMReleasePropList(keyList);
 150         /*    puts("storing data"); */
 151
 152         WMWritePropListToFile(WindowMakerDB, WindowMakerDBPath);
 153
 154         memset(&ev, 0, sizeof(XEvent));
 155
 156         ev.xclient.type = ClientMessage;
 157         ev.xclient.message_type = XInternAtom(WMScreenDisplay(WMWidgetScreen(w)), "_WINDOWMAKER_COMMAND", False);
 158         ev.xclient.window = DefaultRootWindow(WMScreenDisplay(WMWidgetScreen(w)));
 159         ev.xclient.format = 8;
 160         strncpy(ev.xclient.data.b, "Reconfigure", sizeof(ev.xclient.data.b));
 161
 162         XSendEvent(WMScreenDisplay(WMWidgetScreen(w)),
 163                    DefaultRootWindow(WMScreenDisplay(WMWidgetScreen(w))), False, SubstructureRedirectMask, &ev);
 164         XFlush(WMScreenDisplay(WMWidgetScreen(w)));
 165 }
 166
 167 static void undo(WMWidget * w, void *data)
 168 {
 169         PanelRec *rec = (PanelRec *) WPrefs.currentPanel;
 170
 171         if (!rec)
 172                 return;
 173
 174         if (rec->callbacks.undoChanges && (rec->callbacks.flags & INITIALIZED_PANEL)) {
 175                 (*rec->callbacks.undoChanges) (WPrefs.currentPanel);
 176         }
 177 }
 178
 179 static void undoAll(WMWidget * w, void *data)
 180 {
 181         int i;
 182
 183         for (i = 0; i < WPrefs.sectionCount; i++) {
 184                 PanelRec *rec = WMGetHangedData(WPrefs.sectionB[i]);
 185
 186                 if (rec->callbacks.undoChanges && (rec->callbacks.flags & INITIALIZED_PANEL))
 187                         (*rec->callbacks.undoChanges) ((Panel *) rec);
 188         }
 189 }
 190
 191 static void prepareForClose()
 192 {
 193         int i;
 194
 195         for (i = 0; i < WPrefs.sectionCount; i++) {
 196                 PanelRec *rec = WMGetHangedData(WPrefs.sectionB[i]);
 197
 198                 if (rec->callbacks.prepareForClose && (rec->callbacks.flags & INITIALIZED_PANEL))
 199                         (*rec->callbacks.prepareForClose) ((Panel *) rec);
 200         }
 201 }
 202
 203 void toggleBalloons(WMWidget * w, void *data)
 204 {
 205         WMUserDefaults *udb = WMGetStandardUserDefaults();
 206         Bool flag;
 207
 208         flag = WMGetButtonSelected(WPrefs.balloonBtn);
 209
 210         WMSetBalloonEnabled(WMWidgetScreen(WPrefs.win), flag);
 211
 212         WMSetUDBoolForKey(udb, flag, "BalloonHelp");
 213 }
 214
 215 static void createMainWindow(WMScreen * scr)
 216 {
 217         WMScroller *scroller;
 218         WMFont *font;
 219         char buffer[128];
 220
 221         WPrefs.win = WMCreateWindow(scr, "wprefs");
 222         WMResizeWidget(WPrefs.win, 520, 390);
 223         WMSetWindowTitle(WPrefs.win, _("Window Maker Preferences"));
 224         WMSetWindowCloseAction(WPrefs.win, quit, NULL);
 225         WMSetWindowMaxSize(WPrefs.win, 520, 390);
 226         WMSetWindowMinSize(WPrefs.win, 520, 390);
 227         WMSetWindowMiniwindowTitle(WPrefs.win, "Preferences");
 228
 229         WPrefs.scrollV = WMCreateScrollView(WPrefs.win);
 230         WMResizeWidget(WPrefs.scrollV, 500, 87);
 231         WMMoveWidget(WPrefs.scrollV, 10, 10);
 232         WMSetScrollViewRelief(WPrefs.scrollV, WRSunken);
 233         WMSetScrollViewHasHorizontalScroller(WPrefs.scrollV, True);
 234         WMSetScrollViewHasVerticalScroller(WPrefs.scrollV, False);
 235         scroller = WMGetScrollViewHorizontalScroller(WPrefs.scrollV);
 236         WMSetScrollerArrowsPosition(scroller, WSANone);
 237
 238         WPrefs.buttonF = WMCreateFrame(WPrefs.win);
 239         WMSetFrameRelief(WPrefs.buttonF, WRFlat);
 240
 241         WMSetScrollViewContentView(WPrefs.scrollV, WMWidgetView(WPrefs.buttonF));
 242
 243         WPrefs.undosBtn = WMCreateCommandButton(WPrefs.win);
 244         WMResizeWidget(WPrefs.undosBtn, 90, 28);
 245         WMMoveWidget(WPrefs.undosBtn, 135, 350);
 246         WMSetButtonText(WPrefs.undosBtn, _("Revert Page"));
 247         WMSetButtonAction(WPrefs.undosBtn, undo, NULL);
 248
 249         WPrefs.undoBtn = WMCreateCommandButton(WPrefs.win);
 250         WMResizeWidget(WPrefs.undoBtn, 90, 28);
 251         WMMoveWidget(WPrefs.undoBtn, 235, 350);
 252         WMSetButtonText(WPrefs.undoBtn, _("Revert All"));
 253         WMSetButtonAction(WPrefs.undoBtn, undoAll, NULL);
 254
 255         WPrefs.saveBtn = WMCreateCommandButton(WPrefs.win);
 256         WMResizeWidget(WPrefs.saveBtn, 80, 28);
 257         WMMoveWidget(WPrefs.saveBtn, 335, 350);
 258         WMSetButtonText(WPrefs.saveBtn, _("Save"));
 259         WMSetButtonAction(WPrefs.saveBtn, save, NULL);
 260
 261         WPrefs.closeBtn = WMCreateCommandButton(WPrefs.win);
 262         WMResizeWidget(WPrefs.closeBtn, 80, 28);
 263         WMMoveWidget(WPrefs.closeBtn, 425, 350);
 264         WMSetButtonText(WPrefs.closeBtn, _("Close"));
 265         WMSetButtonAction(WPrefs.closeBtn, quit, NULL);
 266
 267         WPrefs.balloonBtn = WMCreateSwitchButton(WPrefs.win);
 268         WMResizeWidget(WPrefs.balloonBtn, 200, 28);
 269         WMMoveWidget(WPrefs.balloonBtn, 15, 350);
 270         WMSetButtonText(WPrefs.balloonBtn, _("Balloon Help"));
 271         WMSetButtonAction(WPrefs.balloonBtn, toggleBalloons, NULL);
 272         {
 273                 WMUserDefaults *udb = WMGetStandardUserDefaults();
 274                 Bool flag = WMGetUDBoolForKey(udb, "BalloonHelp");
 275
 276                 WMSetButtonSelected(WPrefs.balloonBtn, flag);
 277                 WMSetBalloonEnabled(scr, flag);
 278         }
 279
 280         /* banner */
 281         WPrefs.banner = WMCreateFrame(WPrefs.win);
 282         WMResizeWidget(WPrefs.banner, FRAME_WIDTH, FRAME_HEIGHT);
 283         WMMoveWidget(WPrefs.banner, FRAME_LEFT, FRAME_TOP);
 284         WMSetFrameRelief(WPrefs.banner, WRFlat);
 285
 286         font = WMCreateFont(scr, "Lucida Sans,URW Gothic L,Times New Roman,serif"
 287                             ":bold:pixelsize=26:antialias=true");
 288         WPrefs.nameL = WMCreateLabel(WPrefs.banner);
 289         WMSetLabelTextAlignment(WPrefs.nameL, WACenter);
 290         WMResizeWidget(WPrefs.nameL, FRAME_WIDTH - 20, 60);
 291         WMMoveWidget(WPrefs.nameL, 10, 50);
 292         WMSetLabelFont(WPrefs.nameL, font);
 293         WMSetLabelText(WPrefs.nameL, _("Window Maker Preferences"));
 294         WMReleaseFont(font);
 295
 296         WPrefs.versionL = WMCreateLabel(WPrefs.banner);
 297         WMResizeWidget(WPrefs.versionL, FRAME_WIDTH - 20, 20);
 298         WMMoveWidget(WPrefs.versionL, 10, 120);
 299         WMSetLabelTextAlignment(WPrefs.versionL, WACenter);
 300         sprintf(buffer, _("Version %s"), VERSION);
 301         WMSetLabelText(WPrefs.versionL, buffer);
 302
 303         WPrefs.statusL = WMCreateLabel(WPrefs.banner);
 304         WMResizeWidget(WPrefs.statusL, FRAME_WIDTH - 20, 60);
 305         WMMoveWidget(WPrefs.statusL, 10, 150);
 306         WMSetLabelTextAlignment(WPrefs.statusL, WACenter);
 307         WMSetLabelText(WPrefs.statusL, _("Starting..."));
 308
 309         WMMapSubwidgets(WPrefs.win);
 310
 311         WMUnmapWidget(WPrefs.undosBtn);
 312         WMUnmapWidget(WPrefs.undoBtn);
 313         WMUnmapWidget(WPrefs.saveBtn);
 314 }
 315
 316 static void showPanel(Panel * panel)
 317 {
 318         PanelRec *rec = (PanelRec *) panel;
 319
 320         if (!(rec->callbacks.flags & INITIALIZED_PANEL)) {
 321                 (*rec->callbacks.createWidgets) (panel);
 322                 rec->callbacks.flags |= INITIALIZED_PANEL;
 323         }
 324
 325         WMSetWindowTitle(WPrefs.win, rec->sectionName);
 326
 327         if (rec->callbacks.showPanel)
 328                 (*rec->callbacks.showPanel) (panel);
 329
 330         WMMapWidget(rec->box);
 331 }
 332
 333 static void hidePanel(Panel * panel)
 334 {
 335         PanelRec *rec = (PanelRec *) panel;
 336
 337         WMUnmapWidget(rec->box);
 338
 339         if (rec->callbacks.hidePanel)
 340                 (*rec->callbacks.hidePanel) (panel);
 341 }
 342
 343 static void savePanelData(Panel * panel)
 344 {
 345         PanelRec *rec = (PanelRec *) panel;
 346
 347         if (rec->callbacks.updateDomain) {
 348                 (*rec->callbacks.updateDomain) (panel);
 349         }
 350 }
 351
 352 static void changeSection(WMWidget * self, void *data)
 353 {
 354         if (WPrefs.currentPanel == data)
 355                 return;
 356
 357         if (WPrefs.currentPanel == NULL) {
 358                 WMDestroyWidget(WPrefs.nameL);
 359                 WMDestroyWidget(WPrefs.versionL);
 360                 WMDestroyWidget(WPrefs.statusL);
 361
 362                 WMSetFrameRelief(WPrefs.banner, WRGroove);
 363
 364                 /*      WMMapWidget(WPrefs.undosBtn);
 365                    WMMapWidget(WPrefs.undoBtn);
 366                  */
 367                 WMMapWidget(WPrefs.saveBtn);
 368         }
 369
 370         showPanel(data);
 371
 372         if (WPrefs.currentPanel)
 373                 hidePanel(WPrefs.currentPanel);
 374         WPrefs.currentPanel = data;
 375 }
 376
 377 char *LocateImage(char *name)
 378 {
 379         char *path;
 380         char *tmp = wmalloc(strlen(name) + 8);
 381
 382         if (TIFFOK) {
 383                 sprintf(tmp, "%s.tiff", name);
 384                 path = WMPathForResourceOfType(tmp, "tiff");
 385         } else {
 386                 sprintf(tmp, "%s.xpm", name);
 387                 path = WMPathForResourceOfType(tmp, "xpm");
 388         }
 389         wfree(tmp);
 390         if (!path) {
 391                 wwarning(_("could not locate image file %s"), name);
 392         }
 393
 394         return path;
 395 }
 396
 397 void CreateImages(WMScreen *scr, RContext *rc, RImage *xis, char *file,
 398                 WMPixmap **icon_normal, WMPixmap **icon_greyed)
 399 {
 400         RImage *icon;
 401         char *path;
 402         RColor gray = { 0xae, 0xaa, 0xae, 0 };
 403
 404         path = LocateImage(file);
 405         if (!path)
 406         {
 407                 *icon_normal = NULL;
 408                 if (icon_greyed)
 409                         *icon_greyed = NULL;
 410                 return;
 411         }
 412
 413         *icon_normal = WMCreatePixmapFromFile(scr, path);
 414         if (!*icon_normal)
 415         {
 416                 wwarning(_("could not load icon %s"), path);
 417                 if (icon_greyed)
 418                         *icon_greyed = NULL;
 419                 wfree(path);
 420                 return;
 421         }
 422
 423         if (!icon_greyed) // Greyed-out version not requested, we are done
 424         {
 425                 wfree(path);
 426                 return;
 427         }
 428
 429         icon = RLoadImage(rc, path, 0);
 430         if (!icon)
 431         {
 432                 wwarning(_("could not load icon %s"), path);
 433                 *icon_greyed = NULL;
 434                 wfree(path);
 435                 return;
 436         }
 437         RCombineImageWithColor(icon, &gray);
 438         if (xis)
 439         {
 440                 RCombineImagesWithOpaqueness(icon, xis, 180);
 441         }
 442         *icon_greyed = WMCreatePixmapFromRImage(scr, icon, 127);
 443         if (!*icon_greyed)
 444         {
 445                 wwarning(_("could not process icon %s: %s"), path, RMessageForError(RErrorCode));
 446         }
 447         RReleaseImage(icon);
 448         wfree(path);
 449 }
 450
 451
 452 static WMPixmap *makeTitledIcon(WMScreen * scr, WMPixmap * icon, char *title1, char *title2)
 453 {
 454         return WMRetainPixmap(icon);
 455
 456 #if 0
 457         static GC gc = NULL;
 458         static XFontStruct *hfont = NULL;
 459         static XFontStruct *vfont = NULL;
 460         WMPixmap *tmp;
 461         Pixmap pix, mask;
 462         Display *dpy = WMScreenDisplay(scr);
 463         WMColor *black = WMBlackColor(scr);
 464         GC fgc;
 465         WMSize size = WMGetPixmapSize(icon);
 466
 467         tmp = WMCreatePixmap(scr, 60, 60, WMScreenDepth(scr), True);
 468
 469         pix = WMGetPixmapXID(tmp);
 470         mask = WMGetPixmapMaskXID(tmp);
 471
 472         if (gc == NULL) {
 473                 gc = XCreateGC(dpy, mask, 0, NULL);
 474
 475                 hfont = XLoadQueryFont(dpy, ICON_TITLE_FONT);
 476                 vfont = XLoadQueryFont(dpy, ICON_TITLE_VFONT);
 477         }
 478
 479         if (hfont == NULL) {
 480                 return WMRetainPixmap(icon);
 481         }
 482
 483         XSetForeground(dpy, gc, 0);
 484         XFillRectangle(dpy, mask, gc, 0, 0, 60, 60);
 485
 486         fgc = WMColorGC(black);
 487
 488         XSetForeground(dpy, gc, 1);
 489
 490         XCopyArea(dpy, WMGetPixmapXID(icon), pix, fgc, 0, 0, size.width, size.height, 12, 12);
 491
 492         if (WMGetPixmapMaskXID(icon) != None)
 493                 XCopyPlane(dpy, WMGetPixmapMaskXID(icon), mask, gc, 0, 0, size.width, size.height, 12, 12, 1);
 494         else
 495                 XFillRectangle(dpy, mask, gc, 12, 12, 48, 48);
 496
 497         if (title1) {
 498                 XSetFont(dpy, fgc, vfont->fid);
 499                 XSetFont(dpy, gc, vfont->fid);
 500
 501                 XDrawString(dpy, pix, fgc, 0, vfont->ascent, title1, strlen(title1));
 502
 503                 XDrawString(dpy, mask, gc, 0, vfont->ascent, title1, strlen(title1));
 504         }
 505
 506         if (title2) {
 507                 XSetFont(dpy, fgc, hfont->fid);
 508                 XSetFont(dpy, gc, hfont->fid);
 509
 510                 XDrawString(dpy, pix, fgc, (title1 ? 12 : 0), hfont->ascent, title2, strlen(title2));
 511
 512                 XDrawString(dpy, mask, gc, (title1 ? 12 : 0), hfont->ascent, title2, strlen(title2));
 513         }
 514
 515         return tmp;
 516 #endif
 517 }
 518
 519 void SetButtonAlphaImage(WMScreen * scr, WMButton * bPtr, char *file, char *title1, char *title2)
 520 {
 521         WMPixmap *icon;
 522         WMPixmap *icon2;
 523         RColor color;
 524         char *iconPath;
 525
 526         iconPath = LocateImage(file);
 527
 528         color.red = 0xae;
 529         color.green = 0xaa;
 530         color.blue = 0xae;
 531         color.alpha = 0;
 532         if (iconPath) {
 533                 icon = WMCreateBlendedPixmapFromFile(scr, iconPath, &color);
 534                 if (!icon)
 535                         wwarning(_("could not load icon file %s"), iconPath);
 536         } else {
 537                 icon = NULL;
 538         }
 539
 540         if (icon) {
 541                 icon2 = makeTitledIcon(scr, icon, title1, title2);
 542                 if (icon)
 543                         WMReleasePixmap(icon);
 544         } else {
 545                 icon2 = NULL;
 546         }
 547
 548         WMSetButtonImage(bPtr, icon2);
 549
 550         if (icon2)
 551                 WMReleasePixmap(icon2);
 552
 553         color.red = 0xff;
 554         color.green = 0xff;
 555         color.blue = 0xff;
 556         color.alpha = 0;
 557         if (iconPath) {
 558                 icon = WMCreateBlendedPixmapFromFile(scr, iconPath, &color);
 559                 if (!icon)
 560                         wwarning(_("could not load icon file %s"), iconPath);
 561         } else {
 562                 icon = NULL;
 563         }
 564
 565         WMSetButtonAltImage(bPtr, icon);
 566
 567         if (icon)
 568                 WMReleasePixmap(icon);
 569
 570         if (iconPath)
 571                 wfree(iconPath);
 572 }
 573
 574 void AddSection(Panel * panel, char *iconFile)
 575 {
 576         WMButton *bPtr;
 577
 578         assert(WPrefs.sectionCount < MAX_SECTIONS);
 579
 580         bPtr = WMCreateCustomButton(WPrefs.buttonF, WBBStateLightMask | WBBStateChangeMask);
 581         WMResizeWidget(bPtr, 64, 64);
 582         WMMoveWidget(bPtr, WPrefs.sectionCount * 64, 0);
 583         WMSetButtonImagePosition(bPtr, WIPImageOnly);
 584         WMSetButtonAction(bPtr, changeSection, panel);
 585         WMHangData(bPtr, panel);
 586
 587         WMSetBalloonTextForView(((PanelRec *) panel)->description, WMWidgetView(bPtr));
 588
 589         {
 590                 char *t1, *t2;
 591
 592                 t1 = wstrdup(((PanelRec *) panel)->sectionName);
 593                 t2 = strchr(t1, ' ');
 594                 if (t2) {
 595                         *t2 = 0;
 596                         t2++;
 597                 }
 598                 SetButtonAlphaImage(WMWidgetScreen(bPtr), bPtr, iconFile, t1, t2);
 599                 wfree(t1);
 600         }
 601         WMMapWidget(bPtr);
 602
 603         WPrefs.sectionB[WPrefs.sectionCount] = bPtr;
 604
 605         if (WPrefs.sectionCount > 0) {
 606                 WMGroupButtons(WPrefs.sectionB[0], bPtr);
 607         }
 608
 609         WPrefs.sectionCount++;
 610
 611         WMResizeWidget(WPrefs.buttonF, WPrefs.sectionCount * 64, 64);
 612 }
 613
 614 void Initialize(WMScreen * scr)
 615 {
 616         char **list;
 617         int i;
 618         char *path;
 619
 620         list = RSupportedFileFormats();
 621         for (i = 0; list[i] != NULL; i++) {
 622                 if (strcmp(list[i], "TIFF") == 0) {
 623                         TIFFOK = True;
 624                         break;
 625                 }
 626         }
 627
 628         if (TIFFOK)
 629                 path = WMPathForResourceOfType("WPrefs.tiff", NULL);
 630         else
 631                 path = WMPathForResourceOfType("WPrefs.xpm", NULL);
 632         if (path) {
 633                 RImage *tmp;
 634
 635                 tmp = RLoadImage(WMScreenRContext(scr), path, 0);
 636                 if (!tmp) {
 637                         wwarning(_("could not load image file %s:%s"), path, RMessageForError(RErrorCode));
 638                 } else {
 639                         WMSetApplicationIconImage(scr, tmp);
 640                         RReleaseImage(tmp);
 641                 }
 642                 wfree(path);
 643         }
 644
 645         memset(&WPrefs, 0, sizeof(_WPrefs));
 646         createMainWindow(scr);
 647
 648         WMRealizeWidget(WPrefs.win);
 649
 650         WMSetWindowMiniwindowImage(WPrefs.win, WMGetApplicationIconImage(scr));
 651
 652         WMMapWidget(WPrefs.win);
 653         XFlush(WMScreenDisplay(scr));
 654         WMSetLabelText(WPrefs.statusL, _("Loading Window Maker configuration files..."));
 655         XFlush(WMScreenDisplay(scr));
 656         loadConfigurations(scr, WPrefs.win);
 657
 658         WMSetLabelText(WPrefs.statusL, _("Initializing configuration panels..."));
 659
 660         InitFocus(scr, WPrefs.banner);
 661         InitWindowHandling(scr, WPrefs.banner);
 662
 663         InitMenuPreferences(scr, WPrefs.banner);
 664         InitIcons(scr, WPrefs.banner);
 665         InitPreferences(scr, WPrefs.banner);
 666
 667         InitPaths(scr, WPrefs.banner);
 668         InitDocks(scr, WPrefs.banner);
 669         InitWorkspace(scr, WPrefs.banner);
 670         InitConfigurations(scr, WPrefs.banner);
 671
 672         InitMenu(scr, WPrefs.banner);
 673
 674 #ifdef not_yet_fully_implemented
 675         InitKeyboardSettings(scr, WPrefs.banner);
 676 #endif
 677         InitKeyboardShortcuts(scr, WPrefs.banner);
 678         InitMouseSettings(scr, WPrefs.banner);
 679
 680         InitAppearance(scr, WPrefs.banner);
 681
 682         InitFontSimple(scr, WPrefs.banner);
 683
 684 #ifdef not_yet_fully_implemented
 685         InitThemes(scr, WPrefs.banner);
 686 #endif
 687         InitExpert(scr, WPrefs.banner);
 688
 689         WMRealizeWidget(WPrefs.scrollV);
 690
 691         WMSetLabelText(WPrefs.statusL, "");
 692 }
 693
 694 WMWindow *GetWindow(Panel * panel)
 695 {
 696         return WPrefs.win;
 697 }
 698
 699 static void loadConfigurations(WMScreen * scr, WMWindow * mainw)
 700 {
 701         WMPropList *db, *gdb;
 702         char *path;
 703         FILE *file;
 704         char buffer[1024];
 705         char mbuf[1024];
 706         int v1, v2, v3;
 707
 708         path = wdefaultspathfordomain("WindowMaker");
 709         WindowMakerDBPath = path;
 710
 711         db = WMReadPropListFromFile(path);
 712         if (db) {
 713                 if (!WMIsPLDictionary(db)) {
 714                         WMReleasePropList(db);
 715                         db = NULL;
 716                         sprintf(mbuf, _("Window Maker domain (%s) is corrupted!"), path);
 717                         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 718                 }
 719         } else {
 720                 sprintf(mbuf, _("Could not load Window Maker domain (%s) from defaults database."), path);
 721                 WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 722         }
 723
 724         path = getenv("WMAKER_BIN_NAME");
 725         if (!path)
 726                 path = "wmaker";
 727         {
 728                 char *command;
 729
 730                 command = wstrconcat(path, " --version");
 731                 file = popen(command, "r");
 732                 wfree(command);
 733         }
 734         if (!file || !fgets(buffer, 1023, file)) {
 735                 werror(_("could not extract version information from Window Maker"));
 736                 wfatal(_("Make sure wmaker is in your search path."));
 737
 738                 WMRunAlertPanel(scr, mainw, _("Error"),
 739                                 _
 740                                 ("Could not extract version from Window Maker. Make sure it is correctly installed and is in your PATH environment variable."),
 741                                 _("OK"), NULL, NULL);
 742                 exit(1);
 743         }
 744         if (file)
 745                 pclose(file);
 746
 747         if (sscanf(buffer, "Window Maker %i.%i.%i", &v1, &v2, &v3) != 3
 748             && sscanf(buffer, "WindowMaker %i.%i.%i", &v1, &v2, &v3) != 3) {
 749                 WMRunAlertPanel(scr, mainw, _("Error"),
 750                                 _("Could not extract version from Window Maker. "
 751                                   "Make sure it is correctly installed and the path "
 752                                   "where it installed is in the PATH environment "
 753                                   "variable."), _("OK"), NULL, NULL);
 754                 exit(1);
 755         }
 756         if (v1 == 0 && (v2 < 18 || v3 < 0)) {
 757                 sprintf(mbuf, _("WPrefs only supports Window Maker 0.18.0 or newer.\n"
 758                                 "The version installed is %i.%i.%i\n"), v1, v2, v3);
 759                 WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 760                 exit(1);
 761
 762         }
 763         if (v1 > 1 || (v1 == 1 && (v2 > 0))) {
 764                 sprintf(mbuf,
 765                         _
 766                         ("Window Maker %i.%i.%i, which is installed in your system, is not fully supported by this version of WPrefs."),
 767                         v1, v2, v3);
 768                 WMRunAlertPanel(scr, mainw, _("Warning"), mbuf, _("OK"), NULL, NULL);
 769         }
 770
 771         {
 772                 char *command;
 773
 774                 command = wstrconcat(path, " --global_defaults_path");
 775                 file = popen(command, "r");
 776                 wfree(command);
 777         }
 778         if (!file || !fgets(buffer, 1023, file)) {
 779                 werror(_("could not run \"%s --global_defaults_path\"."), path);
 780                 exit(1);
 781         } else {
 782                 char *ptr;
 783                 ptr = strchr(buffer, '\n');
 784                 if (ptr)
 785                         *ptr = 0;
 786                 strcat(buffer, "/WindowMaker");
 787         }
 788
 789         if (file)
 790                 pclose(file);
 791
 792         gdb = WMReadPropListFromFile(buffer);
 793
 794         if (gdb) {
 795                 if (!WMIsPLDictionary(gdb)) {
 796                         WMReleasePropList(gdb);
 797                         gdb = NULL;
 798                         sprintf(mbuf, _("Window Maker domain (%s) is corrupted!"), buffer);
 799                         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 800                 }
 801         } else {
 802                 sprintf(mbuf, _("Could not load global Window Maker domain (%s)."), buffer);
 803                 WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 804         }
 805
 806         if (!db) {
 807                 db = WMCreatePLDictionary(NULL, NULL);
 808         }
 809         if (!gdb) {
 810                 gdb = WMCreatePLDictionary(NULL, NULL);
 811         }
 812
 813         GlobalDB = gdb;
 814
 815         WindowMakerDB = db;
 816 }
 817
 818 WMPropList *GetObjectForKey(char *defaultName)
 819 {
 820         WMPropList *object = NULL;
 821         WMPropList *key = WMCreatePLString(defaultName);
 822
 823         object = WMGetFromPLDictionary(WindowMakerDB, key);
 824         if (!object)
 825                 object = WMGetFromPLDictionary(GlobalDB, key);
 826
 827         WMReleasePropList(key);
 828
 829         return object;
 830 }
 831
 832 void SetObjectForKey(WMPropList * object, char *defaultName)
 833 {
 834         WMPropList *key = WMCreatePLString(defaultName);
 835
 836         WMPutInPLDictionary(WindowMakerDB, key, object);
 837         WMReleasePropList(key);
 838 }
 839
 840 void RemoveObjectForKey(char *defaultName)
 841 {
 842         WMPropList *key = WMCreatePLString(defaultName);
 843
 844         WMRemoveFromPLDictionary(WindowMakerDB, key);
 845
 846         WMReleasePropList(key);
 847 }
 848
 849 char *GetStringForKey(char *defaultName)
 850 {
 851         WMPropList *val;
 852
 853         val = GetObjectForKey(defaultName);
 854
 855         if (!val)
 856                 return NULL;
 857
 858         if (!WMIsPLString(val))
 859                 return NULL;
 860
 861         return WMGetFromPLString(val);
 862 }
 863
 864 WMPropList *GetArrayForKey(char *defaultName)
 865 {
 866         WMPropList *val;
 867
 868         val = GetObjectForKey(defaultName);
 869
 870         if (!val)
 871                 return NULL;
 872
 873         if (!WMIsPLArray(val))
 874                 return NULL;
 875
 876         return val;
 877 }
 878
 879 WMPropList *GetDictionaryForKey(char *defaultName)
 880 {
 881         WMPropList *val;
 882
 883         val = GetObjectForKey(defaultName);
 884
 885         if (!val)
 886                 return NULL;
 887
 888         if (!WMIsPLDictionary(val))
 889                 return NULL;
 890
 891         return val;
 892 }
 893
 894 int GetIntegerForKey(char *defaultName)
 895 {
 896         WMPropList *val;
 897         char *str;
 898         int value;
 899
 900         val = GetObjectForKey(defaultName);
 901
 902         if (!val)
 903                 return 0;
 904
 905         if (!WMIsPLString(val))
 906                 return 0;
 907
 908         str = WMGetFromPLString(val);
 909         if (!str)
 910                 return 0;
 911
 912         if (sscanf(str, "%i", &value) != 1)
 913                 return 0;
 914
 915         return value;
 916 }
 917
 918 Bool GetBoolForKey(char *defaultName)
 919 {
 920         int value;
 921         char *str;
 922
 923         str = GetStringForKey(defaultName);
 924
 925         if (!str)
 926                 return False;
 927
 928         if (sscanf(str, "%i", &value) == 1 && value != 0)
 929                 return True;
 930
 931         if (strcasecmp(str, "YES") == 0)
 932                 return True;
 933
 934         if (strcasecmp(str, "Y") == 0)
 935                 return True;
 936
 937         return False;
 938 }
 939
 940 void SetIntegerForKey(int value, char *defaultName)
 941 {
 942         WMPropList *object;
 943         char buffer[128];
 944
 945         sprintf(buffer, "%i", value);
 946         object = WMCreatePLString(buffer);
 947
 948         SetObjectForKey(object, defaultName);
 949         WMReleasePropList(object);
 950 }
 951
 952 void SetStringForKey(char *value, char *defaultName)
 953 {
 954         WMPropList *object;
 955
 956         object = WMCreatePLString(value);
 957
 958         SetObjectForKey(object, defaultName);
 959         WMReleasePropList(object);
 960 }
 961
 962 void SetBoolForKey(Bool value, char *defaultName)
 963 {
 964         static WMPropList *yes = NULL, *no = NULL;
 965
 966         if (!yes) {
 967                 yes = WMCreatePLString("YES");
 968                 no = WMCreatePLString("NO");
 969         }
 970
 971         SetObjectForKey(value ? yes : no, defaultName);
 972 }
 973
 974 void SetSpeedForKey(int speed, char *defaultName)
 975 {
 976         char *str;
 977
 978         switch (speed) {
 979         case 0:
 980                 str = "ultraslow";
 981                 break;
 982         case 1:
 983                 str = "slow";
 984                 break;
 985         case 2:
 986                 str = "medium";
 987                 break;
 988         case 3:
 989                 str = "fast";
 990                 break;
 991         case 4:
 992                 str = "ultrafast";
 993                 break;
 994         default:
 995                 str = NULL;
 996         }
 997
 998         if (str)
 999                 SetStringForKey(str, defaultName);
1000 }
1001
1002 int GetSpeedForKey(char *defaultName)
1003 {
1004         char *str;
1005         int i;
1006
1007         str = GetStringForKey(defaultName);
1008         if (!str)
1009                 return 2;
1010
1011         if (strcasecmp(str, "ultraslow") == 0)
1012                 i = 0;
1013         else if (strcasecmp(str, "slow") == 0)
1014                 i = 1;
1015         else if (strcasecmp(str, "medium") == 0)
1016                 i = 2;
1017         else if (strcasecmp(str, "fast") == 0)
1018                 i = 3;
1019         else if (strcasecmp(str, "ultrafast") == 0)
1020                 i = 4;
1021         else {
1022                 wwarning(_("bad speed value for option %s; using default Medium"), defaultName);
1023                 i = 2;
1024         }
1025         return i;
1026 }