tcl/tk Problem

Hallo Leute, ich habe ein Problem mit einem tcl/tk Script - habe zu dem Problem auch schon gegoogelt, habe aber leider nichts gefunden. Folgendes Problem: # Eine Beispiel-Funktion proc push_button {} { status put yellow -to 0 0 15 15 status copy basis -to 5 5 .button -invert "Status/On" -command ... } Die Fehlermeldung lautet beim aufrufen der Funktion immer: "Fehler: bad option "-invert": must be cget, configure, flash, or invoke". Leider kenne ich mich da wenig aus und würde mich deshalb sehr über Hilfestellungen freuen, die das Problem möglichst einfach umgehen Vielen Dank schonmal im vorraus Viele Grüße -- Daniel Feist