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