Utilice los enganches de lista de opciones para compilar una lista de opciones para el usuario. Cuando el software de Rational ClearQuest llama a un enganche de lista de opciones, proporciona una instancia de la clase HookChoices en el parámetro "choices" (opciones). Debe utilizar este objeto en el enganche para añadir elementos a la lista, y para clasificar los elementos de lista existentes. Si no clasifica los elementos de la lista de opciones, aparecen en el orden en el que se han añadido a la lista.
En el ejemplo siguiente se compila una lista de opciones cuyo contenido son los nombres de distintos sistemas operativos.
Sub OS_type_ChoiceList(fieldname, choices)
' fieldname As String
' choices As Object
' entityDef = defect
choices.AddItem("Solaris")
choices.AddItem("Windows")
End Sub
sub OS_type_ChoiceList {
my($fieldname) = @_;
my @choices;
# $fieldname as string scalar
# @choices as string array
# entityDef is Defect
# use array operation to add items. Ejemplo:
# push(@choices, "red", "green");
push(@choices, "Solaris", "Windows");
return @choices;
}