[squeak-dev] The Trunk: Tools-kfr.666.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jan 21 15:01:49 UTC 2016


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!



More information about the Squeak-dev mailing list