From 4c9150d7e76a83bff903c079b3595cb44a255b30 Mon Sep 17 00:00:00 2001
From: jmoenig <jens@moenig.org>
Date: Mon, 15 Jul 2013 15:45:11 +0200
Subject: experimental text-function primitive

(hidden, shown only in dev mode in the operators category)
---
 objects.js | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'objects.js')

diff --git a/objects.js b/objects.js
index efe93e8..421b207 100644
--- a/objects.js
+++ b/objects.js
@@ -918,6 +918,13 @@ SpriteMorph.prototype.initBlocks = function () {
             spec: 'type of %s',
             defaults: [5]
         },
+        reportTextFunction: { // only in dev mode - experimental
+            type: 'reporter',
+            category: 'operators',
+            spec: '%txtfun of %s',
+            defaults: [null, "Abelson & Sussman"]
+        },
+
     /*
         reportScript: {
             type: 'reporter',
@@ -1703,6 +1710,7 @@ SpriteMorph.prototype.blockTemplates = function (category) {
             blocks.push(txt);
             blocks.push('-');
             blocks.push(block('reportTypeOf'));
+            blocks.push(block('reportTextFunction'));
         }
 
     /////////////////////////////////
@@ -3963,6 +3971,7 @@ StageMorph.prototype.blockTemplates = function (category) {
             blocks.push(txt);
             blocks.push('-');
             blocks.push(block('reportTypeOf'));
+            blocks.push(block('reportTextFunction'));
         }
 
     //////////////////////////////////
-- 
cgit v1.3.1