Tcl Source Code

Artifact a0fa1766c1493d73f2589edbb9327877b6586267:

Attachment "test.tcl" to ticket [1991932fff] added by phase1geo 2008-06-12 19:32:31.

---

proc create_top {} {

  button .b -text "Push" -command {
    create_child
  }
  pack .b

  grab -global .

}

proc create_child {} {

  toplevel .c
  button .c.b -text "Push again" -command {
    create_grandchild
    destroy .c
  }
  pack .c.b

}

proc create_grandchild  {} {

  toplevel .gc
  label .gc.l -text "Move the cursor over me a few times..."
  pack .gc.l

}

create_top