Posted to tcl by h1rag4mi at Tue Oct 22 10:24:51 GMT 2019view pretty
toplevel .t
frame .t.myFrame1 -background red -relief ridge -borderwidth 8 -padx 10 -pady 10 -height 100 -width 100
button .t.myFrame1.b1 -text "Puts .t.myFrame1" -command {puts ".t.myFrame1"}
button .t.myFrame1.b2 -text "grab .t" -command {grab .t}
button .t.myFrame1.b3 -text "grab -global .t" -command {grab -global .t}
entry .t.myFrame1.e1 -width 20
button .t.b1 -text "Puts .t" -command {puts ".t"}
button .t.b2 -text "grab .t.myFrame1" -command {grab .t.myFrame1}
button .t.b3 -text "grab -global .t.myFrame1" -command {grab -global .t.myFrame1}
entry .t.e1 -width 20
pack .t.myFrame1
pack .t.myFrame1.b1
pack .t.myFrame1.b2
pack .t.myFrame1.b3
pack .t.myFrame1.e1
pack .t.b1
pack .t.b2
pack .t.b3
pack .t.e1