[squeak-dev] The Trunk: Tools-mt.622.mcz
karl ramberg
karlramberg at gmail.com
Fri May 8 09:27:10 UTC 2015
Can you add the menu also to ease copy pasting with mouse in text field ?
Karl
On Fri, May 8, 2015 at 11:01 AM, <commits at source.squeak.org> wrote:
> Marcel Taeumel uploaded a new version of Tools to project The Trunk:
> http://source.squeak.org/trunk/Tools-mt.622.mcz
>
> ==================== Summary ====================
>
> Name: Tools-mt.622
> Author: mt
> Time: 8 May 2015, 11:01:04.067 am
> UUID: d6bbe089-6caa-bb48-8823-ac746a9fc3f1
> Ancestors: Tools-mt.621
>
> Fixed regression in Message Names tool. Support multi-line search pattern
> input again.
>
> =============== Diff against Tools-mt.621 ===============
>
> Item was changed:
> ----- Method: MessageNames>>buildSearchPaneWith: (in category
> 'toolbuilder') -----
> buildSearchPaneWith: builder
>
> | panelSpec textSpec buttonSpec |
> panelSpec := builder pluggablePanelSpec new
> layout: #horizontal;
> children: OrderedCollection new;
> yourself.
>
> + textSpec := builder pluggableTextSpec new.
> - textSpec := builder pluggableInputFieldSpec new.
> textSpec
> model: searchString;
> help: 'Type here, then hit Search.' translated;
> getText: #contents;
> setText: #contents:.
> panelSpec children add: textSpec.
>
> buttonSpec := builder pluggableActionButtonSpec new.
> buttonSpec
> model: self;
> label: 'Search';
> action: #doSearch;
> horizontalResizing: #shrinkWrap.
> panelSpec children add: buttonSpec.
>
> ^ panelSpec!
>
> Item was changed:
> ----- Method: MessageNames>>buildWith: (in category 'toolbuilder') -----
> buildWith: builder
> "ToolBuilder open: MessageNames new"
>
> | windowSpec max searchHeight |
> max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5].
> searchHeight := Preferences standardDefaultTextFont height * 2.
>
> windowSpec := self buildWindowWith: builder specs: {
> + (0 at 0 corner: 0.5 at 0.1) -> [self buildSearchPaneWith:
> builder].
> + (0 at 0.1 corner: 0.5 @ max) -> [self buildSelectorListWith:
> builder].
> - (self topConstantHeightFrame: searchHeight fromLeft: 0
> width: 0.5) -> [self buildSearchPaneWith: builder].
> - (self frameOffsetFromTop: searchHeight fromLeft: 0 width:
> 0.5 bottomFraction: max) -> [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].
> }.
>
> ^ builder build: windowSpec!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20150508/52956082/attachment.htm
More information about the Squeak-dev
mailing list
|