Ejemplo de enganche de lista de opciones de campo

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.

VBScript

Sub OS_type_ChoiceList(fieldname, choices)

    ' fieldname As String
    ' choices As Object
    ' entityDef = defect
    choices.AddItem("Solaris")
    choices.AddItem("Windows")
    choices.AddItem("HP/UX")

End Sub 

Perl

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", "blue");
    push(@choices, "Solaris", "Windows", "HP/UX");
    return @choices;

} 

Comentarios