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