Produit un menu vertical ou horizontal permettant pour l’utilsateur une sélection d’items.

choose choix fonction

choices - Bloc d’items à afficher (type: block!)

function - Fonction à exécuter sur la sélection faite (type: function! none!)

/style - le raffinement style

styl - le style du bouton de choix (type: object!)

/window - le raffinement window.

winf - la fenêtre mère dans laquelle le menu doit apparaître (type: object!)

/offset - le raffinement offset.

xy - position (offset) du bouton de choix (type: pair!)

/across - Utilise une disposition horizontale.

Cette fonction affiche dans un menu pop-up une liste de choix possibles pour l’utilisateur. La fonction attend que l’utilisateur sélectionne l’un des items ou clique en dehors du menu, pour rendre la main.

La fonction CHOOSE prend un bloc de choix en premier argument. Son deuxième argument est une fonction qui s’exécute quand un choix a été fait.

    choose ["A" "B" "C"] func [face btn] [print face/text]
    B

http://www.rebol.com/docs/words/wchoose.html

Nécessite View, et on a par défaut :

• winf : system/view/screen-face (l’écran)
• style : ‘button
• offset : 0×0
• sens vertical

Exemple : un menu différent

choose/style/offset/across ["Fichier" "Edition" "Affichage"] d: func[][print face/text]  get-style 'field  150x200

Divers paramétres de présentation reprennent les objets par défaut du style fourni en raffinement dont “edge”. Tous les styles ne fonctionnent pas.