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