WPrefs.app/WPrefs.c

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