tcl/tk jemand?

[Hans-Joachim Hoetger]

Moin
Ich habe gestern im Linuxmagazin den tcl/tk-kurs gelesen.
Dabei kam mir die Idee für ein Programm, daß mich mit einem
Mausclick auf verschiedenen Maschinen einloggen kann. Dann
habe ic mir ein passendes Beispiel aus dem 'samples'
Verzeichnis genommen und es umgeschrieben. Es funktioniert
auch ziemlich gut. Dummerweise werden aber immer zwei
Fenster geöffnet. Kennt sich jemand mit tcl/tk aus?

Hier der Code:

#!/bin/sh 
# \
exec wish "$0" "$@"

toplevel .fwssh 
wm title .fwssh "ssh to a firewall"
wm iconname .fwssh "fw-ssh"

label .fwssh.msg -wraplength 4i -justify left -text "Please choose a firewall."
pack .fwssh.msg -side top

frame .fwssh.buttons
pack .fwssh.buttons -side bottom -fill x -pady 2m
button .fwssh.buttons.dismiss -text Dismiss -command "destroy .fwssh"
pack .fwssh.buttons.dismiss -side left -expand 1

frame .fwssh.frame -borderwidth .5c
pack .fwssh.frame -side top -expand yes -fill y

scrollbar .fwssh.frame.scroll -command ".fwssh.frame.list yview"
listbox .fwssh.frame.list -yscroll ".fwssh.frame.scroll set" -setgrid 1 -height 12
pack .fwssh.frame.scroll -side right -fill y
pack .fwssh.frame.list -side left -expand 1 -fill both

bind .fwssh.frame.list <Double-1> {
	exec /usr/bin/X11/xterm -ls -sb -rv -e ssh [selection get] -l hajo
}

.fwssh.frame.list insert 0 ente.mediaways.net \
	oma.mediaways.net \
	opa.mediaways.net




	
-- 
Hans-Joachim Hoetger              voice: +49-5241-80-88990
mediaWays GmbH                        NMW-T1 (Technologie)

"Gut ist auch des Emporkommen von Linux als Herausforderer 
von Microsoft."       Angela Merkel (Die Zeit, 4.Mai 2000)

-
Hinweise zur Benutzung dieser (und anderer Mailing-Listen) bitte beachten:
--> http://lug-owl.de/mailinglist_hints.html <--