Web   ·   Wiki   ·   Activities   ·   Blog   ·   Lists   ·   Chat   ·   Meeting   ·   Bugs   ·   Git   ·   Translate   ·   Archive   ·   People   ·   Donate
summaryrefslogtreecommitdiffstats
path: root/plugins/turtle_blocks_extras/turtle_blocks_extras.py
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/turtle_blocks_extras/turtle_blocks_extras.py')
-rw-r--r--plugins/turtle_blocks_extras/turtle_blocks_extras.py15
1 files changed, 11 insertions, 4 deletions
diff --git a/plugins/turtle_blocks_extras/turtle_blocks_extras.py b/plugins/turtle_blocks_extras/turtle_blocks_extras.py
index 3192021..2bb07dd 100644
--- a/plugins/turtle_blocks_extras/turtle_blocks_extras.py
+++ b/plugins/turtle_blocks_extras/turtle_blocks_extras.py
@@ -93,7 +93,8 @@ boolean operators from Numbers palette'))
True)
palette.add_block('until',
- style='clamp-style-boolean',
+ hidden=True, # Too big to fit on palette
+ style='clamp-style-until',
label=_('until'),
prim_name='until',
default=[None, None],
@@ -115,6 +116,13 @@ boolean operators from Numbers palette'))
ArgSlot(TYPE_OBJECT)]),
True)
+ # macro
+ palette.add_block('untilmacro',
+ style='basic-style-extended-vertical',
+ label=_('until'),
+ help_string=_('do-until-True operator that uses \
+boolean operators from Numbers palette'))
+
palette.add_block('sandwichclamp',
style='clamp-style-collapsible',
label=' ',
@@ -535,7 +543,7 @@ make "tmp first :taheap\nmake "taheap butfirst :taheap\noutput :tmp\nend\n')
last-out heap) to a file'))
self.tw.lc.def_prim('saveheap', 1,
Primitive(self.tw.lc.save_heap,
- arg_descs=[ArgSlot(TYPE_STRING)]))
+ arg_descs=[ArgSlot(TYPE_OBJECT)]))
palette.add_block('loadheap',
style='basic-style-1arg',
@@ -546,8 +554,7 @@ last-out heap) to a file'))
last-out heap) from a file'))
self.tw.lc.def_prim('loadheap', 1,
Primitive(self.tw.lc.load_heap,
- arg_descs=[ArgSlot(TYPE_STRING)],
- return_type=TYPE_STRING,
+ arg_descs=[ArgSlot(TYPE_OBJECT)],
call_afterwards=self.after_push))
palette.add_block('isheapempty2',