# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1000136284 -7200
# Node ID c49df8b2128405034c2cb195f93be84703f50f7a
# Parent  a49a0a19723190d23b8b2d765217dbadc4d2973e
checkin from browser

diff -r a49a0a197231 -r c49df8b21284 BrowserView.st
--- 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!