changed: #inspector2Tabs
authorClaus Gittinger <cg@exept.de>
Sun, 11 Nov 2018 12:24:42 +0100
changeset 18523 c6718fc416d8
parent 18522 abbfc74aa427
child 18524 d12348dd1014
changed: #inspector2Tabs scrollbar
extensions.st
--- a/extensions.st	Sat Nov 10 00:40:40 2018 +0100
+++ b/extensions.st	Sun Nov 11 12:24:42 2018 +0100
@@ -123,7 +123,8 @@
                     ].
                ].
 
-    v := ScrollableView for:TextView. 
+    v := HVScrollableView for:TextView. 
+    v autoHideScrollBars:true.
     genDump value.
 
     v scrolledView 
@@ -157,6 +158,7 @@
             yourself
 
     "Created: / 13-02-2012 / 15:08:42 / cg"
+    "Modified: / 11-11-2018 / 12:20:02 / Claus Gittinger"
 ! !
 
 !Autoload class methodsFor:'message catching'!
@@ -601,7 +603,10 @@
             ^self newInspector2Tab
                 label: 'HTML';
                 priority: 35;
-                view: ((ScrollableView for:(Smalltalk at:#HTMLDocumentView)) setText: self; yourself);
+                view: ((HVScrollableView for:(Smalltalk at:#HTMLDocumentView)) 
+                            autoHideScrollBars:true;        
+                            setText: self; 
+                            yourself);
                 yourself
         ].
     ].
@@ -611,6 +616,7 @@
     "Created: / 17-02-2008 / 10:10:50 / janfrog"
     "Created: / 07-11-2011 / 12:35:15 / cg"
     "Modified: / 27-02-2014 / 16:08:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-11-2018 / 12:15:17 / Claus Gittinger"
 ! !
 
 !CharacterArray methodsFor:'inspecting'!
@@ -620,14 +626,15 @@
     ^ self newInspector2Tab
         label: 'String';
         priority: 50;
-        view: ((ScrollableView for:EditTextView) 
-                    autoHideVerticalScrollBar:true;        
+        view: ((HVScrollableView for:EditTextView) 
+                    autoHideScrollBars:true;        
                     contents: self; 
                     yourself);
-        yourself            
+        yourself
 
     "Created: / 17-02-2008 / 10:10:50 / janfrog"
     "Modified: / 21-08-2011 / 08:02:57 / cg"
+    "Modified: / 11-11-2018 / 12:15:22 / Claus Gittinger"
 ! !
 
 !CharacterArray methodsFor:'inspecting'!
@@ -718,8 +725,8 @@
     ^ self newInspector2Tab
         label: 'Documentation';
         priority: 5;
-        view: ((ScrollableView for:EditTextView) 
-                    autoHideVerticalScrollBar:true;        
+        view: ((HVScrollableView for:EditTextView) 
+                    autoHideScrollBars:true;        
                     contents: (self commentOrDocumentationString); 
                     yourself);
         yourself
@@ -729,6 +736,7 @@
     "
 
     "Created: / 22-09-2018 / 10:56:07 / Claus Gittinger"
+    "Modified: / 11-11-2018 / 12:15:37 / Claus Gittinger"
 ! !
 
 !Class methodsFor:'misc ui support'!
@@ -2694,10 +2702,13 @@
     ^self newInspector2Tab
         label: 'String';
         priority: 25;
-        view: ((ScrollableView for:TextView) contents: self asString; yourself)
+        view: ((HVScrollableView for:TextView) 
+                autoHideScrollBars:true;        
+                contents: self asString; 
+                yourself)
 
     "Created: / 17-02-2008 / 10:13:07 / janfrog"
-    "Modified: / 15-09-2018 / 09:34:26 / Claus Gittinger"
+    "Modified: / 11-11-2018 / 12:16:07 / Claus Gittinger"
 ! !
 
 !Symbol methodsFor:'accessing'!
@@ -2725,11 +2736,15 @@
     ^self newInspector2Tab
         label: 'Text';
         priority: 50;
-        view: ((ScrollableView for:EditTextView) contents: self; yourself)
+        view: ((HVScrollableView for:EditTextView) 
+                autoHideScrollBars:true;
+                contents: self; 
+                yourself)
 
     "Created: / 17-02-2008 / 09:03:36 / janfrog"
     "Modified: / 17-02-2008 / 10:28:33 / janfrog"
     "Modified: / 21-08-2011 / 08:02:46 / cg"
+    "Modified: / 11-11-2018 / 12:19:03 / Claus Gittinger"
 ! !
 
 !Text methodsFor:'inspecting'!