Ajout des nouvelles balises lorsque la scène est sélectionnée. Mise à jour de la...

[mp-scratch.git] / src / Evenements.mp

diff --git a/src/Evenements.mp b/src/Evenements.mp
index 3630d0a..96343ea 100644 (file)
--- a/src/Evenements.mp
+++ b/src/Evenements.mp
@@ -95,6 +95,18 @@ _coinprec:=_coinprec+(0,eb);
   $
 enddef;
 
+vardef QScenePressee=
+  save $;
+  picture $,texto;
+  texto=image(
+      label.lrt(LATEX("\bfseries\color{white}quand la Scène est cliquée"),if unknown _coinprec:(0,0) else: _coinprec fi);
+  );
+$=AffichageEA shifted (if unknown _coinprec:(0,0) else :_coinprec fi - ulcorner AffichageEA);
+_coinprec:=llcorner $;
+_coinprec:=_coinprec+(0,eb);
+  $
+enddef;
+
 vardef QBasculeAR(expr touche)=
   save $;
   picture $,texto;