[squeak-dev] The Inbox: ToolBuilder-Morphic-cwp.87.mcz

commits at source.squeak.org commits at source.squeak.org
Wed May 22 21:36:12 UTC 2013


A new version of ToolBuilder-Morphic was added to project The Inbox:
http://source.squeak.org/inbox/ToolBuilder-Morphic-cwp.87.mcz

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

Name: ToolBuilder-Morphic-cwp.87
Author: cwp
Time: 24 October 2012, 4:04:09.791 pm
UUID: 41d57ed4-1d8c-40df-8b66-13218e0b3c3c
Ancestors: ToolBuilder-Morphic-bf.86

Fixed a cosmetic issue: PluggableListMorphs created by ToolBuilder should have unobtrusive borders even if they aren't embedded directly in a system window.

=============== Diff against ToolBuilder-Morphic-bf.86 ===============

Item was changed:
  ----- Method: MorphicToolBuilder>>buildPluggableList: (in category 'pluggable widgets') -----
  buildPluggableList: aSpec
  	| widget listClass getIndex setIndex |
  	aSpec getSelected ifNil:[
  		listClass := self listClass.
  		getIndex := aSpec getIndex.
  		setIndex := aSpec setIndex.
  	] ifNotNil:[
  		listClass := self listByItemClass.
  		getIndex := aSpec getSelected.
  		setIndex := aSpec setSelected.
  	].
  	widget := listClass on: aSpec model
  				list: aSpec list
  				selected: getIndex
  				changeSelected: setIndex
  				menu: aSpec menu
  				keystroke: aSpec keyPress.
  	self register: widget id: aSpec name.
  	widget getListElementSelector: aSpec listItem.
  	widget getListSizeSelector: aSpec listSize.
  	widget getIconSelector: aSpec icon.
  	widget doubleClickSelector: aSpec doubleClick.
  	widget dragItemSelector: aSpec dragItem.
  	widget dropItemSelector: aSpec dropItem.
  	widget wantsDropSelector: aSpec dropAccept.
  	widget autoDeselect: aSpec autoDeselect.
  	widget keystrokePreviewSelector: aSpec keystrokePreview.
+ 	aSpec color isNil 
+ 		ifTrue: [widget 
+ 					borderWidth: 1; 
+ 					borderColor: Color lightGray; 
+ 					color: Color white]
+ 		ifFalse: [widget color: aSpec color].
- 	aSpec color isNil ifFalse: [widget color: aSpec color].
  	self buildHelpFor: widget spec: aSpec. 
  	self setFrame: aSpec frame in: widget.
  	parent ifNotNil:[self add: widget to: parent].
  	panes ifNotNil:[
  		aSpec list ifNotNil:[panes add: aSpec list].
  	].
  	^widget!



More information about the Squeak-dev mailing list