fully show last control in vertical SimpleWindow

simplewindow-test/source/PlayState.kiss

@@ -14,7 +14,7 @@
         ->:Void choice 
             (case choice
                 ("Vertical"
-                    null)
+                    (verticalMenu))
                 ("Menu"
                     (subMenu))
                 ("Quit"
@@ -41,5 +41,14 @@
             [=>B "tab"])
         (window.show)))
 
+(method verticalMenu []
+    (let [window (new SimpleWindow "Vertical Menu" true)]
+        (set window.onClose ->:Void {(window.hide)(showMenu)})
+        (window.enableVerticalScrolling)
+        (doFor num (range 50)
+            (window.makeText "$num"))
+        (window.enableGamepadInput true)
+        (window.show)))
+
 (method &override :Void update [:Float elapsed]
     (super.update elapsed))