/* * $Id$ * * This file contains the IceWM configuration widget * * Copyright (c) 2001 * Karol Szwed * 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 #include #include #include #include #include #include #include #include #include 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: https://github.com/bbidulock/icewm-extra-themes" ), 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"