ClickSpotter 0.1.1

data/lib/BrowserLauncher.rb

@@ -0,0 +1,23 @@
+#
+# BrowserLauncher.rb - ClickSpotter
+#
+# Copyright (c) 2005, 2006 by Chris Schlaeger <cs@kde.org>
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# $Id: BrowserLauncher.rb 13 2006-01-23 20:50:55Z cs $
+#
+
+module BrowserLauncher
+
+  def browseURL(url)
+    if url[0, 1] == "/"
+      url = $globals.defaultServerURL + url
+    end
+    system($globals.browserCmd + " '" + url + "' &")
+  end
+
+end
+
+

data/lib/CSListView.rb

@@ -0,0 +1,118 @@
+#
+# CSListView.rb - ClickSpotter
+#
+# Copyright (c) 2005, 2006 by Chris Schlaeger <cs@kde.org>
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# $Id: CSListView.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+require 'CSListViewItem'
+
+class CSListView < Qt::Object
+
+  slots 'selectionChanged()'
+
+  attr_reader :selectedItems
+
+  def initialize(qlv)
+    super
+    @qlv = qlv
+    @state = nil
+    @selectedItems = {}
+    @itemDict = {}
+
+    connect(@qlv, SIGNAL('selectionChanged()'), SLOT('selectionChanged()'))
+  end
+
+  def setColumnWidth(col, val)
+    @qlv.setColumnWidth(col, val)
+    @qlv.setColumnWidthMode(col, 0)
+  end
+
+  def insertItem(itemObj, *entries)
+    item = CSListViewItem.new(@qlv)
+    item.insert(entries)
+
+    # Add item to translation dictonary
+    @itemDict[item] = itemObj
+    if @selectedItems[itemObj] != nil
+      item.setSelected(true)
+      @selectedItems[itemObj] = true
+    end
+  end
+
+  def deleteItem(itemObj)
+    @itemDict.delete_if do |key, value|
+      if value == itemObj
+        key.dispose
+        true
+      end
+      false
+    end
+  end
+
+  def startUpdate
+    raise "State has not yet been restored" if @state
+    @qlv.setUpdatesEnabled(false)
+    @qlv.viewport().setUpdatesEnabled(false)
+    vPos = @qlv.verticalScrollBar().value()
+    hPos = @qlv.horizontalScrollBar().value()
+    # Mark all selected items as 'false'. Then we clear the list view and add
+    # all items again. The items in the selection lists are then set to
+    # 'true'. In finishUpdate() the items that are still false will be removed
+    # from the selection list as they are no longer in the list.
+    @selectedItems.each { |key, value| @selectedItems[key] = false }
+    @itemDict.clear()
+    @qlv.clear()
+    GC.disable
+    @state = [ vPos, hPos ]
+    #@start = Time.now()
+  end
+
+  def finishUpdate
+    raise "State has not been saved" unless @state
+    #puts "Duration: #{Time.now() - @start}"
+    GC.enable
+    @selectedItems.delete_if { |key, value| !value }
+    @qlv.verticalScrollBar().setValue(@state[0])
+    @qlv.horizontalScrollBar().setValue(@state[1])
+    @qlv.viewport().setUpdatesEnabled(true)
+    @qlv.setUpdatesEnabled(true)
+    @qlv.triggerUpdate()
+    @state = nil
+  end
+
+  def item(qlvItem)
+    @itemDict[qlvItem]
+  end
+
+  def items
+    @itemDict.values
+  end
+
+  def selectedItemList
+    @selectedItems.keys
+  end
+
+  def selectedItem
+    return nil if @selectedItems.empty?
+    @selectedItems.keys[0]
+  end
+
+  def selectionChanged
+    @selectedItems = {}
+    if @qlv.selectionMode == Qt::ListView.Single
+      @selectedItems = { @itemDict[@qlv.selectedItem] => true }
+    else
+      it = Qt::ListViewItemIterator.new(@qlv)
+      while it.current
+        @selectedItems[@itemDict[it.current]] = true if it.current.selected?
+        it += 1
+      end
+    end
+  end
+
+end

data/lib/CSListViewItem.rb

@@ -0,0 +1,49 @@
+#
+# CSListViewItem.rb - ClickSpotter
+#
+# Copyright (c) 2005, 2006 by Chris Schlaeger <cs@kde.org>
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# $Id: CSListViewItem.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+class CSListViewItem < Qt::ListViewItem
+
+  attr_reader :values
+
+  def initialize(parent = nil)
+    super
+    @values = []
+  end
+
+  def compare(lvi, col, ascending)
+    # Workaround for a Qt bug. It seems like it even compares non-existing
+    # columns.
+    return 0 if col >= @values.size
+
+    @values[col] <=> lvi.values[col]
+  end
+
+  def insert(entries)
+    @values = entries
+    0.upto(entries.size - 1) do |i|
+      if entries[i].class == String
+        text = entries[i]
+      elsif entries[i].class == Fixnum || i.class == Bignum
+        text = "%8d" % entries[i]
+      elsif entries[i].class == Float
+        text = "%5.1f" % entries[i]
+      elsif entries[i].class == Time
+        text = entries[i].strftime("%H:%M:%S %Y/%m/%d")
+      else
+        raise "Unsupported type #{entries[i].class} of value #{i}:#{entries[i]}"
+      end
+      setText(i, text)
+    end
+  end
+
+end
+
+

data/lib/ClickableCanvasView.rb

@@ -0,0 +1,24 @@
+#
+# ClickableCanvasView.rb - ClickSpotter
+#
+# Copyright (c) 2005, 2006 by Chris Schlaeger <cs@kde.org>
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# $Id: ClickableCanvasView.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+class ClickableCanvasView < Qt::CanvasView
+
+  signals 'clicked()'
+
+  def initialize(canvas, parent = nil, name = nil, wFlags = 0)
+    super
+  end
+
+  def mouseReleaseEvent(ev)
+    emit clicked
+  end
+
+end

data/lib/Configuration.rb

@@ -0,0 +1,123 @@
+#
+# Configuration.rb - ClickSpotter
+#
+# Copyright (c) 2005, 2006 by Chris Schlaeger <cs@kde.org>
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# $Id: Configuration.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+require 'ConfigurationDlg'
+require 'ServerLogSettings'
+require 'GlobalSettings'
+
+class Configuration < ConfigurationDlg
+
+  slots 'selectionChanged(QListViewItem*)', 'itemClicked(QListViewItem*)'
+
+  def initialize(parent = nil, name = nil)
+    super(parent)
+
+    connect(@logList, SIGNAL('selectionChanged(QListViewItem*)'),
+        SLOT('selectionChanged(QListViewItem*)'))
+    connect(@logList, SIGNAL('clicked(QListViewItem*)'),
+        SLOT('itemClicked(QListViewItem*)'))
+
+    # Server log tab values
+    @logListCSLV = CSListView.new(@logList)
+    @logList.setSorting(1, true)
+
+    @logSettings = Array.new($globals.serverLogFiles)
+    @logSettings.each { |ls| @logListCSLV.insertItem(ls, ls.name ) }
+    enableEditButtons(false)
+
+    # Other settings
+    @browserCommand.text = $globals.getSetting('BrowserCommand')
+    @logFileDataTimeout.value = $globals.getSetting('LogFileDataTimeout')
+    @logFileEntries.text = "%d" % $hitRecords.size
+    @dnsTimeout.value = $globals.getSetting('DNSTimeout')
+    @dnsEntries.text = "%d" % $resolver.cacheSize
+    @dnsResolverCB.checked = $globals.getSetting('DNSResolver')
+    @geolocTimeout.value = $globals.getSetting('GeolocTimeout')
+    @geolocEntries.text = "%d" % $geoLocator.cacheSize
+    @geolocatorCB.checked = $globals.getSetting('Geolocator')
+    @traceRouteTimeout.value = $globals.getSetting('TracerTimeout')
+    @traceEntries.text = "%d" % $traceRouter.cacheSize
+    @traceRouterCB.checked = $globals.getSetting('TraceRouter')
+    @geolocHost.text = $globals.getSetting('GeolocHost')
+    @geolocPort.value = $globals.getSetting('GeolocPort')
+
+    show
+  end
+
+  def newLogBtnClicked
+    settings = GSServerLogSettings.new
+    if ServerLogSettings.new(settings, self).exec() == Qt::Dialog.Accepted
+      @logSettings << settings
+      @logListCSLV.insertItem(settings, settings.name)
+    end
+  end
+
+  def editLogBtnClicked
+    return unless @logList.selectedItem
+    settings = @logListCSLV.selectedItemList[0]
+    if ServerLogSettings.new(settings, self).exec() == Qt::Dialog.Accepted
+      @logList.selectedItem.setText(0, settings.name)
+    end
+  end
+
+  def removeLogBtnClicked
+    return unless @logList.selectedItem
+
+    if @logListCSLV.selectedItem == $globals.currentLogFile
+      Qt::MessageBox.warning(self, "Illegal action",
+          "You cannot remove the active log file", Qt::MessageBox.Ok, 0)
+      return
+    end
+
+    @logSettings.delete(@logListCSLV.selectedItem)
+    @logListCSLV.deleteItem(@logListCSLV.selectedItem)
+    enableEditButtons(false) unless @logList.selectedItem
+  end
+
+  def okBtnClicked
+    # Server log tab values
+    $globals.serverLogFiles = @logSettings
+
+    # Other settings
+    $globals.setSetting('BrowserCommand', @browserCommand.text)
+    $globals.setSetting('LogFileDataTimeout', @logFileDataTimeout.value)
+    $globals.setSetting('DNSTimeout', @dnsTimeout.value)
+    $globals.setSetting('DNSResolver', @dnsResolverCB.isChecked)
+    $resolver.enabled = @dnsResolverCB.isChecked
+    $globals.setSetting('GeolocTimeout', @geolocTimeout.value)
+    $globals.setSetting('Geolocator', @geolocatorCB.isChecked)
+    $geoLocator.enabled = @geolocatorCB.isChecked
+    $globals.setSetting('TracerTimeout', @traceRouteTimeout.value)
+    $globals.setSetting('TraceRouter', @traceRouterCB.isChecked)
+    $traceRouter.enabled = @traceRouterCB.isChecked
+    $globals.setSetting('GeolocHost', @geolocHost.text)
+    $globals.setSetting('GeolocPort', @geolocPort.value)
+
+    accept
+  end
+
+  def selectionChanged(item)
+    enableEditButtons(true)
+  end
+
+  def itemClicked(item)
+    enableEditButtons(false) unless item
+  end
+
+private
+
+  def enableEditButtons(enable)
+    @editLogBtn.setEnabled(enable)
+    @removeLogBtn.setEnabled(enable)
+  end
+
+end
+

data/lib/ConfigurationDlg.rb

@@ -0,0 +1,372 @@
+# Form implementation generated from reading ui file 'ConfigurationDlg.ui'
+#
+# Created: Mon Jan 23 23:21:51 2006
+#      by: The QtRuby User Interface Compiler (rbuic)
+#
+# WARNING! All changes made in this file will be lost!
+
+
+require 'Qt'
+
+class ConfigurationDlg < Qt::Dialog
+
+    slots 'languageChange()',
+    'newLogBtnClicked()',
+    'editLogBtnClicked()',
+    'removeLogBtnClicked()',
+    'okBtnClicked()'
+
+    attr_reader :tabWidget
+    attr_reader :Widget8
+    attr_reader :removeLogBtn
+    attr_reader :editLogBtn
+    attr_reader :newLogBtn
+    attr_reader :logList
+    attr_reader :Widget9
+    attr_reader :groupBox14
+    attr_reader :browserCommand
+    attr_reader :textLabel2
+    attr_reader :groupBox15
+    attr_reader :textLabel3
+    attr_reader :textLabel6
+    attr_reader :dnsEntries
+    attr_reader :geolocEntries
+    attr_reader :textLabel10
+    attr_reader :textLabel8
+    attr_reader :textLabel17
+    attr_reader :textLabel18
+    attr_reader :traceRouteTimeout
+    attr_reader :logFileDataTimeout
+    attr_reader :textLabel7
+    attr_reader :textLabel9
+    attr_reader :traceEntries
+    attr_reader :logFileEntries
+    attr_reader :geolocTimeout
+    attr_reader :dnsTimeout
+    attr_reader :textLabel1
+    attr_reader :traceRouterCB
+    attr_reader :geolocatorCB
+    attr_reader :dnsResolverCB
+    attr_reader :textLabel1_2
+    attr_reader :groupBox16
+    attr_reader :textLabel13
+    attr_reader :textLabel14
+    attr_reader :geolocHost
+    attr_reader :geolocPort
+    attr_reader :textLabel11
+    attr_reader :okBtn
+    attr_reader :cancelBtn
+
+
+    def initialize(parent = nil, name = nil, modal = false, fl = 0)
+        super
+
+        if name.nil?
+        	setName("ConfigurationDlg")
+        end
+        setSizeGripEnabled(true)
+
+        @ConfigurationDlgLayout = Qt::VBoxLayout.new(self, 11, 6, 'ConfigurationDlgLayout')
+
+        @tabWidget = Qt::TabWidget.new(self, "tabWidget")
+
+        @Widget8 = Qt::Widget.new(@tabWidget, "Widget8")
+        @Widget8Layout = Qt::GridLayout.new(@Widget8, 1, 1, 11, 6, 'Widget8Layout')
+
+        @removeLogBtn = Qt::PushButton.new(@Widget8, "removeLogBtn")
+
+        @Widget8Layout.addWidget(@removeLogBtn, 2, 1)
+
+        @editLogBtn = Qt::PushButton.new(@Widget8, "editLogBtn")
+
+        @Widget8Layout.addWidget(@editLogBtn, 1, 1)
+
+        @newLogBtn = Qt::PushButton.new(@Widget8, "newLogBtn")
+
+        @Widget8Layout.addWidget(@newLogBtn, 0, 1)
+
+        @logList = Qt::ListView.new(@Widget8, "logList")
+        @logList.addColumn(trUtf8("Server Log"))
+
+        @Widget8Layout.addMultiCellWidget(@logList, 0, 3, 0, 0)
+        @spacer5 = Qt::SpacerItem.new(31, 91, Qt::SizePolicy::Minimum, Qt::SizePolicy::Expanding)
+        @Widget8Layout.addItem(@spacer5, 3, 1)
+        @tabWidget.insertTab(@Widget8, trUtf8("&Web Server Log Files"))
+
+        @Widget9 = Qt::Widget.new(@tabWidget, "Widget9")
+        @Widget9Layout = Qt::GridLayout.new(@Widget9, 1, 1, 11, 6, 'Widget9Layout')
+
+        @groupBox14 = Qt::GroupBox.new(@Widget9, "groupBox14")
+        @groupBox14.setColumnLayout( 0, Qt::Vertical )
+        @groupBox14.layout().setSpacing(6)
+        @groupBox14.layout().setMargin(11)
+        @groupBox14Layout = Qt::GridLayout.new(@groupBox14.layout() )
+        @groupBox14Layout.setAlignment( AlignTop )
+
+        @browserCommand = Qt::LineEdit.new(@groupBox14, "browserCommand")
+
+        @groupBox14Layout.addWidget(@browserCommand, 1, 0)
+
+        @textLabel2 = Qt::Label.new(@groupBox14, "textLabel2")
+        @textLabel2.setTextFormat( Qt::Label::RichText )
+
+        @groupBox14Layout.addWidget(@textLabel2, 0, 0)
+
+        @Widget9Layout.addWidget(@groupBox14, 0, 0)
+
+        @groupBox15 = Qt::GroupBox.new(@Widget9, "groupBox15")
+        @groupBox15.setColumnLayout( 0, Qt::Vertical )
+        @groupBox15.layout().setSpacing(6)
+        @groupBox15.layout().setMargin(11)
+        @groupBox15Layout = Qt::GridLayout.new(@groupBox15.layout() )
+        @groupBox15Layout.setAlignment( AlignTop )
+
+        @textLabel3 = Qt::Label.new(@groupBox15, "textLabel3")
+
+        @groupBox15Layout.addMultiCellWidget(@textLabel3, 1, 2, 0, 0)
+
+        @textLabel6 = Qt::Label.new(@groupBox15, "textLabel6")
+
+        @groupBox15Layout.addMultiCellWidget(@textLabel6, 1, 2, 2, 3)
+
+        @dnsEntries = Qt::LineEdit.new(@groupBox15, "dnsEntries")
+        @dnsEntries.setReadOnly( true )
+
+        @groupBox15Layout.addWidget(@dnsEntries, 4, 3)
+
+        @geolocEntries = Qt::LineEdit.new(@groupBox15, "geolocEntries")
+        @geolocEntries.setReadOnly( true )
+
+        @groupBox15Layout.addWidget(@geolocEntries, 5, 3)
+
+        @textLabel10 = Qt::Label.new(@groupBox15, "textLabel10")
+
+        @groupBox15Layout.addWidget(@textLabel10, 5, 2)
+
+        @textLabel8 = Qt::Label.new(@groupBox15, "textLabel8")
+
+        @groupBox15Layout.addWidget(@textLabel8, 4, 2)
+
+        @textLabel17 = Qt::Label.new(@groupBox15, "textLabel17")
+
+        @groupBox15Layout.addWidget(@textLabel17, 3, 0)
+
+        @textLabel18 = Qt::Label.new(@groupBox15, "textLabel18")
+
+        @groupBox15Layout.addWidget(@textLabel18, 3, 2)
+
+        @traceRouteTimeout = Qt::SpinBox.new(@groupBox15, "traceRouteTimeout")
+        @traceRouteTimeout.setMaxValue( 168 )
+        @traceRouteTimeout.setMinValue( 1 )
+        @traceRouteTimeout.setValue( 48 )
+
+        @groupBox15Layout.addWidget(@traceRouteTimeout, 3, 1)
+
+        @logFileDataTimeout = Qt::SpinBox.new(@groupBox15, "logFileDataTimeout")
+        @logFileDataTimeout.setMaxValue( 168 )
+        @logFileDataTimeout.setMinValue( 1 )
+        @logFileDataTimeout.setValue( 24 )
+
+        @groupBox15Layout.addWidget(@logFileDataTimeout, 2, 1)
+
+        @textLabel7 = Qt::Label.new(@groupBox15, "textLabel7")
+
+        @groupBox15Layout.addWidget(@textLabel7, 4, 0)
+
+        @textLabel9 = Qt::Label.new(@groupBox15, "textLabel9")
+
+        @groupBox15Layout.addWidget(@textLabel9, 5, 0)
+
+        @traceEntries = Qt::LineEdit.new(@groupBox15, "traceEntries")
+        @traceEntries.setReadOnly( true )
+
+        @groupBox15Layout.addWidget(@traceEntries, 3, 3)
+
+        @logFileEntries = Qt::LineEdit.new(@groupBox15, "logFileEntries")
+        @logFileEntries.setReadOnly( true )
+
+        @groupBox15Layout.addWidget(@logFileEntries, 2, 3)
+
+        @geolocTimeout = Qt::SpinBox.new(@groupBox15, "geolocTimeout")
+        @geolocTimeout.setMaxValue( 365 )
+        @geolocTimeout.setMinValue( 1 )
+        @geolocTimeout.setValue( 30 )
+
+        @groupBox15Layout.addWidget(@geolocTimeout, 5, 1)
+
+        @dnsTimeout = Qt::SpinBox.new(@groupBox15, "dnsTimeout")
+        @dnsTimeout.setMaxValue( 365 )
+        @dnsTimeout.setMinValue( 1 )
+        @dnsTimeout.setValue( 7 )
+
+        @groupBox15Layout.addWidget(@dnsTimeout, 4, 1)
+        @spacer3 = Qt::SpacerItem.new(310, 20, Qt::SizePolicy::Expanding, Qt::SizePolicy::Minimum)
+        @groupBox15Layout.addMultiCell(@spacer3, 0, 0, 0, 2)
+
+        @textLabel1 = Qt::Label.new(@groupBox15, "textLabel1")
+
+        @groupBox15Layout.addWidget(@textLabel1, 0, 3)
+
+        @traceRouterCB = Qt::CheckBox.new(@groupBox15, "traceRouterCB")
+
+        @groupBox15Layout.addWidget(@traceRouterCB, 3, 4)
+
+        @geolocatorCB = Qt::CheckBox.new(@groupBox15, "geolocatorCB")
+
+        @groupBox15Layout.addWidget(@geolocatorCB, 5, 4)
+
+        @dnsResolverCB = Qt::CheckBox.new(@groupBox15, "dnsResolverCB")
+
+        @groupBox15Layout.addWidget(@dnsResolverCB, 4, 4)
+
+        @textLabel1_2 = Qt::Label.new(@groupBox15, "textLabel1_2")
+
+        @groupBox15Layout.addWidget(@textLabel1_2, 0, 4)
+
+        @Widget9Layout.addWidget(@groupBox15, 1, 0)
+
+        @groupBox16 = Qt::GroupBox.new(@Widget9, "groupBox16")
+        @groupBox16.setColumnLayout( 0, Qt::Vertical )
+        @groupBox16.layout().setSpacing(6)
+        @groupBox16.layout().setMargin(11)
+        @groupBox16Layout = Qt::GridLayout.new(@groupBox16.layout() )
+        @groupBox16Layout.setAlignment( AlignTop )
+
+        @textLabel13 = Qt::Label.new(@groupBox16, "textLabel13")
+
+        @groupBox16Layout.addWidget(@textLabel13, 1, 0)
+
+        @textLabel14 = Qt::Label.new(@groupBox16, "textLabel14")
+
+        @groupBox16Layout.addWidget(@textLabel14, 1, 2)
+
+        @geolocHost = Qt::LineEdit.new(@groupBox16, "geolocHost")
+
+        @groupBox16Layout.addWidget(@geolocHost, 1, 1)
+
+        @geolocPort = Qt::SpinBox.new(@groupBox16, "geolocPort")
+        @geolocPort.setMaxValue( 32767 )
+        @geolocPort.setMinValue( 1 )
+        @geolocPort.setValue( 80 )
+
+        @groupBox16Layout.addWidget(@geolocPort, 1, 3)
+
+        @textLabel11 = Qt::Label.new(@groupBox16, "textLabel11")
+        @textLabel11.setTextFormat( Qt::Label::RichText )
+
+        @groupBox16Layout.addMultiCellWidget(@textLabel11, 0, 0, 0, 3)
+
+        @Widget9Layout.addWidget(@groupBox16, 2, 0)
+        @tabWidget.insertTab(@Widget9, trUtf8("&Settings"))
+        @ConfigurationDlgLayout.addWidget(@tabWidget)
+
+        @Layout1 = Qt::HBoxLayout.new(nil, 0, 6, 'Layout1')
+        @Horizontal_Spacing2 = Qt::SpacerItem.new(20, 20, Qt::SizePolicy::Expanding, Qt::SizePolicy::Minimum)
+        @Layout1.addItem(@Horizontal_Spacing2)
+
+        @okBtn = Qt::PushButton.new(self, "okBtn")
+        @okBtn.setAutoDefault( true )
+        @okBtn.setDefault( true )
+        @Layout1.addWidget(@okBtn)
+
+        @cancelBtn = Qt::PushButton.new(self, "cancelBtn")
+        @cancelBtn.setAutoDefault( true )
+        @Layout1.addWidget(@cancelBtn)
+        @ConfigurationDlgLayout.addLayout(@Layout1)
+        languageChange()
+        resize( Qt::Size.new(562, 587).expandedTo(minimumSizeHint()) )
+        clearWState( WState_Polished )
+
+        Qt::Object.connect(@newLogBtn, SIGNAL("clicked()"), self, SLOT("newLogBtnClicked()") )
+        Qt::Object.connect(@editLogBtn, SIGNAL("clicked()"), self, SLOT("editLogBtnClicked()") )
+        Qt::Object.connect(@removeLogBtn, SIGNAL("clicked()"), self, SLOT("removeLogBtnClicked()") )
+        Qt::Object.connect(@okBtn, SIGNAL("clicked()"), self, SLOT("okBtnClicked()") )
+        Qt::Object.connect(@cancelBtn, SIGNAL("clicked()"), self, SLOT("reject()") )
+
+        setTabOrder(@tabWidget, @logList)
+        setTabOrder(@logList, @newLogBtn)
+        setTabOrder(@newLogBtn, @editLogBtn)
+        setTabOrder(@editLogBtn, @removeLogBtn)
+        setTabOrder(@removeLogBtn, @okBtn)
+        setTabOrder(@okBtn, @cancelBtn)
+        setTabOrder(@cancelBtn, @browserCommand)
+        setTabOrder(@browserCommand, @logFileDataTimeout)
+        setTabOrder(@logFileDataTimeout, @logFileEntries)
+        setTabOrder(@logFileEntries, @traceRouteTimeout)
+        setTabOrder(@traceRouteTimeout, @traceEntries)
+        setTabOrder(@traceEntries, @traceRouterCB)
+        setTabOrder(@traceRouterCB, @dnsTimeout)
+        setTabOrder(@dnsTimeout, @dnsEntries)
+        setTabOrder(@dnsEntries, @dnsResolverCB)
+        setTabOrder(@dnsResolverCB, @geolocTimeout)
+        setTabOrder(@geolocTimeout, @geolocEntries)
+        setTabOrder(@geolocEntries, @geolocatorCB)
+        setTabOrder(@geolocatorCB, @geolocHost)
+        setTabOrder(@geolocHost, @geolocPort)
+    end
+
+    #
+    #  Sets the strings of the subwidgets using the current
+    #  language.
+    #
+    def languageChange()
+        setCaption(trUtf8("Click Spotter Configuration"))
+        @removeLogBtn.setText( trUtf8("&Remove") )
+        @removeLogBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+R")) )
+        @editLogBtn.setText( trUtf8("&Edit ...") )
+        @editLogBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+E")) )
+        @newLogBtn.setText( trUtf8("&New ...") )
+        @newLogBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+N")) )
+        @logList.header().setLabel( 0, trUtf8("Server Log") )
+        @tabWidget.changeTab( @Widget8, trUtf8("&Web Server Log Files") )
+        @groupBox14.setTitle( trUtf8("Browser Command") )
+        @textLabel2.setText( trUtf8("Click Spotter can call your browser to open pages that it has found in the\n" +
+        "log file. Please specify the command that is needed to open your browser.\n" +
+        "The URL of the page will be automatically appended to this command.") )
+        @groupBox15.setTitle( trUtf8("Remote Lookups and their Expiration Times") )
+        @textLabel3.setText( trUtf8("Log File Data") )
+        @textLabel6.setText( trUtf8("hours") )
+        @textLabel10.setText( trUtf8("days") )
+        @textLabel8.setText( trUtf8("days") )
+        @textLabel17.setText( trUtf8("Trace Route") )
+        @textLabel18.setText( trUtf8("hours") )
+        @textLabel7.setText( trUtf8("DNS Lookups") )
+        @textLabel9.setText( trUtf8("Geolocation Records") )
+        @textLabel1.setText( trUtf8("Currently Cache Entries") )
+        @traceRouterCB.setText( trUtf8("Enabled") )
+        @geolocatorCB.setText( trUtf8("Enabled") )
+        @dnsResolverCB.setText( trUtf8("Enabled") )
+        @textLabel1_2.setText( trUtf8("Remote Lookups") )
+        @groupBox16.setTitle( trUtf8("Geolocation Server") )
+        @textLabel13.setText( trUtf8("Host Name") )
+        @textLabel14.setText( trUtf8("Port") )
+        @textLabel11.setText( trUtf8("The program uses an external server to query for geolocation information\n" +
+        "by the IP number of the monitored visitors. The default is <u>api.hostip.info</u> but you can use any other server\n" +
+        "as long as it provides the same data exchange format. Please visit the hostip.info web page\n" +
+        "at <u>http://www.hostip.info</u> for more information about Geolocation.") )
+        @tabWidget.changeTab( @Widget9, trUtf8("&Settings") )
+        @okBtn.setText( trUtf8("&OK") )
+        @okBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+O")) )
+        @cancelBtn.setText( trUtf8("&Cancel") )
+        @cancelBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+C")) )
+    end
+    protected :languageChange
+
+
+    def newLogBtnClicked(*k)
+        print("ConfigurationDlg.newLogBtnClicked(): Not implemented yet.\n")
+    end
+
+    def editLogBtnClicked(*k)
+        print("ConfigurationDlg.editLogBtnClicked(): Not implemented yet.\n")
+    end
+
+    def removeLogBtnClicked(*k)
+        print("ConfigurationDlg.removeLogBtnClicked(): Not implemented yet.\n")
+    end
+
+    def okBtnClicked(*k)
+        print("ConfigurationDlg.okBtnClicked(): Not implemented yet.\n")
+    end
+
+end