DECLARE
	z1 NUMBER;
	z2 NUMBER;
	z3 NUMBER;
	z4 VARCHAR2(30);
	czas CONSTANT NUMBER(4):=2000;
	zeg_id TIMER;
BEGIN
	z1:=TO_NUMBER(GET_ITEM_PROPERTY(:SYSTEM.TRIGGER_ITEM,X_POS));
	z2:=TO_NUMBER(GET_ITEM_PROPERTY(:SYSTEM.TRIGGER_ITEM,WIDTH));
	z3:=TO_NUMBER(GET_ITEM_PROPERTY(:SYSTEM.TRIGGER_ITEM,Y_POS));
	z4:=GET_ITEM_PROPERTY(:SYSTEM.TRIGGER_ITEM,ITEM_NAME);
	z1:=z1+z2+5;
	z3:=z3-5;
	z2:=LENGTH(z4);
	z2:=z2*8;
	SET_ITEM_PROPERTY('CONTROL.DYMEK',VISIBLE,PROPERTY_TRUE);
	SET_ITEM_PROPERTY('CONTROL.DYMEK',WIDTH,z2);
	:CONTROL.DYMEK:=z4;
	IF NOT ID_NULL(FIND_TIMER('DYM'))
		THEN DELETE_TIMER('DYM');
	END IF;
	zeg_id:=CREATE_TIMER('DYM',czas, NO_REPEAT);
	SET_ITEM_PROPERTY('CONTROL.DYMEK',POSITION,z1,z3);
	GO_ITEM(:SYSTEM.TRIGGER_ITEM);
END;