Tao3D: two clickable rectangles

texte -> "Rien"

active_widget
    color "red"
    rectangle -200, 0, 200, 100
    on_click
        texte := "Rouge"
        refresh 0

active_widget
    color "blue"
    rectangle 200, 0, 200, 100
    on_click
        texte := "Bleu"
        refresh 0

text_box 0, 200, 400, 200,
    font "Arial", 80
    align_center
    vertical_align_center
    color_for texte
    color_for "Bleu"  -> color "red"
    color_for "Rouge" -> color "green"
    color_for Other   -> color "grey"
    text texte

draw_selection X, Y, W, H -> false