added subcategory definitions to vb.net tempates; added singleton and addin templates

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

data/templates/file/VBNet/VBNet.Forms.Form.xft

@@ -5,6 +5,7 @@
 		name        = "${res:Templates.File.WindowsForm.Name}"
 		icon        = "VBNet.File.Form"
 		category    = "VB"
+		subcategory = "${res:Templates.File.Categories.WindowsApplications}"
 		defaultname = "Form${Number}.vb"
 		language    = "VB"
 	/>

data/templates/file/VBNet/VBNet.Forms.UserControl.xft

@@ -5,6 +5,7 @@
 		name        = "${res:Templates.File.WindowsUserControl.Name}"
 		icon        = "VBNet.File.Form"
 		category    = "VB"
+		subcategory = "${res:Templates.File.Categories.WindowsApplications}"
 		defaultname = "UserControl${Number}.vb"
 		language    = "VBNET"/>
 	

data/templates/file/VBNet/VBNet.Patterns.Singleton.xft

@@ -0,0 +1,49 @@
+<?xml version="1.0"?>
+<Template author="Markus Palme" version="1.0">
+	
+	<Config
+		name        = "${res:Templates.File.SingletonClass.Name}"
+		icon        = "VBNet.File.NewClass"
+		category    = "VB"
+		defaultname = "SingletonClass${Number}.vb"
+		language    = "VB"
+	/>
+	 
+	<Description>${res:Templates.File.SingletonClass.Description}</Description>
+	
+	<!-- 
+	Special new file templates:
+		${StandardNamespace}        -> Standardnamespace of the current project or FileNameWithoutExtension
+		${FullName}                 -> Full generated path name
+		${FileName}                 -> File name with extension
+		${FileNameWithoutExtension} -> File name without extension
+		${Extension}                -> Extension in the form ".vb"
+		${Path}                     -> Full path of the file
+	 -->
+	<Files>
+		<File name="${FullName}" language="VBNET"><![CDATA[${StandardHeader.VBNET}
+
+Imports System
+
+Namespace ${StandardNamespace}
+
+	''' <summary>
+	'' Description of ${ClassName}.
+	''' </summary>
+	Public NotInheritable Class ${ClassName}
+		Private Shared _instance As ${ClassName} = New ${ClassName}()
+		
+		Public Shared ReadOnly Property Instance As ${ClassName}
+			Get
+				Return _instance
+			End Get
+		End Property
+	End Class
+End Namespace
+]]></File>
+	</Files>
+	
+	<AdditionalOptions/>
+</Template>
+
+

data/templates/project/VBNet/ConsoleProject.xpt

@@ -7,6 +7,7 @@
 	<TemplateConfiguration>
 		<Name>${res:Templates.Project.ConsoleProject.Name}</Name>
 		<Category>VBNet</Category>
+		<Subcategory>${res:Templates.File.Categories.WindowsApplications}</Subcategory>
 		<Icon>VBNet.Project.DOSProject</Icon>
 		<LanguageName>VBNet</LanguageName>
 		<Description>${res:Templates.Project.ConsoleProject.Description}</Description>

data/templates/project/VBNet/ControlLibrary.xpt

@@ -7,6 +7,7 @@
 	<TemplateConfiguration>
 		<Name>${res:Templates.Project.UserControlLibrary.Name}</Name>
 		<Category>VBNet</Category>
+		<Subcategory>${res:Templates.File.Categories.WindowsApplications}</Subcategory>
 		<Icon>VBNet.Project.ControlLibrary</Icon>
 		<LanguageName>VBNet</LanguageName>
 		<Description>${res:Templates.Project.UserControlLibrary.Description}</Description>

data/templates/project/VBNet/Direct3DProject.xpt

@@ -7,6 +7,7 @@
 	<TemplateConfiguration>
 		<Name>${res:Templates.Project.Direct3DApplication.Name}</Name>
 		<Category>VBNet</Category>
+		<Subcategory>${res:Templates.File.Categories.WindowsApplications}</Subcategory>
 		<Icon>VBNet.Project.FullProject</Icon>
 		<LanguageName>VBNet</LanguageName>
 		<Description>${res:Templates.Project.Direct3DApplication.Description}</Description>

data/templates/project/VBNet/FormsProject.xpt

@@ -7,6 +7,7 @@
 	<TemplateConfiguration>
 		<Name>${res:Templates.Project.WindowsApplication.Name}</Name>
 		<Category>VBNet</Category>
+		<Subcategory>${res:Templates.File.Categories.WindowsApplications}</Subcategory>
 		<Icon>VBNet.Project.Form</Icon>
 		<LanguageName>VBNet</LanguageName>
 		<Description>${res:Templates.Project.WindowsApplication.Description}</Description>

data/templates/project/VBNet/Service.xpt

@@ -7,6 +7,7 @@
 	<TemplateConfiguration>
 		<Name>${res:Templates.Project.WindowsService.Name}</Name>
 		<Category>VBNet</Category>
+		<Subcategory>${res:Templates.File.Categories.WindowsApplications}</Subcategory>
 		<Icon>VBNet.Project.ServiceProject</Icon>
 		<LanguageName>VBNet</LanguageName>
 		<Description>${res:Templates.Project.WindowsService.Description}</Description>

data/templates/project/VBNet/SharpDevelopAddin.xpt

@@ -0,0 +1,185 @@
+<?xml version="1.0"?>
+<Template originator   = "Markus Palme"
+          created      = "23/01/2006"
+          lastModified = "23/01/2006">
+	
+	<!-- Template Header -->
+	<TemplateConfiguration>
+		<Name>${res:Templates.Project.SharpDevelopAddin.Name}</Name>
+		<Category>SharpDevelop</Category>
+		<Icon>VBNet.Project.ControlLibrary</Icon>
+		<LanguageName>VBNet</LanguageName>
+		<Description>${res:Templates.Project.SharpDevelopAddin.Description}</Description>
+	</TemplateConfiguration>
+	
+	<!-- Actions -->
+	<Actions>
+		<Open filename = "${ProjectName}.addin"/>
+	</Actions>
+	
+	<Combine name = "${ProjectName}" directory = ".">
+		<Options>
+			<StartupProject>${ProjectName}</StartupProject>
+		</Options>
+		
+		<Project name = "${ProjectName}" directory = ".">
+			<Options OutputType = "Library" />
+			<ProjectItems>
+				<Reference Include="System" />
+				<Reference Include="System.Data" />
+				<Reference Include="System.Drawing" />
+				<Reference Include="System.Windows.Forms" />
+				<Reference Include="System.Xml" />
+			</ProjectItems>
+			<Files>
+				<File name="${ProjectName}.addin" copyToOutputDirectory="Always"><![CDATA[<AddIn name        = "${ProjectName}"
+       author      = "${USER}"
+       url         = ""
+       description = "TODO: Put description here">
+	
+	<Runtime>
+		<Import assembly = "${ProjectName}.dll"/>
+	</Runtime>
+	
+	<Path name = "/SharpDevelop/Workbench/Pads">
+		<Pad id       = "${ProjectName}Pad"
+		     category = "Main"
+		     title    = "${ProjectName}Pad"
+		     icon     = "PadIcons.Output"
+		     shortcut = "Control|Alt|T"
+		     class    = "${ProjectName}.TestPad"/>
+	</Path>
+</AddIn>
+]]></File>
+		<File name="Resources/MyUserControl.xfrm" buildAction="EmbeddedResource">
+			<![CDATA[<?xml version="1.0" encoding="utf-8"?>
+<Components version="1.0">
+  <System.Windows.Forms.UserControl>
+    <Name value="MyUserControl" />
+    <ClientSize value="{Width=230, Height=160}" />
+    <Controls>
+      <System.Windows.Forms.Button>
+        <Name value="testButton" />
+        <Location value="{X=63,Y=97}" />
+        <Text value="A button" />
+        <Size value="{Width=75, Height=23}" />
+        <Anchor value="None" />
+        <FlatAppearance value="System.Windows.Forms.FlatButtonAppearance" />
+        <TabIndex value="1" />
+      </System.Windows.Forms.Button>
+      <System.Windows.Forms.Label>
+        <Name value="label1" />
+        <Location value="{X=38,Y=19}" />
+        <Text value="Hello, World!" />
+        <Size value="{Width=100, Height=23}" />
+        <TabIndex value="0" />
+      </System.Windows.Forms.Label>
+    </Controls>
+  </System.Windows.Forms.UserControl>
+</Components>
+]]></File>
+		<File name="Src/MyUserControl.vb">
+			<![CDATA[${StandardHeader.VBNET}
+
+Imports System
+Imports System.Windows.Forms
+Imports ICSharpCode.SharpDevelop.Gui.XmlForms
+
+Namespace ${ProjectName}
+	Public Class MyUserControl
+		Inherits BaseSharpDevelopUserControl
+		Public Sub New
+			SetupFromXmlStream(Me.GetType().Assembly.GetManifestResourceStream("test4.Resources.MyUserControl.xfrm"))
+			AddHandler (Me.Get(Of Button)("test")).Click, AddressOf ButtonClick
+		End Sub
+		
+		Sub ButtonClick(sender As Object, e As EventArgs)
+			System.Windows.Forms.MessageBox.Show("The button was clicked!")
+		End Sub
+	End Class
+End Namespace
+]]>
+		</File>
+		<File name="Src/TestPad.vb">
+			<![CDATA[${StandardHeader.VBNET}
+
+Imports System
+Imports System.Windows.Forms
+Imports ICSharpCode.Core
+Imports ICSharpCode.SharpDevelop.Gui
+
+Namespace ${ProjectName}
+	''' <summary>
+	''' Description of the pad content
+	''' </summary>
+	Public Class TestPad
+		Inherits AbstractPadContent
+		Private ctl As MyUserControl
+		
+		''' <summary>
+		''' Creates a new TestPad object
+		''' </summary>
+		Public Sub New
+			ctl = new MyUserControl()
+		End Sub
+		
+		''' <summary>
+		''' The <see cref="System.Windows.Forms.Control"/> representing the pad
+		''' </summary>
+		Public Overrides ReadOnly Property Control As Control
+			Get
+				return ctl
+			End Get
+		End Property
+		
+		''' <summary>
+		''' Refreshes the pad
+		''' </summary>
+		Public Overrides Sub RedrawContent()
+			' TODO: Refresh the whole pad control here, renew all resource strings whatever
+			'       Note that you do not need to recreate the control.
+		End Sub
+		
+		''' <summary>
+		''' Cleans up all used resources
+		''' </summary>
+		Public Overrides Sub Dispose()
+			ctl.Dispose()
+		End Sub
+	End Class
+End Namespace
+]]></File>
+		<File name="Configuration/AssemblyInfo.vb">
+			<![CDATA[Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+'Information about this assembly is defined by the following
+'attributes.
+
+'change them to the information which is associated with the assembly
+'you compile.
+
+<assembly: AssemblyTitle("${ProjectName}")>
+<assembly: AssemblyDescription("Addin for SharpDevelop 2.0")>
+<assembly: AssemblyConfiguration("")>
+<assembly: AssemblyCompany("")>
+<assembly: AssemblyProduct("SharpDevelop")>
+<assembly: AssemblyCopyright("")>
+<assembly: AssemblyTrademark("")>
+<assembly: AssemblyCulture("")>
+
+'The assembly version has following format :
+
+'Major.Minor.Build.Revision
+
+'You can specify all values by your own or you can build default build and revision
+'numbers with the '*' character (the default):
+
+<assembly: AssemblyVersion("1.0.*")>
+
+]]>
+				</File>
+			</Files>
+		</Project>
+	</Combine>
+</Template>

data/templates/project/VBNet/SharpDevelopMacro.xpt

@@ -0,0 +1,134 @@
+<?xml version="1.0"?>
+<Template originator   = "Markus Palme"
+          created      = "23/01/2006"
+          lastModified = "23/01/2006">
+	
+	<!-- Template Header -->
+	<TemplateConfiguration>
+		<Name>${res:Templates.Project.SharpDevelopMacro.Name}</Name>
+		<Category>SharpDevelop</Category>
+		<Icon>VBNet.Project.ControlLibrary</Icon>
+		<LanguageName>VBNet</LanguageName>
+		<Description>${res:Templates.Project.SharpDevelopMacro.Description}</Description>
+	</TemplateConfiguration>
+	
+	<!-- Actions -->
+	<Actions>
+		<Open filename = "${ProjectName}.addin"/>
+	</Actions>
+	
+	<Combine name = "${ProjectName}" directory = ".">
+		<Options>
+			<StartupProject>${ProjectName}</StartupProject>
+		</Options>
+		
+		<Project name = "${ProjectName}" directory = ".">
+			<Options OutputType = "Library" />
+
+			<ProjectItems>
+				<Reference Include="System" />
+				<Reference Include="System.Data" />
+				<Reference Include="System.Drawing" />
+				<Reference Include="System.Windows.Forms" />
+				<Reference Include="System.Xml" />
+			</ProjectItems>
+			
+			<Files>
+				<File name="${ProjectName}.addin" copyToOutputDirectory="Always"><![CDATA[<AddIn name        = "${ProjectName}"
+       author      = "${USER}"
+       url         = ""
+       description = "TODO: Put description here">
+	
+	<Runtime>
+		<Import assembly = "${ProjectName}.dll"/>
+	</Runtime>
+	
+	<Path name = "/Workspace/Tools">
+		<MenuItem id = "${ProjectName}Command1"
+		          label = "${ProjectName}"
+		          class = "${StandardNamespace}.ToolCommand1"/>
+	</Path>
+</AddIn>
+]]></File>
+		<File name="Src/Command.vb">
+			<![CDATA[${StandardHeader.VBNET}
+
+Imports System
+Imports System.Text
+Imports ICSharpCode.Core
+Imports ICSharpCode.SharpDevelop
+Imports ICSharpCode.SharpDevelop.Gui
+Imports ICSharpCode.SharpDevelop.DefaultEditor.Gui.Editor
+Imports ICSharpCode.TextEditor
+
+Namespace ${StandardNamespace}
+	Public Class ToolCommand1
+	Inherits AbstractMenuCommand
+		Public Overrides Sub Run()
+			'' Here an example that shows how to access the current text document:
+			
+			Dim tecp As ITextEditorControlProvider = CType(WorkbenchSingleton.Workbench.ActiveContent, ITextEditorControlProvider)
+			If tecp Is Nothing Then
+				' active content is not a text editor control
+				Return
+			End If
+			' Get the active text area from the control:
+			Dim textArea As TextArea = tecp.TextEditorControl.ActiveTextAreaControl.TextArea
+			If Not textArea.SelectionManager.HasSomethingSelected Then
+				Return
+			End If
+			' get the selected text:
+			Dim text As String = textArea.SelectionManager.SelectedText
+			' reverse the text:
+			Dim b As StringBuilder = new StringBuilder(text.Length)
+			For i As Integer = text.Length - 1 To 0
+				b.Append(text(i))
+			Next
+			Dim newText As String = b.ToString()
+			' ensure caret is at start of selection
+			textArea.Caret.Position = textArea.SelectionManager.SelectionCollection(0).StartPosition
+			' deselect text
+			textArea.SelectionManager.ClearSelection()
+			' replace the selected text with the new text:
+			' Replace() takes the arguments: start offset to replace, length of the text to remove, new text
+			textArea.Document.Replace(textArea.Caret.Offset, text.Length, newText)
+			' Redraw:
+			textArea.Refresh()
+		End Sub
+	End Class
+End Namespace
+]]></File>
+		<File name="Configuration/AssemblyInfo.vb">
+			<![CDATA[${StandardHeader.VBNET}
+
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+'Information about this assembly is defined by the following
+'attributes.
+'
+'change them to the information which is associated with the assembly
+'you compile.
+
+<assembly: AssemblyTitle("${ProjectName}")>
+<assembly: AssemblyDescription("Addin for SharpDevelop 2.0")>
+<assembly: AssemblyConfiguration("")>
+<assembly: AssemblyCompany("")>
+<assembly: AssemblyProduct("SharpDevelop")>
+<assembly: AssemblyCopyright("")>
+<assembly: AssemblyTrademark("")>
+<assembly: AssemblyCulture("")>
+
+'The assembly version has following format :
+'
+'Major.Minor.Build.Revision
+'
+'You can specify all values by your own or you can build default build and revision
+'numbers with the '*' character (the default):
+
+<assembly: AssemblyVersion("1.0.*")>
+]]></File>
+			</Files>
+		</Project>
+	</Combine>
+</Template>