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 <[email protected]>



-- 
Um die Liste abzubestellen, schicken Sie eine Mail an:
    [email protected]
Um eine Liste aller verfügbaren Kommandos zu bekommen, schicken
Sie eine Mail an: [email protected]