suppress stereotyp icon in own profile

[JoMa]

Hi everyone,

I've created a SysML-profile refining the metaclass "property". Everything works fine, except I get an Icon on the top right corner everytime I use my own property. It can be hidden by changing diagram settings (Elements|Use Stereotyp Icons), but I'd like to hide it by default or even better define my own or no icon. Is there a way to do this?
I also refined a block, which more or less overwrites the SysML <<block>>. Here no such things happen.

Thanks in advance!

Markus

[qwerty]

Have you tried assigning a shape script?

q.

[JoMa]

yes, the own property appearance is changed by a shape script using two decorations. But the one on the upper right corner is not mine  

[qwerty]

Would you mind to post your script?

q.

[JoMa]

Hi,

here is the script. It does mainly evaluate the tagged values to draw two decorations (ASIL and element type). Now there is also the problem that the upper left decoration is drawn above the element name. It's a matter of the element size and name length, but looks ugly. Showing the stereotype by name helps but looks ugly, too.

Code: [Select]

shape main
{
      drawnativeshape();
      if (HasTag("ElementType","mechanical"))
      {
            setfillcolor(192,192,192);
            drawnativeshape();
            return;
      }
      if (HasTag("ElementType","electrical"))
      {
            setfillcolor(234,128,102);
            drawnativeshape();
            return;
      }
      if (HasTag("ElementType","logical"))
      {
            setfillcolor(204,255,204);
            drawnativeshape();
            return;
      }
      if (HasTag("ElementType","functional"))
      {
            drawnativeshape();
            return;
      }
}

decoration Type
{      
      orientation = "SW";
      if (HasTag("ElementType","mechanical"))
      {
            println("mech");
            return;
      }
      if (HasTag("ElementType","electrical"))
      {
            println("eHW");
            return;
      }
      if (HasTag("ElementType","logical"))
      {
            println("SW");
            return;
      }
      if (HasTag("ElementType","functional"))
      {
            println("Fct");
            return;
      }
}

decoration SIL
{
      orientation = "NW";
      if (HasTag("SafetyIntegrity"))
      {
            startpath();
            moveto(0,0);
            lineto(100,0);
            lineto(100,100);
            lineto(0,100);
            endpath();
      }
      
      // ASIL QM
      if (HasTag("SafetyIntegrity","ASIL QM"))
      {
            setfillcolor(0, 255, 0);
            fillandstrokepath();
            println("QM");
            return;
      }
      if (HasTag("SafetyIntegrity","ASIL QM(A)"))
      {
            setfillcolor(0, 255, 0);
            fillandstrokepath();
            println("QM(A)");
            return;
      }
      if (HasTag("SafetyIntegrity","ASIL QM(B)"))
      {
            setfillcolor(0, 255, 0);
            fillandstrokepath();
            println("QM(B)");
            return;
      }
      if (HasTag("SafetyIntegrity","ASIL QM(C)"))
      {
            setfillcolor(0, 255, 0);
            fillandstrokepath();
            println("QM(C)");
            return;
      }
      if (HasTag("SafetyIntegrity","ASIL QM(D)"))
      {
            setfillcolor(0, 255, 0);
            fillandstrokepath();
            println("QM(D)");
            return;
      }
      
      // ASIL A
      if (HasTag("SafetyIntegrity","ASIL A"))
      {
            setfillcolor(255, 255, 0);
            fillandstrokepath();
            print("A");
            return;
      }
      if (HasTag("SafetyIntegrity","ASIL A(B)"))
      {
            setfillcolor(255, 255, 0);
            fillandstrokepath();
            print("A(B)");
            return;
      }
      if (HasTag("SafetyIntegrity","ASIL A(C)"))
      {
            setfillcolor(255, 255, 0);
            fillandstrokepath();
            print("A(C)");
            return;
      }
      if (HasTag("SafetyIntegrity","ASIL A(D)"))
      {
            setfillcolor(255, 255, 0);
            fillandstrokepath();
            print("A(D)");
            return;
      }
      
      // ASIL B
      if (HasTag("SafetyIntegrity","ASIL B"))
      {
            setfillcolor(255, 104, 32);
            fillandstrokepath();
            println("B");
            return;
      }
      if (HasTag("SafetyIntegrity","ASIL B(C)"))
      {
            setfillcolor(255, 104, 32);
            fillandstrokepath();
            println("B(C)");
            return;
      }
      if (HasTag("SafetyIntegrity","ASIL B(D)"))
      {
            setfillcolor(255, 104, 32);
            fillandstrokepath();
            println("B(D)");
            return;
      }
      
      // ASIL C
      if (HasTag("SafetyIntegrity","ASIL C"))
      {
            setfillcolor(255, 0, 0);
            fillandstrokepath();
            println("C");
            return;
      }
      if (HasTag("SafetyIntegrity","ASIL C(D)"))
      {
            setfillcolor(255, 0, 0);
            fillandstrokepath();
            println("C(D)");
            return;
      }
      // ASIL D
      if (HasTag("SafetyIntegrity","ASIL D"))
      {
            setfillcolor(192, 0, 157);
            fillandstrokepath();
            println("D");
            return;
      }
}

Thanks,
Markus

[qwerty]

I guess the drawNativeShape is the culprit. It will (IIRC) draw the shape from the inherited stereotype. Try removing it.

q.

[JoMa]

I already assumed that ... unfortunately I will need to completely redesign the shape then ... without having bold font of the name and loosing some possibilities to manipulate the diagrams, I guess.

Luckily I found a good book about how to make Shape Script easy  

Thanks anyway!

Markus

[qwerty]

  - You can't have the cake and eat it the same time

q.

[JoMa]

You are right ...

Maybe this is off topic, but is there a way to detect whether "Show Stereotype Icon" in the diagram properties is enabled or not?
Using a complete own shape will not work with "Feature and Compartment Visibility ...", won't it?

[KP]

Is your property stereotype named «property»? Because that specific stereotype puts an icon decoration in the top right corner. (I wish it didn't, but it's not going to change). Choose any other name for your stereotype and it won't be an issue.

Alternatively, you can define a custom diagram type that has the "Use Stereotype Icons" option switched off by default, and always use that diagram type.

is there a way to detect whether "Show Stereotype Icon" in the diagram properties is enabled or not?

Sorry, no. Send in a feature request.

[JoMa]

That's it! My intention was to somehow overwrite the original Property, which has no stereotype at all by default. It worked for <<block>> by extending the UML::Class and using _metatype = Block and naming the new stereotype "block".
How to do this with a property so new elements have Type = Property but no stereotype?

[qwerty]

is there a way to detect whether "Show Stereotype Icon" in the diagram properties is enabled or not?

Check t_diagram.PDATA for ShowIcons and HideEStereo. They either set to 0, 1 or not present at all. Also look on p. 47 of my Inside book.

q.