implement some chat functionality, but not complete yet

modules/core_widgets/core_widgets.otmod

@@ -11,6 +11,7 @@ Module
     require 'uicheckbox'
     require 'uicombobox'
     require 'uiprogressbar'
+    require 'uitabbar'
     require 'uipopupmenu'
     require 'uiwindow'
     require 'tooltip/tooltip'

modules/core_widgets/uitabbar.lua

@@ -1 +1,84 @@
 UITabBar = extends(UIWidget)
+
+-- private functions
+local function onTabClick(tabButton)
+  tabButton.tabBar:selectTab(tabButton)
+end
+
+local function tabBlink(tabButton)
+  if tabButton.blinking then
+    tabButton:setOn(not tabButton:isOn())
+    scheduleEvent(function() tabBlink(tabButton) end, 300)
+  end
+end
+
+-- public functions
+function UITabBar.create()
+  local tabbar = UITabBar.internalCreate()
+  tabbar.tabs = {}
+  return tabbar
+end
+
+function UITabBar:setContentWidget(widget)
+  self.contentWidget = widget
+  if #self.tabs > 0 then
+    self.contentWidget:addChild(self.tabs[1].tabPanel)
+  end
+end
+
+function UITabBar:addTab(text, panel)
+  if panel == nil then
+    panel = createWidget(self:getStyleName() .. 'Panel')
+  end
+
+  local tabButton = createWidget(self:getStyleName() .. 'Button', self)
+  tabButton.tabPanel = panel
+  tabButton.tabBar = self
+  tabButton:setText(text)
+  tabButton:setWidth(tabButton:getTextSize().width + tabButton:getPaddingLeft() + tabButton:getPaddingRight())
+  connect(tabButton, { onClick = onTabClick })
+
+  table.insert(self.tabs, tabButton)
+  if #self.tabs == 1 then
+    self:selectTab(tabButton)
+  end
+
+  return tabButton
+end
+
+function UITabBar:selectTab(tabButton)
+  if self.contentWidget then
+    local selectedWidget = self.contentWidget:getFirstChild()
+    if selectedWidget then
+      self.contentWidget:removeChild(selectedWidget)
+    end
+    self.contentWidget:addChild(tabButton.tabPanel)
+    tabButton.tabPanel:fill('parent')
+  end
+
+  tabButton:setChecked(true)
+  tabButton:setOn(false)
+  tabButton.blinking = false
+  if self.currentTabButton then
+    self.currentTabButton:setChecked(false)
+  end
+  self.currentTabButton = tabButton
+end
+
+function UITabBar:blinkTab(tabButton)
+  if not tabButton:isChecked() then
+    tabButton:setOn(true)
+    tabButton.blinking = true
+    tabBlink(tabButton)
+  end
+end
+
+function UITabBar:getTabPanel(tabButton)
+  return tabButton.tabPanel
+end
+
+function UITabBar:getCurrentTabPanel()
+  if self.currentTabButton then
+    return self.currentTabButton.tabPanel
+  end
+end