%code input slot

multi-line, monospaced, type-in slot for code mappings

3 files changed, 13 insertions, 5 deletions

diff --git a/blocks.js b/blocks.js
index 34317bb..16c427c 100644
--- a/blocks.js
+++ b/blocks.js
@@ -728,6 +728,12 @@ SyntaxElementMorph.prototype.labelPart = function (spec) {
             part = new TextSlotMorph();
             part.fixLayout();
             break;
+        case '%code':
+            part = new TextSlotMorph();
+            part.contents().fontName = 'monospace';
+            part.contents().fontStyle = 'monospace';
+            part.fixLayout();
+            break;
         case '%obj':
             part = new ArgMorph('object');
             break;
@@ -1597,6 +1603,7 @@ SyntaxElementMorph.prototype.endLayout = function () {
     %s        - white rectangular type-in slot ("string-type")
     %txt    - white rectangular type-in slot ("text-type")
     %mlt    - white rectangular type-in slot ("multi-line-text-type")
+    %code    - white rectangular type-in slot, monospaced font
     %n        - white roundish type-in slot ("numerical")
     %dir    - white roundish type-in slot with drop-down for directions
     %inst    - white roundish type-in slot with drop-down for instruments
diff --git a/history.txt b/history.txt
index 12ca386..906062b 100755
--- a/history.txt
+++ b/history.txt
@@ -1751,4 +1751,5 @@ ______
 
 130621
 ------
-* Morphic, Blocks: "flat" design fix: Handle manually "unshadowed" StringMorphs
\ No newline at end of file
+* Morphic, Blocks: "flat" design fix: Handle manually "unshadowed" StringMorphs
+* Objects, Blocks: %code input slot - multi-line, monospaced, type-in slot for code mappings
diff --git a/objects.js b/objects.js
index d51aeea..9652752 100644
--- a/objects.js
+++ b/objects.js
@@ -123,7 +123,7 @@ PrototypeHatBlockMorph*/
 
 // Global stuff ////////////////////////////////////////////////////////
 
-modules.objects = '2013-June-20';
+modules.objects = '2013-June-21';
 
 var SpriteMorph;
 var StageMorph;
@@ -1022,18 +1022,18 @@ SpriteMorph.prototype.initBlocks = function () {
         doMapCode: { // experimental
             type: 'command',
             category: 'other',
-            spec: 'map %cmdRing to code %mlt'
+            spec: 'map %cmdRing to code %code'
         },
         doMapStringCode: { // experimental
             type: 'command',
             category: 'other',
-            spec: 'map String to code %s',
+            spec: 'map String to code %code',
             defaults: ['<#1>']
         },
         doMapListCode: { // experimental
             type: 'command',
             category: 'other',
-            spec: 'map %codeListPart of %codeListKind to code %s'
+            spec: 'map %codeListPart of %codeListKind to code %code'
         },
         reportMappedCode: { // experimental
             type: 'reporter',