From 0f85420767b00ce706fd6646ff812b169962ac60 Mon Sep 17 00:00:00 2001
From: Code WvS <code-wvs@quantentunnel.de>
Date: Sat, 28 Mar 2015 09:43:59 +0100
Subject: extend clear block to remove only a sprite's own trails

---
 blocks.js | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'blocks.js')

diff --git a/blocks.js b/blocks.js
index 6f3ed28..858d08a 100644
--- a/blocks.js
+++ b/blocks.js
@@ -1277,6 +1277,18 @@ SyntaxElementMorph.prototype.labelPart = function (spec) {
             );
             part.setContents(['a line']);
             break;
+        case '%clearmode':
+            part = new InputSlotMorph(
+                null, // text
+                false, // numeric?
+                {
+                    'my pen trails': ['my pen trails'],
+                    'all pen trails': ['all pen trails']
+                },
+                true
+            );
+            part.setContents(['all pen trails']);
+            break;
 
     // symbols:
 
-- 
cgit v1.3.1