The Trunk: Tools-mt.712.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Tools-mt.712.mcz

commits-2
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!