--- 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'!