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