This is a page for longer things that I'm not sure whether or not belong on the Wiki or how to categorize them.  In hindsight I maybe should have used the name chat temp.  Oh well...  

----
Abhishek I hope this helps:

 #! /bin/wish8.3
 proc toolbar:make {win arPtr} {
	upvar $arPtr ar
	set i 0; 
	foreach {name mem} [array get ar] {
		set img [lindex $mem 0]
		set cmd [lindex $mem 1]
		pack [button $win.$name -image $img -command $cmd] -side left
		incr i
	}
 }

 proc toolbar:disable {win arPtr key disFile} {
	upvar $arPtr ar
	set img [lindex $ar($key) 0]
	$img read ./$disFile
	$win.$key config -state disabled
 }

 pack [frame .f -relief groove -bd 1]
 set ar(hello) [list [image create photo -file ./hello.gif] {puts "Hello World"}]
 set ar(goodbye) [list [image create photo -file ./goodbye.gif] exit]
 toolbar:make .f ar


 pack [button .b -text "Disable Hello" -command {toolbar:disable .f ar hello ./goodbye.gif}]