MethodFinderWindow.st
author Claus Gittinger <cg@exept.de>
Wed, 02 Oct 2019 02:27:49 +0200
changeset 3778 60e5b5a4ba0e
parent 3777 bc17ad12cef0
child 3816 70c345c11145
permissions -rw-r--r--
#UI_ENHANCEMENT by exept class: MethodFinderWindow class changed: #helpMenu
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3770
3f324e812f60 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3769
diff changeset
     1
"{ Encoding: utf8 }"
3f324e812f60 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3769
diff changeset
     2
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
     3
"
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
     4
 Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
     5
 Copyright (C) 2001 eXept Software AG
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
     6
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
     7
 Permission is hereby granted, free of charge, to any 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
     8
 person obtaining a copy of this software and associated 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
     9
 documentation files (the 'Software'), to deal in the 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    10
 Software without restriction, including without limitation 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    11
 the rights to use, copy, modify, merge, publish, distribute, 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    12
 sublicense, and/or sell copies of the Software, and to 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    13
 permit persons to whom the Software is furnished to do so, 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    14
 subject to the following conditions:
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    15
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    16
 The above copyright notice and this permission notice shall 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    17
 be included in all copies or substantial portions of the Software.
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    18
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    19
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    20
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    21
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    22
 IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    23
 CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    24
 TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    25
 SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    26
"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    27
"{ Package: 'stx:libtool2' }"
f67b97bc683a initial checkin
james
parents:
diff changeset
    28
3193
4ab685b49b91 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3109
diff changeset
    29
"{ NameSpace: Smalltalk }"
4ab685b49b91 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3109
diff changeset
    30
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    31
ApplicationModel subclass:#MethodFinderWindow
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    32
	instanceVariableNames:'resultHolder selectorPatternHolder classOfResultHolder
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
    33
		selectedImplementorsHolder argumentsEditor messageAnswerEditor
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
    34
		receiverEditor receiver resultSelectors arg2BoxVisible
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
    35
		arg1BoxVisible arg4BoxVisible arg3BoxVisible argCountHolder
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
    36
		argCountList argument1Editor argument2Editor argument3Editor
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
    37
		argument4Editor resultSelected lookAtResultEditor codeHolder
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
    38
		searchProcess classOfResultNameListHolder
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
    39
		selectedClassOfResultIndexHolder classOfResultListHolder'
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    40
	classVariableNames:''
f67b97bc683a initial checkin
james
parents:
diff changeset
    41
	poolDictionaries:''
3215
4c69b031fb70 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3193
diff changeset
    42
	category:'Interface-Tools'
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    43
!
f67b97bc683a initial checkin
james
parents:
diff changeset
    44
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    45
!MethodFinderWindow class methodsFor:'documentation'!
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    46
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    47
copyright
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    48
"
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    49
 Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    50
 Copyright (C) 2001 eXept Software AG
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    51
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    52
 Permission is hereby granted, free of charge, to any 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    53
 person obtaining a copy of this software and associated 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    54
 documentation files (the 'Software'), to deal in the 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    55
 Software without restriction, including without limitation 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    56
 the rights to use, copy, modify, merge, publish, distribute, 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    57
 sublicense, and/or sell copies of the Software, and to 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    58
 permit persons to whom the Software is furnished to do so, 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    59
 subject to the following conditions:
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    60
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    61
 The above copyright notice and this permission notice shall 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    62
 be included in all copies or substantial portions of the Software.
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    63
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    64
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    65
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    66
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    67
 IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    68
 CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    69
 TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    70
 SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    71
"
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    72
!
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    73
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    74
documentation
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    75
"
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    76
  a tool to find implementing methods by example.
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    77
  Give it values for a receiver, optional arguments and a desired result,
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    78
  and it will find methods which do that for you.
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    79
  Please read the online documentation for details (open via the tool's help menu).
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    80
1531
9d4f8cd101fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1530
diff changeset
    81
  [author:]
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    82
    original squeak version by Ted Kaehler, Scott Wallace and Dan Ingalls.
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    83
    ported from Squeak and GUI enhanced 2001 by James Hayes james@exept.de.
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
    84
    improved by Claus Gittinger.
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    85
"
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    86
! !
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    87
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    88
!MethodFinderWindow class methodsFor:'constants'!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    89
2890
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    90
defaultIcon
3109
92920c76aae3 Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 3090
diff changeset
    91
    <resource: #programImage>
92920c76aae3 Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 3090
diff changeset
    92
2890
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    93
    ^ ToolbarIconLibrary methodFinder24x24Icon
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    94
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    95
    "Created: / 01-06-2012 / 13:05:11 / cg"
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    96
!
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    97
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    98
markerForImplementingClass
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    99
    ^ '=> '.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   100
    ^ '*'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   101
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   102
    "Created: / 13.11.2001 / 12:09:52 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   103
    "Modified: / 13.11.2001 / 12:11:57 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   104
! !
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   105
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   106
!MethodFinderWindow class methodsFor:'help specs'!
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   107
3514
d3a2e53f3d57 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3482
diff changeset
   108
helpSpec
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   109
    "This resource specification was automatically generated
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   110
     by the UIHelpTool of ST/X."
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   111
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   112
    "Do not manually edit this!! If it is corrupted,
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   113
     the UIHelpTool may not be able to read the specification."
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   114
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   115
    "
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   116
     UIHelpTool openOnClass:MethodFinderWindow
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   117
    "
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   118
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   119
    <resource: #help>
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   120
3514
d3a2e53f3d57 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3482
diff changeset
   121
    ^ super helpSpec addPairsFrom:#(
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   122
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   123
#'*'
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   124
'as in GLOB patterns (i.e. like filename patterns)'
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   125
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   126
#answerValue
3772
33679accc619 #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 3771
diff changeset
   127
'Enter the desired result value here.\Can be a constant like $a or ''hello'' or #(10 20 30)\or a Smalltalk expression, such as "10@20" or "Rectangle new".'
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   128
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   129
#arg1Value
3771
33d35c030113 #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 3770
diff changeset
   130
'Enter a value for the first argument here.\Can be a constant like $a or ''hello'' or #(10 20 30)\or a Smalltalk expression, such as "10@20" or "Rectangle new".'
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   131
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   132
#arg2Value
3770
3f324e812f60 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3769
diff changeset
   133
'Enter a value for the second argument here.\Can be a constant or a Smalltalk expression.'
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   134
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   135
#arg3Value
3770
3f324e812f60 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3769
diff changeset
   136
'Enter a value for the third argument here.\Can be a constant or a Smalltalk expression.'
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   137
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   138
#argumentCount
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   139
'Specify the number of arguments here.'
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   140
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   141
#clearButton
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   142
'Clear all sample value fields.'
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   143
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   144
#implementorsFound
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   145
'Shows a list of messages which deliver the result or match the selector pattern'
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   146
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   147
#receiverValue
3770
3f324e812f60 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3769
diff changeset
   148
'Enter a receiver value here.\Can be a constant (like ''hello'')\or a Smalltalk expression, such as "Rectangle basicNew".'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   149
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   150
#selectorPattern
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   151
'Enter a pattern to search by message name'
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   152
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   153
#selectorPatternSearch
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   154
'Search by name.\You can use match characters'
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   155
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   156
#startSearchButton
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   157
'Search for methods which answer the desired value,\given the concrete arguments'
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   158
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   159
#startSearchPatternButton
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   160
'Search for methods whose name matches the pattern'
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   161
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   162
)
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   163
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   164
    "Modified: / 08-06-2019 / 16:06:17 / Claus Gittinger"
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   165
! !
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   166
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   167
!MethodFinderWindow class methodsFor:'interface specs'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   168
f67b97bc683a initial checkin
james
parents:
diff changeset
   169
windowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
   170
    "This resource specification was automatically generated
f67b97bc683a initial checkin
james
parents:
diff changeset
   171
     by the UIPainter of ST/X."
f67b97bc683a initial checkin
james
parents:
diff changeset
   172
f67b97bc683a initial checkin
james
parents:
diff changeset
   173
    "Do not manually edit this!! If it is corrupted,
f67b97bc683a initial checkin
james
parents:
diff changeset
   174
     the UIPainter may not be able to read the specification."
f67b97bc683a initial checkin
james
parents:
diff changeset
   175
f67b97bc683a initial checkin
james
parents:
diff changeset
   176
    "
f67b97bc683a initial checkin
james
parents:
diff changeset
   177
     UIPainter new openOnClass:MethodFinderWindow andSelector:#windowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
   178
     MethodFinderWindow new openInterface:#windowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
   179
     MethodFinderWindow open
f67b97bc683a initial checkin
james
parents:
diff changeset
   180
    "
f67b97bc683a initial checkin
james
parents:
diff changeset
   181
f67b97bc683a initial checkin
james
parents:
diff changeset
   182
    <resource: #canvas>
f67b97bc683a initial checkin
james
parents:
diff changeset
   183
f67b97bc683a initial checkin
james
parents:
diff changeset
   184
    ^ 
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   185
    #(FullSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   186
       name: windowSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   187
       uuid: '7da03570-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   188
       window: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   189
      (WindowSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   190
         label: 'MethodFinder'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   191
         name: 'MethodFinder'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   192
         uuid: '5fb0c87a-89f6-11e9-8df0-b8f6b1108e05'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   193
         bounds: (Rectangle 0 0 816 738) menu: menu
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   194
         icon: defaultIcon
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   195
      ) component: 
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   196
      (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   197
         collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   198
          (VariableHorizontalPanelSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   199
             name: 'VariableHorizontalPanel1'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   200
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) uuid: '5fb0cd98-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   201
             showHandle: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   202
             snapMode: both
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   203
             component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   204
            (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   205
               collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   206
                (VariableVerticalPanelSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   207
                   name: 'LeftBox'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   208
                   uuid: '5fb0d1a8-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   209
                   showHandle: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   210
                   component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   211
                  (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   212
                     collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   213
                      (ViewSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   214
                         name: 'MethodFinderBox'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   215
                         uuid: '5fb0d36a-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   216
                         component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   217
                        (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   218
                           collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   219
                            (ViewSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   220
                               name: 'ReceiverArgBox'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   221
                               layout: (LayoutFrame 0 0 0 0 0 1 -30 1) uuid: '5fb0d4f0-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   222
                               component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   223
                              (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   224
                                 collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   225
                                  (LabelSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   226
                                     label: 'Receiver'
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   227
                                     name: 'ReceiverLabel'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   228
                                     layout: (LayoutFrame 0 0 0 0 0 0.34000000000000002 28 0) uuid: '5fb0d6b2-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   229
                                     translateLabel: true
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   230
                                  )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   231
                                  (ComboListSpec
3698
173ace914343 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3697
diff changeset
   232
                                     name: 'AllowedArguments'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   233
                                     layout: (LayoutFrame 0 0.34000000000000002 1 0 0 0.64000000000000135 28 0) activeHelpKey: argumentCount
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   234
                                     uuid: '5fb0da9a-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   235
                                     model: argCountHolder
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   236
                                     comboList: argCountList
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   237
                                     useIndex: true
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   238
                                  )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   239
                                  (LabelSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   240
                                     label: 'Answer'
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   241
                                     name: 'MessageAnswerLabel'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   242
                                     layout: (LayoutFrame 0 0.64000000000000135 0 0 0 1 28 0) activeHelpKey: arg1Value
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   243
                                     uuid: '5fb0dd60-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   244
                                     translateLabel: true
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   245
                                  )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   246
                                  (HorizontalPanelViewSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   247
                                     name: 'HorizontalPanel1'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   248
                                     layout: (LayoutFrame 0 0 30 0 0 1 0 1) uuid: '5fb0dee6-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   249
                                     horizontalLayout: fit
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   250
                                     verticalLayout: fit
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   251
                                     horizontalSpace: 3
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   252
                                     verticalSpace: 3
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   253
                                     component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   254
                                    (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   255
                                       collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   256
                                        (WorkspaceSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   257
                                           name: 'ReceiverEditor'
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   258
                                           activeHelpKey: receiverValue
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   259
                                           uuid: '5fb0e152-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   260
                                           tabable: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   261
                                           hasHorizontalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   262
                                           hasVerticalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   263
                                           miniScrollerHorizontal: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   264
                                           miniScrollerVertical: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   265
                                           autoHideScrollBars: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   266
                                           hasKeyboardFocusInitially: false
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   267
                                           extent: (Point 86 142) postBuildCallback: receiverWidgetCreated:
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   268
                                        )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   269
                                        (VerticalPanelViewSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   270
                                           name: 'VerticalPanel1'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   271
                                           uuid: '5fb0e51c-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   272
                                           horizontalLayout: fit
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   273
                                           verticalLayout: fit
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   274
                                           horizontalSpace: 3
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   275
                                           verticalSpace: 3
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   276
                                           component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   277
                                          (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   278
                                             collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   279
                                              (ViewSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   280
                                                 name: 'Arg1Box'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   281
                                                 uuid: '5fb0e6d4-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   282
                                                 visibilityChannel: arg1BoxVisible
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   283
                                                 component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   284
                                                (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   285
                                                   collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   286
                                                    (WorkspaceSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   287
                                                       name: 'Arg1Editor'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   288
                                                       layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) activeHelpKey: arg1Value
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   289
                                                       uuid: '5fb0e7ce-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   290
                                                       tabable: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   291
                                                       hasHorizontalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   292
                                                       hasVerticalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   293
                                                       miniScrollerHorizontal: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   294
                                                       miniScrollerVertical: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   295
                                                       autoHideScrollBars: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   296
                                                       hasKeyboardFocusInitially: false
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   297
                                                       postBuildCallback: argument1WidgetCreated:
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   298
                                                    )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   299
                                                  )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   300
                                                ) extent: (Point 87 45)
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   301
                                              )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   302
                                              (ViewSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   303
                                                 name: 'Arg2Box'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   304
                                                 uuid: '5fb0e9b8-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   305
                                                 visibilityChannel: arg2BoxVisible
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   306
                                                 component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   307
                                                (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   308
                                                   collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   309
                                                    (WorkspaceSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   310
                                                       name: 'Arg2Editor'
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   311
                                                       layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) activeHelpKey: arg2Value
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   312
                                                       uuid: '5fb0eabc-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   313
                                                       tabable: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   314
                                                       hasHorizontalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   315
                                                       hasVerticalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   316
                                                       miniScrollerHorizontal: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   317
                                                       miniScrollerVertical: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   318
                                                       autoHideScrollBars: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   319
                                                       hasKeyboardFocusInitially: false
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   320
                                                       postBuildCallback: argument2WidgetCreated:
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   321
                                                    )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   322
                                                  )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   323
                                                ) extent: (Point 87 46)
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   324
                                              )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   325
                                              (ViewSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   326
                                                 name: 'Arg3Box'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   327
                                                 uuid: '5fb0ec74-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   328
                                                 visibilityChannel: arg3BoxVisible
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   329
                                                 component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   330
                                                (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   331
                                                   collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   332
                                                    (WorkspaceSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   333
                                                       name: 'Arg3Editor'
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   334
                                                       layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) activeHelpKey: arg3Value
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   335
                                                       uuid: '5fb0ed64-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   336
                                                       tabable: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   337
                                                       hasHorizontalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   338
                                                       hasVerticalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   339
                                                       miniScrollerHorizontal: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   340
                                                       miniScrollerVertical: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   341
                                                       autoHideScrollBars: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   342
                                                       hasKeyboardFocusInitially: false
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   343
                                                       postBuildCallback: argument3WidgetCreated:
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   344
                                                    )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   345
                                                  )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   346
                                                ) extent: (Point 87 45)
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   347
                                              )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   348
                                            )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   349
                                          ) extent: (Point 87 142)
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   350
                                        )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   351
                                        (WorkspaceSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   352
                                           name: 'AnswerEditor'
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   353
                                           activeHelpKey: answerValue
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   354
                                           uuid: '5fb0ef30-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   355
                                           tabable: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   356
                                           hasHorizontalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   357
                                           hasVerticalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   358
                                           miniScrollerHorizontal: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   359
                                           miniScrollerVertical: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   360
                                           autoHideScrollBars: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   361
                                           hasKeyboardFocusInitially: false
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   362
                                           extent: (Point 87 142) postBuildCallback: messageAnswerWidgetCreated:
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   363
                                        )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   364
                                      )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   365
                                    )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   366
                                  )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   367
                                )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   368
                              )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   369
                            )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   370
                            (ViewSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   371
                               name: 'ReceiverArgBoxActionBox'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   372
                               layout: (LayoutFrame 0 0 -30 1 0 1 0 1) uuid: '5fb0f0fc-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   373
                               component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   374
                              (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   375
                                 collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   376
                                  (ActionButtonSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   377
                                     label: 'Clear'
3708
e709d40e6bc9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3699
diff changeset
   378
                                     name: 'ClearButton'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   379
                                     layout: (LayoutFrame 5 0 0 0 -5 0.5 0 1) activeHelpKey: clearButton
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   380
                                     uuid: '5fb0f214-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   381
                                     translateLabel: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   382
                                     model: clear
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   383
                                  )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   384
                                  (ActionButtonSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   385
                                     label: 'Search'
3708
e709d40e6bc9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3699
diff changeset
   386
                                     name: 'SearchButton'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   387
                                     layout: (LayoutFrame 5 0.5 0 0 -5 1 0 1) activeHelpKey: startSearchButton
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   388
                                     uuid: '5fb0f52a-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   389
                                     translateLabel: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   390
                                     tabable: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   391
                                     model: search
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   392
                                  )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   393
                                )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   394
                              )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   395
                            )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   396
                          )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   397
                        )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   398
                      )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   399
                      (ViewSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   400
                         name: 'SelectorFinderBox'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   401
                         uuid: '5fb0f714-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   402
                         component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   403
                        (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   404
                           collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   405
                            (ViewSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   406
                               name: 'MatchActionBox'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   407
                               layout: (LayoutFrame 0 0 0 0 0 1 90 0) uuid: '5fb0f818-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   408
                               component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   409
                              (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   410
                                 collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   411
                                  (LabelSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   412
                                     label: 'Selector Pattern:'
3708
e709d40e6bc9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3699
diff changeset
   413
                                     name: 'SelectorPatternLabel'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   414
                                     layout: (LayoutFrame 0 0 0 0 0 1 25 0) uuid: '5fb0f908-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   415
                                     translateLabel: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   416
                                     adjust: left
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   417
                                  )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   418
                                  (InputFieldSpec
3708
e709d40e6bc9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3699
diff changeset
   419
                                     name: 'SelectorPattern'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   420
                                     layout: (LayoutFrame 2 0 -54 1 -2 1 -29 1) activeHelpKey: selectorPattern
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   421
                                     uuid: '5fb0fa70-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   422
                                     model: selectorPatternHolder
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   423
                                     immediateAccept: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   424
                                     acceptOnReturn: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   425
                                     acceptOnTab: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   426
                                     acceptOnPointerLeave: true
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   427
                                  )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   428
                                  (ActionButtonSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   429
                                     label: 'Search'
3708
e709d40e6bc9 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3699
diff changeset
   430
                                     name: 'SearchPatternButton'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   431
                                     layout: (LayoutFrame 5 0.5 -25 1 -5 1 0 1) activeHelpKey: startSearchPatternButton
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   432
                                     uuid: '5fb0fea8-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   433
                                     translateLabel: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   434
                                     tabable: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   435
                                     model: searchPatternMatchesInBackground
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   436
                                  )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   437
                                )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   438
                              )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   439
                            )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   440
                            (SequenceViewSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   441
                               name: 'ResultList'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   442
                               layout: (LayoutFrame 0 0 94 0 0 1 0 1) activeHelpKey: implementorsFound
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   443
                               uuid: '5fb1009c-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   444
                               model: selectedImplementorsHolder
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   445
                               menu: resultListMenu
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   446
                               hasHorizontalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   447
                               hasVerticalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   448
                               autoHideScrollBars: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   449
                               useIndex: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   450
                               sequenceList: resultHolder
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   451
                            )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   452
                          )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   453
                        )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   454
                      )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   455
                    )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   456
                  ) handles: (Any 0.28000000000000003 1.0)
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   457
                )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   458
                (VariableVerticalPanelSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   459
                   name: 'RightBox'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   460
                   uuid: '5fb103c6-89f6-11e9-8df0-b8f6b1108e05'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   461
                   component: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   462
                  (SpecCollection
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   463
                     collection: (
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   464
                      (SequenceViewSpec
3710
280daf8b3626 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3709
diff changeset
   465
                         name: 'ImplementorsList'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
   466
                         uuid: '5fb10524-89f6-11e9-8df0-b8f6b1108e05'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   467
                         model: selectedClassOfResultIndexHolder
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   468
                         menu: implementorListMenu
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   469
                         hasHorizontalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   470
                         hasVerticalScrollBar: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   471
                         autoHideScrollBars: true
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   472
                         doubleClickSelector: openBrowserOn:
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   473
                         valueChangeSelector: selectedClassOfResultIndexHolderChanged
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   474
                         useIndex: true
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   475
                         sequenceList: classOfResultNameListHolder
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   476
                      )
3695
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   477
                      (ViewSpec
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   478
                         name: 'Box4'
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   479
                         uuid: '4698d744-a993-11e9-b8a4-b8f6b1108e05'
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   480
                         component: 
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   481
                        (SpecCollection
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   482
                           collection: (
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   483
                            (CodeViewSpec
3710
280daf8b3626 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3709
diff changeset
   484
                               name: 'CodeView'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   485
                               layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: '5fb106dc-89f6-11e9-8df0-b8f6b1108e05'
3695
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   486
                               model: codeHolder
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   487
                               hasHorizontalScrollBar: true
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   488
                               hasVerticalScrollBar: true
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   489
                               autoHideScrollBars: true
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   490
                               hasKeyboardFocusInitially: false
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   491
                               viewClassName: 'codeViewClass'
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   492
                               postBuildCallback: sourceCodeWidgetCreated:
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
   493
                            )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   494
                          )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   495
                        )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   496
                      )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   497
                    )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   498
                  ) handles: (Any 0.5 1.0)
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   499
                )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   500
              )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   501
            ) handles: (Any 0.33000000000000002 1.0)
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   502
          )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   503
        )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   504
      )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   505
    )
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   506
!
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   507
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   508
windowSpec_old
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   509
    "This resource specification was automatically generated
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   510
     by the UIPainter of ST/X."
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   511
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   512
    "Do not manually edit this!! If it is corrupted,
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   513
     the UIPainter may not be able to read the specification."
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   514
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   515
    "
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   516
     UIPainter new openOnClass:MethodFinderWindow andSelector:#windowSpec_old
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   517
     MethodFinderWindow new openInterface:#windowSpec_old
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   518
    "
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   519
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   520
    <resource: #canvas>
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   521
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   522
    ^ 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   523
    #(FullSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   524
       name: #'windowSpec_old'
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   525
       uuid: '92a85286-e499-11e9-8918-10ddb1cc5928'
3301
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   526
       window: 
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   527
      (WindowSpec
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   528
         label: 'MethodFinder'
1663b107709f #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3292
diff changeset
   529
         name: 'MethodFinder'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   530
         uuid: '92a85542-e499-11e9-8918-10ddb1cc5928'
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   531
         bounds: (Rectangle 0 0 920 690) menu: menu
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   532
         icon: defaultIcon
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   533
      ) component: 
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   534
      (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   535
         collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   536
          (VariableHorizontalPanelSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   537
             name: 'VariableHorizontalPanel1'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   538
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) uuid: '92a857b8-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   539
             snapMode: both
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   540
             component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   541
            (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   542
               collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   543
                (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   544
                   name: 'LeftBox'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   545
                   uuid: '92a85998-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   546
                   level: 1
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   547
                   component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   548
                  (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   549
                     collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   550
                      (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   551
                         name: 'ReceiverArgBox'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   552
                         layout: (LayoutFrame 0 0 0 0 0 1 -100 0.5) uuid: '92a85ad8-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   553
                         component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   554
                        (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   555
                           collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   556
                            (LabelSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   557
                               label: 'Receiver'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   558
                               name: 'ReceiverLabel'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   559
                               layout: (LayoutFrame 0 0 0 0 0 0.34000000000000002 28 0) uuid: '92a85bd2-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   560
                               translateLabel: true
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   561
                            )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   562
                            (ComboListSpec
3698
173ace914343 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3697
diff changeset
   563
                               name: 'AllowedArguments'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   564
                               layout: (LayoutFrame 0 0.34000000000000002 1 0 0 0.64000000000000046 28 0) activeHelpKey: argumentCount
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   565
                               uuid: '92a85d8a-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   566
                               model: argCountHolder
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   567
                               comboList: argCountList
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   568
                               useIndex: true
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   569
                            )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   570
                            (LabelSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   571
                               label: 'Answer'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   572
                               name: 'MessageAnswerLabel'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   573
                               layout: (LayoutFrame 0 0.64000000000000046 0 0 0 1 28 0) activeHelpKey: arg1Value
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   574
                               uuid: '92a85f4c-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   575
                               translateLabel: true
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   576
                            )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   577
                            (HorizontalPanelViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   578
                               name: 'HorizontalPanel1'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   579
                               layout: (LayoutFrame 0 0 30 0 0 1 0 1) uuid: '92a860aa-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   580
                               horizontalLayout: fit
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   581
                               verticalLayout: fit
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   582
                               horizontalSpace: 3
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   583
                               verticalSpace: 3
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   584
                               component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   585
                              (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   586
                                 collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   587
                                  (WorkspaceSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   588
                                     name: 'ReceiverEditor'
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   589
                                     activeHelpKey: receiverValue
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   590
                                     uuid: '92a8626c-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   591
                                     tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   592
                                     hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   593
                                     hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   594
                                     miniScrollerHorizontal: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   595
                                     miniScrollerVertical: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   596
                                     autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   597
                                     hasKeyboardFocusInitially: false
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   598
                                     extent: (Point 111 214) postBuildCallback: receiverWidgetCreated:
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   599
                                  )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   600
                                  (VerticalPanelViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   601
                                     name: 'VerticalPanel1'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   602
                                     uuid: '92a864f6-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   603
                                     horizontalLayout: fit
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   604
                                     verticalLayout: fit
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   605
                                     horizontalSpace: 3
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   606
                                     verticalSpace: 3
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   607
                                     component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   608
                                    (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   609
                                       collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   610
                                        (ViewSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   611
                                           name: 'Arg1Box'
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   612
                                           uuid: '92a8667c-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   613
                                           visibilityChannel: arg1BoxVisible
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   614
                                           component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   615
                                          (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   616
                                             collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   617
                                              (WorkspaceSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   618
                                                 name: 'Arg1Editor'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   619
                                                 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) activeHelpKey: arg1Value
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   620
                                                 uuid: '92a8678a-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   621
                                                 tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   622
                                                 hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   623
                                                 hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   624
                                                 miniScrollerHorizontal: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   625
                                                 miniScrollerVertical: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   626
                                                 autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   627
                                                 hasKeyboardFocusInitially: false
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   628
                                                 postBuildCallback: argument1WidgetCreated:
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   629
                                              )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   630
                                            )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   631
                                          ) extent: (Point 111 69)
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   632
                                        )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   633
                                        (ViewSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   634
                                           name: 'Arg2Box'
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   635
                                           uuid: '92a86974-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   636
                                           visibilityChannel: arg2BoxVisible
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   637
                                           component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   638
                                          (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   639
                                             collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   640
                                              (WorkspaceSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   641
                                                 name: 'Arg2Editor'
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   642
                                                 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) activeHelpKey: arg2Value
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   643
                                                 uuid: '92a86a6e-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   644
                                                 tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   645
                                                 hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   646
                                                 hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   647
                                                 miniScrollerHorizontal: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   648
                                                 miniScrollerVertical: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   649
                                                 autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   650
                                                 hasKeyboardFocusInitially: false
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   651
                                                 postBuildCallback: argument2WidgetCreated:
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   652
                                              )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   653
                                            )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   654
                                          ) extent: (Point 111 70)
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   655
                                        )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   656
                                        (ViewSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   657
                                           name: 'Arg3Box'
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   658
                                           uuid: '92a86c30-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   659
                                           visibilityChannel: arg3BoxVisible
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   660
                                           component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   661
                                          (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   662
                                             collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   663
                                              (WorkspaceSpec
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   664
                                                 name: 'Arg3Editor'
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   665
                                                 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) activeHelpKey: arg3Value
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   666
                                                 uuid: '92a86d20-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   667
                                                 tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   668
                                                 hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   669
                                                 hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   670
                                                 miniScrollerHorizontal: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   671
                                                 miniScrollerVertical: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   672
                                                 autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   673
                                                 hasKeyboardFocusInitially: false
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   674
                                                 postBuildCallback: argument3WidgetCreated:
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   675
                                              )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   676
                                            )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   677
                                          ) extent: (Point 111 69)
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   678
                                        )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   679
                                      )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   680
                                    ) extent: (Point 111 214)
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   681
                                  )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   682
                                  (WorkspaceSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   683
                                     name: 'AnswerEditor'
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   684
                                     activeHelpKey: answerValue
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   685
                                     uuid: '92a86ef6-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   686
                                     tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   687
                                     hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   688
                                     hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   689
                                     miniScrollerHorizontal: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   690
                                     miniScrollerVertical: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   691
                                     autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   692
                                     hasKeyboardFocusInitially: false
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   693
                                     extent: (Point 111 214) postBuildCallback: messageAnswerWidgetCreated:
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   694
                                  )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   695
                                )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   696
                              )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   697
                            )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   698
                          )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   699
                        )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   700
                      )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   701
                      (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   702
                         name: 'ReceiverArgBoxActionBox'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   703
                         layout: (LayoutFrame 0 0 -98 0.5 0 1 -75 0.5) uuid: '92a870cc-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   704
                         component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   705
                        (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   706
                           collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   707
                            (ActionButtonSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   708
                               label: 'Clear'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   709
                               name: 'Button2'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   710
                               layout: (LayoutFrame 5 0 0 0 -5 0.5 0 1) activeHelpKey: clearButton
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   711
                               uuid: '92a871d0-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   712
                               translateLabel: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   713
                               model: clear
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   714
                            )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   715
                            (ActionButtonSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   716
                               label: 'Search'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   717
                               name: 'Button1'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   718
                               layout: (LayoutFrame 5 0.5 0 0 -5 1 0 1) activeHelpKey: startSearchButton
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   719
                               uuid: '92a8740a-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   720
                               translateLabel: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   721
                               tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   722
                               model: search
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   723
                            )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   724
                          )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   725
                        )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   726
                      )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   727
                      (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   728
                         name: 'MatchActionBox'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   729
                         layout: (LayoutFrame 0 0 -70 0.5 0 1 10 0.5) uuid: '92a875e0-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   730
                         component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   731
                        (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   732
                           collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   733
                            (LabelSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   734
                               label: 'Selector Pattern:'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   735
                               name: 'Label1'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   736
                               layout: (LayoutFrame 0 0 0 0 0 0.5 25 0) uuid: '92a876e4-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   737
                               translateLabel: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   738
                               adjust: left
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   739
                            )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   740
                            (InputFieldSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   741
                               name: 'EntryField1'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   742
                               layout: (LayoutFrame 2 0 -54 1 -2 1 -29 1) uuid: '92a87838-e499-11e9-8918-10ddb1cc5928'
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   743
                               model: selectorPatternHolder
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   744
                               immediateAccept: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   745
                               acceptOnReturn: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   746
                               acceptOnTab: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   747
                               acceptOnPointerLeave: true
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   748
                            )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   749
                            (ActionButtonSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   750
                               label: 'Search'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   751
                               name: 'Button4'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   752
                               layout: (LayoutFrame 5 0.5 -25 1 -5 1 0 1) uuid: '92a87a9a-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   753
                               translateLabel: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   754
                               tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   755
                               model: searchPatternMatchesInBackground
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   756
                            )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   757
                          )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   758
                        )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   759
                      )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   760
                      (SequenceViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   761
                         name: 'ResultList'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   762
                         layout: (LayoutFrame 0 0 15 0.5 0 1 0 1) uuid: '92a87c66-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   763
                         model: selectedImplementorsHolder
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   764
                         menu: resultListMenu
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   765
                         hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   766
                         hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   767
                         autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   768
                         useIndex: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   769
                         sequenceList: resultHolder
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   770
                      )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   771
                    )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   772
                  )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   773
                )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   774
                (VariableVerticalPanelSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   775
                   name: 'VariableVerticalPanel1'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   776
                   uuid: '92a87e78-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   777
                   component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   778
                  (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   779
                     collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   780
                      (SequenceViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   781
                         name: 'List2'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   782
                         uuid: '92a87fd6-e499-11e9-8918-10ddb1cc5928'
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   783
                         model: selectedClassOfResultIndexHolder
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   784
                         menu: implementorListMenu
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   785
                         hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   786
                         hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   787
                         autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   788
                         doubleClickSelector: openBrowserOn:
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   789
                         valueChangeSelector: selectedClassOfResultIndexHolderChanged
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   790
                         useIndex: true
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   791
                         sequenceList: classOfResultNameListHolder
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   792
                      )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   793
                      (CodeViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   794
                         name: 'CodeView'
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   795
                         uuid: '92a88184-e499-11e9-8918-10ddb1cc5928'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   796
                         model: codeHolder
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   797
                         hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   798
                         hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   799
                         autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   800
                         hasKeyboardFocusInitially: false
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   801
                         viewClassName: 'codeViewClass'
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   802
                         postBuildCallback: sourceCodeWidgetCreated:
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   803
                      )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   804
                    )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   805
                  ) handles: (Any 0.5 1.0)
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   806
                )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   807
              )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   808
            ) handles: (Any 0.37 1.0)
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   809
          )
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   810
        )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   811
      )
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   812
    )
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   813
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   814
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   815
!MethodFinderWindow class methodsFor:'menu specs'!
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   816
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   817
helpMenu
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   818
    "This resource specification was automatically generated
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   819
     by the MenuEditor of ST/X."
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   820
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   821
    "Do not manually edit this!! If it is corrupted,
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   822
     the MenuEditor may not be able to read the specification."
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   823
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   824
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   825
    "
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   826
     MenuEditor new openOnClass:MethodFinderWindow andSelector:#helpMenu
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   827
     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow helpMenu)) startUp
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   828
    "
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   829
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   830
    <resource: #menu>
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   831
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   832
    ^ 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   833
     #(Menu 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   834
       (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   835
          activeHelpKey: helpTutorial
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   836
          label: 'Documentation'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   837
          itemValue: openHTMLDocumentation
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   838
       ) 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   839
       (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   840
          label: '-'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   841
       ) 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   842
       (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   843
          label: 'Show Me How it Works'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   844
          itemValue: showMeHowItWorks
3778
60e5b5a4ba0e #UI_ENHANCEMENT by exept
Claus Gittinger <cg@exept.de>
parents: 3777
diff changeset
   845
          labelImage: (ResourceRetriever ToolbarIconLibrary presentationIcon 'Show Me How it Works')
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   846
       ) 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   847
       (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   848
          label: '-'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   849
       ) 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   850
       (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   851
          activeHelpKey: aboutThisAppliaction
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   852
          label: 'About MethodFinder...'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   853
          itemValue: openAboutThisApplication
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   854
       )
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   855
     )
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   856
!
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   857
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   858
implementorListMenu
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   859
    "This resource specification was automatically generated
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   860
     by the MenuEditor of ST/X."
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   861
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   862
    "Do not manually edit this!! If it is corrupted,
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   863
     the MenuEditor may not be able to read the specification."
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   864
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   865
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   866
    "
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   867
     MenuEditor new openOnClass:MethodFinderWindow andSelector:#implementorListMenu
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   868
     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow implementorListMenu)) startUp
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   869
    "
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   870
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   871
    <resource: #menu>
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   872
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   873
    ^ 
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   874
     #(Menu 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   875
       (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   876
          label: 'Browse'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   877
          itemValue: openBrowserOnSelectedItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   878
       )
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   879
     )
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   880
!
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   881
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   882
menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   883
    "This resource specification was automatically generated
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   884
     by the MenuEditor of ST/X."
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   885
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   886
    "Do not manually edit this!! If it is corrupted,
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   887
     the MenuEditor may not be able to read the specification."
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   888
3685
854b28268aa6 #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 3675
diff changeset
   889
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   890
    "
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   891
     MenuEditor new openOnClass:MethodFinderWindow andSelector:#menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   892
     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow menu)) startUp
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   893
    "
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   894
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   895
    <resource: #menu>
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   896
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   897
    ^ 
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   898
     #(Menu 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   899
       (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   900
          activeHelpKey: file
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   901
          label: '&File'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   902
          submenu: 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   903
         (Menu 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   904
           (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   905
              activeHelpKey: fileExit
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   906
              label: 'Exit'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   907
              itemValue: closeRequest
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   908
           )
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   909
         )
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   910
       ) 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   911
       (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   912
          label: 'MENU_Help'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   913
          startGroup: conditionalRight
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   914
          submenuChannel: helpMenu
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   915
       )
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   916
     )
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   917
!
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   918
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   919
resultListMenu
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   920
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   921
     by the MenuEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   922
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   923
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   924
     the MenuEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   925
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   926
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   927
    "
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   928
     MenuEditor new openOnClass:MethodFinderWindow andSelector:#resultListMenu
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   929
     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow resultListMenu)) startUp
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   930
    "
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   931
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   932
    <resource: #menu>
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   933
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   934
    ^ 
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   935
     #(Menu 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   936
       (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   937
          label: 'Browse Senders'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   938
          itemValue: openBrowserOnSenderOfSelectedResultItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   939
       ) 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   940
       (MenuItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   941
          label: 'Browse Implementors'
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   942
          itemValue: openBrowserOnSelectedResultItem
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   943
       )
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
   944
     )
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   945
! !
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   946
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   947
!MethodFinderWindow class methodsFor:'startup'!
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   948
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   949
openOnSelectorPattern:selector
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   950
    |app|
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   951
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   952
    app := self new.
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   953
    app allButOpen.
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   954
    app selectorPatternHolder value:selector.
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   955
    app openWindow.
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   956
    "/ app waitForBackgroundSearchFinished.
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   957
    
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   958
    ^ app
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   959
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   960
    "
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   961
     self openOnSelectorPattern:'asLowercase'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   962
    "
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   963
! !
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   964
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   965
!MethodFinderWindow methodsFor:'accessing'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   966
f67b97bc683a initial checkin
james
parents:
diff changeset
   967
receiver
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   968
    "Return a copy of the value of the instance variable 'receiver' "
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   969
f67b97bc683a initial checkin
james
parents:
diff changeset
   970
    ^ receiver copy
f67b97bc683a initial checkin
james
parents:
diff changeset
   971
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   972
f67b97bc683a initial checkin
james
parents:
diff changeset
   973
!MethodFinderWindow methodsFor:'actions'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   974
f67b97bc683a initial checkin
james
parents:
diff changeset
   975
clear
3292
f29412454cd5 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3290
diff changeset
   976
    "Reset the contents of all the outputs."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   977
3774
271887d2ed74 #BUGFIX by exept
Claus Gittinger <cg@exept.de>
parents: 3773
diff changeset
   978
    receiverEditor notNil ifTrue:[
271887d2ed74 #BUGFIX by exept
Claus Gittinger <cg@exept.de>
parents: 3773
diff changeset
   979
        receiverEditor contents:nil.
271887d2ed74 #BUGFIX by exept
Claus Gittinger <cg@exept.de>
parents: 3773
diff changeset
   980
    ].
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   981
    argument1Editor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   982
    argument2Editor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   983
    argument3Editor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   984
    messageAnswerEditor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   985
    self resultHolder value:nil.
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   986
    self classOfResultListHolder value: nil.
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   987
    codeHolder notNil ifTrue:[
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   988
        codeHolder value:nil.
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
   989
    ].
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   990
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   991
f67b97bc683a initial checkin
james
parents:
diff changeset
   992
messageAnswerEditorContents
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   993
    "Return a cleaned up version of message answer taken from the messageAnswerEditor
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   994
     as an association. The association has cleanedAnswerString as a key and the
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   995
     compiledAnswer as value."
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   996
    
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   997
    |aCleanedAnswerString compiledAnswer|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   998
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   999
    aCleanedAnswerString := self cleanInputs:(messageAnswerEditor contents).
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1000
    compiledAnswer := Compiler evaluate:aCleanedAnswerString 
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1001
                               ifFail:[
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1002
                                    Dialog information:'Bad value in the answer field'.
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1003
                                    AbortOperationRequest raise.
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1004
                                ].
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1005
    ((self isExpression:aCleanedAnswerString) or:[ compiledAnswer isNil ]) ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1006
        aCleanedAnswerString := compiledAnswer printString
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1007
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1008
    ^ aCleanedAnswerString -> compiledAnswer.
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1009
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1010
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1011
openBrowserOn:indexInList
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1012
    "Opens browser on theArgument of a specific class. 
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1013
     anArgument being the index of the selected list entry,
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1014
     which is a string with the class and the selector 
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1015
     upon which the browser is to be opened. 
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1016
     Return the receiver."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1017
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1018
    |sel classAndSelector|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1019
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1020
    sel := classOfResultListHolder value at:indexInList.
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1021
    classAndSelector := self extractClassAndSelectorFrom:sel.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1022
    classAndSelector isNil ifTrue:[
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1023
        ^ self
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1024
    ].
3482
de4a67d603bb #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3322
diff changeset
  1025
    SystemBrowser default
2459
dc2cc94d9444 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1026
        openInClass:classAndSelector key 
dc2cc94d9444 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
  1027
        selector:classAndSelector value   
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1028
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1029
"
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1030
MethodFinderWindow new openBrowserOn: '*SmallInteger +'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1031
MethodFinderWindow new openBrowserOn: 'String ,'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1032
MethodFinderWindow new openBrowserOn: 'Number detentBy:atMultiplesOf:snap:' 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1033
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1034
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1035
"
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1036
3482
de4a67d603bb #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3322
diff changeset
  1037
    "Modified: / 01-09-2017 / 14:21:18 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1038
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1039
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1040
openBrowserOnSelectedItem 
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1041
    "on the selected implementor"
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1042
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1043
    |sel|
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1044
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1045
    sel := self selectedClassOfResultHolder value.
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1046
    self openBrowserOn:sel
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1047
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1048
    "Modified: / 13-11-2001 / 12:47:39 / cg"
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1049
    "Modified (comment): / 21-09-2012 / 11:08:33 / cg"
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1050
!
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1051
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1052
openBrowserOnSelectedResultItem 
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1053
    "on an item in the lower left list,
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1054
     on all implementors of that message"
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1055
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1056
    |selIndex selector|
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1057
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1058
    selIndex := self selectedImplementorsHolder value.
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1059
    selIndex isNil ifTrue:[^ self].
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1060
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1061
    selector := resultSelectors at:selIndex.
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1062
    UserPreferences browserClass browseImplementorsOf:selector.
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1063
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1064
    "Created: / 21-09-2012 / 11:05:46 / cg"
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1065
!
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1066
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1067
openBrowserOnSenderOfSelectedResultItem
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1068
    "on an item in the lower left list,
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1069
     on all implementors of that message"
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1070
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1071
    |selIndex selector|
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1072
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1073
    selIndex := self selectedImplementorsHolder value.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1074
    selIndex isNil ifTrue:[^ self].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1075
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1076
    selector := resultSelectors at:selIndex.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1077
    UserPreferences browserClass browseSendersOf:selector.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1078
!
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1079
f67b97bc683a initial checkin
james
parents:
diff changeset
  1080
search
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1081
    "Do a search based on the input in the various text editors. Return the receiver."
3322
7fa5dfa1832f #OTHER by mawalch
mawalch
parents: 3315
diff changeset
  1082
3773
e51451a38ba0 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3772
diff changeset
  1083
    |tempReceiver tempAnswer tempArguments anArray resultArrayOrErrorString receiverWithArgument mf|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1084
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1085
    self resultHolder value:nil.
3777
bc17ad12cef0 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3774
diff changeset
  1086
    self classOfResultListHolder value:nil.
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1087
    self codeHolder value:nil.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1088
    tempArguments := self argumentEditorsContents.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1089
    tempReceiver := self receiverEditorContents.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1090
    tempAnswer := self messageAnswerEditorContents.
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
  1091
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
  1092
    "self cleanInputRec:tempReceiver arg:tempArguments ans:tempAnswer."
3741
373454460851 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3720
diff changeset
  1093
    receiverWithArgument := self mergeReceiver:(tempReceiver value) withArgument:(tempArguments values).
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
  1094
    anArray := Array
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
  1095
        with:receiverWithArgument
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
  1096
        with:tempAnswer value.
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
  1097
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
  1098
    "an array now holds the following array #(#(receiver argument) answer) or #(#(receiver) answer). 
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
  1099
     which should be suitable input for the method finder."
3767
4c67d2bfe4f4 #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 3766
diff changeset
  1100
    self withCursor:(Cursor execute) do:[
4c67d2bfe4f4 #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 3766
diff changeset
  1101
        mf := MethodFinder new.
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
  1102
        mf load:anArray.
3773
e51451a38ba0 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3772
diff changeset
  1103
        resultArrayOrErrorString := mf findMessage.
3767
4c67d2bfe4f4 #FEATURE by exept
Claus Gittinger <cg@exept.de>
parents: 3766
diff changeset
  1104
    ].
3768
efaa34ed7534 #REFACTORING by exept
Claus Gittinger <cg@exept.de>
parents: 3767
diff changeset
  1105
3773
e51451a38ba0 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3772
diff changeset
  1106
    (resultArrayOrErrorString isString "(resultArray at:1) includesSubString:'no single'") ifTrue:[
3695
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1107
        false ifTrue:[
3773
e51451a38ba0 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3772
diff changeset
  1108
            (self confirm:(c'%1\nTry a more exhaustive search (may take long)?' 
e51451a38ba0 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3772
diff changeset
  1109
                            bindWith:resultArrayOrErrorString))
3695
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1110
            ifTrue:[
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1111
                self search2Levels.
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1112
            ]. 
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1113
        ] ifFalse:[
3773
e51451a38ba0 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3772
diff changeset
  1114
            self warn:resultArrayOrErrorString.
3695
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1115
        ].    
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1116
        ^ self
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1117
    ].
3695
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1118
    
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1119
    "the following then replaces data1 and data2 created by the method finder to the appropriate arguments"
3773
e51451a38ba0 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3772
diff changeset
  1120
    resultArrayOrErrorString
3322
7fa5dfa1832f #OTHER by mawalch
mawalch
parents: 3315
diff changeset
  1121
        keysAndValuesDo:[:key :value |
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1122
            |newValue|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1123
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
  1124
            newValue := value copyReplaceString:'data1' 
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
  1125
                              withString:(tempReceiver value storeString). "/ was: "tempReceiver key" 
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1126
            (tempArguments size) >= 1 ifTrue:[
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
  1127
                newValue := newValue copyReplaceString:'data2'
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
  1128
                                     withString:(tempArguments valueAt:1) storeString "/ was "keyAt:1" 
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1129
            ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1130
            (tempArguments size) > 1 ifTrue:[
3544
5d127d65ea3e #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3514
diff changeset
  1131
                newValue := newValue copyReplaceString:'data3'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
  1132
                                     withString:(tempArguments valueAt:2) storeString. "/ was "keyAt:2" 
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1133
            ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1134
            (tempArguments size) > 2 ifTrue:[
3544
5d127d65ea3e #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3514
diff changeset
  1135
                newValue := newValue copyReplaceString:'data4'
3675
caafc519b235 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3665
diff changeset
  1136
                                     withString:(tempArguments valueAt:3) storeString. "/ was: keyAt:3
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1137
            ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1138
            (tempArguments size) > 3 ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1139
                self halt:'unimplemented'.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1140
            ].
3544
5d127d65ea3e #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3514
diff changeset
  1141
             "    newValue:= value copyReplaceString: 'data3' withString:(self messageAnswer key). "
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1142
            newValue := newValue , ' --> ' , (tempAnswer key).
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1143
            newValue replaceAll:Character cr with:Character space.
3773
e51451a38ba0 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3772
diff changeset
  1144
            resultArrayOrErrorString at:key put:newValue.
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1145
        ].
3773
e51451a38ba0 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3772
diff changeset
  1146
    self resultHolder value:resultArrayOrErrorString.
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1147
    resultSelectors := mf selectors.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
  1148
    receiver := tempReceiver
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1149
2859
118c4294d9cd changed: #search
Claus Gittinger <cg@exept.de>
parents: 2775
diff changeset
  1150
    "Modified: / 26-09-2011 / 12:42:28 / cg"
3544
5d127d65ea3e #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3514
diff changeset
  1151
    "Modified: / 27-02-2018 / 11:37:58 / stefan"
3695
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1152
    "Modified: / 18-07-2019 / 21:57:12 / Claus Gittinger"
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1153
!
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1154
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1155
search2Levels
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1156
    "Do an exhaustive search.
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1157
     Given the original message,
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1158
     try applying all unary messages first to the receiver,
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1159
     then to each argument.
3770
3f324e812f60 #DOCUMENTATION by exept
Claus Gittinger <cg@exept.de>
parents: 3769
diff changeset
  1160
     This takes O(N²) time - so be prepared"
3695
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1161
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1162
    |tempReceiver tempAnswer tempArguments anArray resultArray receiverWithArgument mf|
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1163
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1164
    tempArguments := self argumentEditorsContents.
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1165
    tempReceiver := self receiverEditorContents.
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1166
    tempAnswer := self messageAnswerEditorContents.
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3685
diff changeset
  1167
bc4ff07233d7 #DOCUMENTATION by cg
Claus Gittinger <cg@e