Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 19 Mar 1997 17:39:16 +0100
changeset 1080 91096431f72c
parent 1079 513fda872db0
child 1081 32efb003937c
*** empty log message ***
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Wed Mar 19 12:52:05 1997 +0100
+++ b/BrowserView.st	Wed Mar 19 17:39:16 1997 +0100
@@ -5018,7 +5018,7 @@
 createClassListViewIn:frame
     "setup the classlist subview, with its toggles"
 
-    |v panel spc|
+    |v panel spc wScr wScrHalf|
 
     self createTogglesIn:frame.
 
@@ -5046,7 +5046,16 @@
     variableListView := v scrolledView.
     variableListView delegate:self.
 
-    "Modified: 27.10.1996 / 14:13:31 / cg"
+    wScr := v scrollBar preferredExtent x.
+    wScrHalf := wScr // 2.
+
+"/    (styleSheet at:'scrollBarPosition' default:#right) == #right ifTrue:[
+"/        classToggle rightInset:(classToggle rightInset + wScr).
+"/        classToggle leftInset:(classToggle leftInset - wScrHalf).
+"/        instanceToggle rightInset:(instanceToggle rightInset + wScrHalf)
+"/    ].
+
+    "Modified: 19.3.1997 / 17:38:07 / cg"
 !
 
 createCodeViewIn:aView
@@ -9818,6 +9827,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.281 1997-03-19 11:52:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.282 1997-03-19 16:39:16 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Wed Mar 19 12:52:05 1997 +0100
+++ b/BrwsrView.st	Wed Mar 19 17:39:16 1997 +0100
@@ -5018,7 +5018,7 @@
 createClassListViewIn:frame
     "setup the classlist subview, with its toggles"
 
-    |v panel spc|
+    |v panel spc wScr wScrHalf|
 
     self createTogglesIn:frame.
 
@@ -5046,7 +5046,16 @@
     variableListView := v scrolledView.
     variableListView delegate:self.
 
-    "Modified: 27.10.1996 / 14:13:31 / cg"
+    wScr := v scrollBar preferredExtent x.
+    wScrHalf := wScr // 2.
+
+"/    (styleSheet at:'scrollBarPosition' default:#right) == #right ifTrue:[
+"/        classToggle rightInset:(classToggle rightInset + wScr).
+"/        classToggle leftInset:(classToggle leftInset - wScrHalf).
+"/        instanceToggle rightInset:(instanceToggle rightInset + wScrHalf)
+"/    ].
+
+    "Modified: 19.3.1997 / 17:38:07 / cg"
 !
 
 createCodeViewIn:aView
@@ -9818,6 +9827,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.281 1997-03-19 11:52:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.282 1997-03-19 16:39:16 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool