Add GUI check box to control mouse wheel cycling over tab bar in konsole.

Work remains to finish the patch to actually stop the cycling.
This partially resolves bug report 909.

kcontrol/konsole/kcmkonsole.cpp

@@ -71,6 +71,7 @@ KCMKonsole::KCMKonsole(TQWidget * parent, const char *name, const TQStringList&)
     connect(dialog->frameCB,TQT_SIGNAL(toggled(bool)), TQT_SLOT( changed() ));
     connect(dialog->line_spacingSB,TQT_SIGNAL(valueChanged(int)), TQT_SLOT( changed() ));
     connect(dialog->matchTabWinTitleCB,TQT_SIGNAL(toggled(bool)), TQT_SLOT( changed() ));
+    connect(dialog->tabsCycleWheel,TQT_SIGNAL(toggled(bool)), TQT_SLOT( changed() ));
     connect(dialog->silence_secondsSB,TQT_SIGNAL(valueChanged(int)), TQT_SLOT( changed() ));
     connect(dialog->word_connectorLE,TQT_SIGNAL(textChanged(const TQString &)), TQT_SLOT( changed() ));
     connect(dialog->SchemaEditor1, TQT_SIGNAL(changed()), TQT_SLOT( changed() ));
@@ -95,6 +96,7 @@ void KCMKonsole::load(bool useDefaults)
     bidiOrig = config.readBoolEntry("EnableBidi",false);
     dialog->bidiCB->setChecked(bidiOrig);
     dialog->matchTabWinTitleCB->setChecked(config.readBoolEntry("MatchTabWinTitle",false));
+    dialog->tabsCycleWheel->setChecked(config.readBoolEntry("TabsCycleWheel",true));
     dialog->warnCB->setChecked(config.readBoolEntry("WarnQuit",true));
     dialog->ctrldragCB->setChecked(config.readBoolEntry("CtrlDrag",true));
     dialog->cutToBeginningOfLineCB->setChecked(config.readBoolEntry("CutToBeginningOfLine",false));
@@ -133,6 +135,7 @@ void KCMKonsole::save()
     bool bidiNew = dialog->bidiCB->isChecked();
     config.writeEntry("EnableBidi", bidiNew);
     config.writeEntry("MatchTabWinTitle", dialog->matchTabWinTitleCB->isChecked());
+    config.writeEntry("TabsCycleWheel", dialog->tabsCycleWheel->isChecked());
     config.writeEntry("WarnQuit", dialog->warnCB->isChecked());
     config.writeEntry("CtrlDrag", dialog->ctrldragCB->isChecked());
     config.writeEntry("CutToBeginningOfLine", dialog->cutToBeginningOfLineCB->isChecked());

kcontrol/konsole/kcmkonsoledialog.ui

@@ -297,6 +297,14 @@
                                     <string>Set tab title to match window title</string>
                                 </property>
                             </widget>
+                            <widget class="TQCheckBox" row="12" column="0" rowspan="1" colspan="3">
+                                <property name="name">
+                                    <cstring>tabsCycleWheel</cstring>
+                                </property>
+                                <property name="text">
+                                    <string>Cycle tabs with mouse wheel</string>
+                                </property>
+                            </widget>
                         </grid>
                     </widget>
                 </grid>