[squeak-dev] The Trunk: Tools-mt.712.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Aug 8 07:56:19 UTC 2016


Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.712.mcz

==================== Summary ====================

Name: Tools-mt.712
Author: mt
Time: 8 August 2016, 9:56:02.220588 am
UUID: b3295a2d-f130-8a44-a2a1-3f330ca50cf9
Ancestors: Tools-mt.711

Fixes an issue with file list tool and UI themes.

=============== Diff against Tools-mt.711 ===============

Item was changed:
  ----- Method: FileList>>buildFileListWith: (in category 'toolbuilder') -----
  buildFileListWith: builder 
  	| buttons listSpec top |
  	top := builder pluggablePanelSpec new.
  	top children: OrderedCollection new.
  	buttons := self buildButtonPaneWith: builder.
  	buttons frame:
  		(self
  			topConstantHeightFrame: self buttonHeight
  			fromLeft: 0
  			width: 1).
  	top children add: buttons.
  	listSpec := builder pluggableListSpec new.
  	listSpec
  		 model: self ;
  		 list: #fileList ;
  		 getIndex: #fileListIndex ;
  		 setIndex: #fileListIndex: ;
  		 menu: #fileListMenu: ;
  		 keyPress: nil ;
  		 frame:
  		(self
  			frameOffsetFromTop: self buttonHeight * 1.1
  			fromLeft: 0
  			width: 1
+ 			bottomFraction: 1) .
- 			bottomFraction: 1) ;
- 		 color: Color white.
  	SystemBrowser browseWithDragNDrop ifTrue: [ listSpec dragItem: #dragFromFileList: ].
  	top children add: listSpec.
  	^ top!



More information about the Squeak-dev mailing list