#16 shader gui window close tcl error

[Randolf Schultz]

The "Set new shader!" GUI produces a Tcl error
when the window is closed using the close button
of the window decoration instead of the cancel button.