internal в редакторе форм

Исправление ошибки в CodeTemplatesForm.cs в WinXP

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "6";
 	public const string Build = "3";
-	public const string Revision = "2659";
+	public const string Revision = "2660";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=6
-%REVISION%=2659
 %COREVERSION%=3
+%REVISION%=2660
+%MINOR%=6
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.6.3.2659
+3.6.3.2660

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.6.3.2659'
+!define VERSION '3.6.3.2660'

VisualPascalABCNET/DockContent/CodeFileDocument.cs

@@ -704,7 +704,7 @@ namespace VisualPascalABC
             string s1 = string.Join(string_consts.nr, lines, 0, s_num + 1);
             string s2 = string.Join(string_consts.nr, lines, e_num, lines.Length - e_num);
             return s1 + string_consts.nr + string_consts.tab +
-                "private" + string_consts.nr + 
+                "internal" + string_consts.nr + 
                 string_consts.tab2 + generated_text + s2;
         }
 

VisualPascalABCNET/FormsDesignerBinding/FormsDesigner/Src/DesignerGenerator/PABCCodeProvider.cs

@@ -29,7 +29,7 @@ namespace ICSharpCode.FormsDesigner
             "type" + nr +
             tab + "{1} = class(Form)" + nr +
             tab + '{' + begin_designer_region + '}' + nr +
-            tab + "private" + nr + tab2;
+            tab + "internal" + nr + tab2;
 
         public static readonly string end_unit =
             tab + end_designer_region + nr +

VisualPlugins/CodeTemplatesPlugin/CodeTemplatesForm.cs

@@ -116,6 +116,8 @@ namespace CodeTemplatesPlugin
 
         private void listBox1_MouseDoubleClick_1(object sender, MouseEventArgs e)
         {
+            if (listBox1.SelectedItems == null)
+                return;
             var s = listBox1.SelectedItems[0].Text;
             ICSharpCode.TextEditor.TextArea ta = MainForm.CurrentCodeFileDocument.TextEditor.ActiveTextAreaControl.TextArea;
             ta.Focus();