It\'s simple question but quite hard to solve it for me.
function() { tt<- tktoplevel() lbl <- tklabel(tt, text="GUI PRACTICE") tkpack(lbl)