The following example assumes that the values
you want for the client operating system depend on the values that the user
selects for the server operating system.
Vorgehensweise
On the server_os field, create a Choice List hook
with the enumerated list of values set to Windows NT and UNIX:
VBScript
choices.AddItem("NT")
choices.AddItem("Unix")
Perl
push(@choices,"NT","Unix");
return @choices; #Rational ClearQuest Designer provides this line of code
To prevent your users from adding new members to
the list, select the Limit to list check box.
To clear the old value in client_os when a new value
is selected in server_os, add the following line to the server_os Value Changed
hook:
VBScript
SetFieldValue "client_os", ""
Perl
$entity->SetFieldValue("client_os", "");
On the client_os field, create a Choice List hook:
VBScript
dim server_os_choice
set server_os_choice = GetFieldValue("server_os")
select case server_os_choice.GetValue()
case "NT"
choices.AddItem ("Win95")
choices.AddItem ("NT")
choices.AddItem ("Web")
case "Unix"
choices.AddItem ("Web")
end select
Perl
$server_os_choice = $entity->GetFieldValue("server_os");
$svalue = $server_os_choice->GetValue();
if ($svalue eq "NT") {
push(@choices, "Win95","NT","Web");
} elsif ($svalue eq "Unix") {
push(@choices,"CQWeb");
}
return @choices;
#Rational ClearQuest Designer provides this line of code
In the properties for the client_os hook, select Recalculate
Choice list, so that whenever the server_os field changes, the
values are recalculated.
Add the client_os and server_os fields to the form
by using list box controls.