StatusTextでShift+SpaceとCtrl+Spaceが効かなくなっていたのを修正

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1357 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index ce2f224..02c3c29 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -4946,10 +4946,9 @@ RETRY:
                             startstr = StatusText.Text.Substring(i + 1, endidx - i)
                             ShowSuplDialog(StatusText, HashSupl, startstr.Length + 1, startstr)
                         Else
-                            Exit For
+                            Return False
                         End If
                     Next
-                    Pressed = True
                     Return True
                 End If
             End If