--- a/BrowserView.st Sat Jan 22 13:57:28 2011 +0100
+++ b/BrowserView.st Sat Jan 22 15:32:55 2011 +0100
@@ -4694,8 +4694,7 @@
m subMenuAt:#spawnMenu put:spawnMenu.
].
- (currentClass notNil
- and:[currentClass isPrivate]) ifTrue:[
+ (currentClass notNil and:[currentClass isPrivate]) ifTrue:[
m disableAll:#(
classFileOut
classFileOutAs
@@ -4716,7 +4715,7 @@
].
^ m
- "Modified: / 20.5.1999 / 18:36:25 / cg"
+ "Modified: / 22-01-2011 / 15:25:05 / cg"
!
classNewApplication
@@ -14514,11 +14513,11 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.830 2010-10-22 11:54:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.831 2011-01-22 14:32:55 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.830 2010-10-22 11:54:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.831 2011-01-22 14:32:55 cg Exp $'
! !
BrowserView initialize!