Problem with tab strip with a lot of tabs

If you have a tab strip with a lot of tabs, you get two little arrows in the upper-right corner of the tab strip, which appear to give you the possibility of scrolling through the tabs that have scrolled off to one side or the other. But, the arrows don't seem to actually work.

Here is some code for a sample dialog box to demontrate the problem. Click the "Add Tabs" button a few times, and you will see the little arrows appear. Click the arrows. Nothing happens for me.

Code below. Sample image attached. Anyone got any ideas?
 

string gpNull[] = {"Tab 1"}
void fnDoNothingTab(DBE xTab) {}
DB gpDB = topMost("A lot of tabs")
DBE gpTab = tab(gpDB,gpNull,fnDoNothingTab)
void fnAddTabs(DB xDB) {
    int i = 0
        int xNum = 0
        for(i=0;i<9;i++) {
                xNum = noElems(gpTab)
                insert(gpTab,xNum,"Tab "(xNum+1)"")
        }
}
apply(gpDB,"Add 10 More Tabs",fnAddTabs)
realize(gpDB)
setSize(gpDB,600,400)
setPos(gpDB,200,200)
show(gpDB)

Re: Problem with tab strip with a lot of tabs
Doug.Zawacki - Tue Feb 10 14:33:51 EST 2009

Re: Problem with tab strip with a lot of tabs
djakad - Tue Feb 10 14:41:40 EST 2009