[squeak-dev] The Trunk: ToolBuilder-Morphic-mt.124.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Apr 12 16:30:31 UTC 2015


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

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

Name: ToolBuilder-Morphic-mt.124
Author: mt
Time: 12 April 2015, 6:30:24.599 pm
UUID: dac1df35-d6de-5c4b-8cba-3d9c185f3cc4
Ancestors: ToolBuilder-Morphic-mt.123

Morphic tool builder messages re-organized.

=============== Diff against ToolBuilder-Morphic-mt.123 ===============

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildHelpFor:spec: (in category 'private') -----
- ----- Method: MorphicToolBuilder>>buildHelpFor:spec: (in category 'pluggable widgets') -----
  buildHelpFor: widget spec: aSpec
  	aSpec help ifNotNil: [:stringOrSymbol |
  		stringOrSymbol isSymbol
  			ifTrue: [widget balloonTextSelector: stringOrSymbol]
  			ifFalse: [widget balloonText: stringOrSymbol]].!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableActionButton: (in category 'widgets optional') -----
- ----- Method: MorphicToolBuilder>>buildPluggableActionButton: (in category 'pluggable widgets') -----
  buildPluggableActionButton: aSpec
  	| button |
  	button := self buildPluggableButton: aSpec.
  	button color: Color white.
  	^button!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableAlternateMultiSelectionList: (in category 'widgets optional') -----
- ----- Method: MorphicToolBuilder>>buildPluggableAlternateMultiSelectionList: (in category 'pluggable widgets') -----
  buildPluggableAlternateMultiSelectionList: aSpec
  	| listMorph listClass |
  	aSpec getSelected ifNotNil: [ ^ self error: 'There is no PluggableAlternateListMorphOfManyByItem' ].
  	listClass := self alternateMultiSelectListClass.
  	listMorph := listClass 
  		on: aSpec model
  		list: aSpec list
  		primarySelection: aSpec getIndex
  		changePrimarySelection: aSpec setIndex
  		listSelection: aSpec getSelectionList
  		changeListSelection: aSpec setSelectionList
  		menu: aSpec menu.
  	listMorph
  		setProperty: #highlightSelector toValue: #highlightMessageList:with: ;
  		setProperty: #itemConversionMethod toValue: #asStringOrText ;
  		setProperty: #balloonTextSelectorForSubMorphs toValue: #balloonTextForClassAndMethodString ;
  		enableDragNDrop: SystemBrowser browseWithDragNDrop ;
  		menuTitleSelector: #messageListSelectorTitle.
  	self 
  		register: listMorph
  		id: aSpec name.
  	listMorph
  		keystrokeActionSelector: aSpec keyPress ;
  		getListElementSelector: aSpec listItem ;
  		getListSizeSelector: aSpec listSize.
  	self 
  		buildHelpFor: listMorph 
  		spec: aSpec. 
  	self 
  		setFrame: aSpec frame 
  		in: listMorph.
  	parent ifNotNil: [ self add: listMorph to: parent ].
  	panes ifNotNil: [ aSpec list ifNotNil:[panes add: aSpec list ] ].
  	^ listMorph!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableButton: (in category 'widgets required') -----
- ----- Method: MorphicToolBuilder>>buildPluggableButton: (in category 'pluggable widgets') -----
  buildPluggableButton: aSpec
  	| widget label state action enabled |
  	label := aSpec label.
  	state := aSpec state.
  	action := aSpec action.
  	widget := self buttonClass on: aSpec model
  				getState: (state isSymbol ifTrue:[state])
  				action: nil
  				label: (label isSymbol ifTrue:[label]).
  	widget style: aSpec style.
  	aSpec changeLabelWhen
  		ifNotNilDo: [ :event | widget whenChanged: event update: aSpec label].
  	self register: widget id: aSpec name.
  	enabled := aSpec enabled.
  	enabled isSymbol
  		ifTrue:[widget getEnabledSelector: enabled]
  		ifFalse:[widget enabled:enabled].
  	widget action: action.
  	widget getColorSelector: aSpec color.
  	widget offColor: Color white..
  	self buildHelpFor: widget spec: aSpec. 
  	(label isSymbol or:[label == nil]) ifFalse:[widget label: label].
  	self setFrame: aSpec frame in: widget.
  	parent ifNotNil:[self add: widget to: parent].
  	^widget!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableCheckBox: (in category 'widgets optional') -----
- ----- Method: MorphicToolBuilder>>buildPluggableCheckBox: (in category 'pluggable widgets') -----
  buildPluggableCheckBox: spec
  
  	| widget label state action |
  	label := spec label.
  	state := spec state.
  	action := spec action.
  	widget := self checkBoxClass on: spec model
  				getState: (state isSymbol ifTrue:[state])
  				action: (action isSymbol ifTrue:[action])
  				label: (label isSymbol ifTrue:[label]).
  	self register: widget id: spec name.
  
  	widget installButton.
  "	widget getColorSelector: spec color.
  	widget offColor: Color white..
  	self buildHelpFor: widget spec: spec. 
  	(label isSymbol or:[label == nil]) ifFalse:[widget label: label].
  "	self setFrame: spec frame in: widget.
  	parent ifNotNil:[self add: widget to: parent].
  	^widget!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableCodePane: (in category 'widgets optional') -----
- ----- Method: MorphicToolBuilder>>buildPluggableCodePane: (in category 'pluggable widgets') -----
  buildPluggableCodePane: aSpec
  	"Install the default styler for code panes.
  	Implementation note: We should just be doing something like, e.g.,
  		^(self buildPluggableText: aSpec) useDefaultStyler
  	Unfortunately, this will retrieve and layout the initial text twice which
  	can make for a noticable performance difference when looking at some
  	larger piece of code. So instead we copy the implementation from 
  	buildPlugggableText: here and insert #useDefaultStyler at the right point"
  	| widget |
  	widget := self codePaneClass new.
  	widget useDefaultStyler.
  	widget on: aSpec model
  				text: aSpec getText 
  				accept: aSpec setText
  				readSelection: aSpec selection 
  				menu: aSpec menu.
  	widget font: Preferences standardCodeFont.
  	self register: widget id: aSpec name.
  	widget getColorSelector: aSpec color.
  	self setFrame: aSpec frame in: widget.
  	parent ifNotNil:[self add: widget to: parent].
  	widget borderColor: Color lightGray.
  	widget color: Color white.
  	^widget!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableDropDownList: (in category 'widgets optional') -----
- ----- Method: MorphicToolBuilder>>buildPluggableDropDownList: (in category 'pluggable widgets') -----
  buildPluggableDropDownList: spec
  
  	| widget model listSelector selectionSelector selectionSetter |
  	model := spec model.
  	listSelector := spec listSelector.
  	selectionSelector := spec selectionSelector.
  	selectionSetter := spec selectionSetter.
  	widget := self dropDownListClass new
  		model: model;
  		listSelector: listSelector;
  		selectionSelector: selectionSelector;
  		selectionSetter: selectionSetter;
  		yourself.
  	self register: widget id: spec name.
  
  	widget installDropDownList.
  	self setFrame: spec frame in: widget.
  	parent ifNotNil:[self add: widget to: parent].
  	^widget!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableInputField: (in category 'widgets optional') -----
- ----- Method: MorphicToolBuilder>>buildPluggableInputField: (in category 'pluggable widgets') -----
  buildPluggableInputField: aSpec
  	| widget |
  	widget := self buildPluggableText: aSpec.
  	widget acceptOnCR: true.
  	widget hideScrollBarsIndefinitely.
  	widget wantsFrameAdornments: false.
  	widget textMorph
  		autoFit: false;
  		wrapFlag: true;
  		width: 999999.
  	^widget!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableList: (in category 'widgets required') -----
- ----- 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 getHelpSelector: aSpec help.
  	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].
  	self setFrame: aSpec frame in: widget.
  	parent ifNotNil:[self add: widget to: parent].
  	panes ifNotNil:[
  		aSpec list ifNotNil:[panes add: aSpec list].
  	].
  	^widget!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableMultiSelectionList: (in category 'widgets optional') -----
- ----- Method: MorphicToolBuilder>>buildPluggableMultiSelectionList: (in category 'pluggable widgets') -----
  buildPluggableMultiSelectionList: aSpec
  	| widget listClass |
  	aSpec getSelected ifNotNil:[^self error:'There is no PluggableListMorphOfManyByItem'].
  	listClass := self multiSelectListClass.
  	widget := listClass on: aSpec model
  		list: aSpec list
  		primarySelection: aSpec getIndex
  		changePrimarySelection: aSpec setIndex
  		listSelection: aSpec getSelectionList
  		changeListSelection: aSpec setSelectionList
  		menu: aSpec menu.
  	self register: widget id: aSpec name.
  	widget keystrokeActionSelector: aSpec keyPress.
  	widget getListElementSelector: aSpec listItem.
  	widget getListSizeSelector: aSpec listSize.
  	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!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggablePanel: (in category 'widgets required') -----
- ----- Method: MorphicToolBuilder>>buildPluggablePanel: (in category 'pluggable widgets') -----
  buildPluggablePanel: aSpec
  	| widget children frame |
  	widget := self panelClass new.
  	self register: widget id: aSpec name.
  	widget model: aSpec model.
  	widget color: Color transparent.
  	widget clipSubmorphs: true.
  	children := aSpec children.
  	children isSymbol ifTrue:[
  		widget getChildrenSelector: children.
  		widget update: children.
  		children := #().
  	].
  	self buildAll: children in: widget.
  	self buildHelpFor: widget spec: aSpec. 
  	self setFrame: aSpec frame in: widget.
  	parent ifNotNil:[self add: widget to: parent].
  	self setLayout: aSpec layout in: widget.
  	widget layoutInset: 0.
  	widget borderWidth: 0.
  	widget submorphsDo:[:sm|
  		(frame := sm layoutFrame) ifNotNil:[
  			(frame rightFraction = 0 or:[frame rightFraction = 1]) 
  				ifFalse:[frame rightOffset:1].
  			(frame bottomFraction = 0 or:[frame bottomFraction = 1]) 
  				ifFalse:[frame bottomOffset: 1]]].
  	widget color: Color transparent.
  	^widget!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableText: (in category 'widgets required') -----
- ----- Method: MorphicToolBuilder>>buildPluggableText: (in category 'pluggable widgets') -----
  buildPluggableText: aSpec
  	| widget |
  	widget := self textPaneClass on: aSpec model
  				text: aSpec getText 
  				accept: aSpec setText
  				readSelection: aSpec selection 
  				menu: aSpec menu.
  	widget editTextSelector: aSpec editText.
  	widget askBeforeDiscardingEdits: aSpec askBeforeDiscardingEdits.
  	widget font: Preferences standardCodeFont.
  	self register: widget id: aSpec name.
  	widget getColorSelector: aSpec color.
  	self buildHelpFor: widget spec: aSpec. 
  	self setFrame: aSpec frame in: widget.
  	parent ifNotNil:[self add: widget to: parent].
  	widget borderColor: Color lightGray.
  	widget color: Color white.
  	^widget!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableTree: (in category 'widgets required') -----
- ----- Method: MorphicToolBuilder>>buildPluggableTree: (in category 'pluggable widgets') -----
  buildPluggableTree: aSpec
  	| widget |
  	widget := self treeClass new.
  	self register: widget id: aSpec name.
  	widget model: aSpec model.
  	widget getSelectedPathSelector: aSpec getSelectedPath.
  	widget setSelectedSelector: aSpec setSelected.
  	widget getSelectedSelector: aSpec getSelected.
  	widget setSelectedParentSelector: aSpec setSelectedParent.
  	widget getChildrenSelector: aSpec getChildren.
  	widget hasChildrenSelector: aSpec hasChildren.
  	widget getLabelSelector: aSpec label.
  	widget getIconSelector: aSpec icon.
  	widget getHelpSelector: aSpec help.
  	widget getMenuSelector: aSpec menu.
  	widget keystrokeActionSelector: aSpec keyPress.
  	widget nodeClass: aSpec nodeClass.
  	widget getRootsSelector: aSpec roots.
  	widget autoDeselect: aSpec autoDeselect.
  	widget dropItemSelector: aSpec dropItem.
  	widget wantsDropSelector: aSpec dropAccept.
  	widget dragItemSelector: aSpec dragItem.
  	widget columns: aSpec columns.
  	self setFrame: aSpec frame in: widget.
  	parent ifNotNil:[self add: widget to: parent].
  "	panes ifNotNil:[
  		aSpec roots ifNotNil:[panes add: aSpec roots].
  	].	"
  	^widget!

Item was changed:
+ ----- Method: MorphicToolBuilder>>buildPluggableWindow: (in category 'widgets required') -----
- ----- Method: MorphicToolBuilder>>buildPluggableWindow: (in category 'pluggable widgets') -----
  buildPluggableWindow: aSpec
  	| widget children |
  	aSpec layout == #proportional ifFalse:[
  		"This needs to be implemented - probably by adding a single pane and then the rest"
  		^self error: 'Not implemented'.
  	].
  	widget := (self windowClassFor: aSpec) new.
  	self register: widget id: aSpec name.
  	widget model: aSpec model.
  	aSpec label ifNotNil:
  		[:label|
  		label isSymbol 
  			ifTrue:[widget getLabelSelector: label]
  			ifFalse:[widget setLabel: label]].
  	aSpec multiWindowStyle notNil ifTrue:
  		[widget savedMultiWindowState: (SavedMultiWindowState on: aSpec model)].
  	children := aSpec children.
  	children isSymbol ifTrue:[
  		widget getChildrenSelector: children.
  		widget update: children.
  		children := #().
  	].
  	widget closeWindowSelector: aSpec closeAction.
  	panes := OrderedCollection new.
  	self buildAll: children in: widget.
  	self buildHelpFor: widget spec: aSpec. 
  	widget bounds: (RealEstateAgent 
  		initialFrameFor: widget 
  		initialExtent: (aSpec extent ifNil:[widget initialExtent])
  		world: self currentWorld).
  	widget setUpdatablePanesFrom: panes.
  	^widget!



More information about the Squeak-dev mailing list