コンパイルが通らなくなっていたのを修正

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 1e536c5..e10e16a 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -4001,7 +4001,7 @@ Public Class TweenMain
         If Post.IsDeleted Then mk.Append("×")
         If Post.IsMark Then mk.Append("♪")
         If Post.IsProtect Then mk.Append("Ю")
-        If Post.InReplyToId > 0 Then mk.Append("⇒")
+        If Post.InReplyToStatusId > 0 Then mk.Append("⇒")
         If Post.FavoritedCount > 0 Then mk.Append("+" + Post.FavoritedCount.ToString)
         Dim itm As ImageListViewItem
         If Post.RetweetedId = 0 Then

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index 88eb30c..bfe4537 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -1566,13 +1566,8 @@ Public Class Twitter
         Dim res As HttpStatusCode
         Dim content As String = ""
         Dim page As Integer = 0
-        Dim count As Integer = AppendSettingDialog.Instance.CountApi
         Dim count As Integer
         If AppendSettingDialog.Instance.UseAdditionalCount Then
-            If more AndAlso AppendSettingDialog.Instance.MoreCountApi <> 0 Then
-                count = AppendSettingDialog.Instance.MoreCountApi
-            ElseIf startup AndAlso AppendSettingDialog.Instance.FirstCountApi <> 0 Then
-                count = AppendSettingDialog.Instance.FirstCountApi
             count = AppendSettingDialog.Instance.ListCountApi
             If count = 0 Then
                 If more AndAlso AppendSettingDialog.Instance.MoreCountApi <> 0 Then
@@ -1610,6 +1605,7 @@ Public Class Twitter
         Return CreatePostsFromJson(content, WORKERTYPE.List, tab, read, count, tab.OldestId)
     End Function
 
+
     Private Function CheckReplyToPost(ByVal relPosts As List(Of PostClass)) As PostClass
         Dim tmpPost As PostClass = relPosts(0)
         Dim lastPost As PostClass = Nothing
@@ -2085,7 +2081,7 @@ Public Class Twitter
                     'Retweetした人
                     post.RetweetedBy = status.User.ScreenName
                     post.IsMe = post.RetweetedBy.ToLower.Equals(_uid)
-                    If post.IsMe Then _UserIdNo = post.Uid.ToString()
+                    If post.IsMe Then _UserIdNo = post.UserId.ToString()
                 Else
                     post.PDate = DateTimeParse(status.CreatedAt)