dialog TestTabActivate { title TestTabActivate size -1 -1 100 100 option dbu tab "Tab 1", 1, 2 2 96 96 tab "Tab 2", 2 tab "Tab 3", 3 } on *:dialog:TestTabActivate:init:0: { did -f $dname 2 } alias TestTab dialog -mdh TestTabActivate TestTabActivate