-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Am Dienstag, 12. August 2003 13:22 schrieb Heinz W. Pahlke:
Hallo,
vermutlich liegt es am schwuelen Wetter und meiner Sommergrippe, dass mir einfach nichts mehr einfaellt.
Das vermute ich auch :-)
Mit dem folgenden TCL/TK-Script will ich einfach nur "cinternet --start" und "cinternet --stop" ausfuehren, wobei mir aber jeweils angezeigt wird, ob DSL aktiv oder deaktiviert ist.
--------------------------------8<------------------------------------
#!/usr/X11R6/bin/wish8.4
frame .sep -width 100 -height 2 -border 2 -borderwidth 1 -relief sunken
frame .controls button .controls.ok -text "Wählen" -command exit
button .controls.cancel -text "Auflegen" -command exit pack .controls.ok -side left pack .controls.cancel -side left
bind .controls.ok <ButtonPress-1> { .controls.ok [text create -text "DSL aktiv"] } bind .controls.cancel <ButtonPress-1> { .controls.cancel create text -text "DSL deaktiviert" }
pack .sep pack .controls
---------------------------------->8----------------------------------
1. Ich nehme an, dass Dein Programm beendet wird, wenn Du einen der Button drückst, oder? Mit -command gibt man bei einem Button nämlich an, was geschehen soll, wenn er gedrückt wird, also in Deinem Fall exit. BTW, warum heißen Deine Buttons ok bzw. cancel, wenn Wählen bzw. Auflegen dransteht? Man versteht den Code (auch selbst :-) später besser, wenn die Namen etwas mit der echten Bedeutung zu tun haben. 2. Warum so umständlich eine Aktion mit bind an den Button hängen? Dafür gibt es extra -command. Schreib Deinen Code besser so um, dass aus den bind-Aufrufen Procedure-Definitionen werden (z.B. dial und hangup), die Du dann jeweils hinter -command schreibst. 3. Den Text eines Button änderst Du z.B. mit: controls.dial configure -text "DSL aktiv"
Das dies so nicht gehen kann, ist mir schon klar, aber die richtige Loesung finde ich momentan trotzdem nicht.
Fuer ein paar Denkanstoesse waere ich deshalb sehr dankbar.
Gern geschehen. Ralf. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.1 (GNU/Linux) iD8DBQE/PIxc7YyyfykA0YkRAjiPAJwPVejuiYAcixQQYjWM6wt1Ozq5GgCcDFy3 +UmYQLmF4+67abkA9sVwgkY= =aG8F -----END PGP SIGNATURE-----