Code set mainform [ form label "Hello World" code { stringitem label "Hello" text "World" cmd label "Exit" code exit type exit }] setcurrent $mainform