Googie - tcl_scripting is one of modules available for Kadu [L1 ] - an Instant Messager very famous in Poland (Gadu-Gadu network).
It allows to control most of functions exported by Kadu API and some of QT [L2 ] (which Kadu is based on) from Tcl scripts.
There are already few Tcl scripts for Kadu available:
HomePage (Polish only :/ ): http://scripts.one.pl/tcl4kadu/
Some screenshots can be found here: http://scripts.one.pl/tcl4kadu/index.rvt?page=screens (yep, site is Rivet powered :) )