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.
fixed nameSpace views geometry for 2D styles
authorClaus Gittinger <cg@exept.de>
Thu, 09 Jan 1997 12:59:41 +0100
changeset 931 b31937ead721
parent 930 f280acd36356
child 932 d370fa068ade
fixed nameSpace views geometry for 2D styles
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Thu Jan 09 12:53:32 1997 +0100
+++ b/BrowserView.st	Thu Jan 09 12:59:41 1997 +0100
@@ -4819,11 +4819,30 @@
 
     v bottomInset:(instanceToggle height + spc + instanceToggle borderWidth).
     nsHolder := currentNamespace asValue.
+
     namespaceList := ComboListView origin:(0.0@1.0) corner:(0.25@1.0) in:hpanel.
     namespaceList topInset:(v bottomInset negated) + (spc // 2).
     namespaceList bottomInset:(spc // 2).
-    namespaceList leftInset:(classCategoryListView originRelativeTo:v) x.
-"/    namespaceList rightInset:(classCategoryListView cornerRelativeTo:v) x.
+
+"/    styleSheet is3D ifTrue:[
+"/        namespaceList leftInset:(classCategoryListView originRelativeTo:v) x.
+"/    ].
+
+"/    (v scrollBar originRelativeTo:v) > (classCategoryListView originRelativeTo:v)
+"/    ifTrue:[
+"/        namespaceList rightInset:((v scrollBar originRelativeTo:v)
+"/                                  -
+"/                                  (classCategoryListView originRelativeTo:v))
+"/    ] ifFalse:[
+"/        styleSheet is3D ifTrue:[
+"/            namespaceList rightInset:(ViewSpacing // 2).
+"/        ]
+"/    ].
+
+"/        styleSheet is3D ifTrue:[
+"/            namespaceList rightInset:(ViewSpacing // 2).
+"/        ].
+
     self setListOfNamespaces.
     namespaceList model:nsHolder.
     namespaceList label menuHolder:self; menuMessage:#nameSpaceMenu.
@@ -4841,7 +4860,7 @@
 
     self createCodeViewIn:vpanel
 
-    "Modified: 4.1.1997 / 23:52:14 / cg"
+    "Modified: 9.1.1997 / 10:39:02 / cg"
 !
 
 setupForClass:aClass
@@ -9172,6 +9191,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.251 1997-01-09 01:52:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.252 1997-01-09 11:59:41 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Thu Jan 09 12:53:32 1997 +0100
+++ b/BrwsrView.st	Thu Jan 09 12:59:41 1997 +0100
@@ -4819,11 +4819,30 @@
 
     v bottomInset:(instanceToggle height + spc + instanceToggle borderWidth).
     nsHolder := currentNamespace asValue.
+
     namespaceList := ComboListView origin:(0.0@1.0) corner:(0.25@1.0) in:hpanel.
     namespaceList topInset:(v bottomInset negated) + (spc // 2).
     namespaceList bottomInset:(spc // 2).
-    namespaceList leftInset:(classCategoryListView originRelativeTo:v) x.
-"/    namespaceList rightInset:(classCategoryListView cornerRelativeTo:v) x.
+
+"/    styleSheet is3D ifTrue:[
+"/        namespaceList leftInset:(classCategoryListView originRelativeTo:v) x.
+"/    ].
+
+"/    (v scrollBar originRelativeTo:v) > (classCategoryListView originRelativeTo:v)
+"/    ifTrue:[
+"/        namespaceList rightInset:((v scrollBar originRelativeTo:v)
+"/                                  -
+"/                                  (classCategoryListView originRelativeTo:v))
+"/    ] ifFalse:[
+"/        styleSheet is3D ifTrue:[
+"/            namespaceList rightInset:(ViewSpacing // 2).
+"/        ]
+"/    ].
+
+"/        styleSheet is3D ifTrue:[
+"/            namespaceList rightInset:(ViewSpacing // 2).
+"/        ].
+
     self setListOfNamespaces.
     namespaceList model:nsHolder.
     namespaceList label menuHolder:self; menuMessage:#nameSpaceMenu.
@@ -4841,7 +4860,7 @@
 
     self createCodeViewIn:vpanel
 
-    "Modified: 4.1.1997 / 23:52:14 / cg"
+    "Modified: 9.1.1997 / 10:39:02 / cg"
 !
 
 setupForClass:aClass
@@ -9172,6 +9191,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.251 1997-01-09 01:52:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.252 1997-01-09 11:59:41 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool