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, Largo et al\n"
 356                                       "More Programming: James Thompson et al"));
 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.currentPanel == data)
 414         return;
 415
 416     if (WPrefs.banner) {
 417         WMDestroyWidget(WPrefs.banner);
 418         WPrefs.banner = NULL;
 419 /*      WMMapWidget(WPrefs.undosBtn);
 420         WMMapWidget(WPrefs.undoBtn);
 421  */
 422         WMMapWidget(WPrefs.saveBtn);
 423     }
 424
 425     showPanel(data);
 426
 427     if (WPrefs.currentPanel)
 428         hidePanel(WPrefs.currentPanel);
 429     WPrefs.currentPanel = data;
 430 }
 431
 432
 433
 434
 435
 436 char*
 437 LocateImage(char *name)
 438 {
 439     char *path;
 440     char *tmp = wmalloc(strlen(name)+8);
 441
 442     if (TIFFOK) {
 443         sprintf(tmp, "%s.tiff", name);
 444         path = WMPathForResourceOfType(tmp, "tiff");
 445     } else {
 446         sprintf(tmp, "%s.xpm", name);
 447         path = WMPathForResourceOfType(tmp, "xpm");
 448     }
 449     wfree(tmp);
 450     if (!path) {
 451         wwarning(_("could not locate image file %s\n"), name);
 452     }
 453
 454     return path;
 455 }
 456
 457
 458
 459 static WMPixmap*
 460 makeTitledIcon(WMScreen *scr, WMPixmap *icon, char *title1, char *title2)
 461 {
 462     return WMRetainPixmap(icon);
 463
 464 #if 0
 465     static GC gc = NULL;
 466     static XFontStruct *hfont = NULL;
 467     static XFontStruct *vfont = NULL;
 468     WMPixmap *tmp;
 469     Pixmap pix, mask;
 470     Display *dpy = WMScreenDisplay(scr);
 471     WMColor *black = WMBlackColor(scr);
 472     GC fgc;
 473     WMSize size = WMGetPixmapSize(icon);
 474
 475
 476     tmp = WMCreatePixmap(scr, 60, 60, WMScreenDepth(scr), True);
 477
 478     pix = WMGetPixmapXID(tmp);
 479     mask = WMGetPixmapMaskXID(tmp);
 480
 481     if (gc == NULL) {
 482         gc = XCreateGC(dpy, mask, 0, NULL);
 483
 484         hfont = XLoadQueryFont(dpy, ICON_TITLE_FONT);
 485         vfont = XLoadQueryFont(dpy, ICON_TITLE_VFONT);
 486     }
 487
 488     if (hfont == NULL) {
 489         return WMRetainPixmap(icon);
 490     }
 491
 492     XSetForeground(dpy, gc, 0);
 493     XFillRectangle(dpy, mask, gc, 0, 0, 60, 60);
 494
 495     fgc = WMColorGC(black);
 496
 497     XSetForeground(dpy, gc, 1);
 498
 499     XCopyArea(dpy, WMGetPixmapXID(icon), pix, fgc, 0, 0,
 500               size.width, size.height, 12, 12);
 501
 502     if (WMGetPixmapMaskXID(icon) != None)
 503         XCopyPlane(dpy, WMGetPixmapMaskXID(icon), mask, gc, 0, 0,
 504                    size.width, size.height, 12, 12, 1);
 505     else
 506         XFillRectangle(dpy, mask, gc, 12, 12, 48, 48);
 507
 508
 509     if (title1) {
 510         XSetFont(dpy, fgc, vfont->fid);
 511         XSetFont(dpy, gc, vfont->fid);
 512
 513         XDrawString(dpy, pix, fgc, 0, vfont->ascent,
 514                     title1, strlen(title1));
 515
 516         XDrawString(dpy, mask, gc, 0, vfont->ascent,
 517                     title1, strlen(title1));
 518     }
 519
 520     if (title2) {
 521         XSetFont(dpy, fgc, hfont->fid);
 522         XSetFont(dpy, gc, hfont->fid);
 523
 524         XDrawString(dpy, pix, fgc, (title1 ? 12 : 0), hfont->ascent,
 525                     title2, strlen(title2));
 526
 527         XDrawString(dpy, mask, gc, (title1 ? 12 : 0), hfont->ascent,
 528                     title2, strlen(title2));
 529     }
 530
 531     return tmp;
 532 #endif
 533 }
 534
 535
 536 void
 537 SetButtonAlphaImage(WMScreen *scr, WMButton *bPtr, char *file,
 538                     char *title1, char *title2)
 539 {
 540     WMPixmap *icon;
 541     WMPixmap *icon2;
 542     RColor color;
 543     char *iconPath;
 544
 545     iconPath = LocateImage(file);
 546
 547     color.red = 0xae;
 548     color.green = 0xaa;
 549     color.blue = 0xae;
 550     color.alpha = 0;
 551     if (iconPath) {
 552         icon = WMCreateBlendedPixmapFromFile(scr, iconPath, &color);
 553         if (!icon)
 554             wwarning(_("could not load icon file %s"), iconPath);
 555     } else {
 556         icon = NULL;
 557     }
 558
 559     if (icon) {
 560         icon2 = makeTitledIcon(scr, icon, title1, title2);
 561         if (icon)
 562             WMReleasePixmap(icon);
 563     } else {
 564         icon2 = NULL;
 565     }
 566
 567     WMSetButtonImage(bPtr, icon2);
 568
 569     if (icon2)
 570         WMReleasePixmap(icon2);
 571
 572     color.red = 0xff;
 573     color.green = 0xff;
 574     color.blue = 0xff;
 575     color.alpha = 0;
 576     if (iconPath) {
 577         icon = WMCreateBlendedPixmapFromFile(scr, iconPath, &color);
 578         if (!icon)
 579             wwarning(_("could not load icon file %s"), iconPath);
 580     } else {
 581         icon = NULL;
 582     }
 583
 584     WMSetButtonAltImage(bPtr, icon);
 585
 586     if (icon)
 587         WMReleasePixmap(icon);
 588
 589     if (iconPath)
 590         wfree(iconPath);
 591 }
 592
 593
 594 void
 595 AddSection(Panel *panel, char *iconFile)
 596 {
 597     WMButton *bPtr;
 598
 599     assert(WPrefs.sectionCount < MAX_SECTIONS);
 600
 601
 602     bPtr = WMCreateCustomButton(WPrefs.buttonF, WBBStateLightMask
 603                                 |WBBStateChangeMask);
 604     WMResizeWidget(bPtr, 64, 64);
 605     WMMoveWidget(bPtr, WPrefs.sectionCount*64, 0);
 606     WMSetButtonImagePosition(bPtr, WIPImageOnly);
 607     WMSetButtonAction(bPtr, changeSection, panel);
 608     WMHangData(bPtr, panel);
 609
 610     WMSetBalloonTextForView(((PanelRec*)panel)->description,
 611                             WMWidgetView(bPtr));
 612
 613     {
 614         char *t1, *t2;
 615
 616         t1 = wstrdup(((PanelRec*)panel)->sectionName);
 617         t2 = strchr(t1, ' ');
 618         if (t2) {
 619             *t2 = 0;
 620             t2++;
 621         }
 622         SetButtonAlphaImage(WMWidgetScreen(bPtr), bPtr, iconFile,
 623                             t1, t2);
 624         wfree(t1);
 625     }
 626     WMMapWidget(bPtr);
 627
 628     WPrefs.sectionB[WPrefs.sectionCount] = bPtr;
 629
 630     if (WPrefs.sectionCount > 0) {
 631         WMGroupButtons(WPrefs.sectionB[0], bPtr);
 632     }
 633
 634     WPrefs.sectionCount++;
 635
 636     WMResizeWidget(WPrefs.buttonF, WPrefs.sectionCount*64, 64);
 637 }
 638
 639
 640 void
 641 Initialize(WMScreen *scr)
 642 {
 643     char **list;
 644     int i;
 645     char *path;
 646     WMPixmap *icon;
 647
 648
 649     list = RSupportedFileFormats();
 650     for (i=0; list[i]!=NULL; i++) {
 651         if (strcmp(list[i], "TIFF")==0) {
 652             TIFFOK = True;
 653             break;
 654         }
 655     }
 656
 657     if (TIFFOK)
 658         path = WMPathForResourceOfType("WPrefs.tiff", NULL);
 659     else
 660         path = WMPathForResourceOfType("WPrefs.xpm", NULL);
 661     if (path) {
 662         RImage *tmp;
 663
 664         tmp = RLoadImage(WMScreenRContext(scr), path, 0);
 665         if (!tmp) {
 666             wwarning(_("could not load image file %s:%s"), path,
 667                      RMessageForError(RErrorCode));
 668         } else {
 669             icon = WMCreatePixmapFromRImage(scr, tmp, 0);
 670             RDestroyImage(tmp);
 671             if (icon) {
 672                 WMSetApplicationIconImage(scr, icon);
 673                 WMReleasePixmap(icon);
 674             }
 675         }
 676         wfree(path);
 677     }
 678
 679     memset(&WPrefs, 0, sizeof(_WPrefs));
 680     createMainWindow(scr);
 681
 682     WMRealizeWidget(WPrefs.win);
 683     WMMapWidget(WPrefs.win);
 684     XFlush(WMScreenDisplay(scr));
 685     WMSetLabelText(WPrefs.statusL, _("Loading Window Maker configuration files..."));
 686     XFlush(WMScreenDisplay(scr));
 687     loadConfigurations(scr, WPrefs.win);
 688
 689     WMSetLabelText(WPrefs.statusL, _("Initializing configuration panels..."));
 690
 691     InitWindowHandling(scr, WPrefs.win);
 692     InitFocus(scr, WPrefs.win);
 693     InitMenuPreferences(scr, WPrefs.win);
 694     InitIcons(scr, WPrefs.win);
 695     InitPreferences(scr, WPrefs.win);
 696
 697     InitPaths(scr, WPrefs.win);
 698     InitWorkspace(scr, WPrefs.win);
 699     InitConfigurations(scr, WPrefs.win);
 700
 701     InitMenu(scr, WPrefs.win);
 702
 703 #ifdef not_yet_fully_implemented
 704     InitKeyboardSettings(scr, WPrefs.win);
 705 #endif
 706     InitKeyboardShortcuts(scr, WPrefs.win);
 707     InitMouseSettings(scr, WPrefs.win);
 708
 709     InitAppearance(scr, WPrefs.win);
 710
 711 #ifdef akk
 712     InitFont(scr, WPrefs.win);
 713 #endif
 714 #ifdef not_yet_fully_implemented
 715     InitThemes(scr, WPrefs.win);
 716 #endif
 717     InitExpert(scr, WPrefs.win);
 718
 719     WMRealizeWidget(WPrefs.scrollV);
 720
 721     WMSetLabelText(WPrefs.statusL,
 722                    _("WPrefs is free software and is distributed WITHOUT ANY\n"
 723            "WARRANTY under the terms of the GNU General Public License."));
 724 }
 725
 726
 727 WMWindow*
 728 GetWindow(Panel *panel)
 729 {
 730     return WPrefs.win;
 731 }
 732
 733
 734 static void
 735 loadConfigurations(WMScreen *scr, WMWindow *mainw)
 736 {
 737     proplist_t db, gdb;
 738     char *path;
 739     FILE *file;
 740     char buffer[1024];
 741     char mbuf[1024];
 742     int v1, v2, v3;
 743
 744     path = wdefaultspathfordomain("WindowMaker");
 745
 746     db = PLGetProplistWithPath(path);
 747     if (db) {
 748         if (!PLIsDictionary(db)) {
 749             PLRelease(db);
 750             db = NULL;
 751             sprintf(mbuf, _("Window Maker domain (%s) is corrupted!"), path);
 752             WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 753         }
 754     } else {
 755         sprintf(mbuf, _("Could not load Window Maker domain (%s) from defaults database."),
 756                 path);
 757         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 758     }
 759     wfree(path);
 760
 761     path = getenv("WMAKER_BIN_NAME");
 762     if (!path)
 763         path = "wmaker";
 764     {
 765         char *command;
 766
 767         command = wstrconcat(path, " --version");
 768         file = popen(command, "r");
 769         wfree(command);
 770     }
 771     if (!file || !fgets(buffer, 1023, file)) {
 772         wsyserror(_("could not extract version information from Window Maker"));
 773         wfatal(_("Make sure wmaker is in your search path."));
 774
 775         WMRunAlertPanel(scr, mainw, _("Error"),
 776                         _("Could not extract version from Window Maker. Make sure it is correctly installed and is in your PATH environment variable."),
 777                         _("OK"), NULL, NULL);
 778         exit(1);
 779     }
 780     if (file)
 781         pclose(file);
 782
 783     if (sscanf(buffer, "Window Maker %i.%i.%i",&v1,&v2,&v3)!=3
 784         && sscanf(buffer, "WindowMaker %i.%i.%i",&v1,&v2,&v3)!=3) {
 785         WMRunAlertPanel(scr, mainw, _("Error"),
 786                         _("Could not extract version from Window Maker. "
 787                           "Make sure it is correctly installed and the path "
 788                           "where it installed is in the PATH environment "
 789                           "variable."), _("OK"), NULL, NULL);
 790         exit(1);
 791     }
 792     if (v1 == 0 && (v2 < 18 || v3 < 0)) {
 793         sprintf(mbuf, _("WPrefs only supports Window Maker 0.18.0 or newer.\n"
 794                 "The version installed is %i.%i.%i\n"), v1, v2, v3);
 795         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 796         exit(1);
 797
 798     }
 799     if (v1 > 1 || (v1 == 1 && (v2 > 0))) {
 800         sprintf(mbuf, _("Window Maker %i.%i.%i, which is installed in your system, is not fully supported by this version of WPrefs."),
 801                 v1, v2, v3);
 802         WMRunAlertPanel(scr, mainw, _("Warning"), mbuf, _("OK"), NULL, NULL);
 803     }
 804
 805     {
 806         char *command;
 807
 808         command = wstrconcat(path, " --global_defaults_path");
 809         file = popen(command, "r");
 810         wfree(command);
 811     }
 812     if (!file || !fgets(buffer, 1023, file)) {
 813         wsyserror(_("could not run \"%s --global_defaults_path\"."), path);
 814         exit(1);
 815     } else {
 816         char *ptr;
 817         ptr = strchr(buffer, '\n');
 818         if (ptr)
 819             *ptr = 0;
 820         strcat(buffer, "/WindowMaker");
 821     }
 822
 823     if (file)
 824         pclose(file);
 825
 826     gdb = PLGetProplistWithPath(buffer);
 827     if (gdb) {
 828         if (!PLIsDictionary(gdb)) {
 829             PLRelease(gdb);
 830             gdb = NULL;
 831             sprintf(mbuf, _("Window Maker domain (%s) is corrupted!"), buffer);
 832             WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 833         }
 834     } else {
 835         sprintf(mbuf, _("Could not load global Window Maker domain (%s)."),
 836                 buffer);
 837         WMRunAlertPanel(scr, mainw, _("Error"), mbuf, _("OK"), NULL, NULL);
 838     }
 839
 840     if (!db) {
 841         db = PLMakeDictionaryFromEntries(NULL, NULL, NULL);
 842     }
 843     if (!gdb) {
 844         gdb = PLMakeDictionaryFromEntries(NULL, NULL, NULL);
 845     }
 846
 847     GlobalDB = gdb;
 848
 849     WindowMakerDB = db;
 850 }
 851
 852
 853 proplist_t
 854 GetObjectForKey(char *defaultName)
 855 {
 856     proplist_t object = NULL;
 857     proplist_t key = PLMakeString(defaultName);
 858
 859     object = PLGetDictionaryEntry(WindowMakerDB, key);
 860     if (!object)
 861         object = PLGetDictionaryEntry(GlobalDB, key);
 862
 863     PLRelease(key);
 864
 865     return object;
 866 }
 867
 868
 869 void
 870 SetObjectForKey(proplist_t object, char *defaultName)
 871 {
 872     proplist_t key = PLMakeString(defaultName);
 873
 874     PLInsertDictionaryEntry(WindowMakerDB, key, object);
 875     PLRelease(key);
 876 }
 877
 878
 879 void
 880 RemoveObjectForKey(char *defaultName)
 881 {
 882     proplist_t key = PLMakeString(defaultName);
 883
 884     PLRemoveDictionaryEntry(WindowMakerDB, key);
 885
 886     PLRelease(key);
 887 }
 888
 889
 890 char*
 891 GetStringForKey(char *defaultName)
 892 {
 893     proplist_t val;
 894
 895     val = GetObjectForKey(defaultName);
 896
 897     if (!val)
 898         return NULL;
 899
 900     if (!PLIsString(val))
 901         return NULL;
 902
 903     return PLGetString(val);
 904 }
 905
 906
 907
 908 proplist_t
 909 GetArrayForKey(char *defaultName)
 910 {
 911     proplist_t val;
 912
 913     val = GetObjectForKey(defaultName);
 914
 915     if (!val)
 916         return NULL;
 917
 918     if (!PLIsArray(val))
 919         return NULL;
 920
 921     return val;
 922 }
 923
 924
 925 proplist_t
 926 GetDictionaryForKey(char *defaultName)
 927 {
 928     proplist_t val;
 929
 930     val = GetObjectForKey(defaultName);
 931
 932     if (!val)
 933         return NULL;
 934
 935     if (!PLIsDictionary(val))
 936         return NULL;
 937
 938     return val;
 939 }
 940
 941
 942 int
 943 GetIntegerForKey(char *defaultName)
 944 {
 945     proplist_t val;
 946     char *str;
 947     int value;
 948
 949     val = GetObjectForKey(defaultName);
 950
 951     if (!val)
 952         return 0;
 953
 954     if (!PLIsString(val))
 955         return 0;
 956
 957     str = PLGetString(val);
 958     if (!str)
 959         return 0;
 960
 961     if (sscanf(str, "%i", &value)!=1)
 962         return 0;
 963
 964     return value;
 965 }
 966
 967
 968 Bool
 969 GetBoolForKey(char *defaultName)
 970 {
 971     int value;
 972     char *str;
 973
 974     str = GetStringForKey(defaultName);
 975
 976     if (!str)
 977         return False;
 978
 979     if (sscanf(str, "%i", &value)==1 && value!=0)
 980         return True;
 981
 982     if (strcasecmp(str, "YES")==0)
 983         return True;
 984
 985     if (strcasecmp(str, "Y")==0)
 986         return True;
 987
 988     return False;
 989 }
 990
 991
 992 void
 993 SetIntegerForKey(int value, char *defaultName)
 994 {
 995     proplist_t object;
 996     char buffer[128];
 997
 998     sprintf(buffer, "%i", value);
 999     object = PLMakeString(buffer);
1000
1001     SetObjectForKey(object, defaultName);
1002     PLRelease(object);
1003 }
1004
1005
1006
1007 void
1008 SetStringForKey(char *value, char *defaultName)
1009 {
1010     proplist_t object;
1011
1012     object = PLMakeString(value);
1013
1014     SetObjectForKey(object, defaultName);
1015     PLRelease(object);
1016 }
1017
1018
1019 void
1020 SetBoolForKey(Bool value, char *defaultName)
1021 {
1022     static proplist_t yes = NULL, no = NULL;
1023
1024     if (!yes) {
1025         yes = PLMakeString("YES");
1026         no = PLMakeString("NO");
1027     }
1028
1029     SetObjectForKey(value ? yes : no, defaultName);
1030 }
1031
1032
1033 void
1034 SetSpeedForKey(int speed, char *defaultName)
1035 {
1036     char *str;
1037
1038     switch (speed) {
1039      case 0:
1040         str = "ultraslow";
1041         break;
1042      case 1:
1043         str = "slow";
1044         break;
1045      case 2:
1046         str = "medium";
1047         break;
1048      case 3:
1049         str = "fast";
1050         break;
1051      case 4:
1052         str = "ultrafast";
1053         break;
1054      default:
1055         str = NULL;
1056     }
1057
1058     if (str)
1059         SetStringForKey(str, defaultName);
1060 }
1061
1062
1063 int
1064 GetSpeedForKey(char *defaultName)
1065 {
1066     char *str;
1067     int i;
1068
1069     str = GetStringForKey(defaultName);
1070     if (!str)
1071         return 2;
1072
1073     if (strcasecmp(str, "ultraslow")==0)
1074         i = 0;
1075     else if (strcasecmp(str, "slow")==0)
1076         i = 1;
1077     else if (strcasecmp(str, "medium")==0)
1078         i = 2;
1079     else if (strcasecmp(str, "fast")==0)
1080         i = 3;
1081     else if (strcasecmp(str, "ultrafast")==0)
1082         i = 4;
1083     else {
1084         wwarning(_("bad speed value for option %s\n. Using default Medium"),
1085                  defaultName);
1086         i = 2;
1087     }
1088     return i;
1089 }
1090
1091