On Wed, 17 Jul 2002 22:04:17 +0200
Bernd Obermayr
On Wed, 17 Jul 2002 21:25:58 +0200 (CEST) "Heinz W. Pahlke"
wrote:
AQber vielleicht koenntest du oder jemand anderes mal einen Blick auf das Script werden? Ich habe es einfach mal hochgeladen: http://www.pahlke-online.de/download/isdn
Mach ich mal.
Ok, hab ich jetzt :) button .right.oben.hangupz -text "X" -width 9 -command { if { ${f} == {0192658}} { catch [exec dialmsn stop ] res; puts "$res"; }} 1. Wo ist $f definiert? 2. Das mit dem -command{} funktioniert so nicht. Siehe vorige Mail "{}". Auf $f kann hier nicht zugegriffen werden. (Frag mich nicht warum ;) Am Besten wird hier immer eine parameterlose Funktion aufgerufen. Folgende Vorschläge: Fuege Deine Code direkt vor dem letzten doloop ein. definiere die Funktionen proc abwahl {} { global is ## Mit [lreplace $is(phone) 0 0] wird das erste element von ## is(phone) geloescht. ## Ich weiss nicht wozu, Aufklaerung bringen vermutlich ## zwei puts :) puts "proc abwahl::is(phone) = $is(phone)" set rlist [lreplace $is(phone) 0 0] puts "proc abwahl::rlist = $rlist" if { $rlist == {0192658} } { catch [exec dialmsn stop ] res; puts "$res"; } } -----------8<------------- button .right.oben.hangupt -text "X" -width 9 -command { if { ${f} == {0192658}} { catch [exec dialmsn stop ] res; puts "$res"; }} -----------8<------------- Dieser Schnipsel unterscheidet sich nur durch den widget-namen von dem Anderen, ich nehme an, Du willst An- und Abwahl haben. In dem Fall definiere eine Funktion analog zur Obigen. Die -command Anweisung ist dann nur noch z.B: button .right.oben.hangupt -text "X" -width 9 -command {abwahl} Du hast noch 2 frames definiert: frame .right2 und frame .right3. Diese werden aber nirgends benutzt, Du kannst sie also weglassen Bei der Definition von widgets ist auch folgende Konstruktion moeglich: -------------------8<------------------ pack [frame .right.oben] pack [button .right.oben.hangupt \ -text "X" \ -width 9 \ -command { abwahl } ] -side top -------------------8<------------------ Diese Notation benutze ich mittlerweile, bei grossen Scripten ist sie erheblich uebersichtlicher. -- so long... bernd ------------------------------------------------------------------------