Web   ·   Wiki   ·   Activities   ·   Blog   ·   Lists   ·   Chat   ·   Meeting   ·   Bugs   ·   Git   ·   Translate   ·   Archive   ·   People   ·   Donate
summaryrefslogtreecommitdiffstats
path: root/plugins
diff options
context:
space:
mode:
authorWalter Bender <walter.bender@gmail.com>2012-06-08 12:53:40 (GMT)
committer Walter Bender <walter.bender@gmail.com>2012-06-08 12:53:40 (GMT)
commitd01b7a6db4978d9522d647e0c0b59fff98bfcd83 (patch)
tree9baa94f01f9c48c6f1cf719f3ebd57156cf84d59 /plugins
parent8552adc6074fa1b5b9c4fe0702850e0f3b98c7aa (diff)
add blocks for chr(keyboard) and num(keyboard)
Diffstat (limited to 'plugins')
-rw-r--r--plugins/turtle_blocks_extras/turtle_blocks_extras.py24
1 files changed, 23 insertions, 1 deletions
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',