From 60de490b4087b60efd86b99002298c622aacdaac Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@sugarlabs.org>
Date: Wed, 17 Jul 2013 12:23:59 +0000
Subject: added pen state boolean

---
(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