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