From d01b7a6db4978d9522d647e0c0b59fff98bfcd83 Mon Sep 17 00:00:00 2001
From: Walter Bender <walter.bender@gmail.com>
Date: Fri, 08 Jun 2012 12:53:40 +0000
Subject: add blocks for chr(keyboard) and num(keyboard)

---
(limited to 'plugins')

diff --git a/plugins/turtle_blocks_extras/turtle_blocks_extras.py b/plugins/turtle_blocks_extras/turtle_blocks_extras.py
index 8092e3d..d20ad13 100644
--- a/plugins/turtle_blocks_extras/turtle_blocks_extras.py
+++ b/plugins/turtle_blocks_extras/turtle_blocks_extras.py
@@ -364,9 +364,31 @@ stored in keyboard block)'))
                           value_block=True,
                           logo_command='make "keyboard readchar',
                           help_string=_('holds results of query-keyboard \
-block'))
+block as ASCII'))
         self.tw.lc.def_prim('keyboard', 0, lambda self: self.tw.lc.keyboard)
 
+        palette.add_block('keyboard_chr',
+                          style='box-style',
+                          label='chr(%s)' % (_('keyboard')),
+                          prim_name='keyboard_chr',
+                          value_block=True,
+                          logo_command='make "keyboard readchar',
+                          help_string=_('holds results of query-keyboard \
+block as character'))
+        self.tw.lc.def_prim('keyboard_chr', 0,
+                            lambda self: chr(self.tw.lc.keyboard))
+
+        palette.add_block('keyboard_num',
+                          style='box-style',
+                          label='num(%s)' % (_('keyboard')),
+                          prim_name='keyboard_num',
+                          value_block=True,
+                          logo_command='make "keyboard readchar',
+                          help_string=_('holds results of query-keyboard \
+block as number'))
+        self.tw.lc.def_prim('keyboard_num', 0,
+                            lambda self: self.tw.lc.keyboard - 48)
+
         primitive_dictionary['readpixel'] = self._prim_readpixel
         palette.add_block('readpixel',
                           style='basic-style-extended-vertical',
--
cgit v0.9.1