--- a/BrowserView.st Mon Sep 10 16:50:24 2001 +0200
+++ b/BrowserView.st Mon Sep 10 17:38:04 2001 +0200
@@ -3671,7 +3671,7 @@
self class checkClassHistory.
classHistory := self class classHistory.
- classHistory isEmpty ifTrue: [ ^ self ].
+ classHistory isEmpty ifTrue: [ ^ nil ].
menu := Menu new receiver:self.
classHistory do:[:histEntry |
@@ -3700,19 +3700,15 @@
self class checkClassHistory.
classHistory := self class classHistory.
- classHistory notEmpty ifTrue: [
- labels := classHistory collect: [:histEntry| histEntry className ].
- selectors := Array new: classHistory size.
- selectors atAllPut:#switchBackToMessageNamed:.
- selectors := selectors asOrderedCollection.
- args := classHistory collect: [:histEntry| histEntry selector ].
-"/ labels add: '-';add:(resources string:'empty history').
-"/ selectors add: nil; add:#emptyClassHistory.
-"/ args add: nil; add: nil.
- ] ifFalse: [
+ classHistory isEmpty ifTrue: [
^ nil
-"/ labels := resources string:#('empty history').
- ].
+ ].
+
+ labels := classHistory collect: [:histEntry| histEntry className ].
+ selectors := Array new: classHistory size.
+ selectors atAllPut:#switchBackToMessageNamed:.
+ selectors := selectors asOrderedCollection.
+ args := classHistory collect: [:histEntry| histEntry selector ].
^ PopUpMenu
labels:labels
@@ -14896,6 +14892,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.673 2001-09-10 14:13:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.674 2001-09-10 15:38:04 cg Exp $'
! !
BrowserView initialize!