Create a Radial Context Menu for WPF

C#
using DevExpress.Mvvm.UI;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Controls;

namespace RadialMenuExample
{
    public interface ITextBoxService
    {
        void ClearSelection();
        bool CanClearSelection();
    }

    //This service is used for the Clear command. To learn more about custom services, refer to https://documentation.devexpress.com/#WPF/CustomDocument16920
    public class TextBoxService : ServiceBase, ITextBoxService
    {
        TextBox MyTextBox { get { return AssociatedObject as TextBox; } }
        public void ClearSelection()
        {
            MyTextBox.SelectionLength = 0;
        }
        public bool CanClearSelection()
        {
            return MyTextBox.SelectionLength > 0;
        }
    }
}

Visual Basic
Imports DevExpress.Mvvm.UI
Imports System.Windows.Controls

Namespace RadialMenuExample

    Public Interface ITextBoxService

        Sub ClearSelection()

        Function CanClearSelection() As Boolean

    End Interface

    'This service is used for the Clear command. To learn more about custom services, refer to https://documentation.devexpress.com/#WPF/CustomDocument16920
    Public Class TextBoxService
        Inherits ServiceBase
        Implements ITextBoxService

        Private ReadOnly Property MyTextBox As TextBox
            Get
                Return TryCast(AssociatedObject, TextBox)
            End Get
        End Property

        Public Sub ClearSelection() Implements ITextBoxService.ClearSelection
            MyTextBox.SelectionLength = 0
        End Sub

        Public Function CanClearSelection() As Boolean Implements ITextBoxService.CanClearSelection
            Return MyTextBox.SelectionLength > 0
        End Function
    End Class
End Namespace

C#
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Input;

namespace RadialMenuExample
{
    public class RadialContextMenuViewModel
    {
        public virtual ITextBoxService TextBoxService { get { return null; } }

        public ICommand CopyCommand { get; set; }
        public ICommand PasteCommand { get; set; }
        public ICommand CutCommand { get; set; }
        public ICommand SelectAllCommand { get; set; }

        public RadialContextMenuViewModel()
        {
            CopyCommand = ApplicationCommands.Copy;
            PasteCommand = ApplicationCommands.Paste;
            CutCommand = ApplicationCommands.Cut;
            SelectAllCommand = ApplicationCommands.SelectAll;
        }

        // A ClearSelectionCommand is automatically created from the following methods by POCO:
        public bool CanClearSelection()
        {
            return TextBoxService.CanClearSelection();
        }

        public void ClearSelection()
        {
            TextBoxService.ClearSelection();
        }
    }
}

Visual Basic
Imports System.Windows.Input

Namespace RadialMenuExample

    Public Class RadialContextMenuViewModel

        Public Overridable ReadOnly Property TextBoxService As ITextBoxService
            Get
                Return Nothing
            End Get
        End Property

        Public Property CopyCommand As ICommand

        Public Property PasteCommand As ICommand

        Public Property CutCommand As ICommand

        Public Property SelectAllCommand As ICommand

        Public Sub New()
            CopyCommand = ApplicationCommands.Copy
            PasteCommand = ApplicationCommands.Paste
            CutCommand = ApplicationCommands.Cut
            SelectAllCommand = ApplicationCommands.SelectAll
        End Sub

        ' A ClearSelectionCommand is automatically created from the following methods by POCO:
        Public Function CanClearSelection() As Boolean
            Return TextBoxService.CanClearSelection()
        End Function

        Public Sub ClearSelection()
            TextBoxService.ClearSelection()
        End Sub
    End Class
End Namespace