diff --git a/ApplicationServices/Debugger/Exception/StackFrame.vb b/ApplicationServices/Debugger/Exception/StackFrame.vb index f60b5799..44ac8613 100644 --- a/ApplicationServices/Debugger/Exception/StackFrame.vb +++ b/ApplicationServices/Debugger/Exception/StackFrame.vb @@ -71,6 +71,23 @@ Namespace ApplicationServices.Debugging.Diagnostics ''' Public Property Line As String + Sub New() + End Sub + + ''' + ''' make value copy + ''' + ''' + Sub New(clone As StackFrame) + File = clone.File + Line = clone.Line + Method = New Method With { + .Method = clone.Method.Method, + .[Module] = clone.Method.Module, + .[Namespace] = clone.Method.Namespace + } + End Sub + Public Overrides Function ToString() As String Return $"{Method} at {File}:line {Line}" End Function