svnno****@sourc*****
svnno****@sourc*****
2011年 1月 10日 (月) 14:03:14 JST
Revision: 1335
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1335
Author: f_swallow
Date: 2011-01-10 14:03:14 +0900 (Mon, 10 Jan 2011)
Log Message:
-----------
削除された発言で右左とｈｌが効かなくなっていたのを修正
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-10 04:32:38 UTC (rev 1334)
+++ trunk/Tween/Tween.vb 2011-01-10 05:03:14 UTC (rev 1335)
@@ -5526,7 +5526,7 @@
End Sub
Private Sub GoPost(ByVal forward As Boolean)
- If _curList.SelectedIndices.Count = 0 OrElse Not Me.ExistCurrentPost Then Exit Sub
+ If _curList.SelectedIndices.Count = 0 OrElse _curPost Is Nothing Then Exit Sub
Dim fIdx As Integer = 0
Dim toIdx As Integer = 0
Dim stp As Integer = 1
@@ -5585,7 +5585,7 @@
End If
If Not _anchorFlag Then
- If Not Me.ExistCurrentPost Then Exit Sub
+ If _curPost Is Nothing Then Exit Sub
_anchorPost = _curPost
_anchorFlag = True
Else