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