Imports EnvDTE
Imports System.Diagnostics

Public Module WTLMacros

    Sub NotifyHandler()
        Dim wasOpen
        wasOpen = BeginUndoGroup("NotifyHandler")

        With DTE.ActiveDocument.Selection
            .StartOfLine(1)
            .Text = "LRESULT "
            .EndOfLine()
            .Text = "(int /*idCtrl*/, LPNMHDR pnmh, BOOL& /*bHandled*/)"
            .NewLine()
            .Text = "{"
            .NewLine()
            .Text = "return 0;"
            .NewLine()
            .Text = "}"
            .LineUp(False, 2)
            .NewLine()
        End With

        EndUndoGroup(wasOpen)

    End Sub

    Sub NotifyHandlerDefinition()
        Dim wasOpen
        wasOpen = BeginUndoGroup("NotifyHandler")

        With DTE.ActiveDocument.Selection
            .StartOfLine(1)
            .Text = "LRESULT "
            .EndOfLine()
            .Text = "(int /*idCtrl*/, LPNMHDR pnmh, BOOL& /*bHandled*/);"
        End With

        EndUndoGroup(wasOpen)

    End Sub

    Sub CommandHandler()
        Dim wasOpen

        wasOpen = BeginUndoGroup("CommandHandler")

        With DTE.ActiveDocument.Selection
            .StartOfLine(1)
            .Text = "LRESULT "
            .EndOfLine()
            .Text = "(WORD /*wNotifyCode*/, WORD /*wID*/, HWND /*hWndCtl*/, BOOL& /*bHandled*/)"
            .NewLine()
            .Text = "{"
            .NewLine()
            .Text = "return 0;"
            .NewLine()
            .Text = "}"
            .LineUp(False, 2)
            .NewLine()
        End With

        EndUndoGroup(wasOpen)
    End Sub

    Sub CommandHandlerDefinition()
        Dim wasOpen

        wasOpen = BeginUndoGroup("CommandHandlerDefinition")

        With DTE.ActiveDocument.Selection
            .StartOfLine(1)
            .Text = "LRESULT "
            .EndOfLine()
            .Text = "(WORD /*wNotifyCode*/, WORD /*wID*/, HWND /*hWndCtl*/, BOOL& /*bHandled*/);"
        End With

        EndUndoGroup(wasOpen)
    End Sub

    Sub MessageHandler()
        Dim wasOpen

        wasOpen = BeginUndoGroup("MessageHandler")

        With DTE.ActiveDocument.Selection
            .StartOfLine(1)
            .Text = "LRESULT "
            .EndOfLine()
            .Text = "(UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL& /*bHandled*/)"
            .NewLine()
            .Text = "{"
            .NewLine()
            .Text = "return 0;"
            .NewLine()
            .Text = "}"
            .LineUp(False, 2)
            .NewLine()
        End With

        EndUndoGroup(wasOpen)
    End Sub

    Sub MessageHandlerDefinition()
        Dim wasOpen

        wasOpen = BeginUndoGroup("MessageHandlerDefinition")

        With DTE.ActiveDocument.Selection
            .StartOfLine(1)
            .Text = "LRESULT "
            .EndOfLine()
            .Text = "(UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL& /*bHandled*/);"
        End With

        EndUndoGroup(wasOpen)
    End Sub
End Module