From b6f4cb03eb6c771c5eb0492aba3782a9ea922130 Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@walter-laptop.(none)>
Date: Tue, 23 Feb 2010 00:34:17 +0000
Subject: more turtle svg cleanups

---
(limited to 'tablock.py')

diff --git a/tablock.py b/tablock.py
index 1b79d4b..304c870 100644
--- a/tablock.py
+++ b/tablock.py
@@ -329,6 +329,8 @@ class Block:
             self._make_flow_style_1arg(svg)
         elif self.name in FLOW_STYLE_BOOLEAN:
             self._make_flow_style_boolean(svg)
+        elif self.name in FLOW_STYLE_WHILE:
+            self._make_flow_style_while(svg)
         elif self.name in FLOW_STYLE_ELSE:
             self._make_flow_style_else(svg)
         elif self.name in COLLAPSIBLE_TOP:
@@ -627,6 +629,21 @@ class Block:
                       ['flow', False, self.svg.docks[3][0],
                                       self.svg.docks[3][1], ']']]
 
+    def _make_flow_style_while(self, svg):
+        self.svg.expand(self.dx+self.ex, self.ey)
+        self.svg.set_slot(True)
+        self.svg.set_tab(True)
+        self.svg.set_boolean(True)
+        self._make_basic_flow(svg)
+        self.docks = [['flow', True, self.svg.docks[0][0],
+                                     self.svg.docks[0][1]],
+                      ['bool', False, self.svg.docks[1][0],
+                                      self.svg.docks[1][1], '['],
+                      ['flow', False, self.svg.docks[2][0],
+                                      self.svg.docks[2][1], ']['],
+                      ['flow', False, self.svg.docks[3][0],
+                                      self.svg.docks[3][1], ']']]
+
     def _make_flow_style_else(self, svg):
         self.svg.expand(self.dx+self.ex, self.ey)
         self.svg.set_slot(True)
--
cgit v0.9.1