yentl
/
modelverse_GUI


			
				
					
						
						
							12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
							<class name="Text">
    <relationships>
        <association name="parent" class="A"/>
    </relationships>

    <constructor>
        <parameter name="constructor_parameters" type='dict' default='{}' />
        <body>
            self.name = constructor_parameters['name']
            self.entry = tk.Text(constructor_parameters['parent'])
            self.entry.config(state=tk.DISABLED)
        </body>
    </constructor>

    <destructor>
        <body>
            self.entry.destroy()
        </body>
    </destructor>

    <scxml initial="main">
        <state id="main" initial='initializing'>
            <state id="initializing">
                <transition target="../ready">
                    <raise event="tk_widget" scope="narrow" target="'parent'">
                        <parameter expr="self.entry"/>
                    </raise>
                </transition>
            </state>

            <state id="ready">
                <transition event="append_value" target=".">
                    <parameter name="new_value"/>
                    <script>
                        self.entry.config(state=tk.NORMAL)
                        self.entry.insert(tk.END, new_value)
                        self.entry.config(state=tk.DISABLED)
                        self.entry.see(tk.END)
                    </script>
                    <raise event="changed_value" scope="narrow" target="'parent'">
                        <parameter expr="self.name"/>
                        <parameter expr="self.entry.get(1.0, tk.END)"/>
                    </raise>
                </transition>
            </state>
        </state>
    </scxml>
</class>