--- a/ContextInspectorView.st Tue Sep 25 14:57:48 2001 +0200
+++ b/ContextInspectorView.st Tue Sep 25 15:02:35 2001 +0200
@@ -389,35 +389,35 @@
showingTemporaries ifFalse:[
items := #(
- ('inspect' #doInspect)
- ('basicInspect' #doBasicInspect)
+ ('Inspect' #doInspect)
+ ('BasicInspect' #doBasicInspect)
('-')
- ('browse' #browse)
- ('browse blocks home' #browseHome)
+ ('Browse' #browse)
+ ('Browse blocks home' #browseHome)
('-')
- ('show temporaries' #showTemporaries)
+ ('Show temporaries' #showTemporaries)
)
] ifTrue:[
items := #(
- ('inspect' #doInspect)
- ('basicInspect' #doBasicInspect)
+ ('Inspect' #doInspect)
+ ('BasicInspect' #doBasicInspect)
('-')
- ('browse' #browse)
- ('browse blocks home' #browseHome)
+ ('Browse' #browse)
+ ('Browse blocks home' #browseHome)
('-')
- ('hide temporaries' #hideTemporaries)
+ ('Hide temporaries' #hideTemporaries)
)
].
showHex ifTrue:[
items := items , #(
('-')
- ('decimal integers' #toggleHex )
+ ('Decimal integers' #toggleHex )
)
] ifFalse:[
items := items , #(
('-')
- ('hex integers' #toggleHex )
+ ('Hex integers' #toggleHex )
)
].
m := PopUpMenu
@@ -555,5 +555,5 @@
!ContextInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.50 2001-09-04 18:48:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.51 2001-09-25 13:02:31 cg Exp $'
! !