--- a/Tools__NewSystemBrowser.st Fri May 07 14:34:39 2010 +0200
+++ b/Tools__NewSystemBrowser.st Fri May 07 20:08:19 2010 +0200
@@ -36106,7 +36106,7 @@
].
].
methods do:[:eachMethod |
- mSel := eachMethod selector.
+ mSel := eachMethod selector ? '?'.
contractedSelector := mSel contractTo:80.
item := MenuItem label:(' ' , contractedSelector , ' '). "/ ' ' is a kludge - to allow '-' selector
@@ -36136,6 +36136,7 @@
^ m
"Created: / 27-04-2010 / 15:05:52 / cg"
+ "Modified: / 07-05-2010 / 20:00:20 / cg"
!
operationsMenu
@@ -44409,11 +44410,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1458 2010-05-07 12:27:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1459 2010-05-07 18:08:19 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1458 2010-05-07 12:27:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1459 2010-05-07 18:08:19 cg Exp $'
! !
NewSystemBrowser initialize!