Browse Source
git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/trunk@1032 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61shortcuts
Markus Palme
20 years ago
10 changed files with 375 additions and 0 deletions
@ -0,0 +1,49 @@
@@ -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> |
||||
|
||||
|
||||
@ -0,0 +1,185 @@
@@ -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> |
||||
@ -0,0 +1,134 @@
@@ -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> |
||||
Loading…
Reference in new issue