Change to the linux kernel coding style
[wmaker-crm.git] / WPrefs.app / Appearance.c
dissimilarity index 93%
index 6c88f4f..f098d97 100644 (file)
-/* Apperance.c- color/texture for titlebar etc.
- *
- *  WPrefs - Window Maker Preferences Program
- *
- *  Copyright (c) 1999-2003 Alfredo K. Kojima
- *
- *  This program is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 2 of the License, or
- *  (at your option) any later version.
- *
- *  This program is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with this program; if not, write to the Free Software
- *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
- *  USA.
- */
-
-
-#include "WPrefs.h"
-
-#include <unistd.h>
-#include <errno.h>
-#include <ctype.h>
-#include <time.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-#include <fcntl.h>
-#include <unistd.h>
-
-
-
-
-#include "TexturePanel.h"
-
-typedef struct _Panel {
-    WMBox *box;
-    char *sectionName;
-
-    char *description;
-
-    CallbackRec callbacks;
-
-    WMWidget *parent;
-
-    WMLabel *prevL;
-
-
-    WMTabView *tabv;
-
-    /* texture list */
-    WMFrame *texF;
-    WMList *texLs;
-
-    WMPopUpButton *secP;
-
-    WMButton *newB;
-    WMButton *editB;
-    WMButton *ripB;
-    WMButton *delB;
-
-    /* text color */
-    WMFrame *colF;
-
-    WMPopUpButton *colP;
-    WMColor *colors[14];
-
-    WMColorWell *colW;
-
-    WMColorWell *sampW[24];
-
-    /* options */
-    WMFrame *optF;
-
-    WMFrame *mstyF;
-    WMButton *mstyB[3];
-
-    WMFrame *taliF;
-    WMButton *taliB[3];
-
-    /* root bg */
-    WMFrame *bgF;
-
-    WMLabel *bgprevL;
-    WMButton *selbgB;
-
-    WMPopUpButton *modeB[3];
-
-    /* */
-
-    int textureIndex[8];
-
-    WMFont *smallFont;
-    WMFont *normalFont;
-    WMFont *boldFont;
-
-    TexturePanel *texturePanel;
-
-    WMPixmap *onLed;
-    WMPixmap *offLed;
-    WMPixmap *hand;
-
-    int oldsection;
-    int oldcsection;
-
-    char oldTabItem;
-
-    int menuStyle;
-
-    int titleAlignment;
-
-    Pixmap preview;
-    Pixmap previewNoText;
-
-    char *fprefix;
-} _Panel;
-
-
-typedef struct {
-    char *title;
-    char *texture;
-    WMPropList *prop;
-    Pixmap preview;
-
-    char *path;
-
-    char selectedFor;
-    unsigned current:1;
-    unsigned ispixmap:1;
-} TextureListItem;
-
-static void updateColorPreviewBox(_Panel *panel, int elements);
-
-static void showData(_Panel *panel);
-
-static void changePage(WMWidget *w, void *data);
-
-static void changeColorPage(WMWidget *w, void *data);
-
-static void OpenExtractPanelFor(_Panel *panel, char *path);
-
-
-
-static void changedTabItem(struct WMTabViewDelegate *self, WMTabView *tabView,
-                           WMTabViewItem *item);
-
-
-
-static WMTabViewDelegate tabviewDelegate = {
-    NULL,
-    NULL, /* didChangeNumberOfItems */
-    changedTabItem, /* didSelectItem */
-    NULL, /* shouldSelectItem */
-    NULL /* willSelectItem */
-};
-
-
-#define ICON_FILE      "appearance"
-
-#define TNEW_FILE      "tnew"
-#define TDEL_FILE      "tdel"
-#define TEDIT_FILE     "tedit"
-#define TEXTR_FILE     "textr"
-
-#define MSTYLE1_FILE   "msty1"
-#define MSTYLE2_FILE   "msty2"
-#define MSTYLE3_FILE   "msty3"
-
-
-/* XPM */
-static char * blueled_xpm[] = {
-    "8 8 17 1",
-    "  c None",
-    ". c #020204",
-    "+ c #16B6FC",
-    "@ c #176AFC",
-    "# c #163AFC",
-    "$ c #72D2FC",
-    "% c #224CF4",
-    "& c #76D6FC",
-    "* c #16AAFC",
-    "= c #CEE9FC",
-    "- c #229EFC",
-    "; c #164CFC",
-    "> c #FAFEFC",
-    ", c #2482FC",
-    "' c #1652FC",
-    ") c #1E76FC",
-    "! c #1A60FC",
-    "  ....  ",
-    " .=>-@. ",
-    ".=>$@@'.",
-    ".=$@!;;.",
-    ".!@*+!#.",
-    ".#'*+*,.",
-    " .@)@,. ",
-    "  ....  "};
-
-
-/* XPM */
-static char *blueled2_xpm[] = {
-    /* width height num_colors chars_per_pixel */
-    "     8     8       17            1",
-    /* colors */
-    ". c None",
-    "# c #090909",
-    "a c #4b63a4",
-    "b c #011578",
-    "c c #264194",
-    "d c #04338c",
-    "e c #989dac",
-    "f c #011a7c",
-    "g c #465c9c",
-    "h c #03278a",
-    "i c #6175ac",
-    "j c #011e74",
-    "k c #043a90",
-    "l c #042f94",
-    "m c #0933a4",
-    "n c #022184",
-    "o c #012998",
-    /* pixels */
-    "..####..",
-    ".#aimn#.",
-    "#aechnf#",
-    "#gchnjf#",
-    "#jndknb#",
-    "#bjdddl#",
-    ".#nono#.",
-    "..####.."
-};
-
-
-/* XPM */
-static char * hand_xpm[] = {
-    "22 21 19 1",
-    "       c None",
-    ".      c #030305",
-    "+      c #7F7F7E",
-    "@      c #B5B5B6",
-    "#      c #C5C5C6",
-    "$      c #969697",
-    "%      c #FDFDFB",
-    "&      c #F2F2F4",
-    "*      c #E5E5E4",
-    "=      c #ECECEC",
-    "-      c #DCDCDC",
-    ";      c #D2D2D0",
-    ">      c #101010",
-    ",      c #767674",
-    "'      c #676767",
-    ")      c #535355",
-    "!      c #323234",
-    "~      c #3E3C56",
-    "{      c #333147",
-    "                      ",
-    "       .....          ",
-    "     ..+@##$.         ",
-    "    .%%%&@..........  ",
-    "   .%*%%&#%%%%%%%%%$. ",
-    "  .*#%%%%%%%%%&&&&==. ",
-    " .-%%%%%%%%%=*-;;;#$. ",
-    " .-%%%%%%%%&..>.....  ",
-    " >-%%%%%%%%%*#+.      ",
-    " >-%%%%%%%%%*@,.      ",
-    " >#%%%%%%%%%*@'.      ",
-    " >$&&%%%%%%=...       ",
-    " .+@@;=&%%&;$,>       ",
-    "  .',$@####$+).       ",
-    "   .!',+$++,'.        ",
-    "     ..>>>>>.         ",
-    "                      ",
-    "     ~~{{{~~          ",
-    "   {{{{{{{{{{{        ",
-    "     ~~{{{~~          ",
-    "                      "};
-
-
-
-static char *sampleColors[] = {
-    "black",
-    "#292929",
-    "#525252",
-    "#848484",
-    "#adadad",
-    "#d6d6d6",
-    "white",
-    "#d6d68c",
-    "#d6a57b",
-    "#8cd68c",
-    "#8cd6ce",
-    "#d68c8c",
-    "#8c9cd6",
-    "#bd86d6",
-    "#d68cbd",
-    "#d64a4a",
-    "#4a5ad6",
-    "#4ad6ce",
-    "#4ad65a",
-    "#ced64a",
-    "#d6844a",
-    "#8ad631",
-    "#ce29c6",
-    "#ce2973",
-    "black"
-};
-
-
-static char *textureOptions[] = {
-    "FTitleBack", "(solid, black)", "[Focused]",
-    "UTitleBack", "(solid, gray)", "[Unfocused]",
-    "PTitleBack", "(solid, \"#616161\")", "[Owner of Focused]",
-    "ResizebarBack", "(solid, gray)", "[Resizebar]",
-    "MenuTitleBack", "(solid, black)", "[Menu Title]",
-    "MenuTextBack", "(solid, gray)", "[Menu Item]",
-    "IconBack", "(solid, gray)", "[Icon]"
-};
-
-
-#define RESIZEBAR_BEVEL        -1
-#define MENU_BEVEL     -2
-
-#define TEXPREV_WIDTH  40
-#define TEXPREV_HEIGHT 24
-
-
-#define MSTYLE_NORMAL  0
-#define MSTYLE_SINGLE  1
-#define MSTYLE_FLAT    2
-
-
-#define FTITLE_COL     (1<<0)
-#define UTITLE_COL     (1<<1)
-#define OTITLE_COL     (1<<2)
-#define MTITLE_COL     (1<<3)
-#define MITEM_COL      (1<<4)
-#define MDISAB_COL     (1<<5)
-#define MHIGH_COL      (1<<6)
-#define MHIGHT_COL     (1<<7)
-#define ICONT_COL      (1<<8)
-#define ICONB_COL      (1<<9)
-#define CLIP_COL       (1<<10)
-#define CCLIP_COL      (1<<11)
-
-
-static char *colorOptions[] = {
-    "FTitleColor", "white",
-    "UTitleColor", "black",
-    "PTitleColor", "white",
-    "MenuTitleColor", "white",
-    "MenuTextColor", "black",
-    "MenuDisabledColor", "#616161",
-    "HighlightColor", "white",
-    "HighlightTextColor", "black",
-    "IconTitleColor", "white",
-    "IconTitleBack", "black",
-    "ClipTitleColor", "black",
-    "CClipTitleColor", "#454045"
-};
-
-
-
-
-static WMRect previewPositions[] = {
-#define PFOCUSED       0
-    {{30,10},{190, 20}},
-#define PUNFOCUSED     1
-    {{30,40},{190,20}},
-#define POWNER         2
-    {{30,70},{190,20}},
-#define PRESIZEBAR     3
-    {{30,100},{190,9}},
-#define PMTITLE                4
-    {{30,120},{90,20}},
-#define PMITEM         5
-    {{30,140},{90,20*4}},
-#define PICON          6
-    {{155,130},{64,64}}
-};
-#define EVERYTHING     0xff
-
-
-static WMRect previewColorPositions[] = {
-    {{30,10},{190, 20}},
-    {{30,40},{190,20}},
-    {{30,70},{190,20}},
-    {{30,120},{90,20}},
-    {{30,140},{90,20}},
-    {{30,160},{90,20}},
-    {{30,180},{90,20}},
-    {{30,200},{90,20}},
-    {{155,130},{64,64}},
-    {{155,130},{64,64}},
-    {{155,130},{64,64}},
-    {{155,130},{64,64}}
-};
-
-
-
-static void
-str2rcolor(RContext *rc, char *name, RColor *color)
-{
-    XColor xcolor;
-
-    XParseColor(rc->dpy, rc->cmap, name, &xcolor);
-
-    color->alpha = 255;
-    color->red = xcolor.red >> 8;
-    color->green = xcolor.green >> 8;
-    color->blue = xcolor.blue >> 8;
-}
-
-
-static void
-dumpRImage(char *path, RImage *image)
-{
-    FILE *f;
-    int channels = (image->format == RRGBAFormat ? 4 : 3);
-
-    f = fopen(path, "wb");
-    if (!f) {
-        wsyserror(path);
-        return;
-    }
-    fprintf(f, "%02x%02x%1x", image->width, image->height, channels);
-
-    fwrite(image->data, 1, image->width * image->height * channels, f);
-
-    if (fclose(f) < 0) {
-        wsyserror(path);
-    }
-}
-
-
-
-static int
-isPixmap(WMPropList *prop)
-{
-    WMPropList *p;
-    char *s;
-
-    p = WMGetFromPLArray(prop, 0);
-    s = WMGetFromPLString(p);
-    if (strcasecmp(&s[1], "pixmap")==0)
-        return 1;
-    else
-        return 0;
-}
-
-
-/**********************************************************************/
-
-static void
-drawResizebarBevel(RImage *img)
-{
-    RColor light;
-    RColor dark;
-    RColor black;
-    int width = img->width;
-    int height = img->height;
-    int cwidth = 28;
-
-    black.alpha = 255;
-    black.red = black.green = black.blue = 0;
-
-    light.alpha = 0;
-    light.red = light.green = light.blue = 80;
-
-    dark.alpha = 0;
-    dark.red = dark.green = dark.blue = 40;
-
-    ROperateLine(img, RSubtractOperation, 0, 0, width-1, 0, &dark);
-    ROperateLine(img, RAddOperation, 0, 1, width-1, 1, &light);
-
-    ROperateLine(img, RSubtractOperation, cwidth, 2, cwidth, height-1, &dark);
-    ROperateLine(img, RAddOperation, cwidth+1, 2, cwidth+1, height-1, &light);
-
-    ROperateLine(img, RSubtractOperation, width-cwidth-2, 2, width-cwidth-2,
-                 height-1, &dark);
-    ROperateLine(img, RAddOperation, width-cwidth-1, 2, width-cwidth-1,
-                 height-1, &light);
-
-    RDrawLine(img, 0, height-1, width-1, height-1, &black);
-    RDrawLine(img, 0, 0, 0, height-1, &black);
-    RDrawLine(img, width-1, 0, width-1, height-1, &black);
-}
-
-
-static void
-drawMenuBevel(RImage *img)
-{
-    RColor light, dark, mid;
-    int i;
-    int iheight = img->height / 4;
-
-    light.alpha = 0;
-    light.red = light.green = light.blue = 80;
-
-    dark.alpha = 255;
-    dark.red = dark.green = dark.blue = 0;
-
-    mid.alpha = 0;
-    mid.red = mid.green = mid.blue = 40;
-
-    for (i = 1; i < 4; i++) {
-        ROperateLine(img, RSubtractOperation, 0, i*iheight-2,
-                     img->width-1, i*iheight-2, &mid);
-
-        RDrawLine(img, 0, i*iheight-1, img->width-1, i*iheight-1, &dark);
-
-        ROperateLine(img, RAddOperation, 1, i*iheight,
-                     img->width-2, i*iheight, &light);
-    }
-}
-
-
-static Pixmap
-renderTexture(WMScreen *scr, WMPropList *texture, int width, int height,
-              char *path, int border)
-{
-    char *type;
-    RImage *image = NULL;
-    Pixmap pixmap;
-    RContext *rc = WMScreenRContext(scr);
-    char *str;
-    RColor rcolor;
-
-
-    type = WMGetFromPLString(WMGetFromPLArray(texture, 0));
-
-    if (strcasecmp(type, "solid")==0) {
-
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 1));
-
-        str2rcolor(rc, str, &rcolor);
-
-        image = RCreateImage(width, height, False);
-        RClearImage(image, &rcolor);
-    } else if (strcasecmp(type, "igradient")==0) {
-        int t1, t2;
-        RColor c1[2], c2[2];
-
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 1));
-        str2rcolor(rc, str, &c1[0]);
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 2));
-        str2rcolor(rc, str, &c1[1]);
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 3));
-        t1 = atoi(str);
-
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 4));
-        str2rcolor(rc, str, &c2[0]);
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 5));
-        str2rcolor(rc, str, &c2[1]);
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 6));
-        t2 = atoi(str);
-
-        image = RRenderInterwovenGradient(width, height, c1, t1, c2, t2);
-    } else if (strcasecmp(&type[1], "gradient")==0) {
-        int style;
-        RColor rcolor2;
-
-        switch (toupper(type[0])) {
-        case 'V':
-            style = RVerticalGradient;
-            break;
-        case 'H':
-            style = RHorizontalGradient;
-            break;
-        default:
-        case 'D':
-            style = RDiagonalGradient;
-            break;
-        }
-
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 1));
-        str2rcolor(rc, str, &rcolor);
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 2));
-        str2rcolor(rc, str, &rcolor2);
-
-        image = RRenderGradient(width, height, &rcolor, &rcolor2, style);
-    } else if (strcasecmp(&type[2], "gradient")==0 && toupper(type[0])=='T') {
-        int style;
-        RColor rcolor2;
-        int i;
-        RImage *grad, *timage;
-        char *path;
-
-        switch (toupper(type[1])) {
-        case 'V':
-            style = RVerticalGradient;
-            break;
-        case 'H':
-            style = RHorizontalGradient;
-            break;
-        default:
-        case 'D':
-            style = RDiagonalGradient;
-            break;
-        }
-
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 3));
-        str2rcolor(rc, str, &rcolor);
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 4));
-        str2rcolor(rc, str, &rcolor2);
-
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 1));
-
-        if ((path=wfindfileinarray(GetObjectForKey("PixmapPath"), str))!=NULL)
-            timage = RLoadImage(rc, path, 0);
-
-        if (!path || !timage) {
-            wwarning("could not load file '%s': %s", path,
-                     RMessageForError(RErrorCode));
-        } else {
-            grad = RRenderGradient(width, height, &rcolor, &rcolor2, style);
-
-            image = RMakeTiledImage(timage, width, height);
-            RReleaseImage(timage);
-
-            i = atoi(WMGetFromPLString(WMGetFromPLArray(texture, 2)));
-
-            RCombineImagesWithOpaqueness(image, grad, i);
-            RReleaseImage(grad);
-        }
-    } else if (strcasecmp(&type[2], "gradient")==0 && toupper(type[0])=='M') {
-        int style;
-        RColor **colors;
-        int i, j;
-
-        switch (toupper(type[1])) {
-        case 'V':
-            style = RVerticalGradient;
-            break;
-        case 'H':
-            style = RHorizontalGradient;
-            break;
-        default:
-        case 'D':
-            style = RDiagonalGradient;
-            break;
-        }
-
-        j = WMGetPropListItemCount(texture);
-
-        if (j > 0) {
-            colors = wmalloc(j * sizeof(RColor*));
-
-            for (i = 2; i < j; i++) {
-                str = WMGetFromPLString(WMGetFromPLArray(texture, i));
-                colors[i-2] = wmalloc(sizeof(RColor));
-                str2rcolor(rc, str, colors[i-2]);
-            }
-            colors[i-2] = NULL;
-
-            image = RRenderMultiGradient(width, height, colors, style);
-
-            for (i = 0; colors[i]!=NULL; i++)
-                wfree(colors[i]);
-            wfree(colors);
-        }
-    } else if (strcasecmp(&type[1], "pixmap")==0) {
-        RImage *timage = NULL;
-        char *path;
-        RColor color;
-
-        str = WMGetFromPLString(WMGetFromPLArray(texture, 1));
-
-        if ((path=wfindfileinarray(GetObjectForKey("PixmapPath"), str))!=NULL)
-            timage = RLoadImage(rc, path, 0);
-
-        if (!path || !timage) {
-            wwarning("could not load file '%s': %s", path ? path : str,
-                     RMessageForError(RErrorCode));
-        } else {
-            str = WMGetFromPLString(WMGetFromPLArray(texture, 2));
-            str2rcolor(rc, str, &color);
-
-            switch (toupper(type[0])) {
-            case 'T':
-                image = RMakeTiledImage(timage, width, height);
-                RReleaseImage(timage);
-                timage = image;
-                break;
-            case 'C':
-                image = RMakeCenteredImage(timage, width, height, &color);
-                RReleaseImage(timage);
-                timage = image;
-                break;
-            case 'S':
-            case 'M':
-                image = RScaleImage(timage, width, height);
-                RReleaseImage(timage);
-                timage = image;
-                break;
-            }
-
-        }
-        wfree(path);
-    }
-
-    if (!image)
-        return None;
-
-    if (path) {
-        dumpRImage(path, image);
-    }
-
-    if (border < 0) {
-        if (border == RESIZEBAR_BEVEL) {
-            drawResizebarBevel(image);
-        } else if (border == MENU_BEVEL) {
-            drawMenuBevel(image);
-            RBevelImage(image, RBEV_RAISED2);
-        }
-    } else if (border) {
-        RBevelImage(image, border);
-    }
-
-    RConvertImage(rc, image, &pixmap);
-    RReleaseImage(image);
-
-    return pixmap;
-}
-
-
-static Pixmap
-renderMenu(_Panel *panel, WMPropList *texture, int width, int iheight)
-{
-    WMScreen *scr = WMWidgetScreen(panel->parent);
-    Display *dpy = WMScreenDisplay(scr);
-    Pixmap pix, tmp;
-    GC gc = XCreateGC(dpy, WMWidgetXID(panel->parent), 0, NULL);
-    int i;
-
-    switch (panel->menuStyle) {
-    case MSTYLE_NORMAL:
-        tmp = renderTexture(scr, texture, width, iheight, NULL, RBEV_RAISED2);
-
-        pix = XCreatePixmap(dpy, tmp, width, iheight*4, WMScreenDepth(scr));
-        for (i = 0; i < 4; i++) {
-            XCopyArea(dpy, tmp, pix, gc, 0, 0, width, iheight, 0, iheight*i);
-        }
-        XFreePixmap(dpy, tmp);
-        break;
-    case MSTYLE_SINGLE:
-        pix = renderTexture(scr, texture, width, iheight*4, NULL, MENU_BEVEL);
-        break;
-    case MSTYLE_FLAT:
-        pix = renderTexture(scr, texture, width, iheight*4, NULL, RBEV_RAISED2);
-        break;
-    }
-    XFreeGC(dpy, gc);
-
-    return pix;
-}
-
-
-static void
-renderPreview(_Panel *panel, GC gc, int part, int relief)
-{
-    WMListItem *item;
-    TextureListItem *titem;
-    Pixmap pix;
-    WMScreen *scr = WMWidgetScreen(panel->box);
-
-    item = WMGetListItem(panel->texLs, panel->textureIndex[part]);
-    titem = (TextureListItem*)item->clientData;
-
-    pix = renderTexture(scr, titem->prop,
-                        previewPositions[part].size.width,
-                        previewPositions[part].size.height,
-                        NULL, relief);
-
-    XCopyArea(WMScreenDisplay(scr), pix, panel->preview, gc, 0, 0,
-              previewPositions[part].size.width,
-              previewPositions[part].size.height,
-              previewPositions[part].pos.x,
-              previewPositions[part].pos.y);
-
-    XCopyArea(WMScreenDisplay(scr), pix, panel->previewNoText, gc, 0, 0,
-              previewPositions[part].size.width,
-              previewPositions[part].size.height,
-              previewPositions[part].pos.x,
-              previewPositions[part].pos.y);
-
-    XFreePixmap(WMScreenDisplay(scr), pix);
-}
-
-
-static void
-updatePreviewBox(_Panel *panel, int elements)
-{
-    WMScreen *scr = WMWidgetScreen(panel->parent);
-    Display *dpy = WMScreenDisplay(scr);
-    Pixmap pix;
-    GC gc;
-    int colorUpdate = 0;
-    WMColor *black = WMBlackColor(scr);
-
-    gc = XCreateGC(dpy, WMWidgetXID(panel->parent), 0, NULL);
-
-
-    if (panel->preview == None) {
-        WMColor *color;
-        WMPixmap *p;
-
-        panel->previewNoText = XCreatePixmap(dpy, WMWidgetXID(panel->parent),
-                                             240-4, 215-4, WMScreenDepth(scr));
-
-        p = WMCreatePixmap(scr, 240-4, 215-4, WMScreenDepth(scr), False);
-        panel->preview = WMGetPixmapXID(p);
-        WMSetLabelImage(panel->prevL, p);
-        WMReleasePixmap(p);
-
-        color = WMCreateRGBColor(scr, 0x5100, 0x5100, 0x7100, True);
-        XFillRectangle(dpy, panel->preview, WMColorGC(color),
-                       0, 0, 240-4, 215-4);
-        XFillRectangle(dpy, panel->previewNoText, WMColorGC(color),
-                       0, 0, 240-4, 215-4);
-        WMReleaseColor(color);
-    }
-
-
-    if (elements & (1<<PFOCUSED)) {
-        renderPreview(panel, gc, PFOCUSED, RBEV_RAISED2);
-        XDrawRectangle(dpy, panel->preview, WMColorGC(black),
-                       previewPositions[PFOCUSED].pos.x-1,
-                       previewPositions[PFOCUSED].pos.y-1,
-                       previewPositions[PFOCUSED].size.width,
-                       previewPositions[PFOCUSED].size.height);
-        XDrawRectangle(dpy, panel->previewNoText, WMColorGC(black),
-                       previewPositions[PFOCUSED].pos.x-1,
-                       previewPositions[PFOCUSED].pos.y-1,
-                       previewPositions[PFOCUSED].size.width,
-                       previewPositions[PFOCUSED].size.height);
-        colorUpdate |= FTITLE_COL;
-    }
-    if (elements & (1<<PUNFOCUSED)) {
-        renderPreview(panel, gc, PUNFOCUSED, RBEV_RAISED2);
-        XDrawRectangle(dpy, panel->preview, WMColorGC(black),
-                       previewPositions[PUNFOCUSED].pos.x-1,
-                       previewPositions[PUNFOCUSED].pos.y-1,
-                       previewPositions[PUNFOCUSED].size.width,
-                       previewPositions[PUNFOCUSED].size.height);
-        XDrawRectangle(dpy, panel->previewNoText, WMColorGC(black),
-                       previewPositions[PUNFOCUSED].pos.x-1,
-                       previewPositions[PUNFOCUSED].pos.y-1,
-                       previewPositions[PUNFOCUSED].size.width,
-                       previewPositions[PUNFOCUSED].size.height);
-        colorUpdate |= UTITLE_COL;
-    }
-    if (elements & (1<<POWNER)) {
-        renderPreview(panel, gc, POWNER, RBEV_RAISED2);
-        XDrawRectangle(dpy, panel->preview, WMColorGC(black),
-                       previewPositions[POWNER].pos.x-1,
-                       previewPositions[POWNER].pos.y-1,
-                       previewPositions[POWNER].size.width,
-                       previewPositions[POWNER].size.height);
-        XDrawRectangle(dpy, panel->previewNoText, WMColorGC(black),
-                       previewPositions[POWNER].pos.x-1,
-                       previewPositions[POWNER].pos.y-1,
-                       previewPositions[POWNER].size.width,
-                       previewPositions[POWNER].size.height);
-        colorUpdate |= OTITLE_COL;
-    }
-    if (elements & (1<<PRESIZEBAR)) {
-        renderPreview(panel, gc, PRESIZEBAR, RESIZEBAR_BEVEL);
-    }
-    if (elements & (1<<PMTITLE)) {
-        renderPreview(panel, gc, PMTITLE, RBEV_RAISED2);
-        colorUpdate |= MTITLE_COL;
-    }
-    if (elements & (1<<PMITEM)) {
-        WMListItem *item;
-        TextureListItem *titem;
-
-        item = WMGetListItem(panel->texLs, panel->textureIndex[5]);
-        titem = (TextureListItem*)item->clientData;
-
-        pix = renderMenu(panel, titem->prop,
-                         previewPositions[PMITEM].size.width,
-                         previewPositions[PMITEM].size.height/4);
-
-        XCopyArea(dpy, pix, panel->preview, gc, 0, 0,
-                  previewPositions[PMITEM].size.width,
-                  previewPositions[PMITEM].size.height,
-                  previewPositions[PMITEM].pos.x,
-                  previewPositions[PMITEM].pos.y);
-
-        XCopyArea(dpy, pix, panel->previewNoText, gc, 0, 0,
-                  previewPositions[PMITEM].size.width,
-                  previewPositions[PMITEM].size.height,
-                  previewPositions[PMITEM].pos.x,
-                  previewPositions[PMITEM].pos.y);
-
-        XFreePixmap(dpy, pix);
-
-        colorUpdate |= MITEM_COL|MDISAB_COL|MHIGH_COL|MHIGHT_COL;
-    }
-    if (elements & (1<<PMITEM|1<<PMTITLE)) {
-        XDrawLine(dpy, panel->preview, gc, 29, 120, 29, 120+20*4+20);
-        XDrawLine(dpy, panel->preview, gc, 29, 119, 119, 119);
-
-        XDrawLine(dpy, panel->previewNoText, gc, 29, 120, 29, 120+20*4+20);
-        XDrawLine(dpy, panel->previewNoText, gc, 29, 119, 119, 119);
-    }
-    if (elements & (1<<PICON)) {
-        WMListItem *item;
-        TextureListItem *titem;
-
-        item = WMGetListItem(panel->texLs, panel->textureIndex[6]);
-        titem = (TextureListItem*)item->clientData;
-
-        renderPreview(panel, gc, PICON,
-                      titem->ispixmap ? 0 : RBEV_RAISED3);
-
-        colorUpdate |= ICONT_COL|ICONB_COL|CLIP_COL|CCLIP_COL;
-    }
-
-    if (colorUpdate)
-        updateColorPreviewBox(panel, colorUpdate);
-    else
-        WMRedisplayWidget(panel->prevL);
-
-    XFreeGC(dpy, gc);
-    WMReleaseColor(black);
-}
-
-
-
-
-static void
-cancelNewTexture(void *data)
-{
-    _Panel *panel = (_Panel*)data;
-
-    HideTexturePanel(panel->texturePanel);
-}
-
-
-
-
-static char*
-makeFileName(char *prefix)
-{
-    char *fname;
-
-    fname = wstrdup(prefix);
-
-    while (access(fname, F_OK)==0) {
-        char buf[30];
-
-        wfree(fname);
-        sprintf(buf, "%08lx.cache", time(NULL));
-        fname = wstrconcat(prefix, buf);
-    }
-
-    return fname;
-}
-
-
-
-
-static void
-okNewTexture(void *data)
-{
-    _Panel *panel = (_Panel*)data;
-    WMListItem *item;
-    char *name;
-    char *str;
-    WMPropList *prop;
-    TextureListItem *titem;
-    WMScreen *scr = WMWidgetScreen(panel->parent);
-
-    titem = wmalloc(sizeof(TextureListItem));
-    memset(titem, 0, sizeof(TextureListItem));
-
-    HideTexturePanel(panel->texturePanel);
-
-    name = GetTexturePanelTextureName(panel->texturePanel);
-
-    prop = GetTexturePanelTexture(panel->texturePanel);
-
-    str = WMGetPropListDescription(prop, False);
-
-    titem->title = name;
-    titem->prop = prop;
-    titem->texture = str;
-    titem->selectedFor = 0;
-
-    titem->ispixmap = isPixmap(prop);
-
-    titem->path = makeFileName(panel->fprefix);
-    titem->preview = renderTexture(scr, prop, TEXPREV_WIDTH, TEXPREV_HEIGHT,
-                                   titem->path, 0);
-
-    item = WMAddListItem(panel->texLs, "");
-    item->clientData = titem;
-
-    WMSetListPosition(panel->texLs, WMGetListNumberOfRows(panel->texLs));
-}
-
-
-static void
-okEditTexture(void *data)
-{
-    _Panel *panel = (_Panel*)data;
-    WMListItem *item;
-    char *name;
-    char *str;
-    WMPropList *prop;
-    TextureListItem *titem;
-
-    item = WMGetListItem(panel->texLs, WMGetListSelectedItemRow(panel->texLs));
-    titem = (TextureListItem*)item->clientData;
-
-    HideTexturePanel(panel->texturePanel);
-
-    if (titem->current) {
-        name = GetTexturePanelTextureName(panel->texturePanel);
-
-        wfree(titem->title);
-        titem->title = name;
-    }
-
-    prop = GetTexturePanelTexture(panel->texturePanel);
-
-    str = WMGetPropListDescription(prop, False);
-
-    WMReleasePropList(titem->prop);
-    titem->prop = prop;
-
-    titem->ispixmap = isPixmap(prop);
-
-    wfree(titem->texture);
-    titem->texture = str;
-
-    XFreePixmap(WMScreenDisplay(WMWidgetScreen(panel->texLs)), titem->preview);
-    titem->preview = renderTexture(WMWidgetScreen(panel->texLs), titem->prop,
-                                   TEXPREV_WIDTH, TEXPREV_HEIGHT,
-                                   titem->path, 0);
-
-    WMRedisplayWidget(panel->texLs);
-
-    if (titem->selectedFor)
-        updatePreviewBox(panel, titem->selectedFor);
-
-    changePage(panel->secP, panel);
-}
-
-
-
-static void
-editTexture(WMWidget *w, void *data)
-{
-    _Panel *panel = (_Panel*)data;
-    WMListItem *item;
-    TextureListItem *titem;
-
-    item = WMGetListItem(panel->texLs, WMGetListSelectedItemRow(panel->texLs));
-    titem = (TextureListItem*)item->clientData;
-
-    SetTexturePanelPixmapPath(panel->texturePanel,
-                              GetObjectForKey("PixmapPath"));
-
-    SetTexturePanelTexture(panel->texturePanel, titem->title, titem->prop);
-
-    SetTexturePanelCancelAction(panel->texturePanel, cancelNewTexture, panel);
-    SetTexturePanelOkAction(panel->texturePanel, okEditTexture, panel);
-
-    ShowTexturePanel(panel->texturePanel);
-}
-
-
-
-static void
-newTexture(WMWidget *w, void *data)
-{
-    _Panel *panel = (_Panel*)data;
-
-    SetTexturePanelPixmapPath(panel->texturePanel,
-                              GetObjectForKey("PixmapPath"));
-
-    SetTexturePanelTexture(panel->texturePanel, "New Texture", NULL);
-
-    SetTexturePanelCancelAction(panel->texturePanel, cancelNewTexture, panel);
-
-    SetTexturePanelOkAction(panel->texturePanel, okNewTexture, panel);
-
-    ShowTexturePanel(panel->texturePanel);
-}
-
-
-
-static void
-deleteTexture(WMWidget *w, void *data)
-{
-    _Panel *panel = (_Panel*)data;
-    WMListItem *item;
-    TextureListItem *titem;
-    int row;
-    int section;
-
-    section = WMGetPopUpButtonSelectedItem(panel->secP);
-    row = WMGetListSelectedItemRow(panel->texLs);
-    item = WMGetListItem(panel->texLs, row);
-    titem = (TextureListItem*)item->clientData;
-
-    if (titem->selectedFor & (1 << section)) {
-        TextureListItem *titem2;
-
-        panel->textureIndex[section] = section;
-        item = WMGetListItem(panel->texLs, section);
-        titem2 = (TextureListItem*)item->clientData;
-        titem2->selectedFor |= 1 << section;
-    }
-
-    wfree(titem->title);
-    wfree(titem->texture);
-    WMReleasePropList(titem->prop);
-    if (titem->path) {
-        if (remove(titem->path) < 0 && errno != ENOENT) {
-            wsyserror("could not remove file %s", titem->path);
-        }
-        wfree(titem->path);
-    }
-
-    wfree(titem);
-
-    WMRemoveListItem(panel->texLs, row);
-    WMSetButtonEnabled(panel->delB, False);
-}
-
-
-
-
-static void
-extractTexture(WMWidget *w, void *data)
-{
-    _Panel *panel = (_Panel*)data;
-    char *path;
-    WMOpenPanel *opanel;
-    WMScreen *scr = WMWidgetScreen(w);
-
-    opanel = WMGetOpenPanel(scr);
-    WMSetFilePanelCanChooseDirectories(opanel, False);
-    WMSetFilePanelCanChooseFiles(opanel, True);
-
-    if (WMRunModalFilePanelForDirectory(opanel, panel->parent, wgethomedir(),
-                                        _("Select File"), NULL)) {
-        path = WMGetFilePanelFileName(opanel);
-
-        OpenExtractPanelFor(panel, path);
-
-        wfree(path);
-    }
-}
-
-
-static void
-changePage(WMWidget *w, void *data)
-{
-    _Panel *panel = (_Panel*)data;
-    int section;
-    WMListItem *item;
-    TextureListItem *titem;
-    WMScreen *scr = WMWidgetScreen(panel->box);
-    RContext *rc = WMScreenRContext(scr);
-    static WMPoint positions[] = {
-        {5, 10},
-        {5, 40},
-        {5, 70},
-        {5, 100},
-        {5, 120},
-        {5, 160},
-        {130, 150}
-    };
-
-    if (w) {
-        section = WMGetPopUpButtonSelectedItem(panel->secP);
-
-        WMSelectListItem(panel->texLs, panel->textureIndex[section]);
-
-        WMSetListPosition(panel->texLs, panel->textureIndex[section] - 2);
-
-        item = WMGetListItem(panel->texLs, panel->textureIndex[section]);
-
-        titem = (TextureListItem*)item->clientData;
-    }
-    {
-        WMColor *color;
-
-        color = WMCreateRGBColor(scr, 0x5100, 0x5100, 0x7100, True);
-        XFillRectangle(rc->dpy, panel->preview, WMColorGC(color),
-                       positions[panel->oldsection].x,
-                       positions[panel->oldsection].y, 22, 22);
-        WMReleaseColor(color);
-    }
-    if (w) {
-        panel->oldsection = section;
-        WMDrawPixmap(panel->hand, panel->preview, positions[section].x,
-                     positions[section].y);
-    }
-    WMRedisplayWidget(panel->prevL);
-}
-
-
-
-static void
-previewClick(XEvent *event, void *clientData)
-{
-    _Panel *panel = (_Panel*)clientData;
-    int i;
-
-    switch (panel->oldTabItem) {
-    case 0:
-        for (i = 0; i < sizeof(previewPositions)/sizeof(WMRect); i++) {
-            if (event->xbutton.x >= previewPositions[i].pos.x
-                && event->xbutton.y >= previewPositions[i].pos.y
-                && event->xbutton.x < previewPositions[i].pos.x
-                + previewPositions[i].size.width
-                && event->xbutton.y < previewPositions[i].pos.y
-                + previewPositions[i].size.height) {
-
-                WMSetPopUpButtonSelectedItem(panel->secP, i);
-                changePage(panel->secP, panel);
-                return;
-            }
-        }
-        break;
-    case 1:
-        for (i = 0; i < WMGetPopUpButtonNumberOfItems(panel->colP); i++) {
-            if (event->xbutton.x >= previewColorPositions[i].pos.x
-                && event->xbutton.y >= previewColorPositions[i].pos.y
-                && event->xbutton.x < previewColorPositions[i].pos.x
-                + previewColorPositions[i].size.width
-                && event->xbutton.y < previewColorPositions[i].pos.y
-                + previewColorPositions[i].size.height) {
-
-                /* yuck kluge */
-                if (i == 7)
-                    i = 4;
-
-                WMSetPopUpButtonSelectedItem(panel->colP, i);
-                changeColorPage(panel->colP, panel);
-                return;
-            }
-        }
-        break;
-    }
-}
-
-
-static void
-textureClick(WMWidget *w, void *data)
-{
-    _Panel *panel = (_Panel*)data;
-    int i;
-    WMListItem *item;
-    TextureListItem *titem;
-
-    i = WMGetListSelectedItemRow(panel->texLs);
-
-    item = WMGetListItem(panel->texLs, i);
-
-    titem = (TextureListItem*)item->clientData;
-
-    if (titem->current) {
-        WMSetButtonEnabled(panel->delB, False);
-    } else {
-        WMSetButtonEnabled(panel->delB, True);
-    }
-}
-
-
-
-static void
-textureDoubleClick(WMWidget *w, void *data)
-{
-    _Panel *panel = (_Panel*)data;
-    int i, section;
-    WMListItem *item;
-    TextureListItem *titem;
-
-    /* unselect old texture */
-    section = WMGetPopUpButtonSelectedItem(panel->secP);
-
-    item = WMGetListItem(panel->texLs, panel->textureIndex[section]);
-    titem = (TextureListItem*)item->clientData;
-    titem->selectedFor &= ~(1 << section);
-
-    /* select new texture */
-    i = WMGetListSelectedItemRow(panel->texLs);
-
-    item = WMGetListItem(panel->texLs, i);
-
-    titem = (TextureListItem*)item->clientData;
-
-    titem->selectedFor |= 1<<section;
-
-    panel->textureIndex[section] = i;
-
-    WMRedisplayWidget(panel->texLs);
-
-    updatePreviewBox(panel, 1<<section);
-}
-
-
-
-static void
-paintListItem(WMList *lPtr, int index, Drawable d, char *text, int state,
-              WMRect *rect)
-{
-    _Panel *panel = (_Panel*)WMGetHangedData(lPtr);
-    WMScreen *scr = WMWidgetScreen(lPtr);
-    int width, height, x, y;
-    Display *dpy = WMScreenDisplay(scr);
-    WMColor *back = (state & WLDSSelected) ? WMWhiteColor(scr) : WMGrayColor(scr);
-    WMListItem *item;
-    WMColor *black = WMBlackColor(scr);
-    TextureListItem *titem;
-
-    item = WMGetListItem(lPtr, index);
-    titem = (TextureListItem*)item->clientData;
-    if (!titem) {
-        WMReleaseColor(back);
-        WMReleaseColor(black);
-        return;
-    }
-
-    width = rect->size.width;
-    height = rect->size.height;
-    x = rect->pos.x;
-    y = rect->pos.y;
-
-    XFillRectangle(dpy, d, WMColorGC(back), x, y, width, height);
-
-    if (titem->preview)
-        XCopyArea(dpy, titem->preview, d, WMColorGC(black), 0, 0,
-                  TEXPREV_WIDTH, TEXPREV_HEIGHT, x + 5, y + 5);
-
-    if ((1 << WMGetPopUpButtonSelectedItem(panel->secP)) & titem->selectedFor)
-        WMDrawPixmap(panel->onLed, d, x + TEXPREV_WIDTH + 10, y + 6);
-    else if (titem->selectedFor)
-        WMDrawPixmap(panel->offLed, d, x + TEXPREV_WIDTH + 10, y + 6);
-
-    WMDrawString(scr, d, black, panel->boldFont,
-                 x + TEXPREV_WIDTH + 22, y + 2, titem->title,
-                 strlen(titem->title));
-
-    WMDrawString(scr, d, black, panel->smallFont,
-                 x + TEXPREV_WIDTH + 14, y + 18, titem->texture,
-                 strlen(titem->texture));
-
-
-    WMReleaseColor(back);
-    WMReleaseColor(black);
-}
-
-
-
-static Pixmap
-loadRImage(WMScreen *scr, char *path)
-{
-    FILE *f;
-    RImage *image;
-    int w, h, d;
-    Pixmap pixmap;
-
-    f = fopen(path, "rb");
-    if (!f)
-        return None;
-
-    fscanf(f, "%02x%02x%1x", &w, &h, &d);
-
-    image = RCreateImage(w, h, d == 4);
-    fread(image->data, 1, w*h*d, f);
-    fclose(f);
-
-    RConvertImage(WMScreenRContext(scr), image, &pixmap);
-    RReleaseImage(image);
-
-    return pixmap;
-}
-
-
-
-static void
-fillTextureList(WMList *lPtr)
-{
-    WMPropList *textureList;
-    WMPropList *texture;
-    WMUserDefaults *udb = WMGetStandardUserDefaults();
-    TextureListItem *titem;
-    WMScreen *scr  = WMWidgetScreen(lPtr);
-    int i;
-
-    textureList = WMGetUDObjectForKey(udb, "TextureList");
-    if (!textureList)
-        return;
-
-    for (i = 0; i < WMGetPropListItemCount(textureList); i++) {
-        WMListItem *item;
-
-        texture = WMGetFromPLArray(textureList, i);
-
-        titem = wmalloc(sizeof(TextureListItem));
-        memset(titem, 0, sizeof(TextureListItem));
-
-        titem->title = wstrdup(WMGetFromPLString(WMGetFromPLArray(texture, 0)));
-        titem->prop = WMRetainPropList(WMGetFromPLArray(texture, 1));
-        titem->texture = WMGetPropListDescription(titem->prop, False);
-        titem->selectedFor = 0;
-        titem->path = wstrdup(WMGetFromPLString(WMGetFromPLArray(texture, 2)));
-
-        titem->preview = loadRImage(scr, titem->path);
-        if (!titem->preview) {
-            titem->preview = renderTexture(scr, titem->prop, TEXPREV_WIDTH,
-                                           TEXPREV_HEIGHT, NULL, 0);
-        }
-        item = WMAddListItem(lPtr, "");
-        item->clientData = titem;
-    }
-}
-
-
-static void
-fillColorList(_Panel *panel)
-{
-    WMColor *color;
-    WMPropList *list;
-    WMUserDefaults *udb = WMGetStandardUserDefaults();
-    WMScreen *scr = WMWidgetScreen(panel->box);
-    int i;
-
-    list = WMGetUDObjectForKey(udb, "ColorList");
-    if (!list) {
-        for (i = 0; i < 24; i++) {
-            color = WMCreateNamedColor(scr, sampleColors[i], False);
-            if (!color)
-                continue;
-            WMSetColorWellColor(panel->sampW[i], color);
-            WMReleaseColor(color);
-        }
-    } else {
-        WMPropList *c;
-
-        for (i = 0; i < WMIN(24, WMGetPropListItemCount(list)); i++) {
-            c = WMGetFromPLArray(list, i);
-            if (!c || !WMIsPLString(c))
-                continue;
-            color = WMCreateNamedColor(scr, WMGetFromPLString(c), False);
-            if (!color)
-                continue;
-            WMSetColorWellColor(panel->sampW[i], color);
-            WMReleaseColor(color);
-        }
-    }
-}
-
-
-/*************************************************************************/
-
-
-static void
-changeColorPage(WMWidget *w, void *data)
-{
-    _Panel *panel = (_Panel*)data;
-    int section;
-    WMScreen *scr = WMWidgetScreen(panel->box);
-    RContext *rc = WMScreenRContext(scr);
-    static WMPoint positions[] = {
-        {5, 10},
-        {5, 40},
-        {5, 70},
-        {5, 120},
-        {5, 140},
-        {5, 160},
-        {5, 180},
-        {5, 180},
-        {130, 140},
-        {130, 140},
-        {130, 140},
-        {130, 140}
-    };
-
-    if (panel->preview) {
-        WMColor *color;
-
-        color = WMCreateRGBColor(scr, 0x5100, 0x5100, 0x7100, True);
-        XFillRectangle(rc->dpy, panel->preview, WMColorGC(color),
-                       positions[panel->oldcsection].x,
-                       positions[panel->oldcsection].y, 22, 22);
-        WMReleaseColor(color);
-    }
-    if (w) {
-        section = WMGetPopUpButtonSelectedItem(panel->colP);
-
-        panel->oldcsection = section;
-        if (panel->preview)
-            WMDrawPixmap(panel->hand, panel->preview, positions[section].x,
-                         positions[section].y);
-
-        section = WMGetPopUpButtonSelectedItem(panel->colP);
-
-        WMSetColorWellColor(panel->colW, panel->colors[section]);
-    }
-    WMRedisplayWidget(panel->prevL);
-}
-
-
-static void
-paintText(WMScreen *scr, Drawable d, WMColor *color, WMFont *font,
-          int x, int y, int w, int h, WMAlignment align, char *text)
-{
-    int l = strlen(text);
-
-    switch (align) {
-    case WALeft:
-        x += 5;
-        break;
-    case WARight:
-        x += w - 5 - WMWidthOfString(font, text, l);
-        break;
-    default:
-    case WACenter:
-        x += (w - WMWidthOfString(font, text, l))/2;
-        break;
-    }
-    WMDrawString(scr, d, color, font, x, y + (h - WMFontHeight(font))/2,
-                 text, l);
-}
-
-
-
-static void
-updateColorPreviewBox(_Panel *panel, int elements)
-{
-    WMScreen *scr = WMWidgetScreen(panel->box);
-    Display *dpy = WMScreenDisplay(scr);
-    Pixmap d, pnot;
-    GC gc;
-
-    d = panel->preview;
-    pnot = panel->previewNoText;
-    gc = WMColorGC(panel->colors[0]);
-
-    if (elements & FTITLE_COL) {
-        XCopyArea(dpy, pnot, d, gc, 30, 10, 190, 20, 30, 10);
-        paintText(scr, d, panel->colors[0], panel->boldFont, 30, 10, 190, 20,
-                  panel->titleAlignment, _("Focused Window"));
-    }
-    if (elements & UTITLE_COL) {
-        XCopyArea(dpy, pnot, d, gc, 30, 40, 190, 20, 30, 40);
-        paintText(scr, d, panel->colors[1], panel->boldFont, 30, 40, 190, 20,
-                  panel->titleAlignment, _("Unfocused Window"));
-    }
-    if (elements & OTITLE_COL) {
-        XCopyArea(dpy, pnot, d, gc, 30, 70, 190, 20, 30, 70);
-        paintText(scr, d, panel->colors[2], panel->boldFont, 30, 70, 190, 20,
-                  panel->titleAlignment, _("Owner of Focused Window"));
-    }
-    if (elements & MTITLE_COL) {
-        XCopyArea(dpy, pnot, d, gc, 30, 120, 90, 20, 30, 120);
-        paintText(scr, d, panel->colors[3], panel->boldFont, 30, 120, 90, 20,
-                  WALeft, _("Menu Title"));
-    }
-    if (elements & MITEM_COL) {
-        XCopyArea(dpy, pnot, d, gc, 30, 140, 90, 20, 30, 140);
-        paintText(scr, d, panel->colors[4], panel->normalFont, 30, 140, 90, 20,
-                  WALeft, _("Normal Item"));
-        XCopyArea(dpy, pnot, d, gc, 30, 200, 90, 20, 30, 200);
-        paintText(scr, d, panel->colors[4], panel->normalFont, 30, 200, 90, 20,
-                  WALeft, _("Normal Item"));
-    }
-    if (elements & MDISAB_COL) {
-        XCopyArea(dpy, pnot, d, gc, 30, 160, 90, 20, 30, 160);
-        paintText(scr, d, panel->colors[5], panel->normalFont, 30, 160, 90, 20,
-                  WALeft, _("Disabled Item"));
-    }
-    if (elements & MHIGH_COL) {
-        XFillRectangle(WMScreenDisplay(scr), d, WMColorGC(panel->colors[6]),
-                       31, 181, 87, 17);
-        XFillRectangle(WMScreenDisplay(scr), pnot, WMColorGC(panel->colors[6]),
-                       31, 181, 87, 17);
-        elements |= MHIGHT_COL;
-    }
-    if (elements & MHIGHT_COL) {
-        XCopyArea(dpy, pnot, d, gc, 30, 180, 90, 20, 30, 180);
-        paintText(scr, d, panel->colors[7], panel->normalFont, 30, 180, 90, 20,
-                  WALeft, _("Highlighted"));
-    }
-    /*
-     if (elements & ICONT_COL) {
-     WRITE(_("Focused Window"), panel->colors[8], panel->boldFont,
-     155, 130, 64);
-     }
-     if (elements & ICONB_COL) {
-     WRITE(_("Focused Window"), panel->colors[9], panel->boldFont,
-     0, 0, 30);
-     }
-     if (elements & CLIP_COL) {
-     WRITE(_("Focused Window"), panel->colors[10], panel->boldFont,
-     0, 0, 30);
-     }
-     if (elements & CCLIP_COL) {
-     WRITE(_("Focused Window"), panel->colors[11], panel->boldFont,
-     0, 0, 30);
-     }
-     */
-    WMRedisplayWidget(panel->prevL);
-}
-
-
-static void
-colorWellObserver(void *self, WMNotification *n)
-{
-    _Panel *panel = (_Panel*)self;
-    int p;
-
-    p = WMGetPopUpButtonSelectedItem(panel->colP);
-
-    WMReleaseColor(panel->colors[p]);
-
-    panel->colors[p] = WMRetainColor(WMGetColorWellColor(panel->colW));
-
-    updateColorPreviewBox(panel, 1<<p);
-}
-
-
-static void
-changedTabItem(struct WMTabViewDelegate *self, WMTabView *tabView,
-               WMTabViewItem *item)
-{
-    _Panel *panel = self->data;
-    int i;
-
-    i = WMGetTabViewItemIdentifier(item);
-    switch (i) {
-    case 0:
-        switch (panel->oldTabItem) {
-        case 1:
-            changeColorPage(NULL, panel);
-            break;
-        }
-        changePage(panel->secP, panel);
-        break;
-    case 1:
-        switch (panel->oldTabItem) {
-        case 0:
-            changePage(NULL, panel);
-            break;
-        }
-        changeColorPage(panel->colP, panel);
-        break;
-    case 3:
-        switch (panel->oldTabItem) {
-        case 0:
-            changePage(NULL, panel);
-            break;
-        case 1:
-            changeColorPage(NULL, panel);
-            break;
-        }
-        break;
-    }
-
-    panel->oldTabItem = i;
-}
-
-
-/*************************************************************************/
-
-static void
-menuStyleCallback(WMWidget *self, void *data)
-{
-    _Panel *panel = (_Panel*)data;
-
-    if (self == panel->mstyB[0]) {
-        panel->menuStyle = MSTYLE_NORMAL;
-        updatePreviewBox(panel, 1<<PMITEM);
-
-    } else if (self == panel->mstyB[1]) {
-        panel->menuStyle = MSTYLE_SINGLE;
-        updatePreviewBox(panel, 1<<PMITEM);
-
-    } else if (self == panel->mstyB[2]) {
-        panel->menuStyle = MSTYLE_FLAT;
-        updatePreviewBox(panel, 1<<PMITEM);
-    }
-}
-
-
-static void
-titleAlignCallback(WMWidget *self, void *data)
-{
-    _Panel *panel = (_Panel*)data;
-
-    if (self == panel->taliB[0]) {
-        panel->titleAlignment = WALeft;
-        updatePreviewBox(panel, 1<<PFOCUSED|1<<PUNFOCUSED|1<<POWNER);
-
-    } else if (self == panel->taliB[1]) {
-        panel->titleAlignment = WACenter;
-        updatePreviewBox(panel, 1<<PFOCUSED|1<<PUNFOCUSED|1<<POWNER);
-
-    } else if (self == panel->taliB[2]) {
-        panel->titleAlignment = WARight;
-        updatePreviewBox(panel, 1<<PFOCUSED|1<<PUNFOCUSED|1<<POWNER);
-    }
-}
-
-
-static void
-createPanel(Panel *p)
-{
-    _Panel *panel = (_Panel*)p;
-    WMFont *font;
-    WMScreen *scr = WMWidgetScreen(panel->parent);
-    WMTabViewItem *item;
-    int i;
-    char *tmp;
-    Bool ok = True;
-
-    panel->fprefix = wstrconcat(wusergnusteppath(), "/Library/WindowMaker");
-
-    if (access(panel->fprefix, F_OK)!=0) {
-        if (mkdir(panel->fprefix, 0755) < 0) {
-            wsyserror(panel->fprefix);
-            ok = False;
-        }
-    }
-    if (ok) {
-        tmp = wstrconcat(panel->fprefix, "/WPrefs/");
-        wfree(panel->fprefix);
-        panel->fprefix = tmp;
-        if (access(panel->fprefix, F_OK)!=0) {
-            if (mkdir(panel->fprefix, 0755) < 0) {
-                wsyserror(panel->fprefix);
-            }
-        }
-    }
-
-    panel->smallFont = WMSystemFontOfSize(scr, 10);
-    panel->normalFont = WMSystemFontOfSize(scr, 12);
-    panel->boldFont = WMBoldSystemFontOfSize(scr, 12);
-
-    panel->onLed = WMCreatePixmapFromXPMData(scr, blueled_xpm);
-    panel->offLed = WMCreatePixmapFromXPMData(scr, blueled2_xpm);
-    panel->hand = WMCreatePixmapFromXPMData(scr, hand_xpm);
-
-    panel->box = WMCreateBox(panel->parent);
-    WMSetViewExpandsToParent(WMWidgetView(panel->box), 2, 2, 2, 2);
-
-    /* preview box */
-    panel->prevL = WMCreateLabel(panel->box);
-    WMResizeWidget(panel->prevL, 240, FRAME_HEIGHT - 20);
-    WMMoveWidget(panel->prevL, 15, 10);
-    WMSetLabelRelief(panel->prevL, WRSunken);
-    WMSetLabelImagePosition(panel->prevL, WIPImageOnly);
-
-    WMCreateEventHandler(WMWidgetView(panel->prevL), ButtonPressMask,
-                         previewClick, panel);
-
-
-    /* tabview */
-
-    tabviewDelegate.data = panel;
-
-    panel->tabv = WMCreateTabView(panel->box);
-    WMResizeWidget(panel->tabv, 245, FRAME_HEIGHT - 20);
-    WMMoveWidget(panel->tabv, 265, 10);
-    WMSetTabViewDelegate(panel->tabv, &tabviewDelegate);
-
-    /*** texture list ***/
-
-    panel->texF = WMCreateFrame(panel->box);
-    WMSetFrameRelief(panel->texF, WRFlat);
-
-    item = WMCreateTabViewItemWithIdentifier(0);
-    WMSetTabViewItemView(item, WMWidgetView(panel->texF));
-    WMSetTabViewItemLabel(item, _("Texture"));
-
-    WMAddItemInTabView(panel->tabv, item);
-
-
-    panel->secP = WMCreatePopUpButton(panel->texF);
-    WMResizeWidget(panel->secP, 228, 20);
-    WMMoveWidget(panel->secP, 7, 7);
-    WMAddPopUpButtonItem(panel->secP, _("Titlebar of Focused Window"));
-    WMAddPopUpButtonItem(panel->secP, _("Titlebar of Unfocused Windows"));
-    WMAddPopUpButtonItem(panel->secP, _("Titlebar of Focused Window's Owner"));
-    WMAddPopUpButtonItem(panel->secP, _("Window Resizebar"));
-    WMAddPopUpButtonItem(panel->secP, _("Titlebar of Menus"));
-    WMAddPopUpButtonItem(panel->secP, _("Menu Items"));
-    WMAddPopUpButtonItem(panel->secP, _("Icon Background"));
-    /*    WMAddPopUpButtonItem(panel->secP, _("Workspace Backgrounds"));
-     */
-    WMSetPopUpButtonSelectedItem(panel->secP, 0);
-    WMSetPopUpButtonAction(panel->secP, changePage, panel);
-
-    panel->texLs = WMCreateList(panel->texF);
-    WMResizeWidget(panel->texLs, 165, 155);
-    WMMoveWidget(panel->texLs, 70, 33);
-    WMSetListUserDrawItemHeight(panel->texLs, 35);
-    WMSetListUserDrawProc(panel->texLs, paintListItem);
-    WMHangData(panel->texLs, panel);
-    WMSetListAction(panel->texLs, textureClick, panel);
-    WMSetListDoubleAction(panel->texLs, textureDoubleClick, panel);
-
-    WMSetBalloonTextForView(_("Double click in the texture you want to use\n"
-                              "for the selected item."),
-                            WMWidgetView(panel->texLs));
-
-    /* command buttons */
-
-    font = WMSystemFontOfSize(scr, 10);
-
-
-    panel->newB = WMCreateCommandButton(panel->texF);
-    WMResizeWidget(panel->newB, 57, 39);
-    WMMoveWidget(panel->newB, 7, 33);
-    WMSetButtonFont(panel->newB, font);
-    WMSetButtonImagePosition(panel->newB, WIPAbove);
-    WMSetButtonText(panel->newB, _("New"));
-    WMSetButtonAction(panel->newB, newTexture, panel);
-    SetButtonAlphaImage(scr, panel->newB, TNEW_FILE, NULL, NULL);
-
-    WMSetBalloonTextForView(_("Create a new texture."),
-                            WMWidgetView(panel->newB));
-
-    panel->ripB = WMCreateCommandButton(panel->texF);
-    WMResizeWidget(panel->ripB, 57, 39);
-    WMMoveWidget(panel->ripB, 7, 72);
-    WMSetButtonFont(panel->ripB, font);
-    WMSetButtonImagePosition(panel->ripB, WIPAbove);
-    WMSetButtonText(panel->ripB, _("Extract..."));
-    WMSetButtonAction(panel->ripB, extractTexture, panel);
-    SetButtonAlphaImage(scr, panel->ripB, TEXTR_FILE, NULL, NULL);
-
-    WMSetBalloonTextForView(_("Extract texture(s) from a theme or a style file."),
-                            WMWidgetView(panel->ripB));
-
-    WMSetButtonEnabled(panel->ripB, False);
-
-    panel->editB = WMCreateCommandButton(panel->texF);
-    WMResizeWidget(panel->editB, 57, 39);
-    WMMoveWidget(panel->editB, 7, 111);
-    WMSetButtonFont(panel->editB, font);
-    WMSetButtonImagePosition(panel->editB, WIPAbove);
-    WMSetButtonText(panel->editB, _("Edit"));
-    SetButtonAlphaImage(scr, panel->editB, TEDIT_FILE, NULL, NULL);
-    WMSetButtonAction(panel->editB, editTexture, panel);
-    WMSetBalloonTextForView(_("Edit the highlighted texture."),
-                            WMWidgetView(panel->editB));
-
-    panel->delB = WMCreateCommandButton(panel->texF);
-    WMResizeWidget(panel->delB, 57, 38);
-    WMMoveWidget(panel->delB, 7, 150);
-    WMSetButtonFont(panel->delB, font);
-    WMSetButtonImagePosition(panel->delB, WIPAbove);
-    WMSetButtonText(panel->delB, _("Delete"));
-    SetButtonAlphaImage(scr, panel->delB, TDEL_FILE, NULL, NULL);
-    WMSetButtonEnabled(panel->delB, False);
-    WMSetButtonAction(panel->delB, deleteTexture, panel);
-    WMSetBalloonTextForView(_("Delete the highlighted texture."),
-                            WMWidgetView(panel->delB));
-
-    WMReleaseFont(font);
-
-    WMMapSubwidgets(panel->texF);
-
-    /*** colors ***/
-    panel->colF = WMCreateFrame(panel->box);
-    WMSetFrameRelief(panel->colF, WRFlat);
-
-    item = WMCreateTabViewItemWithIdentifier(1);
-    WMSetTabViewItemView(item, WMWidgetView(panel->colF));
-    WMSetTabViewItemLabel(item, _("Color"));
-
-    WMAddItemInTabView(panel->tabv, item);
-
-    panel->colP = WMCreatePopUpButton(panel->colF);
-    WMResizeWidget(panel->colP, 228, 20);
-    WMMoveWidget(panel->colP, 7, 7);
-    WMAddPopUpButtonItem(panel->colP, _("Focused Window Title"));
-    WMAddPopUpButtonItem(panel->colP, _("Unfocused Window Title"));
-    WMAddPopUpButtonItem(panel->colP, _("Owner of Focused Window Title"));
-    WMAddPopUpButtonItem(panel->colP, _("Menu Title"));
-    WMAddPopUpButtonItem(panel->colP, _("Menu Item Text"));
-    WMAddPopUpButtonItem(panel->colP, _("Disabled Menu Item Text"));
-    WMAddPopUpButtonItem(panel->colP, _("Menu Highlight Color"));
-    WMAddPopUpButtonItem(panel->colP, _("Highlighted Menu Text Color"));
-    /*
-     WMAddPopUpButtonItem(panel->colP, _("Miniwindow Title"));
-     WMAddPopUpButtonItem(panel->colP, _("Miniwindow Title Back"));
-     WMAddPopUpButtonItem(panel->colP, _("Clip Title"));
-     WMAddPopUpButtonItem(panel->colP, _("Collapsed Clip Title"));
-     */
-
-    WMSetPopUpButtonSelectedItem(panel->colP, 0);
-
-    WMSetPopUpButtonAction(panel->colP, changeColorPage, panel);
-
-
-    panel->colW = WMCreateColorWell(panel->colF);
-    WMResizeWidget(panel->colW, 65, 50);
-    WMMoveWidget(panel->colW, 30, 75);
-    WMAddNotificationObserver(colorWellObserver, panel,
-                              WMColorWellDidChangeNotification, panel->colW);
-
-    for (i = 0; i < 4; i++) {
-        int j;
-        for (j = 0; j < 6; j++) {
-            panel->sampW[i+j*4] = WMCreateColorWell(panel->colF);
-            WMResizeWidget(panel->sampW[i+j*4], 22, 22);
-            WMMoveWidget(panel->sampW[i+j*4], 130 + i*22, 40 + j*22);
-            WSetColorWellBordered(panel->sampW[i+j*4], False);
-        }
-    }
-
-    WMMapSubwidgets(panel->colF);
-
-#ifdef unfinished
-    /*** root bg ***/
-
-    panel->bgF = WMCreateFrame(panel->box);
-    WMSetFrameRelief(panel->bgF, WRFlat);
-
-    item = WMCreateTabViewItemWithIdentifier(2);
-    WMSetTabViewItemView(item, WMWidgetView(panel->bgF));
-    WMSetTabViewItemLabel(item, _("Background"));
-
-    WMAddItemInTabView(panel->tabv, item);
-
-    panel->bgprevL = WMCreateLabel(panel->bgF);
-    WMResizeWidget(panel->bgprevL, 230, 155);
-    WMMoveWidget(panel->bgprevL, 5, 5);
-    WMSetLabelRelief(panel->bgprevL, WRSunken);
-
-    panel->selbgB = WMCreateCommandButton(panel->bgF);
-    WMMoveWidget(panel->selbgB, 5, 165);
-    WMResizeWidget(panel->selbgB, 100, 24);
-    WMSetButtonText(panel->selbgB, _("Browse..."));
-
-
-
-
-    WMMapSubwidgets(panel->bgF);
-#endif /* unfinished */
-    /*** options ***/
-    panel->optF = WMCreateFrame(panel->box);
-    WMSetFrameRelief(panel->optF, WRFlat);
-
-    item = WMCreateTabViewItemWithIdentifier(3);
-    WMSetTabViewItemView(item, WMWidgetView(panel->optF));
-    WMSetTabViewItemLabel(item, _("Options"));
-
-    WMAddItemInTabView(panel->tabv, item);
-
-    panel->mstyF = WMCreateFrame(panel->optF);
-    WMResizeWidget(panel->mstyF, 215, 85);
-    WMMoveWidget(panel->mstyF, 15, 10);
-    WMSetFrameTitle(panel->mstyF, _("Menu Style"));
-
-    for (i = 0; i < 3; i++) {
-        WMPixmap *icon;
-        char *path;
-
-        panel->mstyB[i] = WMCreateButton(panel->mstyF, WBTOnOff);
-        WMResizeWidget(panel->mstyB[i], 54, 54);
-        WMMoveWidget(panel->mstyB[i], 15 + i*65, 20);
-        WMSetButtonImagePosition(panel->mstyB[i], WIPImageOnly);
-        WMSetButtonAction(panel->mstyB[i], menuStyleCallback, panel);
-        switch (i) {
-        case 0:
-            path = LocateImage(MSTYLE1_FILE);
-            break;
-        case 1:
-            path = LocateImage(MSTYLE2_FILE);
-            break;
-        case 2:
-            path = LocateImage(MSTYLE3_FILE);
-            break;
-        }
-        if (path) {
-            icon = WMCreatePixmapFromFile(scr, path);
-            if (icon) {
-                WMSetButtonImage(panel->mstyB[i], icon);
-                WMReleasePixmap(icon);
-            } else {
-                wwarning(_("could not load icon file %s"), path);
-            }
-            wfree(path);
-        }
-    }
-    WMGroupButtons(panel->mstyB[0], panel->mstyB[1]);
-    WMGroupButtons(panel->mstyB[0], panel->mstyB[2]);
-
-    WMMapSubwidgets(panel->mstyF);
-
-
-    panel->taliF = WMCreateFrame(panel->optF);
-    WMResizeWidget(panel->taliF, 110, 80);
-    WMMoveWidget(panel->taliF, 15, 100);
-    WMSetFrameTitle(panel->taliF, _("Title Alignment"));
-
-    for (i = 0; i < 3; i++) {
-        panel->taliB[i] = WMCreateRadioButton(panel->taliF);
-        WMSetButtonAction(panel->taliB[i], titleAlignCallback, panel);
-        switch (i) {
-        case 0:
-            WMSetButtonText(panel->taliB[i], _("Left"));
-            break;
-        case 1:
-            WMSetButtonText(panel->taliB[i], _("Center"));
-            break;
-        case 2:
-            WMSetButtonText(panel->taliB[i], _("Right"));
-            break;
-        }
-        WMResizeWidget(panel->taliB[i], 90, 18);
-        WMMoveWidget(panel->taliB[i], 10, 15 + 20*i);
-    }
-    WMGroupButtons(panel->taliB[0], panel->taliB[1]);
-    WMGroupButtons(panel->taliB[0], panel->taliB[2]);
-
-    WMMapSubwidgets(panel->taliF);
-
-    WMMapSubwidgets(panel->optF);
-
-    /**/
-
-    WMRealizeWidget(panel->box);
-    WMMapSubwidgets(panel->box);
-
-    WMSetPopUpButtonSelectedItem(panel->secP, 0);
-
-    showData(panel);
-
-    changePage(panel->secP, panel);
-
-    fillTextureList(panel->texLs);
-
-    fillColorList(panel);
-
-    panel->texturePanel = CreateTexturePanel(panel->parent);
-}
-
-
-
-static void
-setupTextureFor(WMList *list, char *key, char *defValue, char *title,
-                int index)
-{
-    WMListItem *item;
-    TextureListItem *titem;
-
-    titem = wmalloc(sizeof(TextureListItem));
-    memset(titem, 0, sizeof(TextureListItem));
-
-    titem->title = wstrdup(title);
-    titem->prop = GetObjectForKey(key);
-    if (!titem->prop || !WMIsPLArray(titem->prop)) {
-        /* Maybe also give a error message to stderr that the entry is bad? */
-        titem->prop = WMCreatePropListFromDescription(defValue);
-    } else {
-        WMRetainPropList(titem->prop);
-    }
-    titem->texture = WMGetPropListDescription((WMPropList*)titem->prop, False);
-    titem->current = 1;
-    titem->selectedFor = 1<<index;
-
-    titem->ispixmap = isPixmap(titem->prop);
-
-    titem->preview = renderTexture(WMWidgetScreen(list), titem->prop,
-                                   TEXPREV_WIDTH, TEXPREV_HEIGHT, NULL, 0);
-
-    item = WMAddListItem(list, "");
-    item->clientData = titem;
-}
-
-
-
-static void
-showData(_Panel *panel)
-{
-    int i;
-    char *str;
-
-    str = GetStringForKey("MenuStyle");
-    if (str && strcasecmp(str, "flat")==0) {
-        panel->menuStyle = MSTYLE_FLAT;
-    } else if (str && strcasecmp(str, "singletexture")==0) {
-        panel->menuStyle = MSTYLE_SINGLE;
-    } else {
-        panel->menuStyle = MSTYLE_NORMAL;
-    }
-
-    str = GetStringForKey("TitleJustify");
-    if (str && strcasecmp(str, "left")==0) {
-        panel->titleAlignment = WALeft;
-    } else if (str && strcasecmp(str, "right")==0) {
-        panel->titleAlignment = WARight;
-    } else {
-        panel->titleAlignment = WACenter;
-    }
-
-    for (i = 0; i < sizeof(colorOptions)/(2*sizeof(char*)); i++) {
-        WMColor *color;
-
-        str = GetStringForKey(colorOptions[i*2]);
-        if (!str)
-            str = colorOptions[i*2+1];
-
-        if (!(color = WMCreateNamedColor(WMWidgetScreen(panel->box), str, False))) {
-            color = WMCreateNamedColor(WMWidgetScreen(panel->box), "#000000", False);
-        }
-
-        panel->colors[i] = color;
-    }
-    changeColorPage(panel->colP, panel);
-
-    for (i = 0; i < sizeof(textureOptions)/(3*sizeof(char*)); i++) {
-        setupTextureFor(panel->texLs, textureOptions[i*3],
-                        textureOptions[i*3+1], textureOptions[i*3+2], i);
-        panel->textureIndex[i] = i;
-    }
-    updatePreviewBox(panel, EVERYTHING);
-
-    WMSetButtonSelected(panel->mstyB[panel->menuStyle], True);
-    WMSetButtonSelected(panel->taliB[panel->titleAlignment], True);
-}
-
-
-static void
-storeData(_Panel *panel)
-{
-    TextureListItem *titem;
-    WMListItem *item;
-    int i;
-
-    for (i = 0; i < sizeof(textureOptions)/(sizeof(char*)*3); i++) {
-        item = WMGetListItem(panel->texLs, panel->textureIndex[i]);
-        titem = (TextureListItem*)item->clientData;
-        SetObjectForKey(titem->prop, textureOptions[i*3]);
-    }
-
-    for (i = 0; i < 8; i++) {
-        char *str;
-
-        str = WMGetColorRGBDescription(panel->colors[i]);
-
-        if (str) {
-            SetStringForKey(str, colorOptions[i*2]);
-            wfree(str);
-        }
-    }
-
-    switch (panel->menuStyle) {
-    case MSTYLE_SINGLE:
-        SetStringForKey("singletexture", "MenuStyle");
-        break;
-    case MSTYLE_FLAT:
-        SetStringForKey("flat", "MenuStyle");
-        break;
-    default:
-    case MSTYLE_NORMAL:
-        SetStringForKey("normal", "MenuStyle");
-        break;
-    }
-    switch (panel->titleAlignment) {
-    case WALeft:
-        SetStringForKey("left", "TitleJustify");
-        break;
-    case WARight:
-        SetStringForKey("right", "TitleJustify");
-        break;
-    default:
-    case WACenter:
-        SetStringForKey("center", "TitleJustify");
-        break;
-    }
-}
-
-
-static void
-prepareForClose(_Panel *panel)
-{
-    WMPropList *textureList;
-    WMPropList *texture;
-    TextureListItem *titem;
-    WMListItem *item;
-    WMUserDefaults *udb = WMGetStandardUserDefaults();
-    int i;
-
-    textureList = WMCreatePLArray(NULL, NULL);
-
-    /* store list of textures */
-    for (i = 7; i < WMGetListNumberOfRows(panel->texLs); i++) {
-        item = WMGetListItem(panel->texLs, i);
-        titem = (TextureListItem*)item->clientData;
-
-        texture = WMCreatePLArray(WMCreatePLString(titem->title),
-                                  WMRetainPropList(titem->prop),
-                                  WMCreatePLString(titem->path),
-                                  NULL);
-
-        WMAddToPLArray(textureList, texture);
-    }
-
-    WMSetUDObjectForKey(udb, textureList, "TextureList");
-    WMReleasePropList(textureList);
-
-    /* store list of colors */
-    textureList = WMCreatePLArray(NULL, NULL);
-    for (i = 0; i < 24; i++) {
-        WMColor *color;
-        char *str;
-
-        color = WMGetColorWellColor(panel->sampW[i]);
-
-        str = WMGetColorRGBDescription(color);
-        WMAddToPLArray(textureList, WMCreatePLString(str));
-        wfree(str);
-    }
-    WMSetUDObjectForKey(udb, textureList, "ColorList");
-    WMReleasePropList(textureList);
-
-    WMSynchronizeUserDefaults(udb);
-}
-
-
-
-Panel*
-InitAppearance(WMScreen *scr, WMWindow *win)
-{
-    _Panel *panel;
-
-    panel = wmalloc(sizeof(_Panel));
-    memset(panel, 0, sizeof(_Panel));
-
-    panel->sectionName = _("Appearance Preferences");
-
-    panel->description = _("Background texture configuration for windows,\n"
-                           "menus and icons.");
-
-    panel->parent = win;
-
-    panel->callbacks.createWidgets = createPanel;
-    panel->callbacks.updateDomain = storeData;
-    panel->callbacks.prepareForClose = prepareForClose;
-
-    AddSection(panel, ICON_FILE);
-
-    return panel;
-}
-
-
-
-/****************************************************************************/
-
-
-
-typedef struct ExtractPanel {
-    WMWindow *win;
-
-    WMLabel *label;
-    WMList *list;
-
-    WMButton *closeB;
-    WMButton *extrB;
-} ExtractPanel;
-
-
-
-static void
-OpenExtractPanelFor(_Panel *panel, char *path)
-{
-    ExtractPanel *epanel;
-    WMColor *color;
-    WMFont *font;
-    WMScreen *scr = WMWidgetScreen(panel->parent);
-
-    epanel = wmalloc(sizeof(ExtractPanel));
-    epanel->win = WMCreatePanelWithStyleForWindow(panel->parent, "extract",
-                                                  WMTitledWindowMask
-                                                  |WMClosableWindowMask);
-    WMResizeWidget(epanel->win, 245, 250);
-    WMSetWindowTitle(epanel->win, _("Extract Texture"));
-
-    epanel->label = WMCreateLabel(epanel->win);
-    WMResizeWidget(epanel->label, 225, 18);
-    WMMoveWidget(epanel->label, 10, 10);
-    WMSetLabelTextAlignment(epanel->label, WACenter);
-    WMSetLabelRelief(epanel->label, WRSunken);
-
-    color = WMDarkGrayColor(scr);
-    WMSetWidgetBackgroundColor(epanel->label, color);
-    WMReleaseColor(color);
-
-    color = WMWhiteColor(scr);
-    WMSetLabelTextColor(epanel->label, color);
-    WMReleaseColor(color);
-
-    font = WMBoldSystemFontOfSize(scr, 12);
-    WMSetLabelFont(epanel->label, font);
-    WMReleaseFont(font);
-
-    WMSetLabelText(epanel->label, _("Textures"));
-
-    epanel->list = WMCreateList(epanel->win);
-    WMResizeWidget(epanel->list, 225, 165);
-    WMMoveWidget(epanel->list, 10, 30);
-
-
-
-    epanel->closeB = WMCreateCommandButton(epanel->win);
-    WMResizeWidget(epanel->closeB, 74, 24);
-    WMMoveWidget(epanel->closeB, 165, 215);
-    WMSetButtonText(epanel->closeB, _("Close"));
-
-    epanel->extrB = WMCreateCommandButton(epanel->win);
-    WMResizeWidget(epanel->extrB, 74, 24);
-    WMMoveWidget(epanel->extrB, 80, 215);
-    WMSetButtonText(epanel->extrB, _("Extract"));
-
-    WMMapSubwidgets(epanel->win);
-
-
-    /* take textures from file */
-
-
-
-    WMRealizeWidget(epanel->win);
-
-    WMMapWidget(epanel->win);
-}
-
+/* Apperance.c- color/texture for titlebar etc.
+ *
+ *  WPrefs - Window Maker Preferences Program
+ *
+ *  Copyright (c) 1999-2003 Alfredo K. Kojima
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
+ *  USA.
+ */
+
+#include "WPrefs.h"
+
+#include <unistd.h>
+#include <errno.h>
+#include <ctype.h>
+#include <time.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <fcntl.h>
+#include <unistd.h>
+
+#include "TexturePanel.h"
+
+typedef struct _Panel {
+       WMBox *box;
+       char *sectionName;
+
+       char *description;
+
+       CallbackRec callbacks;
+
+       WMWidget *parent;
+
+       WMLabel *prevL;
+
+       WMTabView *tabv;
+
+       /* texture list */
+       WMFrame *texF;
+       WMList *texLs;
+
+       WMPopUpButton *secP;
+
+       WMButton *newB;
+       WMButton *editB;
+       WMButton *ripB;
+       WMButton *delB;
+
+       /* text color */
+       WMFrame *colF;
+
+       WMPopUpButton *colP;
+       WMColor *colors[14];
+
+       WMColorWell *colW;
+
+       WMColorWell *sampW[24];
+
+       /* options */
+       WMFrame *optF;
+
+       WMFrame *mstyF;
+       WMButton *mstyB[3];
+
+       WMFrame *taliF;
+       WMButton *taliB[3];
+
+       /* root bg */
+       WMFrame *bgF;
+
+       WMLabel *bgprevL;
+       WMButton *selbgB;
+
+       WMPopUpButton *modeB[3];
+
+       /* */
+
+       int textureIndex[8];
+
+       WMFont *smallFont;
+       WMFont *normalFont;
+       WMFont *boldFont;
+
+       TexturePanel *texturePanel;
+
+       WMPixmap *onLed;
+       WMPixmap *offLed;
+       WMPixmap *hand;
+
+       int oldsection;
+       int oldcsection;
+
+       char oldTabItem;
+
+       int menuStyle;
+
+       int titleAlignment;
+
+       Pixmap preview;
+       Pixmap previewNoText;
+
+       char *fprefix;
+} _Panel;
+
+typedef struct {
+       char *title;
+       char *texture;
+       WMPropList *prop;
+       Pixmap preview;
+
+       char *path;
+
+       char selectedFor;
+       unsigned current:1;
+       unsigned ispixmap:1;
+} TextureListItem;
+
+static void updateColorPreviewBox(_Panel * panel, int elements);
+
+static void showData(_Panel * panel);
+
+static void changePage(WMWidget * w, void *data);
+
+static void changeColorPage(WMWidget * w, void *data);
+
+static void OpenExtractPanelFor(_Panel * panel, char *path);
+
+static void changedTabItem(struct WMTabViewDelegate *self, WMTabView * tabView, WMTabViewItem * item);
+
+static WMTabViewDelegate tabviewDelegate = {
+       NULL,
+       NULL,                   /* didChangeNumberOfItems */
+       changedTabItem,         /* didSelectItem */
+       NULL,                   /* shouldSelectItem */
+       NULL                    /* willSelectItem */
+};
+
+#define ICON_FILE      "appearance"
+
+#define TNEW_FILE      "tnew"
+#define TDEL_FILE      "tdel"
+#define TEDIT_FILE     "tedit"
+#define TEXTR_FILE     "textr"
+
+#define MSTYLE1_FILE   "msty1"
+#define MSTYLE2_FILE   "msty2"
+#define MSTYLE3_FILE   "msty3"
+
+/* XPM */
+static char *blueled_xpm[] = {
+       "8 8 17 1",
+       "       c None",
+       ".      c #020204",
+       "+      c #16B6FC",
+       "@      c #176AFC",
+       "#      c #163AFC",
+       "$      c #72D2FC",
+       "%      c #224CF4",
+       "&      c #76D6FC",
+       "*      c #16AAFC",
+       "=      c #CEE9FC",
+       "-      c #229EFC",
+       ";      c #164CFC",
+       ">      c #FAFEFC",
+       ",      c #2482FC",
+       "'      c #1652FC",
+       ")      c #1E76FC",
+       "!      c #1A60FC",
+       "  ....  ",
+       " .=>-@. ",
+       ".=>$@@'.",
+       ".=$@!;;.",
+       ".!@*+!#.",
+       ".#'*+*,.",
+       " .@)@,. ",
+       "  ....  "
+};
+
+/* XPM */
+static char *blueled2_xpm[] = {
+       /* width height num_colors chars_per_pixel */
+       "     8     8       17            1",
+       /* colors */
+       ". c None",
+       "# c #090909",
+       "a c #4b63a4",
+       "b c #011578",
+       "c c #264194",
+       "d c #04338c",
+       "e c #989dac",
+       "f c #011a7c",
+       "g c #465c9c",
+       "h c #03278a",
+       "i c #6175ac",
+       "j c #011e74",
+       "k c #043a90",
+       "l c #042f94",
+       "m c #0933a4",
+       "n c #022184",
+       "o c #012998",
+       /* pixels */
+       "..####..",
+       ".#aimn#.",
+       "#aechnf#",
+       "#gchnjf#",
+       "#jndknb#",
+       "#bjdddl#",
+       ".#nono#.",
+       "..####.."
+};
+
+/* XPM */
+static char *hand_xpm[] = {
+       "22 21 19 1",
+       "       c None",
+       ".      c #030305",
+       "+      c #7F7F7E",
+       "@      c #B5B5B6",
+       "#      c #C5C5C6",
+       "$      c #969697",
+       "%      c #FDFDFB",
+       "&      c #F2F2F4",
+       "*      c #E5E5E4",
+       "=      c #ECECEC",
+       "-      c #DCDCDC",
+       ";      c #D2D2D0",
+       ">      c #101010",
+       ",      c #767674",
+       "'      c #676767",
+       ")      c #535355",
+       "!      c #323234",
+       "~      c #3E3C56",
+       "{      c #333147",
+       "                      ",
+       "       .....          ",
+       "     ..+@##$.         ",
+       "    .%%%&@..........  ",
+       "   .%*%%&#%%%%%%%%%$. ",
+       "  .*#%%%%%%%%%&&&&==. ",
+       " .-%%%%%%%%%=*-;;;#$. ",
+       " .-%%%%%%%%&..>.....  ",
+       " >-%%%%%%%%%*#+.      ",
+       " >-%%%%%%%%%*@,.      ",
+       " >#%%%%%%%%%*@'.      ",
+       " >$&&%%%%%%=...       ",
+       " .+@@;=&%%&;$,>       ",
+       "  .',$@####$+).       ",
+       "   .!',+$++,'.        ",
+       "     ..>>>>>.         ",
+       "                      ",
+       "     ~~{{{~~          ",
+       "   {{{{{{{{{{{        ",
+       "     ~~{{{~~          ",
+       "                      "
+};
+
+static char *sampleColors[] = {
+       "black",
+       "#292929",
+       "#525252",
+       "#848484",
+       "#adadad",
+       "#d6d6d6",
+       "white",
+       "#d6d68c",
+       "#d6a57b",
+       "#8cd68c",
+       "#8cd6ce",
+       "#d68c8c",
+       "#8c9cd6",
+       "#bd86d6",
+       "#d68cbd",
+       "#d64a4a",
+       "#4a5ad6",
+       "#4ad6ce",
+       "#4ad65a",
+       "#ced64a",
+       "#d6844a",
+       "#8ad631",
+       "#ce29c6",
+       "#ce2973",
+       "black"
+};
+
+static char *textureOptions[] = {
+       "FTitleBack", "(solid, black)", "[Focused]",
+       "UTitleBack", "(solid, gray)", "[Unfocused]",
+       "PTitleBack", "(solid, \"#616161\")", "[Owner of Focused]",
+       "ResizebarBack", "(solid, gray)", "[Resizebar]",
+       "MenuTitleBack", "(solid, black)", "[Menu Title]",
+       "MenuTextBack", "(solid, gray)", "[Menu Item]",
+       "IconBack", "(solid, gray)", "[Icon]"
+};
+
+#define RESIZEBAR_BEVEL        -1
+#define MENU_BEVEL     -2
+
+#define TEXPREV_WIDTH  40
+#define TEXPREV_HEIGHT 24
+
+#define MSTYLE_NORMAL  0
+#define MSTYLE_SINGLE  1
+#define MSTYLE_FLAT    2
+
+#define FTITLE_COL     (1<<0)
+#define UTITLE_COL     (1<<1)
+#define OTITLE_COL     (1<<2)
+#define MTITLE_COL     (1<<3)
+#define MITEM_COL      (1<<4)
+#define MDISAB_COL     (1<<5)
+#define MHIGH_COL      (1<<6)
+#define MHIGHT_COL     (1<<7)
+#define ICONT_COL      (1<<8)
+#define ICONB_COL      (1<<9)
+#define CLIP_COL       (1<<10)
+#define CCLIP_COL      (1<<11)
+
+static char *colorOptions[] = {
+       "FTitleColor", "white",
+       "UTitleColor", "black",
+       "PTitleColor", "white",
+       "MenuTitleColor", "white",
+       "MenuTextColor", "black",
+       "MenuDisabledColor", "#616161",
+       "HighlightColor", "white",
+       "HighlightTextColor", "black",
+       "IconTitleColor", "white",
+       "IconTitleBack", "black",
+       "ClipTitleColor", "black",
+       "CClipTitleColor", "#454045"
+};
+
+static WMRect previewPositions[] = {
+#define PFOCUSED       0
+       {{30, 10}, {190, 20}},
+#define PUNFOCUSED     1
+       {{30, 40}, {190, 20}},
+#define POWNER         2
+       {{30, 70}, {190, 20}},
+#define PRESIZEBAR     3
+       {{30, 100}, {190, 9}},
+#define PMTITLE                4
+       {{30, 120}, {90, 20}},
+#define PMITEM         5
+       {{30, 140}, {90, 20 * 4}},
+#define PICON          6
+       {{155, 130}, {64, 64}}
+};
+
+#define EVERYTHING     0xff
+
+static WMRect previewColorPositions[] = {
+       {{30, 10}, {190, 20}},
+       {{30, 40}, {190, 20}},
+       {{30, 70}, {190, 20}},
+       {{30, 120}, {90, 20}},
+       {{30, 140}, {90, 20}},
+       {{30, 160}, {90, 20}},
+       {{30, 180}, {90, 20}},
+       {{30, 200}, {90, 20}},
+       {{155, 130}, {64, 64}},
+       {{155, 130}, {64, 64}},
+       {{155, 130}, {64, 64}},
+       {{155, 130}, {64, 64}}
+};
+
+static void str2rcolor(RContext * rc, char *name, RColor * color)
+{
+       XColor xcolor;
+
+       XParseColor(rc->dpy, rc->cmap, name, &xcolor);
+
+       color->alpha = 255;
+       color->red = xcolor.red >> 8;
+       color->green = xcolor.green >> 8;
+       color->blue = xcolor.blue >> 8;
+}
+
+static void dumpRImage(char *path, RImage * image)
+{
+       FILE *f;
+       int channels = (image->format == RRGBAFormat ? 4 : 3);
+
+       f = fopen(path, "wb");
+       if (!f) {
+               wsyserror(path);
+               return;
+       }
+       fprintf(f, "%02x%02x%1x", image->width, image->height, channels);
+
+       fwrite(image->data, 1, image->width * image->height * channels, f);
+
+       if (fclose(f) < 0) {
+               wsyserror(path);
+       }
+}
+
+static int isPixmap(WMPropList * prop)
+{
+       WMPropList *p;
+       char *s;
+
+       p = WMGetFromPLArray(prop, 0);
+       s = WMGetFromPLString(p);
+       if (strcasecmp(&s[1], "pixmap") == 0)
+               return 1;
+       else
+               return 0;
+}
+
+/**********************************************************************/
+
+static void drawResizebarBevel(RImage * img)
+{
+       RColor light;
+       RColor dark;
+       RColor black;
+       int width = img->width;
+       int height = img->height;
+       int cwidth = 28;
+
+       black.alpha = 255;
+       black.red = black.green = black.blue = 0;
+
+       light.alpha = 0;
+       light.red = light.green = light.blue = 80;
+
+       dark.alpha = 0;
+       dark.red = dark.green = dark.blue = 40;
+
+       ROperateLine(img, RSubtractOperation, 0, 0, width - 1, 0, &dark);
+       ROperateLine(img, RAddOperation, 0, 1, width - 1, 1, &light);
+
+       ROperateLine(img, RSubtractOperation, cwidth, 2, cwidth, height - 1, &dark);
+       ROperateLine(img, RAddOperation, cwidth + 1, 2, cwidth + 1, height - 1, &light);
+
+       ROperateLine(img, RSubtractOperation, width - cwidth - 2, 2, width - cwidth - 2, height - 1, &dark);
+       ROperateLine(img, RAddOperation, width - cwidth - 1, 2, width - cwidth - 1, height - 1, &light);
+
+       RDrawLine(img, 0, height - 1, width - 1, height - 1, &black);
+       RDrawLine(img, 0, 0, 0, height - 1, &black);
+       RDrawLine(img, width - 1, 0, width - 1, height - 1, &black);
+}
+
+static void drawMenuBevel(RImage * img)
+{
+       RColor light, dark, mid;
+       int i;
+       int iheight = img->height / 4;
+
+       light.alpha = 0;
+       light.red = light.green = light.blue = 80;
+
+       dark.alpha = 255;
+       dark.red = dark.green = dark.blue = 0;
+
+       mid.alpha = 0;
+       mid.red = mid.green = mid.blue = 40;
+
+       for (i = 1; i < 4; i++) {
+               ROperateLine(img, RSubtractOperation, 0, i * iheight - 2, img->width - 1, i * iheight - 2, &mid);
+
+               RDrawLine(img, 0, i * iheight - 1, img->width - 1, i * iheight - 1, &dark);
+
+               ROperateLine(img, RAddOperation, 1, i * iheight, img->width - 2, i * iheight, &light);
+       }
+}
+
+static Pixmap renderTexture(WMScreen * scr, WMPropList * texture, int width, int height, char *path, int border)
+{
+       char *type;
+       RImage *image = NULL;
+       Pixmap pixmap;
+       RContext *rc = WMScreenRContext(scr);
+       char *str;
+       RColor rcolor;
+
+       type = WMGetFromPLString(WMGetFromPLArray(texture, 0));
+
+       if (strcasecmp(type, "solid") == 0) {
+
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 1));
+
+               str2rcolor(rc, str, &rcolor);
+
+               image = RCreateImage(width, height, False);
+               RClearImage(image, &rcolor);
+       } else if (strcasecmp(type, "igradient") == 0) {
+               int t1, t2;
+               RColor c1[2], c2[2];
+
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 1));
+               str2rcolor(rc, str, &c1[0]);
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 2));
+               str2rcolor(rc, str, &c1[1]);
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 3));
+               t1 = atoi(str);
+
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 4));
+               str2rcolor(rc, str, &c2[0]);
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 5));
+               str2rcolor(rc, str, &c2[1]);
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 6));
+               t2 = atoi(str);
+
+               image = RRenderInterwovenGradient(width, height, c1, t1, c2, t2);
+       } else if (strcasecmp(&type[1], "gradient") == 0) {
+               int style;
+               RColor rcolor2;
+
+               switch (toupper(type[0])) {
+               case 'V':
+                       style = RVerticalGradient;
+                       break;
+               case 'H':
+                       style = RHorizontalGradient;
+                       break;
+               default:
+               case 'D':
+                       style = RDiagonalGradient;
+                       break;
+               }
+
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 1));
+               str2rcolor(rc, str, &rcolor);
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 2));
+               str2rcolor(rc, str, &rcolor2);
+
+               image = RRenderGradient(width, height, &rcolor, &rcolor2, style);
+       } else if (strcasecmp(&type[2], "gradient") == 0 && toupper(type[0]) == 'T') {
+               int style;
+               RColor rcolor2;
+               int i;
+               RImage *grad, *timage;
+               char *path;
+
+               switch (toupper(type[1])) {
+               case 'V':
+                       style = RVerticalGradient;
+                       break;
+               case 'H':
+                       style = RHorizontalGradient;
+                       break;
+               default:
+               case 'D':
+                       style = RDiagonalGradient;
+                       break;
+               }
+
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 3));
+               str2rcolor(rc, str, &rcolor);
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 4));
+               str2rcolor(rc, str, &rcolor2);
+
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 1));
+
+               if ((path = wfindfileinarray(GetObjectForKey("PixmapPath"), str)) != NULL)
+                       timage = RLoadImage(rc, path, 0);
+
+               if (!path || !timage) {
+                       wwarning("could not load file '%s': %s", path, RMessageForError(RErrorCode));
+               } else {
+                       grad = RRenderGradient(width, height, &rcolor, &rcolor2, style);
+
+                       image = RMakeTiledImage(timage, width, height);
+                       RReleaseImage(timage);
+
+                       i = atoi(WMGetFromPLString(WMGetFromPLArray(texture, 2)));
+
+                       RCombineImagesWithOpaqueness(image, grad, i);
+                       RReleaseImage(grad);
+               }
+       } else if (strcasecmp(&type[2], "gradient") == 0 && toupper(type[0]) == 'M') {
+               int style;
+               RColor **colors;
+               int i, j;
+
+               switch (toupper(type[1])) {
+               case 'V':
+                       style = RVerticalGradient;
+                       break;
+               case 'H':
+                       style = RHorizontalGradient;
+                       break;
+               default:
+               case 'D':
+                       style = RDiagonalGradient;
+                       break;
+               }
+
+               j = WMGetPropListItemCount(texture);
+
+               if (j > 0) {
+                       colors = wmalloc(j * sizeof(RColor *));
+
+                       for (i = 2; i < j; i++) {
+                               str = WMGetFromPLString(WMGetFromPLArray(texture, i));
+                               colors[i - 2] = wmalloc(sizeof(RColor));
+                               str2rcolor(rc, str, colors[i - 2]);
+                       }
+                       colors[i - 2] = NULL;
+
+                       image = RRenderMultiGradient(width, height, colors, style);
+
+                       for (i = 0; colors[i] != NULL; i++)
+                               wfree(colors[i]);
+                       wfree(colors);
+               }
+       } else if (strcasecmp(&type[1], "pixmap") == 0) {
+               RImage *timage = NULL;
+               char *path;
+               RColor color;
+
+               str = WMGetFromPLString(WMGetFromPLArray(texture, 1));
+
+               if ((path = wfindfileinarray(GetObjectForKey("PixmapPath"), str)) != NULL)
+                       timage = RLoadImage(rc, path, 0);
+
+               if (!path || !timage) {
+                       wwarning("could not load file '%s': %s", path ? path : str, RMessageForError(RErrorCode));
+               } else {
+                       str = WMGetFromPLString(WMGetFromPLArray(texture, 2));
+                       str2rcolor(rc, str, &color);
+
+                       switch (toupper(type[0])) {
+                       case 'T':
+                               image = RMakeTiledImage(timage, width, height);
+                               RReleaseImage(timage);
+                               timage = image;
+                               break;
+                       case 'C':
+                               image = RMakeCenteredImage(timage, width, height, &color);
+                               RReleaseImage(timage);
+                               timage = image;
+                               break;
+                       case 'S':
+                       case 'M':
+                               image = RScaleImage(timage, width, height);
+                               RReleaseImage(timage);
+                               timage = image;
+                               break;
+                       }
+
+               }
+               wfree(path);
+       }
+
+       if (!image)
+               return None;
+
+       if (path) {
+               dumpRImage(path, image);
+       }
+
+       if (border < 0) {
+               if (border == RESIZEBAR_BEVEL) {
+                       drawResizebarBevel(image);
+               } else if (border == MENU_BEVEL) {
+                       drawMenuBevel(image);
+                       RBevelImage(image, RBEV_RAISED2);
+               }
+       } else if (border) {
+               RBevelImage(image, border);
+       }
+
+       RConvertImage(rc, image, &pixmap);
+       RReleaseImage(image);
+
+       return pixmap;
+}
+
+static Pixmap renderMenu(_Panel * panel, WMPropList * texture, int width, int iheight)
+{
+       WMScreen *scr = WMWidgetScreen(panel->parent);
+       Display *dpy = WMScreenDisplay(scr);
+       Pixmap pix, tmp;
+       GC gc = XCreateGC(dpy, WMWidgetXID(panel->parent), 0, NULL);
+       int i;
+
+       switch (panel->menuStyle) {
+       case MSTYLE_NORMAL:
+               tmp = renderTexture(scr, texture, width, iheight, NULL, RBEV_RAISED2);
+
+               pix = XCreatePixmap(dpy, tmp, width, iheight * 4, WMScreenDepth(scr));
+               for (i = 0; i < 4; i++) {
+                       XCopyArea(dpy, tmp, pix, gc, 0, 0, width, iheight, 0, iheight * i);
+               }
+               XFreePixmap(dpy, tmp);
+               break;
+       case MSTYLE_SINGLE:
+               pix = renderTexture(scr, texture, width, iheight * 4, NULL, MENU_BEVEL);
+               break;
+       case MSTYLE_FLAT:
+               pix = renderTexture(scr, texture, width, iheight * 4, NULL, RBEV_RAISED2);
+               break;
+       }
+       XFreeGC(dpy, gc);
+
+       return pix;
+}
+
+static void renderPreview(_Panel * panel, GC gc, int part, int relief)
+{
+       WMListItem *item;
+       TextureListItem *titem;
+       Pixmap pix;
+       WMScreen *scr = WMWidgetScreen(panel->box);
+
+       item = WMGetListItem(panel->texLs, panel->textureIndex[part]);
+       titem = (TextureListItem *) item->clientData;
+
+       pix = renderTexture(scr, titem->prop,
+                           previewPositions[part].size.width, previewPositions[part].size.height, NULL, relief);
+
+       XCopyArea(WMScreenDisplay(scr), pix, panel->preview, gc, 0, 0,
+                 previewPositions[part].size.width,
+                 previewPositions[part].size.height, previewPositions[part].pos.x, previewPositions[part].pos.y);
+
+       XCopyArea(WMScreenDisplay(scr), pix, panel->previewNoText, gc, 0, 0,
+                 previewPositions[part].size.width,
+                 previewPositions[part].size.height, previewPositions[part].pos.x, previewPositions[part].pos.y);
+
+       XFreePixmap(WMScreenDisplay(scr), pix);
+}
+
+static void updatePreviewBox(_Panel * panel, int elements)
+{
+       WMScreen *scr = WMWidgetScreen(panel->parent);
+       Display *dpy = WMScreenDisplay(scr);
+       Pixmap pix;
+       GC gc;
+       int colorUpdate = 0;
+       WMColor *black = WMBlackColor(scr);
+
+       gc = XCreateGC(dpy, WMWidgetXID(panel->parent), 0, NULL);
+
+       if (panel->preview == None) {
+               WMColor *color;
+               WMPixmap *p;
+
+               panel->previewNoText = XCreatePixmap(dpy, WMWidgetXID(panel->parent),
+                                                    240 - 4, 215 - 4, WMScreenDepth(scr));
+
+               p = WMCreatePixmap(scr, 240 - 4, 215 - 4, WMScreenDepth(scr), False);
+               panel->preview = WMGetPixmapXID(p);
+               WMSetLabelImage(panel->prevL, p);
+               WMReleasePixmap(p);
+
+               color = WMCreateRGBColor(scr, 0x5100, 0x5100, 0x7100, True);
+               XFillRectangle(dpy, panel->preview, WMColorGC(color), 0, 0, 240 - 4, 215 - 4);
+               XFillRectangle(dpy, panel->previewNoText, WMColorGC(color), 0, 0, 240 - 4, 215 - 4);
+               WMReleaseColor(color);
+       }
+
+       if (elements & (1 << PFOCUSED)) {
+               renderPreview(panel, gc, PFOCUSED, RBEV_RAISED2);
+               XDrawRectangle(dpy, panel->preview, WMColorGC(black),
+                              previewPositions[PFOCUSED].pos.x - 1,
+                              previewPositions[PFOCUSED].pos.y - 1,
+                              previewPositions[PFOCUSED].size.width, previewPositions[PFOCUSED].size.height);
+               XDrawRectangle(dpy, panel->previewNoText, WMColorGC(black),
+                              previewPositions[PFOCUSED].pos.x - 1,
+                              previewPositions[PFOCUSED].pos.y - 1,
+                              previewPositions[PFOCUSED].size.width, previewPositions[PFOCUSED].size.height);
+               colorUpdate |= FTITLE_COL;
+       }
+       if (elements & (1 << PUNFOCUSED)) {
+               renderPreview(panel, gc, PUNFOCUSED, RBEV_RAISED2);
+               XDrawRectangle(dpy, panel->preview, WMColorGC(black),
+                              previewPositions[PUNFOCUSED].pos.x - 1,
+                              previewPositions[PUNFOCUSED].pos.y - 1,
+                              previewPositions[PUNFOCUSED].size.width, previewPositions[PUNFOCUSED].size.height);
+               XDrawRectangle(dpy, panel->previewNoText, WMColorGC(black),
+                              previewPositions[PUNFOCUSED].pos.x - 1,
+                              previewPositions[PUNFOCUSED].pos.y - 1,
+                              previewPositions[PUNFOCUSED].size.width, previewPositions[PUNFOCUSED].size.height);
+               colorUpdate |= UTITLE_COL;
+       }
+       if (elements & (1 << POWNER)) {
+               renderPreview(panel, gc, POWNER, RBEV_RAISED2);
+               XDrawRectangle(dpy, panel->preview, WMColorGC(black),
+                              previewPositions[POWNER].pos.x - 1,
+                              previewPositions[POWNER].pos.y - 1,
+                              previewPositions[POWNER].size.width, previewPositions[POWNER].size.height);
+               XDrawRectangle(dpy, panel->previewNoText, WMColorGC(black),
+                              previewPositions[POWNER].pos.x - 1,
+                              previewPositions[POWNER].pos.y - 1,
+                              previewPositions[POWNER].size.width, previewPositions[POWNER].size.height);
+               colorUpdate |= OTITLE_COL;
+       }
+       if (elements & (1 << PRESIZEBAR)) {
+               renderPreview(panel, gc, PRESIZEBAR, RESIZEBAR_BEVEL);
+       }
+       if (elements & (1 << PMTITLE)) {
+               renderPreview(panel, gc, PMTITLE, RBEV_RAISED2);
+               colorUpdate |= MTITLE_COL;
+       }
+       if (elements & (1 << PMITEM)) {
+               WMListItem *item;
+               TextureListItem *titem;
+
+               item = WMGetListItem(panel->texLs, panel->textureIndex[5]);
+               titem = (TextureListItem *) item->clientData;
+
+               pix = renderMenu(panel, titem->prop,
+                                previewPositions[PMITEM].size.width, previewPositions[PMITEM].size.height / 4);
+
+               XCopyArea(dpy, pix, panel->preview, gc, 0, 0,
+                         previewPositions[PMITEM].size.width,
+                         previewPositions[PMITEM].size.height,
+                         previewPositions[PMITEM].pos.x, previewPositions[PMITEM].pos.y);
+
+               XCopyArea(dpy, pix, panel->previewNoText, gc, 0, 0,
+                         previewPositions[PMITEM].size.width,
+                         previewPositions[PMITEM].size.height,
+                         previewPositions[PMITEM].pos.x, previewPositions[PMITEM].pos.y);
+
+               XFreePixmap(dpy, pix);
+
+               colorUpdate |= MITEM_COL | MDISAB_COL | MHIGH_COL | MHIGHT_COL;
+       }
+       if (elements & (1 << PMITEM | 1 << PMTITLE)) {
+               XDrawLine(dpy, panel->preview, gc, 29, 120, 29, 120 + 20 * 4 + 20);
+               XDrawLine(dpy, panel->preview, gc, 29, 119, 119, 119);
+
+               XDrawLine(dpy, panel->previewNoText, gc, 29, 120, 29, 120 + 20 * 4 + 20);
+               XDrawLine(dpy, panel->previewNoText, gc, 29, 119, 119, 119);
+       }
+       if (elements & (1 << PICON)) {
+               WMListItem *item;
+               TextureListItem *titem;
+
+               item = WMGetListItem(panel->texLs, panel->textureIndex[6]);
+               titem = (TextureListItem *) item->clientData;
+
+               renderPreview(panel, gc, PICON, titem->ispixmap ? 0 : RBEV_RAISED3);
+
+               colorUpdate |= ICONT_COL | ICONB_COL | CLIP_COL | CCLIP_COL;
+       }
+
+       if (colorUpdate)
+               updateColorPreviewBox(panel, colorUpdate);
+       else
+               WMRedisplayWidget(panel->prevL);
+
+       XFreeGC(dpy, gc);
+       WMReleaseColor(black);
+}
+
+static void cancelNewTexture(void *data)
+{
+       _Panel *panel = (_Panel *) data;
+
+       HideTexturePanel(panel->texturePanel);
+}
+
+static char *makeFileName(char *prefix)
+{
+       char *fname;
+
+       fname = wstrdup(prefix);
+
+       while (access(fname, F_OK) == 0) {
+               char buf[30];
+
+               wfree(fname);
+               sprintf(buf, "%08lx.cache", time(NULL));
+               fname = wstrconcat(prefix, buf);
+       }
+
+       return fname;
+}
+
+static void okNewTexture(void *data)
+{
+       _Panel *panel = (_Panel *) data;
+       WMListItem *item;
+       char *name;
+       char *str;
+       WMPropList *prop;
+       TextureListItem *titem;
+       WMScreen *scr = WMWidgetScreen(panel->parent);
+
+       titem = wmalloc(sizeof(TextureListItem));
+       memset(titem, 0, sizeof(TextureListItem));
+
+       HideTexturePanel(panel->texturePanel);
+
+       name = GetTexturePanelTextureName(panel->texturePanel);
+
+       prop = GetTexturePanelTexture(panel->texturePanel);
+
+       str = WMGetPropListDescription(prop, False);
+
+       titem->title = name;
+       titem->prop = prop;
+       titem->texture = str;
+       titem->selectedFor = 0;
+
+       titem->ispixmap = isPixmap(prop);
+
+       titem->path = makeFileName(panel->fprefix);
+       titem->preview = renderTexture(scr, prop, TEXPREV_WIDTH, TEXPREV_HEIGHT, titem->path, 0);
+
+       item = WMAddListItem(panel->texLs, "");
+       item->clientData = titem;
+
+       WMSetListPosition(panel->texLs, WMGetListNumberOfRows(panel->texLs));
+}
+
+static void okEditTexture(void *data)
+{
+       _Panel *panel = (_Panel *) data;
+       WMListItem *item;
+       char *name;
+       char *str;
+       WMPropList *prop;
+       TextureListItem *titem;
+
+       item = WMGetListItem(panel->texLs, WMGetListSelectedItemRow(panel->texLs));
+       titem = (TextureListItem *) item->clientData;
+
+       HideTexturePanel(panel->texturePanel);
+
+       if (titem->current) {
+               name = GetTexturePanelTextureName(panel->texturePanel);
+
+               wfree(titem->title);
+               titem->title = name;
+       }
+
+       prop = GetTexturePanelTexture(panel->texturePanel);
+
+       str = WMGetPropListDescription(prop, False);
+
+       WMReleasePropList(titem->prop);
+       titem->prop = prop;
+
+       titem->ispixmap = isPixmap(prop);
+
+       wfree(titem->texture);
+       titem->texture = str;
+
+       XFreePixmap(WMScreenDisplay(WMWidgetScreen(panel->texLs)), titem->preview);
+       titem->preview = renderTexture(WMWidgetScreen(panel->texLs), titem->prop,
+                                      TEXPREV_WIDTH, TEXPREV_HEIGHT, titem->path, 0);
+
+       WMRedisplayWidget(panel->texLs);
+
+       if (titem->selectedFor)
+               updatePreviewBox(panel, titem->selectedFor);
+
+       changePage(panel->secP, panel);
+}
+
+static void editTexture(WMWidget * w, void *data)
+{
+       _Panel *panel = (_Panel *) data;
+       WMListItem *item;
+       TextureListItem *titem;
+
+       item = WMGetListItem(panel->texLs, WMGetListSelectedItemRow(panel->texLs));
+       titem = (TextureListItem *) item->clientData;
+
+       SetTexturePanelPixmapPath(panel->texturePanel, GetObjectForKey("PixmapPath"));
+
+       SetTexturePanelTexture(panel->texturePanel, titem->title, titem->prop);
+
+       SetTexturePanelCancelAction(panel->texturePanel, cancelNewTexture, panel);
+       SetTexturePanelOkAction(panel->texturePanel, okEditTexture, panel);
+
+       ShowTexturePanel(panel->texturePanel);
+}
+
+static void newTexture(WMWidget * w, void *data)
+{
+       _Panel *panel = (_Panel *) data;
+
+       SetTexturePanelPixmapPath(panel->texturePanel, GetObjectForKey("PixmapPath"));
+
+       SetTexturePanelTexture(panel->texturePanel, "New Texture", NULL);
+
+       SetTexturePanelCancelAction(panel->texturePanel, cancelNewTexture, panel);
+
+       SetTexturePanelOkAction(panel->texturePanel, okNewTexture, panel);
+
+       ShowTexturePanel(panel->texturePanel);
+}
+
+static void deleteTexture(WMWidget * w, void *data)
+{
+       _Panel *panel = (_Panel *) data;
+       WMListItem *item;
+       TextureListItem *titem;
+       int row;
+       int section;
+
+       section = WMGetPopUpButtonSelectedItem(panel->secP);
+       row = WMGetListSelectedItemRow(panel->texLs);
+       item = WMGetListItem(panel->texLs, row);
+       titem = (TextureListItem *) item->clientData;
+
+       if (titem->selectedFor & (1 << section)) {
+               TextureListItem *titem2;
+
+               panel->textureIndex[section] = section;
+               item = WMGetListItem(panel->texLs, section);
+               titem2 = (TextureListItem *) item->clientData;
+               titem2->selectedFor |= 1 << section;
+       }
+
+       wfree(titem->title);
+       wfree(titem->texture);
+       WMReleasePropList(titem->prop);
+       if (titem->path) {
+               if (remove(titem->path) < 0 && errno != ENOENT) {
+                       wsyserror("could not remove file %s", titem->path);
+               }
+               wfree(titem->path);
+       }
+
+       wfree(titem);
+
+       WMRemoveListItem(panel->texLs, row);
+       WMSetButtonEnabled(panel->delB, False);
+}
+
+static void extractTexture(WMWidget * w, void *data)
+{
+       _Panel *panel = (_Panel *) data;
+       char *path;
+       WMOpenPanel *opanel;
+       WMScreen *scr = WMWidgetScreen(w);
+
+       opanel = WMGetOpenPanel(scr);
+       WMSetFilePanelCanChooseDirectories(opanel, False);
+       WMSetFilePanelCanChooseFiles(opanel, True);
+
+       if (WMRunModalFilePanelForDirectory(opanel, panel->parent, wgethomedir(), _("Select File"), NULL)) {
+               path = WMGetFilePanelFileName(opanel);
+
+               OpenExtractPanelFor(panel, path);
+
+               wfree(path);
+       }
+}
+
+static void changePage(WMWidget * w, void *data)
+{
+       _Panel *panel = (_Panel *) data;
+       int section;
+       WMListItem *item;
+       TextureListItem *titem;
+       WMScreen *scr = WMWidgetScreen(panel->box);
+       RContext *rc = WMScreenRContext(scr);
+       static WMPoint positions[] = {
+               {5, 10},
+               {5, 40},
+               {5, 70},
+               {5, 100},
+               {5, 120},
+               {5, 160},
+               {130, 150}
+       };
+
+       if (w) {
+               section = WMGetPopUpButtonSelectedItem(panel->secP);
+
+               WMSelectListItem(panel->texLs, panel->textureIndex[section]);
+
+               WMSetListPosition(panel->texLs, panel->textureIndex[section] - 2);
+
+               item = WMGetListItem(panel->texLs, panel->textureIndex[section]);
+
+               titem = (TextureListItem *) item->clientData;
+       }
+       {
+               WMColor *color;
+
+               color = WMCreateRGBColor(scr, 0x5100, 0x5100, 0x7100, True);
+               XFillRectangle(rc->dpy, panel->preview, WMColorGC(color),
+                              positions[panel->oldsection].x, positions[panel->oldsection].y, 22, 22);
+               WMReleaseColor(color);
+       }
+       if (w) {
+               panel->oldsection = section;
+               WMDrawPixmap(panel->hand, panel->preview, positions[section].x, positions[section].y);
+       }
+       WMRedisplayWidget(panel->prevL);
+}
+
+static void previewClick(XEvent * event, void *clientData)
+{
+       _Panel *panel = (_Panel *) clientData;
+       int i;
+
+       switch (panel->oldTabItem) {
+       case 0:
+               for (i = 0; i < sizeof(previewPositions) / sizeof(WMRect); i++) {
+                       if (event->xbutton.x >= previewPositions[i].pos.x
+                           && event->xbutton.y >= previewPositions[i].pos.y
+                           && event->xbutton.x < previewPositions[i].pos.x
+                           + previewPositions[i].size.width
+                           && event->xbutton.y < previewPositions[i].pos.y + previewPositions[i].size.height) {
+
+                               WMSetPopUpButtonSelectedItem(panel->secP, i);
+                               changePage(panel->secP, panel);
+                               return;
+                       }
+               }
+               break;
+       case 1:
+               for (i = 0; i < WMGetPopUpButtonNumberOfItems(panel->colP); i++) {
+                       if (event->xbutton.x >= previewColorPositions[i].pos.x
+                           && event->xbutton.y >= previewColorPositions[i].pos.y
+                           && event->xbutton.x < previewColorPositions[i].pos.x
+                           + previewColorPositions[i].size.width
+                           && event->xbutton.y < previewColorPositions[i].pos.y
+                           + previewColorPositions[i].size.height) {
+
+                               /* yuck kluge */
+                               if (i == 7)
+                                       i = 4;
+
+                               WMSetPopUpButtonSelectedItem(panel->colP, i);
+                               changeColorPage(panel->colP, panel);
+                               return;
+                       }
+               }
+               break;
+       }
+}
+
+static void textureClick(WMWidget * w, void *data)
+{
+       _Panel *panel = (_Panel *) data;
+       int i;
+       WMListItem *item;
+       TextureListItem *titem;
+
+       i = WMGetListSelectedItemRow(panel->texLs);
+
+       item = WMGetListItem(panel->texLs, i);
+
+       titem = (TextureListItem *) item->clientData;
+
+       if (titem->current) {
+               WMSetButtonEnabled(panel->delB, False);
+       } else {
+               WMSetButtonEnabled(panel->delB, True);
+       }
+}
+
+static void textureDoubleClick(WMWidget * w, void *data)
+{
+       _Panel *panel = (_Panel *) data;
+       int i, section;
+       WMListItem *item;
+       TextureListItem *titem;
+
+       /* unselect old texture */
+       section = WMGetPopUpButtonSelectedItem(panel->secP);
+
+       item = WMGetListItem(panel->texLs, panel->textureIndex[section]);
+       titem = (TextureListItem *) item->clientData;
+       titem->selectedFor &= ~(1 << section);
+
+       /* select new texture */
+       i = WMGetListSelectedItemRow(panel->texLs);
+
+       item = WMGetListItem(panel->texLs, i);
+
+       titem = (TextureListItem *) item->clientData;
+
+       titem->selectedFor |= 1 << section;
+
+       panel->textureIndex[section] = i;
+
+       WMRedisplayWidget(panel->texLs);
+
+       updatePreviewBox(panel, 1 << section);
+}
+
+static void paintListItem(WMList * lPtr, int index, Drawable d, char *text, int state, WMRect * rect)
+{
+       _Panel *panel = (_Panel *) WMGetHangedData(lPtr);
+       WMScreen *scr = WMWidgetScreen(lPtr);
+       int width, height, x, y;
+       Display *dpy = WMScreenDisplay(scr);
+       WMColor *back = (state & WLDSSelected) ? WMWhiteColor(scr) : WMGrayColor(scr);
+       WMListItem *item;
+       WMColor *black = WMBlackColor(scr);
+       TextureListItem *titem;
+
+       item = WMGetListItem(lPtr, index);
+       titem = (TextureListItem *) item->clientData;
+       if (!titem) {
+               WMReleaseColor(back);
+               WMReleaseColor(black);
+               return;
+       }
+
+       width = rect->size.width;
+       height = rect->size.height;
+       x = rect->pos.x;
+       y = rect->pos.y;
+
+       XFillRectangle(dpy, d, WMColorGC(back), x, y, width, height);
+
+       if (titem->preview)
+               XCopyArea(dpy, titem->preview, d, WMColorGC(black), 0, 0,
+                         TEXPREV_WIDTH, TEXPREV_HEIGHT, x + 5, y + 5);
+
+       if ((1 << WMGetPopUpButtonSelectedItem(panel->secP)) & titem->selectedFor)
+               WMDrawPixmap(panel->onLed, d, x + TEXPREV_WIDTH + 10, y + 6);
+       else if (titem->selectedFor)
+               WMDrawPixmap(panel->offLed, d, x + TEXPREV_WIDTH + 10, y + 6);
+
+       WMDrawString(scr, d, black, panel->boldFont,
+                    x + TEXPREV_WIDTH + 22, y + 2, titem->title, strlen(titem->title));
+
+       WMDrawString(scr, d, black, panel->smallFont,
+                    x + TEXPREV_WIDTH + 14, y + 18, titem->texture, strlen(titem->texture));
+
+       WMReleaseColor(back);
+       WMReleaseColor(black);
+}
+
+static Pixmap loadRImage(WMScreen * scr, char *path)
+{
+       FILE *f;
+       RImage *image;
+       int w, h, d;
+       Pixmap pixmap;
+
+       f = fopen(path, "rb");
+       if (!f)
+               return None;
+
+       fscanf(f, "%02x%02x%1x", &w, &h, &d);
+
+       image = RCreateImage(w, h, d == 4);
+       fread(image->data, 1, w * h * d, f);
+       fclose(f);
+
+       RConvertImage(WMScreenRContext(scr), image, &pixmap);
+       RReleaseImage(image);
+
+       return pixmap;
+}
+
+static void fillTextureList(WMList * lPtr)
+{
+       WMPropList *textureList;
+       WMPropList *texture;
+       WMUserDefaults *udb = WMGetStandardUserDefaults();
+       TextureListItem *titem;
+       WMScreen *scr = WMWidgetScreen(lPtr);
+       int i;
+
+       textureList = WMGetUDObjectForKey(udb, "TextureList");
+       if (!textureList)
+               return;
+
+       for (i = 0; i < WMGetPropListItemCount(textureList); i++) {
+               WMListItem *item;
+
+               texture = WMGetFromPLArray(textureList, i);
+
+               titem = wmalloc(sizeof(TextureListItem));
+               memset(titem, 0, sizeof(TextureListItem));
+
+               titem->title = wstrdup(WMGetFromPLString(WMGetFromPLArray(texture, 0)));
+               titem->prop = WMRetainPropList(WMGetFromPLArray(texture, 1));
+               titem->texture = WMGetPropListDescription(titem->prop, False);
+               titem->selectedFor = 0;
+               titem->path = wstrdup(WMGetFromPLString(WMGetFromPLArray(texture, 2)));
+
+               titem->preview = loadRImage(scr, titem->path);
+               if (!titem->preview) {
+                       titem->preview = renderTexture(scr, titem->prop, TEXPREV_WIDTH, TEXPREV_HEIGHT, NULL, 0);
+               }
+               item = WMAddListItem(lPtr, "");
+               item->clientData = titem;
+       }
+}
+
+static void fillColorList(_Panel * panel)
+{
+       WMColor *color;
+       WMPropList *list;
+       WMUserDefaults *udb = WMGetStandardUserDefaults();
+       WMScreen *scr = WMWidgetScreen(panel->box);
+       int i;
+
+       list = WMGetUDObjectForKey(udb, "ColorList");
+       if (!list) {
+               for (i = 0; i < 24; i++) {
+                       color = WMCreateNamedColor(scr, sampleColors[i], False);
+                       if (!color)
+                               continue;
+                       WMSetColorWellColor(panel->sampW[i], color);
+                       WMReleaseColor(color);
+               }
+       } else {
+               WMPropList *c;
+
+               for (i = 0; i < WMIN(24, WMGetPropListItemCount(list)); i++) {
+                       c = WMGetFromPLArray(list, i);
+                       if (!c || !WMIsPLString(c))
+                               continue;
+                       color = WMCreateNamedColor(scr, WMGetFromPLString(c), False);
+                       if (!color)
+                               continue;
+                       WMSetColorWellColor(panel->sampW[i], color);
+                       WMReleaseColor(color);
+               }
+       }
+}
+
+/*************************************************************************/
+
+static void changeColorPage(WMWidget * w, void *data)
+{
+       _Panel *panel = (_Panel *) data;
+       int section;
+       WMScreen *scr = WMWidgetScreen(panel->box);
+       RContext *rc = WMScreenRContext(scr);
+       static WMPoint positions[] = {
+               {5, 10},
+               {5, 40},
+               {5, 70},
+               {5, 120},
+               {5, 140},
+               {5, 160},
+               {5, 180},
+               {5, 180},
+               {130, 140},
+               {130, 140},
+               {130, 140},
+               {130, 140}
+       };
+
+       if (panel->preview) {
+               WMColor *color;
+
+               color = WMCreateRGBColor(scr, 0x5100, 0x5100, 0x7100, True);
+               XFillRectangle(rc->dpy, panel->preview, WMColorGC(color),
+                              positions[panel->oldcsection].x, positions[panel->oldcsection].y, 22, 22);
+               WMReleaseColor(color);
+       }
+       if (w) {
+               section = WMGetPopUpButtonSelectedItem(panel->colP);
+
+               panel->oldcsection = section;
+               if (panel->preview)
+                       WMDrawPixmap(panel->hand, panel->preview, positions[section].x, positions[section].y);
+
+               section = WMGetPopUpButtonSelectedItem(panel->colP);
+
+               WMSetColorWellColor(panel->colW, panel->colors[section]);
+       }
+       WMRedisplayWidget(panel->prevL);
+}
+
+static void
+paintText(WMScreen * scr, Drawable d, WMColor * color, WMFont * font,
+         int x, int y, int w, int h, WMAlignment align, char *text)
+{
+       int l = strlen(text);
+
+       switch (align) {
+       case WALeft:
+               x += 5;
+               break;
+       case WARight:
+               x += w - 5 - WMWidthOfString(font, text, l);
+               break;
+       default:
+       case WACenter:
+               x += (w - WMWidthOfString(font, text, l)) / 2;
+               break;
+       }
+       WMDrawString(scr, d, color, font, x, y + (h - WMFontHeight(font)) / 2, text, l);
+}
+
+static void updateColorPreviewBox(_Panel * panel, int elements)
+{
+       WMScreen *scr = WMWidgetScreen(panel->box);
+       Display *dpy = WMScreenDisplay(scr);
+       Pixmap d, pnot;
+       GC gc;
+
+       d = panel->preview;
+       pnot = panel->previewNoText;
+       gc = WMColorGC(panel->colors[0]);
+
+       if (elements & FTITLE_COL) {
+               XCopyArea(dpy, pnot, d, gc, 30, 10, 190, 20, 30, 10);
+               paintText(scr, d, panel->colors[0], panel->boldFont, 30, 10, 190, 20,
+                         panel->titleAlignment, _("Focused Window"));
+       }
+       if (elements & UTITLE_COL) {
+               XCopyArea(dpy, pnot, d, gc, 30, 40, 190, 20, 30, 40);
+               paintText(scr, d, panel->colors[1], panel->boldFont, 30, 40, 190, 20,
+                         panel->titleAlignment, _("Unfocused Window"));
+       }
+       if (elements & OTITLE_COL) {
+               XCopyArea(dpy, pnot, d, gc, 30, 70, 190, 20, 30, 70);
+               paintText(scr, d, panel->colors[2], panel->boldFont, 30, 70, 190, 20,
+                         panel->titleAlignment, _("Owner of Focused Window"));
+       }
+       if (elements & MTITLE_COL) {
+               XCopyArea(dpy, pnot, d, gc, 30, 120, 90, 20, 30, 120);
+               paintText(scr, d, panel->colors[3], panel->boldFont, 30, 120, 90, 20, WALeft, _("Menu Title"));
+       }
+       if (elements & MITEM_COL) {
+               XCopyArea(dpy, pnot, d, gc, 30, 140, 90, 20, 30, 140);
+               paintText(scr, d, panel->colors[4], panel->normalFont, 30, 140, 90, 20, WALeft, _("Normal Item"));
+               XCopyArea(dpy, pnot, d, gc, 30, 200, 90, 20, 30, 200);
+               paintText(scr, d, panel->colors[4], panel->normalFont, 30, 200, 90, 20, WALeft, _("Normal Item"));
+       }
+       if (elements & MDISAB_COL) {
+               XCopyArea(dpy, pnot, d, gc, 30, 160, 90, 20, 30, 160);
+               paintText(scr, d, panel->colors[5], panel->normalFont, 30, 160, 90, 20,
+                         WALeft, _("Disabled Item"));
+       }
+       if (elements & MHIGH_COL) {
+               XFillRectangle(WMScreenDisplay(scr), d, WMColorGC(panel->colors[6]), 31, 181, 87, 17);
+               XFillRectangle(WMScreenDisplay(scr), pnot, WMColorGC(panel->colors[6]), 31, 181, 87, 17);
+               elements |= MHIGHT_COL;
+       }
+       if (elements & MHIGHT_COL) {
+               XCopyArea(dpy, pnot, d, gc, 30, 180, 90, 20, 30, 180);
+               paintText(scr, d, panel->colors[7], panel->normalFont, 30, 180, 90, 20, WALeft, _("Highlighted"));
+       }
+       /*
+          if (elements & ICONT_COL) {
+          WRITE(_("Focused Window"), panel->colors[8], panel->boldFont,
+          155, 130, 64);
+          }
+          if (elements & ICONB_COL) {
+          WRITE(_("Focused Window"), panel->colors[9], panel->boldFont,
+          0, 0, 30);
+          }
+          if (elements & CLIP_COL) {
+          WRITE(_("Focused Window"), panel->colors[10], panel->boldFont,
+          0, 0, 30);
+          }
+          if (elements & CCLIP_COL) {
+          WRITE(_("Focused Window"), panel->colors[11], panel->boldFont,
+          0, 0, 30);
+          }
+        */
+       WMRedisplayWidget(panel->prevL);
+}
+
+static void colorWellObserver(void *self, WMNotification * n)
+{
+       _Panel *panel = (_Panel *) self;
+       int p;
+
+       p = WMGetPopUpButtonSelectedItem(panel->colP);
+
+       WMReleaseColor(panel->colors[p]);
+
+       panel->colors[p] = WMRetainColor(WMGetColorWellColor(panel->colW));
+
+       updateColorPreviewBox(panel, 1 << p);
+}
+
+static void changedTabItem(struct WMTabViewDelegate *self, WMTabView * tabView, WMTabViewItem * item)
+{
+       _Panel *panel = self->data;
+       int i;
+
+       i = WMGetTabViewItemIdentifier(item);
+       switch (i) {
+       case 0:
+               switch (panel->oldTabItem) {
+               case 1:
+                       changeColorPage(NULL, panel);
+                       break;
+               }
+               changePage(panel->secP, panel);
+               break;
+       case 1:
+               switch (panel->oldTabItem) {
+               case 0:
+                       changePage(NULL, panel);
+                       break;
+               }
+               changeColorPage(panel->colP, panel);
+               break;
+       case 3:
+               switch (panel->oldTabItem) {
+               case 0:
+                       changePage(NULL, panel);
+                       break;
+               case 1:
+                       changeColorPage(NULL, panel);
+                       break;
+               }
+               break;
+       }
+
+       panel->oldTabItem = i;
+}
+
+/*************************************************************************/
+
+static void menuStyleCallback(WMWidget * self, void *data)
+{
+       _Panel *panel = (_Panel *) data;
+
+       if (self == panel->mstyB[0]) {
+               panel->menuStyle = MSTYLE_NORMAL;
+               updatePreviewBox(panel, 1 << PMITEM);
+
+       } else if (self == panel->mstyB[1]) {
+               panel->menuStyle = MSTYLE_SINGLE;
+               updatePreviewBox(panel, 1 << PMITEM);
+
+       } else if (self == panel->mstyB[2]) {
+               panel->menuStyle = MSTYLE_FLAT;
+               updatePreviewBox(panel, 1 << PMITEM);
+       }
+}
+
+static void titleAlignCallback(WMWidget * self, void *data)
+{
+       _Panel *panel = (_Panel *) data;
+
+       if (self == panel->taliB[0]) {
+               panel->titleAlignment = WALeft;
+               updatePreviewBox(panel, 1 << PFOCUSED | 1 << PUNFOCUSED | 1 << POWNER);
+
+       } else if (self == panel->taliB[1]) {
+               panel->titleAlignment = WACenter;
+               updatePreviewBox(panel, 1 << PFOCUSED | 1 << PUNFOCUSED | 1 << POWNER);
+
+       } else if (self == panel->taliB[2]) {
+               panel->titleAlignment = WARight;
+               updatePreviewBox(panel, 1 << PFOCUSED | 1 << PUNFOCUSED | 1 << POWNER);
+       }
+}
+
+static void createPanel(Panel * p)
+{
+       _Panel *panel = (_Panel *) p;
+       WMFont *font;
+       WMScreen *scr = WMWidgetScreen(panel->parent);
+       WMTabViewItem *item;
+       int i;
+       char *tmp;
+       Bool ok = True;
+
+       panel->fprefix = wstrconcat(wusergnusteppath(), "/Library/WindowMaker");
+
+       if (access(panel->fprefix, F_OK) != 0) {
+               if (mkdir(panel->fprefix, 0755) < 0) {
+                       wsyserror(panel->fprefix);
+                       ok = False;
+               }
+       }
+       if (ok) {
+               tmp = wstrconcat(panel->fprefix, "/WPrefs/");
+               wfree(panel->fprefix);
+               panel->fprefix = tmp;
+               if (access(panel->fprefix, F_OK) != 0) {
+                       if (mkdir(panel->fprefix, 0755) < 0) {
+                               wsyserror(panel->fprefix);
+                       }
+               }
+       }
+
+       panel->smallFont = WMSystemFontOfSize(scr, 10);
+       panel->normalFont = WMSystemFontOfSize(scr, 12);
+       panel->boldFont = WMBoldSystemFontOfSize(scr, 12);
+
+       panel->onLed = WMCreatePixmapFromXPMData(scr, blueled_xpm);
+       panel->offLed = WMCreatePixmapFromXPMData(scr, blueled2_xpm);
+       panel->hand = WMCreatePixmapFromXPMData(scr, hand_xpm);
+
+       panel->box = WMCreateBox(panel->parent);
+       WMSetViewExpandsToParent(WMWidgetView(panel->box), 2, 2, 2, 2);
+
+       /* preview box */
+       panel->prevL = WMCreateLabel(panel->box);
+       WMResizeWidget(panel->prevL, 240, FRAME_HEIGHT - 20);
+       WMMoveWidget(panel->prevL, 15, 10);
+       WMSetLabelRelief(panel->prevL, WRSunken);
+       WMSetLabelImagePosition(panel->prevL, WIPImageOnly);
+
+       WMCreateEventHandler(WMWidgetView(panel->prevL), ButtonPressMask, previewClick, panel);
+
+       /* tabview */
+
+       tabviewDelegate.data = panel;
+
+       panel->tabv = WMCreateTabView(panel->box);
+       WMResizeWidget(panel->tabv, 245, FRAME_HEIGHT - 20);
+       WMMoveWidget(panel->tabv, 265, 10);
+       WMSetTabViewDelegate(panel->tabv, &tabviewDelegate);
+
+    /*** texture list ***/
+
+       panel->texF = WMCreateFrame(panel->box);
+       WMSetFrameRelief(panel->texF, WRFlat);
+
+       item = WMCreateTabViewItemWithIdentifier(0);
+       WMSetTabViewItemView(item, WMWidgetView(panel->texF));
+       WMSetTabViewItemLabel(item, _("Texture"));
+
+       WMAddItemInTabView(panel->tabv, item);
+
+       panel->secP = WMCreatePopUpButton(panel->texF);
+       WMResizeWidget(panel->secP, 228, 20);
+       WMMoveWidget(panel->secP, 7, 7);
+       WMAddPopUpButtonItem(panel->secP, _("Titlebar of Focused Window"));
+       WMAddPopUpButtonItem(panel->secP, _("Titlebar of Unfocused Windows"));
+       WMAddPopUpButtonItem(panel->secP, _("Titlebar of Focused Window's Owner"));
+       WMAddPopUpButtonItem(panel->secP, _("Window Resizebar"));
+       WMAddPopUpButtonItem(panel->secP, _("Titlebar of Menus"));
+       WMAddPopUpButtonItem(panel->secP, _("Menu Items"));
+       WMAddPopUpButtonItem(panel->secP, _("Icon Background"));
+       /*    WMAddPopUpButtonItem(panel->secP, _("Workspace Backgrounds"));
+        */
+       WMSetPopUpButtonSelectedItem(panel->secP, 0);
+       WMSetPopUpButtonAction(panel->secP, changePage, panel);
+
+       panel->texLs = WMCreateList(panel->texF);
+       WMResizeWidget(panel->texLs, 165, 155);
+       WMMoveWidget(panel->texLs, 70, 33);
+       WMSetListUserDrawItemHeight(panel->texLs, 35);
+       WMSetListUserDrawProc(panel->texLs, paintListItem);
+       WMHangData(panel->texLs, panel);
+       WMSetListAction(panel->texLs, textureClick, panel);
+       WMSetListDoubleAction(panel->texLs, textureDoubleClick, panel);
+
+       WMSetBalloonTextForView(_("Double click in the texture you want to use\n"
+                                 "for the selected item."), WMWidgetView(panel->texLs));
+
+       /* command buttons */
+
+       font = WMSystemFontOfSize(scr, 10);
+
+       panel->newB = WMCreateCommandButton(panel->texF);
+       WMResizeWidget(panel->newB, 57, 39);
+       WMMoveWidget(panel->newB, 7, 33);
+       WMSetButtonFont(panel->newB, font);
+       WMSetButtonImagePosition(panel->newB, WIPAbove);
+       WMSetButtonText(panel->newB, _("New"));
+       WMSetButtonAction(panel->newB, newTexture, panel);
+       SetButtonAlphaImage(scr, panel->newB, TNEW_FILE, NULL, NULL);
+
+       WMSetBalloonTextForView(_("Create a new texture."), WMWidgetView(panel->newB));
+
+       panel->ripB = WMCreateCommandButton(panel->texF);
+       WMResizeWidget(panel->ripB, 57, 39);
+       WMMoveWidget(panel->ripB, 7, 72);
+       WMSetButtonFont(panel->ripB, font);
+       WMSetButtonImagePosition(panel->ripB, WIPAbove);
+       WMSetButtonText(panel->ripB, _("Extract..."));
+       WMSetButtonAction(panel->ripB, extractTexture, panel);
+       SetButtonAlphaImage(scr, panel->ripB, TEXTR_FILE, NULL, NULL);
+
+       WMSetBalloonTextForView(_("Extract texture(s) from a theme or a style file."), WMWidgetView(panel->ripB));
+
+       WMSetButtonEnabled(panel->ripB, False);
+
+       panel->editB = WMCreateCommandButton(panel->texF);
+       WMResizeWidget(panel->editB, 57, 39);
+       WMMoveWidget(panel->editB, 7, 111);
+       WMSetButtonFont(panel->editB, font);
+       WMSetButtonImagePosition(panel->editB, WIPAbove);
+       WMSetButtonText(panel->editB, _("Edit"));
+       SetButtonAlphaImage(scr, panel->editB, TEDIT_FILE, NULL, NULL);
+       WMSetButtonAction(panel->editB, editTexture, panel);
+       WMSetBalloonTextForView(_("Edit the highlighted texture."), WMWidgetView(panel->editB));
+
+       panel->delB = WMCreateCommandButton(panel->texF);
+       WMResizeWidget(panel->delB, 57, 38);
+       WMMoveWidget(panel->delB, 7, 150);
+       WMSetButtonFont(panel->delB, font);
+       WMSetButtonImagePosition(panel->delB, WIPAbove);
+       WMSetButtonText(panel->delB, _("Delete"));
+       SetButtonAlphaImage(scr, panel->delB, TDEL_FILE, NULL, NULL);
+       WMSetButtonEnabled(panel->delB, False);
+       WMSetButtonAction(panel->delB, deleteTexture, panel);
+       WMSetBalloonTextForView(_("Delete the highlighted texture."), WMWidgetView(panel->delB));
+
+       WMReleaseFont(font);
+
+       WMMapSubwidgets(panel->texF);
+
+    /*** colors ***/
+       panel->colF = WMCreateFrame(panel->box);
+       WMSetFrameRelief(panel->colF, WRFlat);
+
+       item = WMCreateTabViewItemWithIdentifier(1);
+       WMSetTabViewItemView(item, WMWidgetView(panel->colF));
+       WMSetTabViewItemLabel(item, _("Color"));
+
+       WMAddItemInTabView(panel->tabv, item);
+
+       panel->colP = WMCreatePopUpButton(panel->colF);
+       WMResizeWidget(panel->colP, 228, 20);
+       WMMoveWidget(panel->colP, 7, 7);
+       WMAddPopUpButtonItem(panel->colP, _("Focused Window Title"));
+       WMAddPopUpButtonItem(panel->colP, _("Unfocused Window Title"));
+       WMAddPopUpButtonItem(panel->colP, _("Owner of Focused Window Title"));
+       WMAddPopUpButtonItem(panel->colP, _("Menu Title"));
+       WMAddPopUpButtonItem(panel->colP, _("Menu Item Text"));
+       WMAddPopUpButtonItem(panel->colP, _("Disabled Menu Item Text"));
+       WMAddPopUpButtonItem(panel->colP, _("Menu Highlight Color"));
+       WMAddPopUpButtonItem(panel->colP, _("Highlighted Menu Text Color"));
+       /*
+          WMAddPopUpButtonItem(panel->colP, _("Miniwindow Title"));
+          WMAddPopUpButtonItem(panel->colP, _("Miniwindow Title Back"));
+          WMAddPopUpButtonItem(panel->colP, _("Clip Title"));
+          WMAddPopUpButtonItem(panel->colP, _("Collapsed Clip Title"));
+        */
+
+       WMSetPopUpButtonSelectedItem(panel->colP, 0);
+
+       WMSetPopUpButtonAction(panel->colP, changeColorPage, panel);
+
+       panel->colW = WMCreateColorWell(panel->colF);
+       WMResizeWidget(panel->colW, 65, 50);
+       WMMoveWidget(panel->colW, 30, 75);
+       WMAddNotificationObserver(colorWellObserver, panel, WMColorWellDidChangeNotification, panel->colW);
+
+       for (i = 0; i < 4; i++) {
+               int j;
+               for (j = 0; j < 6; j++) {
+                       panel->sampW[i + j * 4] = WMCreateColorWell(panel->colF);
+                       WMResizeWidget(panel->sampW[i + j * 4], 22, 22);
+                       WMMoveWidget(panel->sampW[i + j * 4], 130 + i * 22, 40 + j * 22);
+                       WSetColorWellBordered(panel->sampW[i + j * 4], False);
+               }
+       }
+
+       WMMapSubwidgets(panel->colF);
+
+#ifdef unfinished
+    /*** root bg ***/
+
+       panel->bgF = WMCreateFrame(panel->box);
+       WMSetFrameRelief(panel->bgF, WRFlat);
+
+       item = WMCreateTabViewItemWithIdentifier(2);
+       WMSetTabViewItemView(item, WMWidgetView(panel->bgF));
+       WMSetTabViewItemLabel(item, _("Background"));
+
+       WMAddItemInTabView(panel->tabv, item);
+
+       panel->bgprevL = WMCreateLabel(panel->bgF);
+       WMResizeWidget(panel->bgprevL, 230, 155);
+       WMMoveWidget(panel->bgprevL, 5, 5);
+       WMSetLabelRelief(panel->bgprevL, WRSunken);
+
+       panel->selbgB = WMCreateCommandButton(panel->bgF);
+       WMMoveWidget(panel->selbgB, 5, 165);
+       WMResizeWidget(panel->selbgB, 100, 24);
+       WMSetButtonText(panel->selbgB, _("Browse..."));
+
+       WMMapSubwidgets(panel->bgF);
+#endif                         /* unfinished */
+    /*** options ***/
+       panel->optF = WMCreateFrame(panel->box);
+       WMSetFrameRelief(panel->optF, WRFlat);
+
+       item = WMCreateTabViewItemWithIdentifier(3);
+       WMSetTabViewItemView(item, WMWidgetView(panel->optF));
+       WMSetTabViewItemLabel(item, _("Options"));
+
+       WMAddItemInTabView(panel->tabv, item);
+
+       panel->mstyF = WMCreateFrame(panel->optF);
+       WMResizeWidget(panel->mstyF, 215, 85);
+       WMMoveWidget(panel->mstyF, 15, 10);
+       WMSetFrameTitle(panel->mstyF, _("Menu Style"));
+
+       for (i = 0; i < 3; i++) {
+               WMPixmap *icon;
+               char *path;
+
+               panel->mstyB[i] = WMCreateButton(panel->mstyF, WBTOnOff);
+               WMResizeWidget(panel->mstyB[i], 54, 54);
+               WMMoveWidget(panel->mstyB[i], 15 + i * 65, 20);
+               WMSetButtonImagePosition(panel->mstyB[i], WIPImageOnly);
+               WMSetButtonAction(panel->mstyB[i], menuStyleCallback, panel);
+               switch (i) {
+               case 0:
+                       path = LocateImage(MSTYLE1_FILE);
+                       break;
+               case 1:
+                       path = LocateImage(MSTYLE2_FILE);
+                       break;
+               case 2:
+                       path = LocateImage(MSTYLE3_FILE);
+                       break;
+               }
+               if (path) {
+                       icon = WMCreatePixmapFromFile(scr, path);
+                       if (icon) {
+                               WMSetButtonImage(panel->mstyB[i], icon);
+                               WMReleasePixmap(icon);
+                       } else {
+                               wwarning(_("could not load icon file %s"), path);
+                       }
+                       wfree(path);
+               }
+       }
+       WMGroupButtons(panel->mstyB[0], panel->mstyB[1]);
+       WMGroupButtons(panel->mstyB[0], panel->mstyB[2]);
+
+       WMMapSubwidgets(panel->mstyF);
+
+       panel->taliF = WMCreateFrame(panel->optF);
+       WMResizeWidget(panel->taliF, 110, 80);
+       WMMoveWidget(panel->taliF, 15, 100);
+       WMSetFrameTitle(panel->taliF, _("Title Alignment"));
+
+       for (i = 0; i < 3; i++) {
+               panel->taliB[i] = WMCreateRadioButton(panel->taliF);
+               WMSetButtonAction(panel->taliB[i], titleAlignCallback, panel);
+               switch (i) {
+               case 0:
+                       WMSetButtonText(panel->taliB[i], _("Left"));
+                       break;
+               case 1:
+                       WMSetButtonText(panel->taliB[i], _("Center"));
+                       break;
+               case 2:
+                       WMSetButtonText(panel->taliB[i], _("Right"));
+                       break;
+               }
+               WMResizeWidget(panel->taliB[i], 90, 18);
+               WMMoveWidget(panel->taliB[i], 10, 15 + 20 * i);
+       }
+       WMGroupButtons(panel->taliB[0], panel->taliB[1]);
+       WMGroupButtons(panel->taliB[0], panel->taliB[2]);
+
+       WMMapSubwidgets(panel->taliF);
+
+       WMMapSubwidgets(panel->optF);
+
+        /**/ WMRealizeWidget(panel->box);
+       WMMapSubwidgets(panel->box);
+
+       WMSetPopUpButtonSelectedItem(panel->secP, 0);
+
+       showData(panel);
+
+       changePage(panel->secP, panel);
+
+       fillTextureList(panel->texLs);
+
+       fillColorList(panel);
+
+       panel->texturePanel = CreateTexturePanel(panel->parent);
+}
+
+static void setupTextureFor(WMList * list, char *key, char *defValue, char *title, int index)
+{
+       WMListItem *item;
+       TextureListItem *titem;
+
+       titem = wmalloc(sizeof(TextureListItem));
+       memset(titem, 0, sizeof(TextureListItem));
+
+       titem->title = wstrdup(title);
+       titem->prop = GetObjectForKey(key);
+       if (!titem->prop || !WMIsPLArray(titem->prop)) {
+               /* Maybe also give a error message to stderr that the entry is bad? */
+               titem->prop = WMCreatePropListFromDescription(defValue);
+       } else {
+               WMRetainPropList(titem->prop);
+       }
+       titem->texture = WMGetPropListDescription((WMPropList *) titem->prop, False);
+       titem->current = 1;
+       titem->selectedFor = 1 << index;
+
+       titem->ispixmap = isPixmap(titem->prop);
+
+       titem->preview = renderTexture(WMWidgetScreen(list), titem->prop, TEXPREV_WIDTH, TEXPREV_HEIGHT, NULL, 0);
+
+       item = WMAddListItem(list, "");
+       item->clientData = titem;
+}
+
+static void showData(_Panel * panel)
+{
+       int i;
+       char *str;
+
+       str = GetStringForKey("MenuStyle");
+       if (str && strcasecmp(str, "flat") == 0) {
+               panel->menuStyle = MSTYLE_FLAT;
+       } else if (str && strcasecmp(str, "singletexture") == 0) {
+               panel->menuStyle = MSTYLE_SINGLE;
+       } else {
+               panel->menuStyle = MSTYLE_NORMAL;
+       }
+
+       str = GetStringForKey("TitleJustify");
+       if (str && strcasecmp(str, "left") == 0) {
+               panel->titleAlignment = WALeft;
+       } else if (str && strcasecmp(str, "right") == 0) {
+               panel->titleAlignment = WARight;
+       } else {
+               panel->titleAlignment = WACenter;
+       }
+
+       for (i = 0; i < sizeof(colorOptions) / (2 * sizeof(char *)); i++) {
+               WMColor *color;
+
+               str = GetStringForKey(colorOptions[i * 2]);
+               if (!str)
+                       str = colorOptions[i * 2 + 1];
+
+               if (!(color = WMCreateNamedColor(WMWidgetScreen(panel->box), str, False))) {
+                       color = WMCreateNamedColor(WMWidgetScreen(panel->box), "#000000", False);
+               }
+
+               panel->colors[i] = color;
+       }
+       changeColorPage(panel->colP, panel);
+
+       for (i = 0; i < sizeof(textureOptions) / (3 * sizeof(char *)); i++) {
+               setupTextureFor(panel->texLs, textureOptions[i * 3],
+                               textureOptions[i * 3 + 1], textureOptions[i * 3 + 2], i);
+               panel->textureIndex[i] = i;
+       }
+       updatePreviewBox(panel, EVERYTHING);
+
+       WMSetButtonSelected(panel->mstyB[panel->menuStyle], True);
+       WMSetButtonSelected(panel->taliB[panel->titleAlignment], True);
+}
+
+static void storeData(_Panel * panel)
+{
+       TextureListItem *titem;
+       WMListItem *item;
+       int i;
+
+       for (i = 0; i < sizeof(textureOptions) / (sizeof(char *) * 3); i++) {
+               item = WMGetListItem(panel->texLs, panel->textureIndex[i]);
+               titem = (TextureListItem *) item->clientData;
+               SetObjectForKey(titem->prop, textureOptions[i * 3]);
+       }
+
+       for (i = 0; i < 8; i++) {
+               char *str;
+
+               str = WMGetColorRGBDescription(panel->colors[i]);
+
+               if (str) {
+                       SetStringForKey(str, colorOptions[i * 2]);
+                       wfree(str);
+               }
+       }
+
+       switch (panel->menuStyle) {
+       case MSTYLE_SINGLE:
+               SetStringForKey("singletexture", "MenuStyle");
+               break;
+       case MSTYLE_FLAT:
+               SetStringForKey("flat", "MenuStyle");
+               break;
+       default:
+       case MSTYLE_NORMAL:
+               SetStringForKey("normal", "MenuStyle");
+               break;
+       }
+       switch (panel->titleAlignment) {
+       case WALeft:
+               SetStringForKey("left", "TitleJustify");
+               break;
+       case WARight:
+               SetStringForKey("right", "TitleJustify");
+               break;
+       default:
+       case WACenter:
+               SetStringForKey("center", "TitleJustify");
+               break;
+       }
+}
+
+static void prepareForClose(_Panel * panel)
+{
+       WMPropList *textureList;
+       WMPropList *texture;
+       TextureListItem *titem;
+       WMListItem *item;
+       WMUserDefaults *udb = WMGetStandardUserDefaults();
+       int i;
+
+       textureList = WMCreatePLArray(NULL, NULL);
+
+       /* store list of textures */
+       for (i = 7; i < WMGetListNumberOfRows(panel->texLs); i++) {
+               item = WMGetListItem(panel->texLs, i);
+               titem = (TextureListItem *) item->clientData;
+
+               texture = WMCreatePLArray(WMCreatePLString(titem->title),
+                                         WMRetainPropList(titem->prop), WMCreatePLString(titem->path), NULL);
+
+               WMAddToPLArray(textureList, texture);
+       }
+
+       WMSetUDObjectForKey(udb, textureList, "TextureList");
+       WMReleasePropList(textureList);
+
+       /* store list of colors */
+       textureList = WMCreatePLArray(NULL, NULL);
+       for (i = 0; i < 24; i++) {
+               WMColor *color;
+               char *str;
+
+               color = WMGetColorWellColor(panel->sampW[i]);
+
+               str = WMGetColorRGBDescription(color);
+               WMAddToPLArray(textureList, WMCreatePLString(str));
+               wfree(str);
+       }
+       WMSetUDObjectForKey(udb, textureList, "ColorList");
+       WMReleasePropList(textureList);
+
+       WMSynchronizeUserDefaults(udb);
+}
+
+Panel *InitAppearance(WMScreen * scr, WMWindow * win)
+{
+       _Panel *panel;
+
+       panel = wmalloc(sizeof(_Panel));
+       memset(panel, 0, sizeof(_Panel));
+
+       panel->sectionName = _("Appearance Preferences");
+
+       panel->description = _("Background texture configuration for windows,\n" "menus and icons.");
+
+       panel->parent = win;
+
+       panel->callbacks.createWidgets = createPanel;
+       panel->callbacks.updateDomain = storeData;
+       panel->callbacks.prepareForClose = prepareForClose;
+
+       AddSection(panel, ICON_FILE);
+
+       return panel;
+}
+
+/****************************************************************************/
+
+typedef struct ExtractPanel {
+       WMWindow *win;
+
+       WMLabel *label;
+       WMList *list;
+
+       WMButton *closeB;
+       WMButton *extrB;
+} ExtractPanel;
+
+static void OpenExtractPanelFor(_Panel * panel, char *path)
+{
+       ExtractPanel *epanel;
+       WMColor *color;
+       WMFont *font;
+       WMScreen *scr = WMWidgetScreen(panel->parent);
+
+       epanel = wmalloc(sizeof(ExtractPanel));
+       epanel->win = WMCreatePanelWithStyleForWindow(panel->parent, "extract",
+                                                     WMTitledWindowMask | WMClosableWindowMask);
+       WMResizeWidget(epanel->win, 245, 250);
+       WMSetWindowTitle(epanel->win, _("Extract Texture"));
+
+       epanel->label = WMCreateLabel(epanel->win);
+       WMResizeWidget(epanel->label, 225, 18);
+       WMMoveWidget(epanel->label, 10, 10);
+       WMSetLabelTextAlignment(epanel->label, WACenter);
+       WMSetLabelRelief(epanel->label, WRSunken);
+
+       color = WMDarkGrayColor(scr);
+       WMSetWidgetBackgroundColor(epanel->label, color);
+       WMReleaseColor(color);
+
+       color = WMWhiteColor(scr);
+       WMSetLabelTextColor(epanel->label, color);
+       WMReleaseColor(color);
+
+       font = WMBoldSystemFontOfSize(scr, 12);
+       WMSetLabelFont(epanel->label, font);
+       WMReleaseFont(font);
+
+       WMSetLabelText(epanel->label, _("Textures"));
+
+       epanel->list = WMCreateList(epanel->win);
+       WMResizeWidget(epanel->list, 225, 165);
+       WMMoveWidget(epanel->list, 10, 30);
+
+       epanel->closeB = WMCreateCommandButton(epanel->win);
+       WMResizeWidget(epanel->closeB, 74, 24);
+       WMMoveWidget(epanel->closeB, 165, 215);
+       WMSetButtonText(epanel->closeB, _("Close"));
+
+       epanel->extrB = WMCreateCommandButton(epanel->win);
+       WMResizeWidget(epanel->extrB, 74, 24);
+       WMMoveWidget(epanel->extrB, 80, 215);
+       WMSetButtonText(epanel->extrB, _("Extract"));
+
+       WMMapSubwidgets(epanel->win);
+
+       /* take textures from file */
+
+       WMRealizeWidget(epanel->win);
+
+       WMMapWidget(epanel->win);
+}