関数名修正

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

diff --git a/Tween/Connection/HttpTwitter.vb b/Tween/Connection/HttpTwitter.vb
index f5fe218..a11ac71 100644 (file)
--- a/Tween/Connection/HttpTwitter.vb
+++ b/Tween/Connection/HttpTwitter.vb
@@ -559,7 +559,7 @@ Public Class HttpTwitter
                             Nothing)
     End Function
 
-    Public Function GetListNembers(ByVal user As String, ByVal list_id As String, ByVal cursor As Long, ByRef content As String) As HttpStatusCode
+    Public Function GetListMembers(ByVal user As String, ByVal list_id As String, ByVal cursor As Long, ByRef content As String) As HttpStatusCode
         Dim param As New Dictionary(Of String, String)
         param.Add("cursor", cursor.ToString())
         Return httpCon.GetContent(GetMethod, _

diff --git a/Tween/ListElement.vb b/Tween/ListElement.vb
index 70e66c4..f5aff5f 100644 (file)
--- a/Tween/ListElement.vb
+++ b/Tween/ListElement.vb
@@ -51,7 +51,7 @@ Public Class ListElement
 
     Public Sub RefreshMembers()
         Dim users As New List(Of UserInfo)()
-        Me._tw.GetListNembers(Me.Id.ToString(), users)
+        Me._tw.GetListMembers(Me.Id.ToString(), users)
         Me._members = users
     End Sub
 

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index d3e3dab..e678a91 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -2212,7 +2212,7 @@ Public Class Twitter
         Return ""
     End Function
 
-    Public Function GetListNembers(ByVal list_id As String, ByVal lists As List(Of UserInfo)) As String
+    Public Function GetListMembers(ByVal list_id As String, ByVal lists As List(Of UserInfo)) As String
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
         Dim res As HttpStatusCode
@@ -2221,7 +2221,7 @@ Public Class Twitter
 
         Do
             Try
-                res = twCon.GetListNembers(Me.Username, list_id, cursor, content)
+                res = twCon.GetListMembers(Me.Username, list_id, cursor, content)
             Catch ex As Exception
                 Return "Err:" + ex.Message
             End Try