# additional toplevel
xtAppInitialize -class Program
. setValues -iconPixmap xlogo32

xmLabel .fred managed \
    -labelString "primary shell"

topLevelShell .fred.top
.fred.top setValues -iconPixmap calculator

xmLabel .fred.top.label2 managed \
    -labelString "secondary shell"
.fred.top popup

. realizeWidget

. mainLoop
