SD-538: vb.net specific text editor options not ported to corsavy

git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/trunk@738 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61

src/AddIns/BackendBindings/VBNetBinding/Project/Resources/VBNetTextEditorOptions.xfrm

@@ -0,0 +1,35 @@
+<Components version="1.0">
+  <System.Windows.Forms.UserControl>
+    <Name value="CreatedObject0" />
+    <DockPadding value="" />
+    <ClientSize value="{Width=416, Height=248}" />
+    <Controls>
+      <System.Windows.Forms.GroupBox>
+        <Name value="CreatedObject2" />
+        <TabIndex value="0" />
+        <Location value="{X=8,Y=8}" />
+        <Anchor value="Top, Left, Right" />
+        <ClientSize value="{Width=400, Height=96}" />
+        <Text value="${res:Dialog.Options.IDEOptions.TextEditor.VB.FormattingGroupBox}" />
+        <Controls>
+          <System.Windows.Forms.CheckBox>
+            <Name value="enableEndConstructsCheckBox" />
+            <Location value="{X=8,Y=24}" />
+            <ClientSize value="{Width=384, Height=24}" />
+            <Text value="${res:Dialog.Options.IDEOptions.TextEditor.VB.EnableEndConstructsCheckBox}" />
+            <Anchor value="Top, Left, Right" />
+            <TabIndex value="0" />
+          </System.Windows.Forms.CheckBox>
+          <System.Windows.Forms.CheckBox>
+            <Name value="enableCasingCheckBox" />
+            <Location value="{X=8,Y=56}" />
+            <ClientSize value="{Width=384, Height=24}" />
+            <Text value="${res:Dialog.Options.IDEOptions.TextEditor.VB.EnableCasingCheckBox}" />
+            <Anchor value="Top, Left, Right" />
+            <TabIndex value="1" />
+          </System.Windows.Forms.CheckBox>
+        </Controls>
+      </System.Windows.Forms.GroupBox>
+    </Controls>
+  </System.Windows.Forms.UserControl>
+</Components>

src/AddIns/BackendBindings/VBNetBinding/Project/Src/OptionPanels/TextEditorOptions.cs

@@ -0,0 +1,39 @@
+// <file>
+//     <copyright see="prj:///doc/copyright.txt">2002-2005 AlphaSierraPapa</copyright>
+//     <license see="prj:///doc/license.txt">GNU General Public License</license>
+//     <owner name="Markus Palme" email="markuspalme@gmx.de"/>
+//     <version>$Revision: 230 $</version>
+// </file>
+
+using System;
+using System.IO;
+using System.Drawing;
+using System.Windows.Forms;
+
+using ICSharpCode.TextEditor.Document;
+using ICSharpCode.SharpDevelop.Internal.ExternalTool;
+using ICSharpCode.Core;
+
+using ICSharpCode.SharpDevelop.Gui;
+using ICSharpCode.TextEditor;
+using ICSharpCode.SharpDevelop.DefaultEditor.Gui.Editor;
+
+namespace VBNetBinding.OptionPanels
+{
+	public class VBNetTextEditorPanel : AbstractOptionPanel
+	{
+		public override void LoadPanelContents()
+		{
+			SetupFromXmlStream(this.GetType().Assembly.GetManifestResourceStream("Resources.VBNetTextEditorOptions.xfrm"));
+			Get<CheckBox>("enableEndConstructs").Checked = PropertyService.Get<bool>("VBBinding.TextEditor.EnableEndConstructs", true);
+			Get<CheckBox>("enableCasing").Checked = PropertyService.Get<bool>("VBBinding.TextEditor.EnableCasing", true);
+		}
+		
+		public override bool StorePanelContents()
+		{
+			PropertyService.Set<bool>("VBBinding.TextEditor.EnableEndConstructs", Get<CheckBox>("enableEndConstructs").Checked);
+			PropertyService.Set<bool>("VBBinding.TextEditor.EnableCasing", Get<CheckBox>("enableCasing").Checked);
+			return true;
+		}
+	}
+}

src/AddIns/BackendBindings/VBNetBinding/Project/VBNetBinding.addin

@@ -28,7 +28,13 @@
 			projectfileextension = ".vbproj"
 			class = "VBNetBinding.Parser.TParser"/>
 	</Path>
-
+	
+	<Path name = "/SharpDevelop/Dialogs/OptionsDialog/TextEditor">
+		<DialogPanel id = "VBSpecificOptions"
+			             label = "${res:Dialog.Options.IDEOptions.TextEditor.VB.PanelName}"
+			             class = "VBNetBinding.OptionPanels.VBNetTextEditorPanel"/>
+	</Path>
+	
 	<Path path = "/SharpDevelop/BackendBindings/ProjectOptions/VBNet">
 		<DialogPanel id    = "Application"
 		             label = "${res:Dialog.ProjectOptions.ApplicationSettings}"

src/AddIns/BackendBindings/VBNetBinding/Project/VBNetBinding.csproj

@@ -56,6 +56,8 @@
       <SubType>Form</SubType>
     </Compile>
     <EmbeddedResource Include="Resources\ProjectImports.xfrm" />
+    <Compile Include="Src\OptionPanels\TextEditorOptions.cs" />
+    <EmbeddedResource Include="Resources\VBNetTextEditorOptions.xfrm" />
   </ItemGroup>
   <ItemGroup>
     <ProjectReference Include="..\..\..\..\Libraries\ICSharpCode.TextEditor\Project\ICSharpCode.TextEditor.csproj">