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
 522     InitAppearance(scr, WPrefs.win);
 523 #ifdef not_yet_fully_implemented
 524
 525     InitText(scr, WPrefs.win);
 526     InitThemes(scr, WPrefs.win);
 527 #endif
 528     InitExpert(scr, WPrefs.win);
 529
 530     WMRealizeWidget(WPrefs.scrollV);
 531
 532     WMSetLabelText(WPrefs.statusL,
 533                    _("WPrefs is free software and is distributed WITHOUT ANY\n"
 534                    "WARRANTY under the terms of the GNU General Public License.\n"
 535                    "The icons in this program are licensed through the\n"
 536                    "OpenContent License."));
 537 }
 538
 539
 540 WMWindow*
 541 GetWindow(Panel *panel)
 542 {
 543     return WPrefs.win;
 544 }
 545
 546
 547 static void
 548 loadConfigurations(WMScreen *scr, WMWindow *mainw)
 549 {
 550     proplist_t db, gdb;
 551     char *path;
 552     FILE *file;
 553     char buffer[1024];
 554     char mbuf[1024];
 555     int v1, v2, v3;
 556
 557     path = wdefaultspathfordomain("WindowMaker");
 558
 559     db = PLGetProplistWithPath(path);
 560     if (db) {
 561         if (!PLIsDictionary(db)) {
 562             PLRelease(db);
 563             db = NULL;
 564             sprintf(mbuf, _("Window Maker domain (%s) is corrupted!"), path);
 565             WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 566         }
 567     } else {
 568         sprintf(mbuf, _("Could not load Window Maker domain (%s) from defaults database."),
 569                 path);
 570         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 571     }
 572     free(path);
 573
 574     file = popen("wmaker --version", "r");
 575     if (!file || !fgets(buffer, 1023, file)) {
 576         wsyserror(_("could not extract version information from Window Maker"));
 577         wfatal(_("Make sure wmaker is in your search path."));
 578
 579         WMRunAlertPanel(scr, mainw, _("Error"),
 580                         _("Could not extract version from Window Maker. Make sure it is correctly installed and is in your PATH environment variable."),
 581                         _("OK"), NULL, NULL);
 582         exit(1);
 583     }
 584     if (file)
 585         pclose(file);
 586
 587     if (sscanf(buffer, "Window Maker %i.%i.%i",&v1,&v2,&v3)!=3
 588         && sscanf(buffer, "WindowMaker %i.%i.%i",&v1,&v2,&v3)!=3) {
 589         WMRunAlertPanel(scr, mainw, _("Error"),
 590                         _("Could not extract version from Window Maker. "
 591                           "Make sure it is correctly installed and the path "
 592                           "where it installed is in the PATH environment "
 593                           "variable."), _("OK"), NULL, NULL);
 594         exit(1);
 595     }
 596     if (v1 == 0 && (v2 < 18 || v3 < 0)) {
 597         sprintf(mbuf, _("WPrefs only supports Window Maker 0.18.0 or newer.\n"
 598                 "The version installed is %i.%i.%i\n"), v1, v2, v3);
 599         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 600         exit(1);
 601
 602     }
 603     if (v1 > 1 || (v1 == 1 && (v2 > 0))) {
 604         sprintf(mbuf, _("Window Maker %i.%i.%i, which is installed in your system, is not fully supported by this version of WPrefs."),
 605                 v1, v2, v3);
 606         WMRunAlertPanel(scr, mainw, _("Warning"), mbuf, _("OK"), NULL, NULL);
 607     }
 608
 609     file = popen("wmaker --global_defaults_path", "r");
 610     if (!file || !fgets(buffer, 1023, file)) {
 611         wsyserror(_("could not run \"wmaker --global_defaults_path\"."));
 612         exit(1);
 613     } else {
 614         char *ptr;
 615         ptr = strchr(buffer, '\n');
 616         if (ptr)
 617             *ptr = 0;
 618         strcat(buffer, "/WindowMaker");
 619     }
 620
 621     if (file)
 622         pclose(file);
 623
 624     gdb = PLGetProplistWithPath(buffer);
 625     if (gdb) {
 626         if (!PLIsDictionary(gdb)) {
 627             PLRelease(gdb);
 628             gdb = NULL;
 629             sprintf(mbuf, _("Window Maker domain (%s) is corrupted!"), buffer);
 630             WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 631         }
 632     } else {
 633         sprintf(mbuf, _("Could not load global Window Maker domain (%s)."),
 634                 buffer);
 635         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 636     }
 637
 638     if (!db) {
 639         db = PLMakeDictionaryFromEntries(NULL, NULL, NULL);
 640     }
 641     if (!gdb) {
 642         gdb = PLMakeDictionaryFromEntries(NULL, NULL, NULL);
 643     }
 644
 645     GlobalDB = gdb;
 646
 647     WindowMakerDB = db;
 648 }
 649
 650
 651 proplist_t
 652 GetObjectForKey(char *defaultName)
 653 {
 654     proplist_t object = NULL;
 655     proplist_t key = PLMakeString(defaultName);
 656
 657     object = PLGetDictionaryEntry(WindowMakerDB, key);
 658     if (!object)
 659         object = PLGetDictionaryEntry(GlobalDB, key);
 660
 661     PLRelease(key);
 662
 663     return object;
 664 }
 665
 666
 667 void
 668 SetObjectForKey(proplist_t object, char *defaultName)
 669 {
 670     proplist_t key = PLMakeString(defaultName);
 671
 672     PLInsertDictionaryEntry(WindowMakerDB, key, object);
 673     PLRelease(key);
 674 }
 675
 676
 677 void
 678 RemoveObjectForKey(char *defaultName)
 679 {
 680     proplist_t key = PLMakeString(defaultName);
 681
 682     PLRemoveDictionaryEntry(WindowMakerDB, key);
 683
 684     PLRelease(key);
 685 }
 686
 687
 688 char*
 689 GetStringForKey(char *defaultName)
 690 {
 691     proplist_t val;
 692
 693     val = GetObjectForKey(defaultName);
 694
 695     if (!val)
 696         return NULL;
 697
 698     if (!PLIsString(val))
 699         return NULL;
 700
 701     return PLGetString(val);
 702 }
 703
 704
 705
 706 proplist_t
 707 GetArrayForKey(char *defaultName)
 708 {
 709     proplist_t val;
 710
 711     val = GetObjectForKey(defaultName);
 712
 713     if (!val)
 714         return NULL;
 715
 716     if (!PLIsArray(val))
 717         return NULL;
 718
 719     return val;
 720 }
 721
 722
 723 proplist_t
 724 GetDictionaryForKey(char *defaultName)
 725 {
 726     proplist_t val;
 727
 728     val = GetObjectForKey(defaultName);
 729
 730     if (!val)
 731         return NULL;
 732
 733     if (!PLIsDictionary(val))
 734         return NULL;
 735
 736     return val;
 737 }
 738
 739
 740 int
 741 GetIntegerForKey(char *defaultName)
 742 {
 743     proplist_t val;
 744     char *str;
 745     int value;
 746
 747     val = GetObjectForKey(defaultName);
 748
 749     if (!val)
 750         return 0;
 751
 752     if (!PLIsString(val))
 753         return 0;
 754
 755     str = PLGetString(val);
 756     if (!str)
 757         return 0;
 758
 759     if (sscanf(str, "%i", &value)!=1)
 760         return 0;
 761
 762     return value;
 763 }
 764
 765
 766 Bool
 767 GetBoolForKey(char *defaultName)
 768 {
 769     int value;
 770     char *str;
 771
 772     str = GetStringForKey(defaultName);
 773
 774     if (!str)
 775         return False;
 776
 777     if (sscanf(str, "%i", &value)==1 && value!=0)
 778         return True;
 779
 780     if (strcasecmp(str, "YES")==0)
 781         return True;
 782
 783     if (strcasecmp(str, "Y")==0)
 784         return True;
 785
 786     return False;
 787 }
 788
 789
 790 void
 791 SetIntegerForKey(int value, char *defaultName)
 792 {
 793     proplist_t object;
 794     char buffer[128];
 795
 796     sprintf(buffer, "%i", value);
 797     object = PLMakeString(buffer);
 798
 799     SetObjectForKey(object, defaultName);
 800     PLRelease(object);
 801 }
 802
 803
 804
 805 void
 806 SetStringForKey(char *value, char *defaultName)
 807 {
 808     proplist_t object;
 809
 810     object = PLMakeString(value);
 811
 812     SetObjectForKey(object, defaultName);
 813     PLRelease(object);
 814 }
 815
 816
 817 void
 818 SetBoolForKey(Bool value, char *defaultName)
 819 {
 820     static proplist_t yes = NULL, no = NULL;
 821
 822     if (!yes) {
 823         yes = PLMakeString("YES");
 824         no = PLMakeString("NO");
 825     }
 826
 827     SetObjectForKey(value ? yes : no, defaultName);
 828 }
 829
 830
 831 void
 832 SetSpeedForKey(int speed, char *defaultName)
 833 {
 834     char *str;
 835
 836     switch (speed) {
 837      case 0:
 838         str = "ultraslow";
 839         break;
 840      case 1:
 841         str = "slow";
 842         break;
 843      case 2:
 844         str = "medium";
 845         break;
 846      case 3:
 847         str = "fast";
 848         break;
 849      case 4:
 850         str = "ultrafast";
 851         break;
 852      default:
 853         str = NULL;
 854     }
 855
 856     if (str)
 857         SetStringForKey(str, defaultName);
 858 }
 859
 860
 861 int
 862 GetSpeedForKey(char *defaultName)
 863 {
 864     char *str;
 865     int i;
 866
 867     str = GetStringForKey(defaultName);
 868     if (!str)
 869         return 2;
 870
 871     if (strcasecmp(str, "ultraslow")==0)
 872         i = 0;
 873     else if (strcasecmp(str, "slow")==0)
 874         i = 1;
 875     else if (strcasecmp(str, "medium")==0)
 876         i = 2;
 877     else if (strcasecmp(str, "fast")==0)
 878         i = 3;
 879     else if (strcasecmp(str, "ultrafast")==0)
 880         i = 4;
 881     else {
 882         wwarning(_("bad speed value for option %s\n. Using default Medium"),
 883                  defaultName);
 884         i = 2;
 885     }
 886     return i;
 887 }
 888
 889