Looking for a "Select All" feature in TCL

I hope thi sis simple...

I have a TCL script which has several checkboxes. Is there a way to have one of the checkboxes be a "select all" and select/deselect all of the other boxes?

Can you show me a mini-sample?

Thanks... Scott E.