From 70637007635fd4d2a1de4414befbe07ccdc49cde Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@sugarlabs.org>
Date: Tue, 25 Jun 2013 18:44:39 +0000
Subject: Add deprecated block still used by some sample code

---
diff --git a/TurtleArt/tabasics.py b/TurtleArt/tabasics.py
index 7de8a0f..fbc5abe 100644
--- a/TurtleArt/tabasics.py
+++ b/TurtleArt/tabasics.py
@@ -260,7 +260,7 @@ the turtle (can be used in place of a number block)'),
         self.tw.lc.def_prim(
             'ycor',
             0,
-            lambda self: self.tw.turtles.get_active_turtle().get_xy() /
+            lambda self: self.tw.turtles.get_active_turtle().get_xy()[1] /
             self.tw.coord_scale)
 
         palette.add_block('heading',
@@ -490,6 +490,18 @@ in place of a number block)'),
         define_logo_function('tapensize', 'to tapensize\noutput first round \
 pensize\nend\n')
 
+        # Deprecated
+        palette.add_block('settextsize',
+                          hidden=True,
+                          style='basic-style-1arg',
+                          label=_('set text size'),
+                          prim_name='settextsize',
+                          default=0,
+                          help_string=_('sets size of text drawn by the \
+turtle'))
+        self.tw.lc.def_prim('settextsize', 1,
+                            lambda self, x: self.tw.canvas.settextsize(x))
+
     def _color_palette(self):
         ''' The basic Turtle Art color palette '''
 
diff --git a/TurtleArt/tacanvas.py b/TurtleArt/tacanvas.py
index 2af41cd..ae91b40 100644
--- a/TurtleArt/tacanvas.py
+++ b/TurtleArt/tacanvas.py
@@ -421,3 +421,12 @@ class TurtleGraphics:
     def inval(self):
         ''' Invalidate a region for gtk '''
         self.turtle_window.inval_all()
+
+    # Deprecated
+    def settextsize(self, size):
+        ''' Set the text size '''
+        try:
+            self.turtle_window.textsize = size
+        except (TypeError, ValueError):
+            debug_output('bad value sent to %s' % (__name__),
+                         self.tw.running_sugar)
--
cgit v0.9.1