ハッシュタグクリック時にハッシュタグが履歴へ登録されないバグ修正

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

diff --git a/Tween/HashtagManage.vb b/Tween/HashtagManage.vb
index df5476c..f63513c 100644 (file)
--- a/Tween/HashtagManage.vb
+++ b/Tween/HashtagManage.vb
@@ -296,7 +296,7 @@ Public Class HashtagManage
                     Return False
                 End If
                 If hash.Length = 1 Then
-                    If isShowWarn Then MessageBox.Show("emply hashtag.", "Hashtag warning", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
+                    If isShowWarn Then MessageBox.Show("empty hashtag.", "Hashtag warning", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                     Return False
                 End If
                 '使用不可の文字チェックはしない

diff --git a/Tween/ShowUserInfo.vb b/Tween/ShowUserInfo.vb
index 64b5aa4..d3c3cb9 100644 (file)
--- a/Tween/ShowUserInfo.vb
+++ b/Tween/ShowUserInfo.vb
@@ -351,6 +351,8 @@ Public Class ShowUserInfo
                 'ハッシュタグの場合は、タブで開く
                 Dim urlStr As String = HttpUtility.UrlDecode(e.Url.AbsoluteUri)
                 Dim hash As String = urlStr.Substring(urlStr.IndexOf("#"))
+                MyOwner.HashSupl.AddItem(hash)
+                MyOwner.HashMgr.AddHashToHistory(hash.Trim, False)
                 MyOwner.AddNewTabForSearch(hash)
                 Exit Sub
             Else

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index b2700db..f82bab3 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -95,7 +95,7 @@ Public Class TweenMain
     Private dialogAsShieldicon As DialogAsShieldIcon    ' シールドアイコン付きダイアログ
     Public AtIdSupl As AtIdSupplement    '@id補助
     Public HashSupl As AtIdSupplement    'Hashtag補助
-    Private HashMgr As HashtagManage
+    Public HashMgr As HashtagManage
 
     '表示フォント、色、アイコン
     Private _fntUnread As Font            '未読用フォント
@@ -3077,6 +3077,7 @@ Public Class TweenMain
                 Dim urlStr As String = HttpUtility.UrlDecode(e.Url.AbsoluteUri)
                 Dim hash As String = urlStr.Substring(urlStr.IndexOf("#"))
                 HashSupl.AddItem(hash)
+                HashMgr.AddHashToHistory(hash.Trim, False)
                 AddNewTabForSearch(hash)
                 Exit Sub
             Else
@@ -6814,6 +6815,7 @@ RETRY:
                 Dim urlStr As String = HttpUtility.UrlDecode(openUrlStr)
                 Dim hash As String = urlStr.Substring(urlStr.IndexOf("#"))
                 HashSupl.AddItem(hash)
+                HashMgr.AddHashToHistory(hash.Trim, False)
                 AddNewTabForSearch(hash)
                 Exit Sub
             End If