in-out property <bool> is-selected: false;
    touch := TouchArea {
        clicked => {
            is-selected = true;
        }
    }

    in-out property <bool> is-selected: false;
    in property <bool> has-hover;

        selected when is-selected: {

        selected when root.is-selected: {

        lowlighted when !is-selected && touch.has-hover: {

        lowlighted when root.has-hover: {

        off when !is-selected && !touch.has-hover: {
            root.background: Palette.background;
        }

    in-out property <int> selected: -1;
    callback selection-changed(/*new selection*/ int);

            for change in root.changes_log: ChangeEntry {

            for change[index] in root.changes_log: ce := ChangeEntry {

                is-selected: root.selected == index;
                has-hover: touch.has-hover;
                touch := TouchArea {
                    clicked => {
                        root.selected = index;
                        root.selection-changed(index);
                    }
                }