1

// widget_multistate.ysl2

     2

     3

widget_class("MultiState")

     4

    ||

     5

        frequency = 5;

     6

        state = 0;

     7

        dispatch(value) {

     8

            this.state = value;

     9

            for(let choice of this.choices){

    10

                if(this.state != choice.value){

    11

                    choice.elt.setAttribute("style", "display:none");

    12

                } else {

    13

                    choice.elt.setAttribute("style", choice.style);

    14

                }

    15

            }

    16

        }

    17

    18

        on_click(evt) {

    19

            //get current selected value

    20

            let next_ind;

    21

            for(next_ind=0; next_ind<this.choices.length; next_ind++){

    22

                if(this.state == this.choices[next_ind].value){

    23

                   next_ind = next_ind + 1;

    24

                   break;

    25

                }

    26

            }

    27

    28

            //get next selected value

    29

            if(this.choices.length > next_ind){

    30

                this.state = this.choices[next_ind].value;

    31

            }

    32

            else{

    33

                this.state = this.choices[0].value;

    34

            }

    35

    36

            //post value to plc

    37

            this.apply_hmi_value(0, this.state);

    38

        }

    39

    40

        init() {

    41

            this.element.setAttribute("onclick", "hmi_widgets['"+this.element_id+"'].on_click(evt)");

    42

        }

    43

    ||

    44

    45

widget_defs("MultiState") {

    46

    param "hmi_element";

    47

    |     choices: [

    48

    const "regex",!"'^(\"[^\"].*\"|\-?[0-9]+|false|true)(#.*)?$'"!;

    49

    foreach "$result_svg_ns//*[@id = $hmi_element/@id]//*[regexp:test(@inkscape:label,$regex)]" {

    50

        const "literal", "regexp:match(@inkscape:label,$regex)[2]";

    51

    |         {

    52

    |             elt:id("«@id»"),

    53

    |             style:"«@style»",

    54

    |             value:«$literal»

    55

    |         }`if "position()!=last()" > ,`

    56

    }

    57

    |     ],

    58

}