svnno****@sourc*****
svnno****@sourc*****
2011年 6月 15日 (水) 11:27:37 JST
Revision: 1553
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1553
Author: kiri_feather
Date: 2011-06-15 11:27:37 +0900 (Wed, 15 Jun 2011)
Log Message:
-----------
@補完履歴からアイテム削除しても永続化されないバグ修正
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-06-14 16:42:31 UTC (rev 1552)
+++ trunk/Tween/Tween.vb 2011-06-15 02:27:37 UTC (rev 1553)
@@ -3905,7 +3905,9 @@
If e.KeyChar = "@" Then
If Not SettingDialog.UseAtIdSupplement Then Exit Sub
'@マーク
+ Dim cnt As Integer = AtIdSupl.ItemCount
ShowSuplDialog(StatusText, AtIdSupl)
+ If cnt <> AtIdSupl.ItemCount Then _modifySettingAtId = True
e.Handled = True
ElseIf e.KeyChar = "#" Then
If Not SettingDialog.UseHashSupplement Then Exit Sub
@@ -5429,7 +5431,9 @@
If c = "@" Then
pressed = True
startstr = StatusText.Text.Substring(i + 1, endidx - i)
+ Dim cnt As Integer = AtIdSupl.ItemCount
ShowSuplDialog(StatusText, AtIdSupl, startstr.Length + 1, startstr)
+ If AtIdSupl.ItemCount <> cnt Then _modifySettingAtId = True
ElseIf c = "#" Then
pressed = True
startstr = StatusText.Text.Substring(i + 1, endidx - i)
@@ -6033,19 +6037,23 @@
If Not ifModified Then
SaveConfigsCommon()
SaveConfigsLocal()
- 'SaveConfigsTab(True) 'True:事前に設定ファイル削除
SaveConfigsTabs()
+ SaveConfigsAtId()
Else
If _modifySettingCommon Then SaveConfigsCommon()
If _modifySettingLocal Then SaveConfigsLocal()
- If _modifySettingAtId AndAlso SettingDialog.UseAtIdSupplement AndAlso AtIdSupl IsNot Nothing Then
- _modifySettingAtId = False
- Dim cfgAtId As New SettingAtIdList(AtIdSupl.GetItemList)
- cfgAtId.Save()
- End If
+ If _modifySettingAtId Then SaveConfigsAtId()
End If
End Sub
+ Private Sub SaveConfigsAtId()
+ If _ignoreConfigSave OrElse Not SettingDialog.UseAtIdSupplement AndAlso AtIdSupl Is Nothing Then Exit Sub
+
+ _modifySettingAtId = False
+ Dim cfgAtId As New SettingAtIdList(AtIdSupl.GetItemList)
+ cfgAtId.Save()
+ End Sub
+
Private Sub SaveConfigsCommon()
If _ignoreConfigSave Then Exit Sub