;; New toplevel window

(toplevel '.new)
(wm 'geometry .new "200x200")
(wm 'title .new "A new window")