2 files changed, 19 insertions, 0 deletions

diff --git a/src/ui/util.c b/src/ui/util.c
index 8a174393..a68d340d 100644
--- a/src/ui/util.c
+++ b/src/ui/util.c
@@ -340,6 +340,18 @@ iWidget *removeTabPage_Widget(iWidget *tabs, size_t index) {
     return page;
 }
 
+iLabelWidget *tabButtonForPage_Widget_(iWidget *tabs, const iWidget *page) {
+    iWidget *buttons = findChild_Widget(tabs, "tabs.buttons");
+    iForEach(ObjectList, i, buttons->children) {
+        iAssert(isInstance_Object(i.object, &Class_LabelWidget));
+        iAny *label = i.object;
+        if (pointerLabel_Command(cstr_String(command_LabelWidget(label)), "page") == page) {
+            return label;
+        }
+    }
+    return NULL;
+}
+
 void showTabPage_Widget(iWidget *tabs, const iWidget *page) {
     /* Select the corresponding button. */ {
         iWidget *buttons = findChild_Widget(tabs, "tabs.buttons");
@@ -364,6 +376,12 @@ void showTabPage_Widget(iWidget *tabs, const iWidget *page) {
     }
 }
 
+void setTabPageLabel_Widget(iWidget *tabs, const iAnyObject *page, const iString *label) {
+    iLabelWidget *button = tabButtonForPage_Widget_(tabs, page);
+    setText_LabelWidget(button, label);
+    arrange_Widget(tabs);
+}
+
 const iWidget *currentTabPage_Widget(const iWidget *tabs) {
     iWidget *pages = findChild_Widget(tabs, "tabs.pages");
     iConstForEach(ObjectList, i, pages->children) {
diff --git a/src/ui/util.h b/src/ui/util.h
index a23f84c1..1f35b8e8 100644
--- a/src/ui/util.h
+++ b/src/ui/util.h
@@ -100,6 +100,7 @@ void        prependTabPage_Widget   (iWidget *tabs, iWidget *page, const char *l
 iWidget *   tabPage_Widget          (iWidget *tabs, size_t index);
 iWidget *   removeTabPage_Widget    (iWidget *tabs, size_t index); /* returns the page */
 void        showTabPage_Widget      (iWidget *tabs, const iWidget *page);
+void        setTabPageLabel_Widget  (iWidget *tabs, const iAnyObject *page, const iString *label);
 const iWidget *currentTabPage_Widget(const iWidget *tabs);
 size_t      tabCount_Widget         (const iWidget *tabs);