/*
 *  Copyright (c) 2005 Bart Coppens <kde@bartcoppens.be>
 *
 *  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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 */

#include <KoImageResource.h>
#include <kdebug.h>
#include <tqlineedit.h>
#include <tqimage.h>
#include <tqpushbutton.h>
#include <tqregexp.h>
#include <tqvalidator.h>

#include <tdeglobal.h>
#include <kstandarddirs.h>
#include <tdetempfile.h>
#include <kcolordialog.h>
#include <kinputdialog.h>
#include <tdelocale.h>
#include <tdemessagebox.h>

#include "kis_view.h"
#include "kis_palette.h"
#include "kis_palette_view.h"
#include "kis_custom_palette.h"
#include "kis_resource_mediator.h"
#include "kis_resourceserver.h"

KisCustomPalette::KisCustomPalette(TQWidget *parent, const char* name, const TQString& caption, KisView* view)
    : KisWdgCustomPalette(parent, name), m_view(view)
{
    Q_ASSERT(m_view);
    m_mediator = 0;
    m_server = 0;
    m_editMode = false;
    setCaption(caption);

    m_palette = new KisPalette();
    m_ownPalette = true;
    this->view->setPalette(m_palette);

    connect(addColor, TQT_SIGNAL(pressed()), this, TQT_SLOT(slotAddNew()));
    connect(removeColor, TQT_SIGNAL(pressed()), this, TQT_SLOT(slotRemoveCurrent()));
    connect(addPalette, TQT_SIGNAL(pressed()), this, TQT_SLOT(slotAddPredefined()));
}

KisCustomPalette::~KisCustomPalette() {
    if (m_ownPalette)
        delete m_palette;
}

void KisCustomPalette::setPalette(KisPalette* p) {
    if (m_ownPalette)
        delete m_palette;
    m_ownPalette = false;
    m_palette = p;
    view->setPalette(m_palette);
}

void KisCustomPalette::setEditMode(bool b) {
    m_editMode = b;

    if (m_editMode) {
        addPalette->setText(i18n("Save changes"));
    } else {
        addPalette->setText(i18n("Add to Predefined Palettes"));
    }
}

void KisCustomPalette::slotAddNew() {
    // Let the user select a new color
    // FIXME also let him add the current paint color to the palette
    // or even better, let the color picker have an option 'Add to palette'!

    TQColor color;
    int result = KColorDialog::getColor(color);
    if (result != KColorDialog::Accepted)
        return;

    bool ok;
    TQRegExpValidator validator(TQRegExp(".*"), TQT_TQOBJECT(this));
    TQString name = KInputDialog::getText(i18n("Add Color to Palette"),
                                         i18n("Color name (optional):"),
                                         TQString(), &ok,
                                         0, 0, &validator);
    if (!ok)
        return;

    KisPaletteEntry entry;
    entry.color = color;
    entry.name = name;

    m_palette->add(entry);

    // Just reload the palette completely for the view updating
    view->setPalette(m_palette);
}

void KisCustomPalette::slotRemoveCurrent() {
    m_palette->remove(view->currentEntry());
    // Just reload the palette completely for the view updating
    view->setPalette(m_palette);
}

void KisCustomPalette::slotAddPredefined() {
    m_palette->setName(palettename->text());

    if (!m_editMode) {
        // Save in the directory that is likely to be: ~/.trinity/share/apps/chalk/palettes
        // a unique file with this palettename
        TQString dir = TDEGlobal::dirs()->saveLocation("data", "chalk/palettes");
        TQString extension;

        extension = ".gpl";
        KTempFile file(dir, extension);
        file.close(); // If we don't, and palette->save first, it might get truncated!

        // Save it to that file 
        m_palette->setFilename(file.name());
    } else {
        // The filename is already set
    }

    if (!m_palette->save()) {
        KMessageBox::error(0, i18n("Cannot write to palette file %1. Maybe it is read-only.")
                                   .arg(m_palette->filename()), i18n("Palette"));
        return;
    }

    // Add it to the palette server, so that it automatically gets to the mediators, and
    // so to the other choosers can pick it up, if they want to
    // This probably leaks!
    if (m_server)
        m_server->addResource(new KisPalette(*m_palette));
}


#include "kis_custom_palette.moc"