From 15914663173d092dba5498a693c921d94e1aa562 Mon Sep 17 00:00:00 2001
From: jmoenig <jens@moenig.org>
Date: Tue, 30 Jul 2013 13:48:12 +0200
Subject: PAUSE primitive command block

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

(limited to 'blocks.js')

diff --git a/blocks.js b/blocks.js
index e288a64..a955a7f 100644
--- a/blocks.js
+++ b/blocks.js
@@ -1196,6 +1196,16 @@ SyntaxElementMorph.prototype.labelPart = function (spec) {
                     new Point() : this.embossing;
             part.drawNew();
             break;
+        case '%pause':
+            part = new SymbolMorph('pause');
+            part.size = this.fontSize;
+            part.color = new Color(160, 80, 0);
+            part.isProtectedLabel = true; // doesn't participate in zebraing
+            part.shadowColor = this.color.darker(this.labelContrast);
+            part.shadowOffset = MorphicPreferences.isFlat ?
+                    new Point() : this.embossing;
+            part.drawNew();
+            break;
         default:
             // nop();
         }
-- 
cgit v1.3.1