From 68532a1ae4097a5480ee46e1ea240244549ac60b Mon Sep 17 00:00:00 2001
From: Walter Bender <walter.bender@gmail.com>
Date: Wed, 03 Aug 2011 12:43:20 +0000
Subject: added ability to collapse stack from top of stack (#3010)

---
(limited to 'TurtleArt')

diff --git a/TurtleArt/tautils.py b/TurtleArt/tautils.py
index 0c6fe64..ed14784 100644
--- a/TurtleArt/tautils.py
+++ b/TurtleArt/tautils.py
@@ -388,6 +388,8 @@ def reset_stack_arm(top):
     if top is not None and top.name in ['sandwichtop', 'sandwichtop_no_label']:
         if top.ey > 0:
             top.reset_y()
+        top.svg.set_hide(False)
+        top.refresh()
 
 
 def grow_stack_arm(top):
@@ -404,6 +406,7 @@ def grow_stack_arm(top):
         _dy = _by - (_ty + _th)
         if _dy > 0:
             top.expand_in_y(_dy / top.scale)
+            top.svg.set_hide(True)
             top.refresh()
 
 
@@ -586,6 +589,7 @@ def collapse_stack(top):
     top.resize()
     top.spr.set_label(_('click to open'), 1)
     top.resize()
+    top.svg.set_hide(False)
     top.refresh()
 
 
diff --git a/TurtleArt/tawindow.py b/TurtleArt/tawindow.py
index 0569f7c..f38b503 100644
--- a/TurtleArt/tawindow.py
+++ b/TurtleArt/tawindow.py
@@ -1794,7 +1794,13 @@ class TurtleArtWindow():
                           'sandwichtop_no_arm']:
             restore_stack(blk)
 
-        elif blk.name in COLLAPSIBLE:
+        elif blk.name in COLLAPSIBLE or blk.name == 'sandwichtop_no_label':
+            if blk.name == 'sandwichtop_no_label':
+                debug_output('>>>>>>>>> HIT SANDWICHTOP')
+                if hide_button_hit(blk.spr, x, y):
+                    collapse_stack(blk)
+                else:
+                    self._run_stack(blk)
             top = find_sandwich_top(blk)
             if collapsed(blk):
                 restore_stack(top)  # deprecated (bottom block is invisible)
--
cgit v0.9.1