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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 15 Oct 1996 21:45:11 +0200
changeset 768 c74bce2106ae
parent 767 f92a7f3dc2aa
child 769 56ecc821f8be
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Tue Oct 15 21:40:38 1996 +0200
+++ b/BrowserView.st	Tue Oct 15 21:45:11 1996 +0200
@@ -1751,7 +1751,9 @@
             selectors:selectors
             accelerators:shorties.
 
-    currentClass isPrivate ifTrue:[
+
+    (currentClass notNil
+    and:[currentClass isPrivate]) ifTrue:[
         m disableAll:#(
                        classFileOut
                       )
@@ -1760,7 +1762,7 @@
     m subMenuAt:#otherMenu put:specialMenu.
     ^ m
 
-    "Modified: 15.10.1996 / 19:49:57 / cg"
+    "Modified: 15.10.1996 / 20:42:34 / cg"
 !
 
 classNewClass
@@ -7923,6 +7925,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.184 1996-10-15 19:40:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.185 1996-10-15 19:45:11 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Tue Oct 15 21:40:38 1996 +0200
+++ b/BrwsrView.st	Tue Oct 15 21:45:11 1996 +0200
@@ -1751,7 +1751,9 @@
             selectors:selectors
             accelerators:shorties.
 
-    currentClass isPrivate ifTrue:[
+
+    (currentClass notNil
+    and:[currentClass isPrivate]) ifTrue:[
         m disableAll:#(
                        classFileOut
                       )
@@ -1760,7 +1762,7 @@
     m subMenuAt:#otherMenu put:specialMenu.
     ^ m
 
-    "Modified: 15.10.1996 / 19:49:57 / cg"
+    "Modified: 15.10.1996 / 20:42:34 / cg"
 !
 
 classNewClass
@@ -7923,6 +7925,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.184 1996-10-15 19:40:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.185 1996-10-15 19:45:11 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool