TCL executing commands

riotxix · 12-29-2006, 03:20 PM

Hi, I'm new to TCL - I wrote the bulk of the script in 5 minutes, and have spent over an hour searching for the answer to something simple - I'm quite frustrated now.

Ok...
----
#!/usr/bin/wish -f

button .b -text "Monitor off in 20s" -command {exit}
pack.b
-----

BUT, all I want to do is run the commands
sleep 20s
xset dpms off
exit

while the window is displayed..

so the script exits after 20s switching the monitor off with it. I just can't find a solution on how to do this WHILE the window box . is present - please help.

I tried listing the commands afterwards - it just closes the window and then runs the commands in the console box.

Wim Sturkenboom · 12-30-2006, 12:10 AM

Code:

after 20000 { set dpms off; exit }

man after

PS not tested