--- a/extensions.st Sat Sep 22 10:59:49 2018 +0200
+++ b/extensions.st Sat Sep 22 11:02:37 2018 +0200
@@ -710,6 +710,27 @@
^ self basicStoreString contractTo:30.
! !
+!Class methodsFor:'inspecting'!
+
+inspector2TabDocumentation
+ <inspector2Tab>
+
+ ^ self newInspector2Tab
+ label: 'Documentation';
+ priority: 5;
+ view: ((ScrollableView for:EditTextView)
+ autoHideVerticalScrollBar:true;
+ contents: (self commentOrDocumentationString);
+ yourself);
+ yourself
+
+ "
+ Array inspect
+ "
+
+ "Created: / 22-09-2018 / 10:56:07 / Claus Gittinger"
+! !
+
!Class methodsFor:'misc ui support'!
inspectorClass