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>
Sat, 15 Nov 1997 17:22:16 +0100
changeset 1373 1afad5696aa8
parent 1372 253c2e001d87
child 1374 b3a1e95a6220
*** empty log message ***
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Tue Nov 11 16:01:40 1997 +0100
+++ b/BrowserView.st	Sat Nov 15 17:22:16 1997 +0100
@@ -9900,8 +9900,10 @@
 
 hideMethodCategoryList
     classCategoryListView isNil ifTrue:[
-	methodCategoryListView superView extent:0.0 @ 1.0.
-	methodListView superView origin:0.33 @ 0.0 extent:0.67 @ 1.0.
+        classListView notNil ifTrue:[
+	    methodCategoryListView superView extent:0.0 @ 1.0.
+	    methodListView superView origin:0.33 @ 0.0 extent:0.67 @ 1.0.
+	].
 	^ self.
     ].
 
@@ -10177,8 +10179,10 @@
 
 showMethodCategoryList
     classCategoryListView isNil ifTrue:[
-	methodCategoryListView superView extent:0.33 @ 1.0.
-	methodListView superView origin:0.66 @ 0.0 extent:0.34 @ 1.0.
+        classListView notNil ifTrue:[
+	    methodCategoryListView superView extent:0.33 @ 1.0.
+	    methodListView superView origin:0.66 @ 0.0 extent:0.34 @ 1.0.
+	].
 	^ self.
     ].
     methodCategoryListView notNil ifTrue:[
@@ -11157,6 +11161,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.349 1997-11-03 15:20:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.350 1997-11-15 16:22:16 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Tue Nov 11 16:01:40 1997 +0100
+++ b/BrwsrView.st	Sat Nov 15 17:22:16 1997 +0100
@@ -9900,8 +9900,10 @@
 
 hideMethodCategoryList
     classCategoryListView isNil ifTrue:[
-	methodCategoryListView superView extent:0.0 @ 1.0.
-	methodListView superView origin:0.33 @ 0.0 extent:0.67 @ 1.0.
+        classListView notNil ifTrue:[
+	    methodCategoryListView superView extent:0.0 @ 1.0.
+	    methodListView superView origin:0.33 @ 0.0 extent:0.67 @ 1.0.
+	].
 	^ self.
     ].
 
@@ -10177,8 +10179,10 @@
 
 showMethodCategoryList
     classCategoryListView isNil ifTrue:[
-	methodCategoryListView superView extent:0.33 @ 1.0.
-	methodListView superView origin:0.66 @ 0.0 extent:0.34 @ 1.0.
+        classListView notNil ifTrue:[
+	    methodCategoryListView superView extent:0.33 @ 1.0.
+	    methodListView superView origin:0.66 @ 0.0 extent:0.34 @ 1.0.
+	].
 	^ self.
     ].
     methodCategoryListView notNil ifTrue:[
@@ -11157,6 +11161,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.349 1997-11-03 15:20:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.350 1997-11-15 16:22:16 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool