#!/usr/prac/se/hush/bin/hush -f

proc cc {} {
toplevel .f
message .f.m -text "hi"
wm title .f message
dpos .f
pack append .f .f.m top
button .f.b -text quit -command { destroy .f }
pack append .f .f.b {top fillx}
}

button .b -text hallo -command cc

pack append . .b top



