| 1 | package RecordParamBug "package to reproduce bug when editing a parameter of Record type in OMEdit 1.12. Pierre Haessig 2017-12-01"
|
|---|
| 2 |
|
|---|
| 3 | record SType
|
|---|
| 4 | parameter Real x;
|
|---|
| 5 | parameter Real y;
|
|---|
| 6 | end SType;
|
|---|
| 7 |
|
|---|
| 8 | constant SType sa(x=1, y=1);
|
|---|
| 9 | constant SType sb(x=2, y=2);
|
|---|
| 10 |
|
|---|
| 11 | model testComponent
|
|---|
| 12 | extends Modelica.Icons.Example;
|
|---|
| 13 | Component component1 annotation(
|
|---|
| 14 | Placement(visible = true, transformation(origin = {-8, -2}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
|
|---|
| 15 | annotation(
|
|---|
| 16 | Diagram(graphics = {Text(origin = {10, 61}, extent = {{-90, 41}, {90, -41}}, textString = "Bug in OM 1.12. \n 1. Change paramereter in component")}));
|
|---|
| 17 | end testComponent;
|
|---|
| 18 |
|
|---|
| 19 | model Component
|
|---|
| 20 | parameter SType sx = sa "sa or sb";
|
|---|
| 21 | end Component;
|
|---|
| 22 |
|
|---|
| 23 | end RecordParamBug;
|
|---|
