選択されたタブの文字を変更する方法

【ご質問】
選択されたタブの文字を変更する方法を教えてください。

【回答】
TabContainer.tab-panesにて従属するTabPaneを取得可能です.
下記サンプルコードを参考にして下さい。

{curl 6.0,7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{TabContainer
    {TabPane
        label = {text
                        font-size = 30px,
                        font-style = “italic”,
                        text-underline? = true,
                        現在選択中
                   },
        {text font-size = 28pt, 1}
    },
    {TabPane
        label = “L2”,
        {text font-size = 28pt, 2}
    },
    {TabPane
        label = “L2”,
        {text font-size = 28pt, 3}
    }
    ,
    {on CurrentPaneChanged at tc:TabContainer do
        set tc.tab-panes[0].label = “L1”
        set tc.tab-panes[1].label = “L2”
        set tc.tab-panes[2].label = “L3”
        set tc.current-pane.label = {VBox
                                                  background = “blue”,
                                                  {text
                                                      color = “pink”,
                                                      font-size = 30px,
                                                      font-style = “italic”,
                                                      text-underline? = true,
                                                      現在選択中
                                                  }
                                              }
    }
}