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 serif:pixelsize=9"
  65 #define ICON_TITLE_VFONT "sans serif: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
 266     WPrefs.scrollV = WMCreateScrollView(WPrefs.win);
 267     WMResizeWidget(WPrefs.scrollV, 500, 87);
 268     WMMoveWidget(WPrefs.scrollV, 10, 10);
 269     WMSetScrollViewRelief(WPrefs.scrollV, WRSunken);
 270     WMSetScrollViewHasHorizontalScroller(WPrefs.scrollV, True);
 271     WMSetScrollViewHasVerticalScroller(WPrefs.scrollV, False);
 272     scroller = WMGetScrollViewHorizontalScroller(WPrefs.scrollV);
 273     WMSetScrollerArrowsPosition(scroller, WSANone);
 274
 275     WPrefs.buttonF = WMCreateFrame(WPrefs.win);
 276     WMSetFrameRelief(WPrefs.buttonF, WRFlat);
 277
 278     WMSetScrollViewContentView(WPrefs.scrollV, WMWidgetView(WPrefs.buttonF));
 279
 280     WPrefs.undosBtn = WMCreateCommandButton(WPrefs.win);
 281     WMResizeWidget(WPrefs.undosBtn, 90, 28);
 282     WMMoveWidget(WPrefs.undosBtn, 135, 350);
 283     WMSetButtonText(WPrefs.undosBtn, _("Revert Page"));
 284     WMSetButtonAction(WPrefs.undosBtn, undo, NULL);
 285
 286     WPrefs.undoBtn = WMCreateCommandButton(WPrefs.win);
 287     WMResizeWidget(WPrefs.undoBtn, 90, 28);
 288     WMMoveWidget(WPrefs.undoBtn, 235, 350);
 289     WMSetButtonText(WPrefs.undoBtn, _("Revert All"));
 290     WMSetButtonAction(WPrefs.undoBtn, undoAll, NULL);
 291
 292     WPrefs.saveBtn = WMCreateCommandButton(WPrefs.win);
 293     WMResizeWidget(WPrefs.saveBtn, 80, 28);
 294     WMMoveWidget(WPrefs.saveBtn, 335, 350);
 295     WMSetButtonText(WPrefs.saveBtn, _("Save"));
 296     WMSetButtonAction(WPrefs.saveBtn, save, NULL);
 297
 298     WPrefs.closeBtn = WMCreateCommandButton(WPrefs.win);
 299     WMResizeWidget(WPrefs.closeBtn, 80, 28);
 300     WMMoveWidget(WPrefs.closeBtn, 425, 350);
 301     WMSetButtonText(WPrefs.closeBtn, _("Close"));
 302     WMSetButtonAction(WPrefs.closeBtn, quit, NULL);
 303
 304
 305     WPrefs.balloonBtn = WMCreateSwitchButton(WPrefs.win);
 306     WMResizeWidget(WPrefs.balloonBtn, 200, 28);
 307     WMMoveWidget(WPrefs.balloonBtn, 15, 350);
 308     WMSetButtonText(WPrefs.balloonBtn, _("Balloon Help"));
 309     WMSetButtonAction(WPrefs.balloonBtn, toggleBalloons, NULL);
 310     {
 311         WMUserDefaults *udb = WMGetStandardUserDefaults();
 312         Bool flag = WMGetUDBoolForKey(udb, "BalloonHelp");
 313
 314         WMSetButtonSelected(WPrefs.balloonBtn, flag);
 315         WMSetBalloonEnabled(scr, flag);
 316     }
 317
 318     /* banner */
 319     WPrefs.banner = WMCreateFrame(WPrefs.win);
 320     WMResizeWidget(WPrefs.banner, FRAME_WIDTH, FRAME_HEIGHT);
 321     WMMoveWidget(WPrefs.banner, FRAME_LEFT, FRAME_TOP);
 322     WMSetFrameRelief(WPrefs.banner, WRFlat);
 323
 324     font = WMCreateFont(scr, "Lucida Sans,URW Gothic L,Times New Roman,serif"
 325                         ":bold:pixelsize=26:antialias=true");
 326     WPrefs.nameL = WMCreateLabel(WPrefs.banner);
 327     WMSetLabelTextAlignment(WPrefs.nameL, WACenter);
 328     WMResizeWidget(WPrefs.nameL, FRAME_WIDTH-20, 60);
 329     WMMoveWidget(WPrefs.nameL, 10, 50);
 330     WMSetLabelFont(WPrefs.nameL, font);
 331     WMSetLabelText(WPrefs.nameL, _("Window Maker Preferences"));
 332     WMReleaseFont(font);
 333
 334     WPrefs.versionL = WMCreateLabel(WPrefs.banner);
 335     WMResizeWidget(WPrefs.versionL, FRAME_WIDTH-20, 20);
 336     WMMoveWidget(WPrefs.versionL, 10, 120);
 337     WMSetLabelTextAlignment(WPrefs.versionL, WACenter);
 338     sprintf(buffer, _("Version %s"), VERSION);
 339     WMSetLabelText(WPrefs.versionL, buffer);
 340
 341     WPrefs.statusL = WMCreateLabel(WPrefs.banner);
 342     WMResizeWidget(WPrefs.statusL, FRAME_WIDTH-20, 60);
 343     WMMoveWidget(WPrefs.statusL, 10, 150);
 344     WMSetLabelTextAlignment(WPrefs.statusL, WACenter);
 345     WMSetLabelText(WPrefs.statusL, _("Starting..."));
 346
 347
 348
 349     WMMapSubwidgets(WPrefs.win);
 350
 351     WMUnmapWidget(WPrefs.undosBtn);
 352     WMUnmapWidget(WPrefs.undoBtn);
 353     WMUnmapWidget(WPrefs.saveBtn);
 354 }
 355
 356
 357 static void
 358 showPanel(Panel *panel)
 359 {
 360     PanelRec *rec = (PanelRec*)panel;
 361
 362     if (!(rec->callbacks.flags & INITIALIZED_PANEL)) {
 363         (*rec->callbacks.createWidgets)(panel);
 364         rec->callbacks.flags |= INITIALIZED_PANEL;
 365     }
 366
 367     WMSetWindowTitle(WPrefs.win, rec->sectionName);
 368
 369     if (rec->callbacks.showPanel)
 370         (*rec->callbacks.showPanel)(panel);
 371
 372     WMMapWidget(rec->box);
 373 }
 374
 375
 376
 377 static void
 378 hidePanel(Panel *panel)
 379 {
 380     PanelRec *rec = (PanelRec*)panel;
 381
 382     WMUnmapWidget(rec->box);
 383
 384     if (rec->callbacks.hidePanel)
 385         (*rec->callbacks.hidePanel)(panel);
 386 }
 387
 388
 389 static void
 390 savePanelData(Panel *panel)
 391 {
 392     PanelRec *rec = (PanelRec*)panel;
 393
 394     if (rec->callbacks.updateDomain) {
 395         (*rec->callbacks.updateDomain)(panel);
 396     }
 397 }
 398
 399
 400 static void
 401 changeSection(WMWidget *self, void *data)
 402 {
 403     if (WPrefs.currentPanel == data)
 404         return;
 405
 406     if (WPrefs.currentPanel == NULL) {
 407         WMDestroyWidget(WPrefs.nameL);
 408         WMDestroyWidget(WPrefs.versionL);
 409         WMDestroyWidget(WPrefs.statusL);
 410
 411         WMSetFrameRelief(WPrefs.banner, WRGroove);
 412
 413         /*      WMMapWidget(WPrefs.undosBtn);
 414          WMMapWidget(WPrefs.undoBtn);
 415          */
 416         WMMapWidget(WPrefs.saveBtn);
 417     }
 418
 419     showPanel(data);
 420
 421     if (WPrefs.currentPanel)
 422         hidePanel(WPrefs.currentPanel);
 423     WPrefs.currentPanel = data;
 424 }
 425
 426
 427
 428 char*
 429 LocateImage(char *name)
 430 {
 431     char *path;
 432     char *tmp = wmalloc(strlen(name)+8);
 433
 434     if (TIFFOK) {
 435         sprintf(tmp, "%s.tiff", name);
 436         path = WMPathForResourceOfType(tmp, "tiff");
 437     } else {
 438         sprintf(tmp, "%s.xpm", name);
 439         path = WMPathForResourceOfType(tmp, "xpm");
 440     }
 441     wfree(tmp);
 442     if (!path) {
 443         wwarning(_("could not locate image file %s\n"), name);
 444     }
 445
 446     return path;
 447 }
 448
 449
 450
 451 static WMPixmap*
 452 makeTitledIcon(WMScreen *scr, WMPixmap *icon, char *title1, char *title2)
 453 {
 454     return WMRetainPixmap(icon);
 455
 456 #if 0
 457     static GC gc = NULL;
 458     static XFontStruct *hfont = NULL;
 459     static XFontStruct *vfont = NULL;
 460     WMPixmap *tmp;
 461     Pixmap pix, mask;
 462     Display *dpy = WMScreenDisplay(scr);
 463     WMColor *black = WMBlackColor(scr);
 464     GC fgc;
 465     WMSize size = WMGetPixmapSize(icon);
 466
 467
 468     tmp = WMCreatePixmap(scr, 60, 60, WMScreenDepth(scr), True);
 469
 470     pix = WMGetPixmapXID(tmp);
 471     mask = WMGetPixmapMaskXID(tmp);
 472
 473     if (gc == NULL) {
 474         gc = XCreateGC(dpy, mask, 0, NULL);
 475
 476         hfont = XLoadQueryFont(dpy, ICON_TITLE_FONT);
 477         vfont = XLoadQueryFont(dpy, ICON_TITLE_VFONT);
 478     }
 479
 480     if (hfont == NULL) {
 481         return WMRetainPixmap(icon);
 482     }
 483
 484     XSetForeground(dpy, gc, 0);
 485     XFillRectangle(dpy, mask, gc, 0, 0, 60, 60);
 486
 487     fgc = WMColorGC(black);
 488
 489     XSetForeground(dpy, gc, 1);
 490
 491     XCopyArea(dpy, WMGetPixmapXID(icon), pix, fgc, 0, 0,
 492               size.width, size.height, 12, 12);
 493
 494     if (WMGetPixmapMaskXID(icon) != None)
 495         XCopyPlane(dpy, WMGetPixmapMaskXID(icon), mask, gc, 0, 0,
 496                    size.width, size.height, 12, 12, 1);
 497     else
 498         XFillRectangle(dpy, mask, gc, 12, 12, 48, 48);
 499
 500
 501     if (title1) {
 502         XSetFont(dpy, fgc, vfont->fid);
 503         XSetFont(dpy, gc, vfont->fid);
 504
 505         XDrawString(dpy, pix, fgc, 0, vfont->ascent,
 506                     title1, strlen(title1));
 507
 508         XDrawString(dpy, mask, gc, 0, vfont->ascent,
 509                     title1, strlen(title1));
 510     }
 511
 512     if (title2) {
 513         XSetFont(dpy, fgc, hfont->fid);
 514         XSetFont(dpy, gc, hfont->fid);
 515
 516         XDrawString(dpy, pix, fgc, (title1 ? 12 : 0), hfont->ascent,
 517                     title2, strlen(title2));
 518
 519         XDrawString(dpy, mask, gc, (title1 ? 12 : 0), hfont->ascent,
 520                     title2, strlen(title2));
 521     }
 522
 523     return tmp;
 524 #endif
 525 }
 526
 527
 528 void
 529 SetButtonAlphaImage(WMScreen *scr, WMButton *bPtr, char *file,
 530                     char *title1, char *title2)
 531 {
 532     WMPixmap *icon;
 533     WMPixmap *icon2;
 534     RColor color;
 535     char *iconPath;
 536
 537     iconPath = LocateImage(file);
 538
 539     color.red = 0xae;
 540     color.green = 0xaa;
 541     color.blue = 0xae;
 542     color.alpha = 0;
 543     if (iconPath) {
 544         icon = WMCreateBlendedPixmapFromFile(scr, iconPath, &color);
 545         if (!icon)
 546             wwarning(_("could not load icon file %s"), iconPath);
 547     } else {
 548         icon = NULL;
 549     }
 550
 551     if (icon) {
 552         icon2 = makeTitledIcon(scr, icon, title1, title2);
 553         if (icon)
 554             WMReleasePixmap(icon);
 555     } else {
 556         icon2 = NULL;
 557     }
 558
 559     WMSetButtonImage(bPtr, icon2);
 560
 561     if (icon2)
 562         WMReleasePixmap(icon2);
 563
 564     color.red = 0xff;
 565     color.green = 0xff;
 566     color.blue = 0xff;
 567     color.alpha = 0;
 568     if (iconPath) {
 569         icon = WMCreateBlendedPixmapFromFile(scr, iconPath, &color);
 570         if (!icon)
 571             wwarning(_("could not load icon file %s"), iconPath);
 572     } else {
 573         icon = NULL;
 574     }
 575
 576     WMSetButtonAltImage(bPtr, icon);
 577
 578     if (icon)
 579         WMReleasePixmap(icon);
 580
 581     if (iconPath)
 582         wfree(iconPath);
 583 }
 584
 585
 586 void
 587 AddSection(Panel *panel, char *iconFile)
 588 {
 589     WMButton *bPtr;
 590
 591     assert(WPrefs.sectionCount < MAX_SECTIONS);
 592
 593
 594     bPtr = WMCreateCustomButton(WPrefs.buttonF, WBBStateLightMask
 595                                 |WBBStateChangeMask);
 596     WMResizeWidget(bPtr, 64, 64);
 597     WMMoveWidget(bPtr, WPrefs.sectionCount*64, 0);
 598     WMSetButtonImagePosition(bPtr, WIPImageOnly);
 599     WMSetButtonAction(bPtr, changeSection, panel);
 600     WMHangData(bPtr, panel);
 601
 602     WMSetBalloonTextForView(((PanelRec*)panel)->description,
 603                             WMWidgetView(bPtr));
 604
 605     {
 606         char *t1, *t2;
 607
 608         t1 = wstrdup(((PanelRec*)panel)->sectionName);
 609         t2 = strchr(t1, ' ');
 610         if (t2) {
 611             *t2 = 0;
 612             t2++;
 613         }
 614         SetButtonAlphaImage(WMWidgetScreen(bPtr), bPtr, iconFile,
 615                             t1, t2);
 616         wfree(t1);
 617     }
 618     WMMapWidget(bPtr);
 619
 620     WPrefs.sectionB[WPrefs.sectionCount] = bPtr;
 621
 622     if (WPrefs.sectionCount > 0) {
 623         WMGroupButtons(WPrefs.sectionB[0], bPtr);
 624     }
 625
 626     WPrefs.sectionCount++;
 627
 628     WMResizeWidget(WPrefs.buttonF, WPrefs.sectionCount*64, 64);
 629 }
 630
 631
 632 void
 633 Initialize(WMScreen *scr)
 634 {
 635     char **list;
 636     int i;
 637     char *path;
 638
 639     list = RSupportedFileFormats();
 640     for (i=0; list[i]!=NULL; i++) {
 641         if (strcmp(list[i], "TIFF")==0) {
 642             TIFFOK = True;
 643             break;
 644         }
 645     }
 646
 647     if (TIFFOK)
 648         path = WMPathForResourceOfType("WPrefs.tiff", NULL);
 649     else
 650         path = WMPathForResourceOfType("WPrefs.xpm", NULL);
 651     if (path) {
 652         RImage *tmp;
 653
 654         tmp = RLoadImage(WMScreenRContext(scr), path, 0);
 655         if (!tmp) {
 656             wwarning(_("could not load image file %s:%s"), path,
 657                      RMessageForError(RErrorCode));
 658         } else {
 659             WMSetApplicationIconImage(scr, tmp);
 660             RReleaseImage(tmp);
 661         }
 662         wfree(path);
 663     }
 664
 665     memset(&WPrefs, 0, sizeof(_WPrefs));
 666     createMainWindow(scr);
 667
 668     WMRealizeWidget(WPrefs.win);
 669
 670     WMSetWindowMiniwindowImage(WPrefs.win, WMGetApplicationIconImage(scr));
 671
 672     WMMapWidget(WPrefs.win);
 673     XFlush(WMScreenDisplay(scr));
 674     WMSetLabelText(WPrefs.statusL, _("Loading Window Maker configuration files..."));
 675     XFlush(WMScreenDisplay(scr));
 676     loadConfigurations(scr, WPrefs.win);
 677
 678     WMSetLabelText(WPrefs.statusL, _("Initializing configuration panels..."));
 679
 680     InitFocus(scr, WPrefs.banner);
 681     InitWindowHandling(scr, WPrefs.banner);
 682
 683     InitMenuPreferences(scr, WPrefs.banner);
 684     InitIcons(scr, WPrefs.banner);
 685     InitPreferences(scr, WPrefs.banner);
 686
 687     InitPaths(scr, WPrefs.banner);
 688     InitWorkspace(scr, WPrefs.banner);
 689     InitConfigurations(scr, WPrefs.banner);
 690
 691     InitMenu(scr, WPrefs.banner);
 692
 693 #ifdef not_yet_fully_implemented
 694     InitKeyboardSettings(scr, WPrefs.banner);
 695 #endif
 696     InitKeyboardShortcuts(scr, WPrefs.banner);
 697     InitMouseSettings(scr, WPrefs.banner);
 698
 699     InitAppearance(scr, WPrefs.banner);
 700
 701     InitFontSimple(scr, WPrefs.banner);
 702
 703 #ifdef not_yet_fully_implemented
 704     InitThemes(scr, WPrefs.banner);
 705 #endif
 706     InitExpert(scr, WPrefs.banner);
 707
 708     WMRealizeWidget(WPrefs.scrollV);
 709
 710     WMSetLabelText(WPrefs.statusL, "");
 711 }
 712
 713
 714 WMWindow*
 715 GetWindow(Panel *panel)
 716 {
 717     return WPrefs.win;
 718 }
 719
 720
 721 static void
 722 loadConfigurations(WMScreen *scr, WMWindow *mainw)
 723 {
 724     WMPropList *db, *gdb;
 725     char *path;
 726     FILE *file;
 727     char buffer[1024];
 728     char mbuf[1024];
 729     int v1, v2, v3;
 730
 731     path = wdefaultspathfordomain("WindowMaker");
 732     WindowMakerDBPath = path;
 733
 734     db = WMReadPropListFromFile(path);
 735     if (db) {
 736         if (!WMIsPLDictionary(db)) {
 737             WMReleasePropList(db);
 738             db = NULL;
 739             sprintf(mbuf, _("Window Maker domain (%s) is corrupted!"), path);
 740             WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 741         }
 742     } else {
 743         sprintf(mbuf, _("Could not load Window Maker domain (%s) from defaults database."),
 744                 path);
 745         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 746     }
 747
 748     path = getenv("WMAKER_BIN_NAME");
 749     if (!path)
 750         path = "wmaker";
 751     {
 752         char *command;
 753
 754         command = wstrconcat(path, " --version");
 755         file = popen(command, "r");
 756         wfree(command);
 757     }
 758     if (!file || !fgets(buffer, 1023, file)) {
 759         wsyserror(_("could not extract version information from Window Maker"));
 760         wfatal(_("Make sure wmaker is in your search path."));
 761
 762         WMRunAlertPanel(scr, mainw, _("Error"),
 763                         _("Could not extract version from Window Maker. Make sure it is correctly installed and is in your PATH environment variable."),
 764                         _("OK"), NULL, NULL);
 765         exit(1);
 766     }
 767     if (file)
 768         pclose(file);
 769
 770     if (sscanf(buffer, "Window Maker %i.%i.%i",&v1,&v2,&v3)!=3
 771         && sscanf(buffer, "WindowMaker %i.%i.%i",&v1,&v2,&v3)!=3) {
 772         WMRunAlertPanel(scr, mainw, _("Error"),
 773                         _("Could not extract version from Window Maker. "
 774                           "Make sure it is correctly installed and the path "
 775                           "where it installed is in the PATH environment "
 776                           "variable."), _("OK"), NULL, NULL);
 777         exit(1);
 778     }
 779     if (v1 == 0 && (v2 < 18 || v3 < 0)) {
 780         sprintf(mbuf, _("WPrefs only supports Window Maker 0.18.0 or newer.\n"
 781                         "The version installed is %i.%i.%i\n"), v1, v2, v3);
 782         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 783         exit(1);
 784
 785     }
 786     if (v1 > 1 || (v1 == 1 && (v2 > 0))) {
 787         sprintf(mbuf, _("Window Maker %i.%i.%i, which is installed in your system, is not fully supported by this version of WPrefs."),
 788                 v1, v2, v3);
 789         WMRunAlertPanel(scr, mainw, _("Warning"), mbuf, _("OK"), NULL, NULL);
 790     }
 791
 792     {
 793         char *command;
 794
 795         command = wstrconcat(path, " --global_defaults_path");
 796         file = popen(command, "r");
 797         wfree(command);
 798     }
 799     if (!file || !fgets(buffer, 1023, file)) {
 800         wsyserror(_("could not run \"%s --global_defaults_path\"."), path);
 801         exit(1);
 802     } else {
 803         char *ptr;
 804         ptr = strchr(buffer, '\n');
 805         if (ptr)
 806             *ptr = 0;
 807         strcat(buffer, "/WindowMaker");
 808     }
 809
 810     if (file)
 811         pclose(file);
 812
 813     gdb = WMReadPropListFromFile(buffer);
 814
 815     if (gdb) {
 816         if (!WMIsPLDictionary(gdb)) {
 817             WMReleasePropList(gdb);
 818             gdb = NULL;
 819             sprintf(mbuf, _("Window Maker domain (%s) is corrupted!"), buffer);
 820             WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 821         }
 822     } else {
 823         sprintf(mbuf, _("Could not load global Window Maker domain (%s)."),
 824                 buffer);
 825         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 826     }
 827
 828     if (!db) {
 829         db = WMCreatePLDictionary(NULL, NULL);
 830     }
 831     if (!gdb) {
 832         gdb = WMCreatePLDictionary(NULL, NULL);
 833     }
 834
 835     GlobalDB = gdb;
 836
 837     WindowMakerDB = db;
 838 }
 839
 840
 841 WMPropList*
 842 GetObjectForKey(char *defaultName)
 843 {
 844     WMPropList *object = NULL;
 845     WMPropList *key = WMCreatePLString(defaultName);
 846
 847     object = WMGetFromPLDictionary(WindowMakerDB, key);
 848     if (!object)
 849         object = WMGetFromPLDictionary(GlobalDB, key);
 850
 851     WMReleasePropList(key);
 852
 853     return object;
 854 }
 855
 856
 857 void
 858 SetObjectForKey(WMPropList *object, char *defaultName)
 859 {
 860     WMPropList *key = WMCreatePLString(defaultName);
 861
 862     WMPutInPLDictionary(WindowMakerDB, key, object);
 863     WMReleasePropList(key);
 864 }
 865
 866
 867 void
 868 RemoveObjectForKey(char *defaultName)
 869 {
 870     WMPropList *key = WMCreatePLString(defaultName);
 871
 872     WMRemoveFromPLDictionary(WindowMakerDB, key);
 873
 874     WMReleasePropList(key);
 875 }
 876
 877
 878 char*
 879 GetStringForKey(char *defaultName)
 880 {
 881     WMPropList *val;
 882
 883     val = GetObjectForKey(defaultName);
 884
 885     if (!val)
 886         return NULL;
 887
 888     if (!WMIsPLString(val))
 889         return NULL;
 890
 891     return WMGetFromPLString(val);
 892 }
 893
 894
 895
 896 WMPropList*
 897 GetArrayForKey(char *defaultName)
 898 {
 899     WMPropList *val;
 900
 901     val = GetObjectForKey(defaultName);
 902
 903     if (!val)
 904         return NULL;
 905
 906     if (!WMIsPLArray(val))
 907         return NULL;
 908
 909     return val;
 910 }
 911
 912
 913 WMPropList*
 914 GetDictionaryForKey(char *defaultName)
 915 {
 916     WMPropList *val;
 917
 918     val = GetObjectForKey(defaultName);
 919
 920     if (!val)
 921         return NULL;
 922
 923     if (!WMIsPLDictionary(val))
 924         return NULL;
 925
 926     return val;
 927 }
 928
 929
 930 int
 931 GetIntegerForKey(char *defaultName)
 932 {
 933     WMPropList *val;
 934     char *str;
 935     int value;
 936
 937     val = GetObjectForKey(defaultName);
 938
 939     if (!val)
 940         return 0;
 941
 942     if (!WMIsPLString(val))
 943         return 0;
 944
 945     str = WMGetFromPLString(val);
 946     if (!str)
 947         return 0;
 948
 949     if (sscanf(str, "%i", &value)!=1)
 950         return 0;
 951
 952     return value;
 953 }
 954
 955
 956 Bool
 957 GetBoolForKey(char *defaultName)
 958 {
 959     int value;
 960     char *str;
 961
 962     str = GetStringForKey(defaultName);
 963
 964     if (!str)
 965         return False;
 966
 967     if (sscanf(str, "%i", &value)==1 && value!=0)
 968         return True;
 969
 970     if (strcasecmp(str, "YES")==0)
 971         return True;
 972
 973     if (strcasecmp(str, "Y")==0)
 974         return True;
 975
 976     return False;
 977 }
 978
 979
 980 void
 981 SetIntegerForKey(int value, char *defaultName)
 982 {
 983     WMPropList *object;
 984     char buffer[128];
 985
 986     sprintf(buffer, "%i", value);
 987     object = WMCreatePLString(buffer);
 988
 989     SetObjectForKey(object, defaultName);
 990     WMReleasePropList(object);
 991 }
 992
 993
 994
 995 void
 996 SetStringForKey(char *value, char *defaultName)
 997 {
 998     WMPropList *object;
 999
1000     object = WMCreatePLString(value);
1001
1002     SetObjectForKey(object, defaultName);
1003     WMReleasePropList(object);
1004 }
1005
1006
1007 void
1008 SetBoolForKey(Bool value, char *defaultName)
1009 {
1010     static WMPropList *yes = NULL, *no = NULL;
1011
1012     if (!yes) {
1013         yes = WMCreatePLString("YES");
1014         no = WMCreatePLString("NO");
1015     }
1016
1017     SetObjectForKey(value ? yes : no, defaultName);
1018 }
1019
1020
1021 void
1022 SetSpeedForKey(int speed, char *defaultName)
1023 {
1024     char *str;
1025
1026     switch (speed) {
1027     case 0:
1028         str = "ultraslow";
1029         break;
1030     case 1:
1031         str = "slow";
1032         break;
1033     case 2:
1034         str = "medium";
1035         break;
1036     case 3:
1037         str = "fast";
1038         break;
1039     case 4:
1040         str = "ultrafast";
1041         break;
1042     default:
1043         str = NULL;
1044     }
1045
1046     if (str)
1047         SetStringForKey(str, defaultName);
1048 }
1049
1050
1051 int
1052 GetSpeedForKey(char *defaultName)
1053 {
1054     char *str;
1055     int i;
1056
1057     str = GetStringForKey(defaultName);
1058     if (!str)
1059         return 2;
1060
1061     if (strcasecmp(str, "ultraslow")==0)
1062         i = 0;
1063     else if (strcasecmp(str, "slow")==0)
1064         i = 1;
1065     else if (strcasecmp(str, "medium")==0)
1066         i = 2;
1067     else if (strcasecmp(str, "fast")==0)
1068         i = 3;
1069     else if (strcasecmp(str, "ultrafast")==0)
1070         i = 4;
1071     else {
1072         wwarning(_("bad speed value for option %s\n. Using default Medium"),
1073                  defaultName);
1074         i = 2;
1075     }
1076     return i;
1077 }
1078
1079