Posted to tcl by h1rag4mi at Mon Oct 14 12:58:28 GMT 2019view pretty
frame .myFrame1 -background red -relief ridge -borderwidth 8 -padx 10 -pady 10 -height 100 -width 100
button .myFrame1.b1 -text "Puts .myFrame1" -command {puts ".myFrame1"}
button .myFrame1.b2 -text "grab ." -command {grab .}
button .myFrame1.b3 -text "grab -global ." -command {grab -global .}
button .b1 -text "Puts ." -command {puts "."}
button .b2 -text "grab .myFrame1" -command {grab .myFrame1}
button .b3 -text "grab -global .myFrame1" -command {grab -global .myFrame1}
pack .myFrame1
pack .myFrame1.b1
pack .myFrame1.b2
pack .myFrame1.b3
pack .b1
pack .b2
pack .b3