From 5111d9c2a39e32861074f74426267ab4791a3aa2 Mon Sep 17 00:00:00 2001
From: Marion <marion.zepf@gmail.com>
Date: Fri, 19 Jul 2013 22:09:26 +0000
Subject: Merge branch 'master' of git://git.sugarlabs.org/turtleart/mainline

---
(limited to 'TurtleArt')

diff --git a/TurtleArt/tabasics.py b/TurtleArt/tabasics.py
index 04a74d1..05ff16a 100644
--- a/TurtleArt/tabasics.py
+++ b/TurtleArt/tabasics.py
@@ -438,6 +438,16 @@ used in place of a number block)'),
             lambda self:
                 self.tw.turtles.get_active_turtle().set_pen_state(True))
 
+        palette.add_block('penstate',
+                          style='boolean-block-style',
+                          label=_('pen down?'),
+                          prim_name='penstate',
+                          help_string=_('returns True if pen is down'))
+        self.tw.lc.def_prim(
+            'penstate',
+            0,
+            lambda self: self.tw.turtles.get_active_turtle().get_pen_state())
+
         palette.add_block('setpensize',
                           style='basic-style-1arg',
                           label=_('set pen size'),
--
cgit v0.9.1