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