class: Class
authorClaus Gittinger <cg@exept.de>
Sat, 22 Sep 2018 11:02:37 +0200
changeset 18417 69f41a854b21
parent 18416 536ee8775804
child 18418 7cf9dcb76dc9
class: Class added: #inspector2TabDocumentation
extensions.st
--- 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