Self-Tcl FORUM

[ice-man]

Hi

Ich glaube ,ich seh den Wald vor Bäumen nicht.
Das Skript soll mir eine eine Auswahl zur Verfügung stellen - tut es aber nicht. Alle Radiobutto sind aktiviert und lassen sich nicht ändern


#!/bin/sh
# the next line restarts using tixwish \
exec gwish "$0" "$@"
#package require Tix

set x 0
set f [frame .123]
pack $f
puts "Variable f $f"
foreach host {host_01 host_02 host_03} {

puts "f.host $f.$host"
set $host $x
radiobutton $f.$host -text $host

# -relief flat -pady 0 -width 12 -anchor w

# $f.$host select
pack $f.$host -side top -pady 0 -anchor w -padx 8
# puts "f.host $f.$host"
$f.$host deselect
incr x 1
}

$f.host_01 select

puts "$host_01 $host_02 $host_03"


Hier das Ergebnis
Variable f .123
f.host .123.host_01
f.host .123.host_02
f.host .123.host_03
0 1 2


Eigentlich gaanz einfach -oder ?

der ice-man

[hank]

Hallo,

du benötigst noch eine globale Variable (für alle Radiobuttons einer Gruppe die selbe) und einen Wert, den der ausgewählte Radiobutton haben soll.

[ice-man]

der Wald war zu groß

stimmt: nur duch -value und -variable wird der radiobutton bedienbar

der ice-man