add a source view to the tonel method definition

syrel · syrel · commit 11213ff8e0dd · 2025-11-03T21:18:09.000+01:00
diff --git a/src/GToolkit-VirtualMachine-SomeBindings/SomeTonelMethodDefinition.class.st b/src/GToolkit-VirtualMachine-SomeBindings/SomeTonelMethodDefinition.class.st
@@ -37,6 +37,17 @@ SomeTonelMethodDefinition >> gtDisplayOn: stream [
 		nextPutAll: selector
 ]
 
+{ #category : #'as yet unclassified' }
+SomeTonelMethodDefinition >> gtSourceFor: aView [
+	<gtView>
+	^ aView textEditor
+		title: 'Source';
+		priority: 5;
+		aptitude: BrGlamorousCodeEditorAptitude;
+		styler: BrRBTextStyler new;
+		text: [ source ]
+]
+
 { #category : #'as yet unclassified' }
 SomeTonelMethodDefinition >> isClassSide [
 	^ methodType = 'class'
