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