[Pkg] The Trunk: Tools-eem.400.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Apr 8 20:20:01 UTC 2012


Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.400.mcz

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

Name: Tools-eem.400
Author: eem
Time: 8 April 2012, 1:19:08.542 pm
UUID: c0006658-d445-4fe9-bce3-b816315bc087
Ancestors: Tools-nice.399

Make MessageNames pattern text enlargeable (needed now
MessageNames can take many semi-colon separated patterns)

=============== Diff against Tools-nice.399 ===============

Item was changed:
  ----- Method: MessageNames>>buildSearchPaneWith: (in category 'toolbuilder') -----
  buildSearchPaneWith: builder
+ 	| textSpec |
- 	| buttonFrame buttonSpec textFrame textSpec top |
- 	top := builder pluggablePanelSpec new.
- 	top children: OrderedCollection new.
- 	
- 	buttonFrame := LayoutFrame new
- 		leftFraction: 0 offset: 0;
- 		topFraction: 0 offset: 0;
- 		rightFraction: 0.3 offset: 0;
- 		bottomFraction: 1 offset: 0;
- 		yourself.
- 	textFrame := LayoutFrame new
- 		leftFraction: 0.3 offset: 1;
- 		topFraction: 0 offset: 0;
- 		rightFraction: 1 offset: 0;
- 		bottomFraction: 1 offset: 0;
- 		yourself.
- 
- 	buttonSpec := builder pluggableActionButtonSpec new.
- 	buttonSpec 
- 		model: self;
- 		label: 'Search';
- 		action: [self doSearchFrom: searchPane];
- 		frame: buttonFrame.
- 	top children add: buttonSpec.
- 	
  	textSpec := builder pluggableInputFieldSpec new.
  	textSpec 
  		model: self;
  		name: #search;
  		getText: #searchString; 
+ 		setText: #searchString:notifying:.
+ 	^textSpec!
- 		setText: #searchString:notifying:;
- 		frame: textFrame.
- 	top children add: textSpec.
- 
- 	^top!

Item was changed:
  ----- Method: MessageNames>>buildWith: (in category 'toolbuilder') -----
  buildWith: builder
  	"ToolBuilder open: MessageNames new"
+ 	| windowSpec max buttonSpec result |
- 	| searchPaneHeight windowSpec max result |
- 	searchPaneHeight := self buttonHeight.
  	max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5].
  	windowSpec := self buildWindowWith: builder specs: {
+ 		(0.15 at 0 corner: 0.5 at 0.08) -> [self buildSearchPaneWith: builder].
+ 		(0 at 0.08 corner: 0.5 at max) -> [self buildSelectorListWith: builder].
- 		(self topConstantHeightFrame: searchPaneHeight fromLeft: 0 width: 0.5) -> [self buildSearchPaneWith: builder].
- 		(self selectorListFrame: max fromTop: searchPaneHeight) -> [self buildSelectorListWith: builder].
  		(0.5 at 0.0 corner: 1.0 at max) -> [self buildMessageListWith: builder].
  		(0 at max corner: 1 at 1) -> [self buildCodePaneWith: builder].
  	}.
  
+ 	buttonSpec := builder pluggableActionButtonSpec new.
+ 	buttonSpec 
+ 		model: self;
+ 		label: 'Search';
+ 		action: [self doSearchFrom: searchPane];
+ 		frame: (0.0 at 0 corner: 0.15 at 0.08).
+ 	windowSpec children add: buttonSpec.
+ 
  	result := builder build: windowSpec.
  	searchPane := builder widgetAt: #search.
  	^result!



More information about the Packages mailing list