diff --git a/qml/pages/MainPage.qml b/qml/pages/MainPage.qml
index e798841..dd3537a 100644
--- a/qml/pages/MainPage.qml
+++ b/qml/pages/MainPage.qml
@@ -54,6 +54,7 @@ Page {
                         canvas.strokeStyle = defaultStrokeColor;
                     }
 
+                    // Remember the stroke/rubber size
                     var currentLineWidth = size.value;
                     size.value = prevLineWidth;
                     prevLineWidth = currentLineWidth;
@@ -81,7 +82,11 @@ Page {
                 anchors.verticalCenter: parent.verticalCenter
 
                 onClicked: {
-                    canvas.clear();
+                    clear.execute(menu, qsTr("Clearing the canvas..."), function() { canvas.clear() });
+                }
+
+                RemorseItem {
+                    id: clear
                 }
             }
         }
diff --git a/translations/harbour-papocchio.ts b/translations/harbour-papocchio.ts
index 80d1a1a..d8c0c15 100644
--- a/translations/harbour-papocchio.ts
+++ b/translations/harbour-papocchio.ts
@@ -9,4 +9,12 @@
         <translation type="unfinished"></translation>
     </message>
 </context>
+<context>
+    <name>MainPage</name>
+    <message>
+        <location filename="../qml/pages/MainPage.qml" line="84"/>
+        <source>Clearing the canvas...</source>
+        <translation type="unfinished"></translation>
+    </message>
+</context>
 </TS>