[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