--- a/FileBrowser.st Thu Sep 19 11:05:29 2002 +0200
+++ b/FileBrowser.st Thu Sep 19 11:12:10 2002 +0200
@@ -796,7 +796,7 @@
!
directoryHistory
- ^ DirectoryHistory
+ ^ DirectoryHistory ? #()
!
directoryMenuSpec
@@ -8063,5 +8063,5 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.498 2002-09-19 09:05:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.499 2002-09-19 09:12:10 cg Exp $'
! !
--- a/NewLauncher.st Thu Sep 19 11:05:29 2002 +0200
+++ b/NewLauncher.st Thu Sep 19 11:12:10 2002 +0200
@@ -3490,6 +3490,9 @@
SystemBrowser checkClassHistory.
classHistory := SystemBrowser classHistory.
+ classHistory isEmpty ifTrue:[
+ ^ nil
+ ].
menu := Menu new receiver: self.
menu addItemGroup:
@@ -3500,14 +3503,13 @@
activeHelpKey: #classesSystemBrowserOnClass
]
).
- classHistory notEmpty ifTrue:[
- menu addItem: (MenuItem new
- label: 'Clear History';
- value: [classHistory removeAll];
- translateLabel: true;
- enabled:(classHistory notEmpty);
- activeHelpKey: #historyEmptyMenu).
- ].
+ menu addItem: (MenuItem new
+ label: 'Clear History';
+ value: [classHistory removeAll];
+ translateLabel: true;
+ enabled:(classHistory notEmpty);
+ activeHelpKey: #historyEmptyMenu).
+
menu findGuiResourcesIn:self.
^menu
@@ -3520,6 +3522,7 @@
|menu dirHistory|
dirHistory := FileBrowser directoryHistory.
+ dirHistory isEmpty ifTrue:[^nil].
menu := Menu new receiver: self.
menu addItemGroup:
@@ -3530,14 +3533,13 @@
activeHelpKey: #FileBrowserOnDirectory
]
).
- dirHistory notEmpty ifTrue:[
- menu addItem: (MenuItem new
- label: 'Clear History';
- value: [dirHistory removeAll];
- translateLabel: true;
- enabled:(dirHistory notEmpty);
- activeHelpKey: #historyEmptyMenu).
- ].
+ menu addItem: (MenuItem new
+ label: 'Clear History';
+ value: [dirHistory removeAll];
+ translateLabel: true;
+ enabled:(dirHistory notEmpty);
+ activeHelpKey: #historyEmptyMenu).
+
menu findGuiResourcesIn:self.
^menu
! !
@@ -4028,5 +4030,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.260 2002-09-19 08:39:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.261 2002-09-19 09:11:48 cg Exp $'
! !