setting colours to buttons that change when the button is clicked

[TMPS]

Hi Guys,

i'm sorry if this is a really obvious question but this is my first tcl/tk program.
I have been asked to create a program that displays 9 buttons that are red and when clicked become blue and vise versa. I have the 9 buttons but am unsure as how to set the colours of the buttons, any help will be greatly appreciated.

Regards,
TMPS

 

[feherke]

Hi

[b]for[/b] [teal]{[/teal][b]set[/b] i [purple]0[/purple][teal]}[/teal] [teal]{[/teal][navy]$i[/navy][teal]<[/teal][purple]9[/purple][teal]}[/teal] [teal]{[/teal][b]incr[/b] i[teal]}[/teal] [teal]{[/teal]
  pack [teal][[/teal]button [teal].[/teal]b[navy]$i[/navy] [teal]-[/teal]bg red [teal]-[/teal]command [green][i]"ch .b$i"[/i][/green][teal]][/teal]
[teal]}[/teal]

[b]proc[/b] ch [teal]{[/teal]b[teal]}[/teal][teal]\[/teal]
[teal]{[/teal]
  [navy]$b[/navy] configure [teal]-[/teal]bg [teal][[/teal][b]expr[/b] [teal][[/teal][b]string[/b] equal [teal][[/teal][navy]$b[/navy] cget [teal]-[/teal]bg[teal]][/teal] [green][i]"red"[/i][/green][teal]]?[/teal][green][i]"blue"[/i][/green][teal]:[/teal][green][i]"red"[/i][/green][teal]][/teal]
[teal]}[/teal]

Feherke.

http://feherke.github.com/

 

[TMPS]

Hi Feherke,

Thanks for your prompt reply, that's exactly what I was after.

Regards, Tom.