hg/stx-libtool2: comparison MethodFinderWindow.st

equal deleted inserted replaced

-:4edb3ebfe446
+:2902c1233b4e
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: windowSpec
 window:
 (WindowSpec
 label: 'MethodFinder'
 name: 'MethodFinder'
-bounds: (Rectangle 0 0 798 595)
+bounds: (Rectangle 0 0 920 690)
 menu: menu
 icon: defaultIcon
 )
 component:
 (SpecCollection
 collection: (
 (VariableHorizontalPanelSpec
 name: 'VariableHorizontalPanel1'
 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
 snapMode: both
 component:
 (SpecCollection
 collection: (
 (ViewSpec
 name: 'LeftBox'
 level: 1
 component:
 (SpecCollection
 collection: (
 (ViewSpec
 name: 'ReceiverArgBox'
 layout: (LayoutFrame 0 0 0 0 0 1 -100 0.5)
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 label: 'Receiver'
 name: 'ReceiverLabel'
-layout: (LayoutFrame 0 0 0 0 0 0.34 24 0)
+layout: (LayoutFrame 0 0 0 0 0 0.34000000000000002 28 0)
 translateLabel: true
 )
 (ComboListSpec
 name: 'allowedArgments'
-layout: (LayoutFrame 0 0.34 1 0 0 0.64 23 0)
+layout: (LayoutFrame 0 0.34000000000000002 1 0 0 0.64000000000000012 28 0)
 model: argCountHolder
 comboList: argCountList
 useIndex: true
 )
 (LabelSpec
 label: 'Answer'
 name: 'MessageAnswerLabel'
-layout: (LayoutFrame 0 0.64 0 0 0 1 24 0)
+layout: (LayoutFrame 0 0.64000000000000012 0 0 0 1 28 0)
 translateLabel: true
 )
 (HorizontalPanelViewSpec
 name: 'HorizontalPanel1'
-layout: (LayoutFrame 0 0 25 0 0 1 0 1)
+layout: (LayoutFrame 0 0 30 0 0 1 0 1)
 horizontalLayout: fit
 verticalLayout: fit
 horizontalSpace: 3
 verticalSpace: 3
 component:
 (SpecCollection
 collection: (
 (WorkspaceSpec
 name: 'ReceiverEditor'
 tabable: true
 hasHorizontalScrollBar: true
 hasVerticalScrollBar: true
 miniScrollerHorizontal: true
 miniScrollerVertical: true
 autoHideScrollBars: true
 hasKeyboardFocusInitially: false
-extent: (Point 113 172)
+extent: (Point 110 214)
 postBuildCallback: receiverWidgetCreated:
 )
 (VerticalPanelViewSpec
 name: 'VerticalPanel1'
 horizontalLayout: fit
 verticalLayout: fit
 horizontalSpace: 3
 verticalSpace: 3
 component:
 (SpecCollection
 collection: (
 (ViewSpec
 name: 'Box1'
 visibilityChannel: arg1BoxVisible
 component:
 (SpecCollection
 collection: (
 (WorkspaceSpec
 name: 'Arg1Editor'
 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
 tabable: true
 hasHorizontalScrollBar: true
 hasVerticalScrollBar: true
 miniScrollerHorizontal: true
 miniScrollerVertical: true
 autoHideScrollBars: true
 hasKeyboardFocusInitially: false
 postBuildCallback: argument1WidgetCreated:
-)
 )
+)
-)
-extent: (Point 114 55)
+)
-)
+extent: (Point 110 69)
-(ViewSpec
+)
-name: 'Box2'
+(ViewSpec
-visibilityChannel: arg2BoxVisible
+name: 'Box2'
-component:
+visibilityChannel: arg2BoxVisible
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(WorkspaceSpec
+collection: (
-name: 'TextEditor5'
+(WorkspaceSpec
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+name: 'TextEditor5'
-tabable: true
+layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-hasHorizontalScrollBar: true
+tabable: true
-hasVerticalScrollBar: true
+hasHorizontalScrollBar: true
-miniScrollerHorizontal: true
+hasVerticalScrollBar: true
-miniScrollerVertical: true
+miniScrollerHorizontal: true
-autoHideScrollBars: true
+miniScrollerVertical: true
-hasKeyboardFocusInitially: false
+autoHideScrollBars: true
-postBuildCallback: argument2WidgetCreated:
+hasKeyboardFocusInitially: false
-)
+postBuildCallback: argument2WidgetCreated:
 )
+)
-)
-extent: (Point 114 56)
+)
-)
+extent: (Point 110 70)
-(ViewSpec
+)
-name: 'Box3'
+(ViewSpec
-visibilityChannel: arg3BoxVisible
+name: 'Box3'
-component:
+visibilityChannel: arg3BoxVisible
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(WorkspaceSpec
+collection: (
-name: 'TextEditor6'
+(WorkspaceSpec
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+name: 'TextEditor6'
-tabable: true
+layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-hasHorizontalScrollBar: true
+tabable: true
-hasVerticalScrollBar: true
+hasHorizontalScrollBar: true
-miniScrollerHorizontal: true
+hasVerticalScrollBar: true
-miniScrollerVertical: true
+miniScrollerHorizontal: true
-autoHideScrollBars: true
+miniScrollerVertical: true
-hasKeyboardFocusInitially: false
+autoHideScrollBars: true
-postBuildCallback: argument3WidgetCreated:
+hasKeyboardFocusInitially: false
-)
+postBuildCallback: argument3WidgetCreated:
 )
+)
-)
-extent: (Point 114 55)
+)
-)
+extent: (Point 110 69)
 )
+)
-)
-extent: (Point 114 172)
+)
-)
+extent: (Point 110 214)
-(WorkspaceSpec
-name: 'AnswerEditor'
-tabable: true
-hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
-miniScrollerHorizontal: true
-miniScrollerVertical: true
-autoHideScrollBars: true
-hasKeyboardFocusInitially: false
-extent: (Point 114 172)
-postBuildCallback: messageAnswerWidgetCreated:
-)
 )
+(WorkspaceSpec
-)
+name: 'AnswerEditor'
-)
+tabable: true
+hasHorizontalScrollBar: true
+hasVerticalScrollBar: true
+miniScrollerHorizontal: true
+miniScrollerVertical: true
+autoHideScrollBars: true
+hasKeyboardFocusInitially: false
+extent: (Point 110 214)
+postBuildCallback: messageAnswerWidgetCreated:
+)
+)
+)
 )
+)
-)
 )
-(ViewSpec
+)
-name: 'ReceiverArgBoxActionBox'
+(ViewSpec
-layout: (LayoutFrame 0 0 -98 0.5 0 1 -75 0.5)
+name: 'ReceiverArgBoxActionBox'
-component:
+layout: (LayoutFrame 0 0 -98 0.5 0 1 -75 0.5)
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(ActionButtonSpec
+collection: (
-label: 'Clear'
+(ActionButtonSpec
-name: 'Button2'
+label: 'Clear'
-layout: (LayoutFrame 5 0 0 0 -5 0.5 0 1)
+name: 'Button2'
-translateLabel: true
+layout: (LayoutFrame 5 0 0 0 -5 0.5 0 1)
-model: clear
+translateLabel: true
-)
+model: clear
-(ActionButtonSpec
-label: 'Search'
-name: 'Button1'
-layout: (LayoutFrame 5 0.5 0 0 -5 1 0 1)
-translateLabel: true
-tabable: true
-model: search
-)
 )
+(ActionButtonSpec
-)
+label: 'Search'
-)
+name: 'Button1'
-(ViewSpec
+layout: (LayoutFrame 5 0.5 0 0 -5 1 0 1)
-name: 'MatchActionBox'
+translateLabel: true
-layout: (LayoutFrame 0 0 -70 0.5 0 1 -20 0.5)
+tabable: true
-component:
+model: search
-(SpecCollection
-collection: (
-(LabelSpec
-label: 'Selector Pattern:'
-name: 'Label1'
-layout: (LayoutFrame 0 0 0 0 0 0.5 25 0)
-translateLabel: true
-adjust: left
-)
-(InputFieldSpec
-name: 'EntryField1'
-layout: (LayoutFrame 0 0 -25 1 0 0.5 -5 1)
-model: selectorPattern
-immediateAccept: true
-acceptOnReturn: true
-acceptOnTab: true
-acceptOnPointerLeave: true
-)
-(ActionButtonSpec
-label: 'Search'
-name: 'Button4'
-layout: (LayoutFrame 5 0.5 -25 1 -5 1 0 1)
-translateLabel: true
-tabable: true
-model: searchPatternMatchesInBackground
-)
 )
+)
-)
 )
-(SequenceViewSpec
-name: 'ResultList'
-layout: (LayoutFrame 0 0 -15 0.5 0 1 0 1)
-model: selectedImplementorsHolder
-menu: resultListMenu
-hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
-autoHideScrollBars: true
-valueChangeSelector: updateImplementorsOf:
-useIndex: true
-sequenceList: resultHolder
-)
 )
+(ViewSpec
-)
+name: 'MatchActionBox'
-)
+layout: (LayoutFrame 0 0 -70 0.5 0 1 -20 0.5)
-(VariableVerticalPanelSpec
+component:
-name: 'VariableVerticalPanel1'
+(SpecCollection
-component:
+collection: (
-(SpecCollection
+(LabelSpec
-collection: (
+label: 'Selector Pattern:'
-(SequenceViewSpec
+name: 'Label1'
-name: 'List2'
+layout: (LayoutFrame 0 0 0 0 0 0.5 25 0)
-model: selectedClassOfResultHolder
+translateLabel: true
-menu: implementorListMenu
+adjust: left
-hasHorizontalScrollBar: true
+)
-hasVerticalScrollBar: true
+(InputFieldSpec
-autoHideScrollBars: true
+name: 'EntryField1'
-doubleClickSelector: openBrowserOn:
+layout: (LayoutFrame 0 0 -25 1 0 0.5 0 1)
-valueChangeSelector: selectedClassOfResultHolderChanged
+model: selectorPattern
-useIndex: false
+immediateAccept: true
-sequenceList: classOfResultHolder
+acceptOnReturn: true
-)
+acceptOnTab: true
-(CodeViewSpec
+acceptOnPointerLeave: true
-name: 'CodeView'
+)
-model: codeHolder
+(ActionButtonSpec
-hasHorizontalScrollBar: true
+label: 'Search'
-hasVerticalScrollBar: true
+name: 'Button4'
-autoHideScrollBars: true
+layout: (LayoutFrame 5 0.5 -25 1 -5 1 0 1)
-hasKeyboardFocusInitially: false
+translateLabel: true
-postBuildCallback: sourceCodeWidgetCreated:
+tabable: true
-)
+model: searchPatternMatchesInBackground
+)
+)
+)
 )
+(SequenceViewSpec
-)
+name: 'ResultList'
-handles: (Any 0.5 1.0)
+layout: (LayoutFrame 0 0 -15 0.5 0 1 0 1)
-)
+model: selectedImplementorsHolder
+menu: resultListMenu
+hasHorizontalScrollBar: true
+hasVerticalScrollBar: true
+autoHideScrollBars: true
+valueChangeSelector: updateImplementorsOf:
+useIndex: true
+sequenceList: resultHolder
+)
+)
+)
 )
+(VariableVerticalPanelSpec
-)
+name: 'VariableVerticalPanel1'
-handles: (Any 0.443786982248521 1.0)
+component:
-)
+(SpecCollection
+collection: (
+(SequenceViewSpec
+name: 'List2'
+model: selectedClassOfResultHolder
+menu: implementorListMenu
+hasHorizontalScrollBar: true
+hasVerticalScrollBar: true
+autoHideScrollBars: true
+doubleClickSelector: openBrowserOn:
+valueChangeSelector: selectedClassOfResultHolderChanged
+useIndex: false
+sequenceList: classOfResultHolder
+)
+(CodeViewSpec
+name: 'CodeView'
+model: codeHolder
+hasHorizontalScrollBar: true
+hasVerticalScrollBar: true
+autoHideScrollBars: true
+hasKeyboardFocusInitially: false
+postBuildCallback: sourceCodeWidgetCreated:
+)
+)
+)
+handles: (Any 0.5 1.0)
+)
+)
+)
+handles: (Any 0.37391304347826088 1.0)
 )
+)
-)
 )
+)
-"Modified: / 21-09-2012 / 11:09:44 / cg"
 ! !
 !MethodFinderWindow class methodsFor:'menu specs'!
 implementorListMenu
 )
 "Created: / 21-09-2012 / 11:05:15 / cg"
 ! !
+!MethodFinderWindow class methodsFor:'startup'!
+openOnSelectorPattern:selector
+|app|
+app := self new.
+app allButOpen.
+app selectorPattern value:selector.
+app openWindow.
+^ app
+"
+self openOnSelectorPattern:'asLowercase'
+"
+! !
 !MethodFinderWindow methodsFor:'accessing'!
 receiver
 "Return a copy of the value of the instance variable 'receiver' "
 |holder|
 (holder := builder bindingAt:#resultHolder) isNil ifTrue:[
 holder := ValueHolder new.
 builder aspectAt:#resultHolder put:holder.
-holder value:self resultInfoText.
+holder value:(self resultInfoText collect:[:l | l withColor:Color darkGrey]).
 ].
 ^ holder.
 "Modified: / 01-06-2012 / 13:06:02 / cg"
 !
 ^  {
 'Please enter combination of' .
 '    ',('receiver, arg and result' allBold) .
 'or a'.
 '    ',('selector search pattern' allBold) .
-'into the above fields, then click on either ',('"search"' allBold),'-button.'
+'into the above fields.' .
+'Then click on either ',('"search"' allBold),'-button.'
 }
 !
 selectedClassOfResultHolder
 "valueHolder which contains the index of the selected result class (right list)"

changeset 3289	2902c1233b4e
parent 3215	4c69b031fb70
child 3290	19e31edb0dd6