<div dir="ltr"><div>Can you add the menu also to ease copy pasting with mouse in text field ?</div><div> </div><div>Karl</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Fri, May 8, 2015 at 11:01 AM, <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Marcel Taeumel uploaded a new version of Tools to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Tools-mt.622.mcz" target="_blank">http://source.squeak.org/trunk/Tools-mt.622.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Tools-mt.622<br>
Author: mt<br>
Time: 8 May 2015, 11:01:04.067 am<br>
UUID: d6bbe089-6caa-bb48-8823-ac746a9fc3f1<br>
Ancestors: Tools-mt.621<br>
<br>
Fixed regression in Message Names tool. Support multi-line search pattern input again.<br>
<br>
=============== Diff against Tools-mt.621 ===============<br>
<br>
Item was changed:<br>
----- Method: MessageNames>>buildSearchPaneWith: (in category 'toolbuilder') -----<br>
buildSearchPaneWith: builder<br>
<br>
| panelSpec textSpec buttonSpec |<br>
panelSpec := builder pluggablePanelSpec new<br>
layout: #horizontal;<br>
children: OrderedCollection new;<br>
yourself.<br>
<br>
+ textSpec := builder pluggableTextSpec new.<br>
- textSpec := builder pluggableInputFieldSpec new.<br>
textSpec<br>
model: searchString;<br>
help: 'Type here, then hit Search.' translated;<br>
getText: #contents;<br>
setText: #contents:.<br>
panelSpec children add: textSpec.<br>
<br>
buttonSpec := builder pluggableActionButtonSpec new.<br>
buttonSpec<br>
model: self;<br>
label: 'Search';<br>
action: #doSearch;<br>
horizontalResizing: #shrinkWrap.<br>
panelSpec children add: buttonSpec.<br>
<br>
^ panelSpec!<br>
<br>
Item was changed:<br>
----- Method: MessageNames>>buildWith: (in category 'toolbuilder') -----<br>
buildWith: builder<br>
"ToolBuilder open: MessageNames new"<br>
<br>
| windowSpec max searchHeight |<br>
max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5].<br>
searchHeight := Preferences standardDefaultTextFont height * 2.<br>
<br>
windowSpec := self buildWindowWith: builder specs: {<br>
+ (0@0 corner: 0.5@0.1) -> [self buildSearchPaneWith: builder].<br>
+ (0@0.1 corner: 0.5 @ max) -> [self buildSelectorListWith: builder].<br>
- (self topConstantHeightFrame: searchHeight fromLeft: 0 width: 0.5) -> [self buildSearchPaneWith: builder].<br>
- (self frameOffsetFromTop: searchHeight fromLeft: 0 width: 0.5 bottomFraction: max) -> [self buildSelectorListWith: builder].<br>
(0.5@0.0 corner: 1.0@max) -> [self buildMessageListWith: builder].<br>
(0@max corner: 1@1) -> [self buildCodePaneWith: builder].<br>
}.<br>
<br>
^ builder build: windowSpec!<br>
<br>
<br>
</blockquote></div><br></div>