You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
276 lines
8.5 KiB
276 lines
8.5 KiB
/*
|
|
* $Id$
|
|
*
|
|
* This file contains the IceWM configuration widget
|
|
*
|
|
* Copyright (c) 2001
|
|
* Karol Szwed <gallium@kde.org>
|
|
* http://gallium.n3.net/
|
|
*
|
|
* 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; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
* Boston, MA 02110-1301, USA.
|
|
*
|
|
*/
|
|
|
|
#include "config.h"
|
|
#include <tqdir.h>
|
|
#include <tqregexp.h>
|
|
#include <tqvbox.h>
|
|
#include <tqwhatsthis.h>
|
|
#include <tdeglobal.h>
|
|
#include <tdelocale.h>
|
|
#include <kstandarddirs.h>
|
|
#include <kdialog.h>
|
|
#include <kdirwatch.h>
|
|
#include <tdeapplication.h>
|
|
|
|
|
|
extern "C"
|
|
{
|
|
KDE_EXPORT TQObject* allocate_config( TDEConfig* conf, TQWidget* parent )
|
|
{
|
|
return(new IceWMConfig(conf, parent));
|
|
}
|
|
}
|
|
|
|
|
|
// NOTE:
|
|
// ==========================================================================
|
|
// 'conf' is a pointer to the twindecoration modules open twin config,
|
|
// and is by default set to the "Style" group.
|
|
//
|
|
// 'parent' is the parent of the TQObject, which is a VBox inside the
|
|
// Configure tab in twindecoration
|
|
// ==========================================================================
|
|
|
|
IceWMConfig::IceWMConfig( TDEConfig* conf, TQWidget* parent )
|
|
: TQObject( parent )
|
|
{
|
|
icewmConfig = new TDEConfig("twinicewmrc");
|
|
TDEGlobal::locale()->insertCatalogue("twin_clients");
|
|
TDEGlobal::locale()->insertCatalogue("twin_art_clients");
|
|
|
|
mainWidget = new TQVBox( parent );
|
|
mainWidget->setSpacing( KDialog::spacingHint() );
|
|
|
|
themeListBox = new TQListBox( mainWidget );
|
|
themeListBox->setMinimumHeight( 150 );
|
|
TQWhatsThis::add( themeListBox,
|
|
i18n("Make your IceWM selection by clicking on a theme here. ") );
|
|
|
|
cbThemeTitleTextColors = new TQCheckBox(
|
|
i18n("Use theme &title text colors"), mainWidget );
|
|
|
|
TQWhatsThis::add( cbThemeTitleTextColors,
|
|
i18n("When selected, titlebar colors will follow those set "
|
|
"in the IceWM theme. If not selected, the current TDE "
|
|
"titlebar colors will be used instead.") );
|
|
|
|
cbTitleBarOnTop = new TQCheckBox(
|
|
i18n("&Show title bar on top of windows"), mainWidget );
|
|
|
|
TQWhatsThis::add( cbTitleBarOnTop,
|
|
i18n("When selected, all window titlebars will be shown "
|
|
"at the top of each window, otherwise they will be "
|
|
"shown at the bottom.") );
|
|
|
|
cbShowMenuButtonIcon = new TQCheckBox(
|
|
i18n("&Menu button always shows application mini icon"), mainWidget );
|
|
|
|
TQWhatsThis::add( cbShowMenuButtonIcon,
|
|
i18n("When selected, all titlebar menu buttons will have "
|
|
"the application icon shown. If not selected, the current "
|
|
"theme's defaults are used instead.") );
|
|
|
|
urlLabel = new KURLLabel( mainWidget );
|
|
urlLabel->setText( i18n("Open TDE's IceWM theme folder") );
|
|
|
|
themeLabel = new TQLabel(
|
|
i18n("Clicking on the link above will cause a window to appear showing the TDE IceWM theme folder. "
|
|
"You can add or remove native IceWM themes by installing theme files into this folder or by "
|
|
"creating folder symlinks to existing IceWM themes on your system. "
|
|
"You can get extra-themes here: <b>https://github.com/bbidulock/icewm-extra-themes</b>"
|
|
), mainWidget );
|
|
|
|
TQWhatsThis::add( themeLabel,
|
|
i18n("You're supposed to copy the entire theme folders "
|
|
"into your TDE IceWM theme folder.") );
|
|
|
|
// Load configuration options
|
|
load( conf );
|
|
|
|
// Ensure we track user changes properly
|
|
connect( themeListBox, TQ_SIGNAL(selectionChanged()),
|
|
this, TQ_SLOT(slotSelectionChanged()) );
|
|
|
|
connect( urlLabel, TQ_SIGNAL(leftClickedURL(const TQString&)),
|
|
this, TQ_SLOT(callURL(const TQString&)));
|
|
|
|
connect( cbThemeTitleTextColors, TQ_SIGNAL(clicked()),
|
|
this, TQ_SLOT(slotSelectionChanged()) );
|
|
|
|
connect( cbTitleBarOnTop, TQ_SIGNAL(clicked()),
|
|
this, TQ_SLOT(slotSelectionChanged()) );
|
|
|
|
connect( cbShowMenuButtonIcon, TQ_SIGNAL(clicked()),
|
|
this, TQ_SLOT(slotSelectionChanged()) );
|
|
|
|
// Create the theme directory (if not found) ... and obtain the path as we do so.
|
|
localThemeString = TDEGlobal::dirs()->saveLocation("data", "twin");
|
|
localThemeString += "/icewm-themes";
|
|
if (!TQFile::exists(localThemeString))
|
|
TQDir().mkdir(localThemeString);
|
|
|
|
// Watch the icewm theme directory for theme additions/removals
|
|
KDirWatch::self()->addDir(localThemeString);
|
|
connect( KDirWatch::self(), TQ_SIGNAL(dirty(const TQString&)), this, TQ_SLOT(findIceWMThemes()) );
|
|
connect( KDirWatch::self(), TQ_SIGNAL(created(const TQString&)), this, TQ_SLOT(findIceWMThemes()) );
|
|
connect( KDirWatch::self(), TQ_SIGNAL(deleted(const TQString&)), this, TQ_SLOT(findIceWMThemes()) );
|
|
|
|
// Set the konqui link url
|
|
TQString urlThemeString = TQString("file://") + localThemeString;
|
|
urlThemeString.replace( TQRegExp("~"), "$HOME" );
|
|
urlLabel->setURL( urlThemeString );
|
|
|
|
// Make the widgets visible in twindecoration
|
|
mainWidget->show();
|
|
|
|
KDirWatch::self()->startScan();
|
|
}
|
|
|
|
|
|
IceWMConfig::~IceWMConfig()
|
|
{
|
|
KDirWatch::self()->removeDir(localThemeString);
|
|
KDirWatch::self()->stopScan();
|
|
delete icewmConfig;
|
|
delete mainWidget;
|
|
}
|
|
|
|
|
|
// Searches for all installed IceWM themes, and adds them to the listBox.
|
|
void IceWMConfig::findIceWMThemes()
|
|
{
|
|
TQStringList dirList = TDEGlobal::dirs()->findDirs("data", "twin/icewm-themes");
|
|
TQStringList::ConstIterator it;
|
|
|
|
// Remove any old themes in the list (if any)
|
|
themeListBox->clear();
|
|
themeListBox->insertItem( i18n("Infadel #2 (default)") );
|
|
|
|
// Step through all twin/icewm-themes directories...
|
|
for( it = dirList.begin(); it != dirList.end(); it++)
|
|
{
|
|
// List all directory names only...
|
|
TQDir d(*it, TQString("*"), TQDir::Unsorted, TQDir::Dirs | TQDir::Readable );
|
|
if (d.exists())
|
|
{
|
|
TQFileInfoListIterator it2( *d.entryInfoList() );
|
|
TQFileInfo* finfo;
|
|
|
|
// Step through all directories within the twin/icewm-themes directory
|
|
while( (finfo = it2.current()) )
|
|
{
|
|
// Ignore . and .. directories
|
|
if ( (finfo->fileName() == ".") || (finfo->fileName() == "..") )
|
|
{
|
|
++it2;
|
|
continue;
|
|
}
|
|
|
|
if ( !themeListBox->findItem( finfo->fileName()) )
|
|
themeListBox->insertItem( finfo->fileName() );
|
|
|
|
++it2;
|
|
}
|
|
}
|
|
}
|
|
|
|
// Sort the items
|
|
themeListBox->sort();
|
|
|
|
// Select the currently used IceWM theme
|
|
TQString themeName = icewmConfig->readEntry("CurrentTheme");
|
|
|
|
// Provide a theme alias
|
|
if (themeName == "default")
|
|
themeName = "";
|
|
|
|
if (themeName.isEmpty())
|
|
themeListBox->setCurrentItem(
|
|
themeListBox->findItem( i18n("Infadel #2 (default)") ) );
|
|
else
|
|
themeListBox->setCurrentItem( themeListBox->findItem(themeName) );
|
|
}
|
|
|
|
|
|
void IceWMConfig::callURL( const TQString& s )
|
|
{
|
|
kapp->invokeBrowser( s );
|
|
}
|
|
|
|
|
|
void IceWMConfig::slotSelectionChanged()
|
|
{
|
|
emit changed();
|
|
}
|
|
|
|
|
|
// Loads the configurable options from the twinicewmrc config file
|
|
void IceWMConfig::load( TDEConfig* )
|
|
{
|
|
icewmConfig->setGroup("General");
|
|
|
|
bool override = icewmConfig->readBoolEntry( "ThemeTitleTextColors", true );
|
|
cbThemeTitleTextColors->setChecked( override );
|
|
|
|
override = icewmConfig->readBoolEntry( "TitleBarOnTop", true );
|
|
cbTitleBarOnTop->setChecked( override );
|
|
|
|
override = icewmConfig->readBoolEntry( "ShowMenuButtonIcon", false );
|
|
cbShowMenuButtonIcon->setChecked( override );
|
|
|
|
findIceWMThemes();
|
|
}
|
|
|
|
|
|
// Saves the configurable options to the twinicewmrc config file
|
|
void IceWMConfig::save( TDEConfig* )
|
|
{
|
|
icewmConfig->setGroup("General");
|
|
icewmConfig->writeEntry( "ThemeTitleTextColors", cbThemeTitleTextColors->isChecked() );
|
|
icewmConfig->writeEntry( "TitleBarOnTop", cbTitleBarOnTop->isChecked() );
|
|
icewmConfig->writeEntry( "ShowMenuButtonIcon", cbShowMenuButtonIcon->isChecked() );
|
|
|
|
if (themeListBox->currentText() == i18n("Infadel #2 (default)"))
|
|
icewmConfig->writeEntry("CurrentTheme", "default");
|
|
else
|
|
icewmConfig->writeEntry("CurrentTheme", themeListBox->currentText() );
|
|
|
|
icewmConfig->sync();
|
|
}
|
|
|
|
|
|
// Sets UI widget defaults which must correspond to config defaults
|
|
void IceWMConfig::defaults()
|
|
{
|
|
cbThemeTitleTextColors->setChecked( true );
|
|
cbTitleBarOnTop->setChecked( true );
|
|
cbShowMenuButtonIcon->setChecked( false );
|
|
themeListBox->setCurrentItem( themeListBox->findItem(i18n("Infadel #2 (default)")) );
|
|
}
|
|
|
|
#include "config.moc"
|