Karl Ramberg uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-kfr.666.mcz==================== Summary ====================
Name: Tools-kfr.666
Author: kfr
Time: 21 January 2016, 4:01:20.739426 pm
UUID: f0ce7bca-019a-43f3-9cfb-171cc8e4c9a0
Ancestors: Tools-kfr.664, Tools-mt.665
Fix for full menu
=============== Diff against Tools-mt.665 ===============
Item was changed:
----- Method: FileList>>fullFileListMenu:shifted: (in category 'file list menu') -----
fullFileListMenu: aMenu shifted: aBoolean
"Fill the menu with all possible items for the file list pane, regardless of selection."
| lastProvider |
aMenu title: 'all possible file operations' translated.
aMenu addStayUpItemSpecial.
lastProvider := nil.
+ (self itemsForFile: self fullName) do: [ :svc |
- (self itemsForFile: 'a.*') do: [ :svc |
(lastProvider notNil and: [svc provider ~~ lastProvider])
ifTrue: [ aMenu addLine ].
svc addServiceFor: self toMenu: aMenu.
Smalltalk isMorphic ifTrue: [aMenu submorphs last setBalloonText: svc description].
lastProvider := svc provider.
svc addDependent: self.
].
^aMenu!
Locked
