#!/usr/bin/env wish

button .b \
    -text "Move me over window 2 and than click to raise window 2" \
    -command "raise .t"
pack .b

toplevel .t
pack [label .t.l -text "I'm window 2.  Cover me with window 1"]

