MethodFinderWindow.st
author Claus Gittinger <cg@exept.de>
Wed, 04 May 2016 22:39:03 +0200
changeset 3290 19e31edb0dd6
parent 3289 2902c1233b4e
child 3292 f29412454cd5
permissions -rw-r--r--
#FEATURE by cg class: MethodFinderWindow added: #waitForBackgroundSearchFinished comment/format in: #openOnSelectorPattern: changed: #markMatchingClasses:classesWithSelector: #searchPatternMatchesInBackground #selectedImplementorsHolder #windowSpec
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
     1
"{ Package: 'stx:libtool2' }"
f67b97bc683a initial checkin
james
parents:
diff changeset
     2
3193
4ab685b49b91 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3109
diff changeset
     3
"{ NameSpace: Smalltalk }"
4ab685b49b91 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3109
diff changeset
     4
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
     5
ApplicationModel subclass:#MethodFinderWindow
f67b97bc683a initial checkin
james
parents:
diff changeset
     6
	instanceVariableNames:'argumentsEditor messageAnswerEditor receiverEditor receiver
f67b97bc683a initial checkin
james
parents:
diff changeset
     7
		resultSelectors arg2BoxVisible arg1BoxVisible arg4BoxVisible
f67b97bc683a initial checkin
james
parents:
diff changeset
     8
		arg3BoxVisible argCountHolder argCountList argument1Editor
f67b97bc683a initial checkin
james
parents:
diff changeset
     9
		argument2Editor argument3Editor argument4Editor resultSelected
2891
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
    10
		lookAtResultEditor codeHolder searchProcess'
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    11
	classVariableNames:''
f67b97bc683a initial checkin
james
parents:
diff changeset
    12
	poolDictionaries:''
3215
4c69b031fb70 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3193
diff changeset
    13
	category:'Interface-Tools'
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    14
!
f67b97bc683a initial checkin
james
parents:
diff changeset
    15
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    16
!MethodFinderWindow class methodsFor:'documentation'!
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    17
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    18
documentation
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    19
"
1531
9d4f8cd101fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1530
diff changeset
    20
  [author:]
9d4f8cd101fa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1530
diff changeset
    21
    ported from Squeak and GUI enhanced by James Hayes james@exept.de
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    22
"
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    23
! !
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    24
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    25
!MethodFinderWindow class methodsFor:'constants'!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    26
2890
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    27
defaultIcon
3109
92920c76aae3 Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 3090
diff changeset
    28
    <resource: #programImage>
92920c76aae3 Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents: 3090
diff changeset
    29
2890
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    30
    ^ ToolbarIconLibrary methodFinder24x24Icon
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    31
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    32
    "Created: / 01-06-2012 / 13:05:11 / cg"
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    33
!
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
    34
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    35
markerForImplementingClass
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    36
    ^ '=> '.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    37
    ^ '*'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    38
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    39
    "Created: / 13.11.2001 / 12:09:52 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    40
    "Modified: / 13.11.2001 / 12:11:57 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    41
! !
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    42
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    43
!MethodFinderWindow class methodsFor:'interface specs'!
f67b97bc683a initial checkin
james
parents:
diff changeset
    44
f67b97bc683a initial checkin
james
parents:
diff changeset
    45
windowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
    46
    "This resource specification was automatically generated
f67b97bc683a initial checkin
james
parents:
diff changeset
    47
     by the UIPainter of ST/X."
f67b97bc683a initial checkin
james
parents:
diff changeset
    48
f67b97bc683a initial checkin
james
parents:
diff changeset
    49
    "Do not manually edit this!! If it is corrupted,
f67b97bc683a initial checkin
james
parents:
diff changeset
    50
     the UIPainter may not be able to read the specification."
f67b97bc683a initial checkin
james
parents:
diff changeset
    51
f67b97bc683a initial checkin
james
parents:
diff changeset
    52
    "
f67b97bc683a initial checkin
james
parents:
diff changeset
    53
     UIPainter new openOnClass:MethodFinderWindow andSelector:#windowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
    54
     MethodFinderWindow new openInterface:#windowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
    55
     MethodFinderWindow open
f67b97bc683a initial checkin
james
parents:
diff changeset
    56
    "
f67b97bc683a initial checkin
james
parents:
diff changeset
    57
f67b97bc683a initial checkin
james
parents:
diff changeset
    58
    <resource: #canvas>
f67b97bc683a initial checkin
james
parents:
diff changeset
    59
f67b97bc683a initial checkin
james
parents:
diff changeset
    60
    ^ 
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    61
    #(FullSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    62
       name: windowSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    63
       window: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    64
      (WindowSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    65
         label: 'MethodFinder'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    66
         name: 'MethodFinder'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    67
         bounds: (Rectangle 0 0 920 690)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    68
         menu: menu
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    69
         icon: defaultIcon
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    70
       )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    71
       component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    72
      (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    73
         collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    74
          (VariableHorizontalPanelSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    75
             name: 'VariableHorizontalPanel1'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    76
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    77
             snapMode: both
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    78
             component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    79
            (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    80
               collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    81
                (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    82
                   name: 'LeftBox'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    83
                   level: 1
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    84
                   component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    85
                  (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    86
                     collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    87
                      (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    88
                         name: 'ReceiverArgBox'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    89
                         layout: (LayoutFrame 0 0 0 0 0 1 -100 0.5)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    90
                         component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    91
                        (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    92
                           collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    93
                            (LabelSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    94
                               label: 'Receiver'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    95
                               name: 'ReceiverLabel'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    96
                               layout: (LayoutFrame 0 0 0 0 0 0.34000000000000002 28 0)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    97
                               translateLabel: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    98
                             )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
    99
                            (ComboListSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   100
                               name: 'allowedArgments'
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   101
                               layout: (LayoutFrame 0 0.34000000000000002 1 0 0 0.64000000000000024 28 0)
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   102
                               model: argCountHolder
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   103
                               comboList: argCountList
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   104
                               useIndex: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   105
                             )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   106
                            (LabelSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   107
                               label: 'Answer'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   108
                               name: 'MessageAnswerLabel'
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   109
                               layout: (LayoutFrame 0 0.64000000000000024 0 0 0 1 28 0)
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   110
                               translateLabel: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   111
                             )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   112
                            (HorizontalPanelViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   113
                               name: 'HorizontalPanel1'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   114
                               layout: (LayoutFrame 0 0 30 0 0 1 0 1)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   115
                               horizontalLayout: fit
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   116
                               verticalLayout: fit
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   117
                               horizontalSpace: 3
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   118
                               verticalSpace: 3
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   119
                               component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   120
                              (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   121
                                 collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   122
                                  (WorkspaceSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   123
                                     name: 'ReceiverEditor'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   124
                                     tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   125
                                     hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   126
                                     hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   127
                                     miniScrollerHorizontal: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   128
                                     miniScrollerVertical: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   129
                                     autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   130
                                     hasKeyboardFocusInitially: false
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   131
                                     extent: (Point 110 214)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   132
                                     postBuildCallback: receiverWidgetCreated:
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   133
                                   )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   134
                                  (VerticalPanelViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   135
                                     name: 'VerticalPanel1'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   136
                                     horizontalLayout: fit
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   137
                                     verticalLayout: fit
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   138
                                     horizontalSpace: 3
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   139
                                     verticalSpace: 3
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   140
                                     component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   141
                                    (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   142
                                       collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   143
                                        (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   144
                                           name: 'Box1'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   145
                                           visibilityChannel: arg1BoxVisible
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   146
                                           component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   147
                                          (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   148
                                             collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   149
                                              (WorkspaceSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   150
                                                 name: 'Arg1Editor'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   151
                                                 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   152
                                                 tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   153
                                                 hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   154
                                                 hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   155
                                                 miniScrollerHorizontal: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   156
                                                 miniScrollerVertical: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   157
                                                 autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   158
                                                 hasKeyboardFocusInitially: false
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   159
                                                 postBuildCallback: argument1WidgetCreated:
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   160
                                               )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   161
                                              )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   162
                                            
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   163
                                           )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   164
                                           extent: (Point 110 69)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   165
                                         )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   166
                                        (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   167
                                           name: 'Box2'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   168
                                           visibilityChannel: arg2BoxVisible
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   169
                                           component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   170
                                          (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   171
                                             collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   172
                                              (WorkspaceSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   173
                                                 name: 'TextEditor5'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   174
                                                 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   175
                                                 tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   176
                                                 hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   177
                                                 hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   178
                                                 miniScrollerHorizontal: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   179
                                                 miniScrollerVertical: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   180
                                                 autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   181
                                                 hasKeyboardFocusInitially: false
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   182
                                                 postBuildCallback: argument2WidgetCreated:
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   183
                                               )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   184
                                              )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   185
                                            
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   186
                                           )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   187
                                           extent: (Point 110 70)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   188
                                         )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   189
                                        (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   190
                                           name: 'Box3'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   191
                                           visibilityChannel: arg3BoxVisible
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   192
                                           component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   193
                                          (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   194
                                             collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   195
                                              (WorkspaceSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   196
                                                 name: 'TextEditor6'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   197
                                                 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   198
                                                 tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   199
                                                 hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   200
                                                 hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   201
                                                 miniScrollerHorizontal: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   202
                                                 miniScrollerVertical: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   203
                                                 autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   204
                                                 hasKeyboardFocusInitially: false
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   205
                                                 postBuildCallback: argument3WidgetCreated:
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   206
                                               )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   207
                                              )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   208
                                            
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   209
                                           )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   210
                                           extent: (Point 110 69)
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   211
                                         )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   212
                                        )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   213
                                      
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   214
                                     )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   215
                                     extent: (Point 110 214)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   216
                                   )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   217
                                  (WorkspaceSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   218
                                     name: 'AnswerEditor'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   219
                                     tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   220
                                     hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   221
                                     hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   222
                                     miniScrollerHorizontal: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   223
                                     miniScrollerVertical: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   224
                                     autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   225
                                     hasKeyboardFocusInitially: false
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   226
                                     extent: (Point 110 214)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   227
                                     postBuildCallback: messageAnswerWidgetCreated:
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   228
                                   )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   229
                                  )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   230
                                
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   231
                               )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   232
                             )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   233
                            )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   234
                          
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   235
                         )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   236
                       )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   237
                      (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   238
                         name: 'ReceiverArgBoxActionBox'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   239
                         layout: (LayoutFrame 0 0 -98 0.5 0 1 -75 0.5)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   240
                         component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   241
                        (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   242
                           collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   243
                            (ActionButtonSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   244
                               label: 'Clear'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   245
                               name: 'Button2'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   246
                               layout: (LayoutFrame 5 0 0 0 -5 0.5 0 1)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   247
                               translateLabel: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   248
                               model: clear
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   249
                             )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   250
                            (ActionButtonSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   251
                               label: 'Search'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   252
                               name: 'Button1'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   253
                               layout: (LayoutFrame 5 0.5 0 0 -5 1 0 1)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   254
                               translateLabel: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   255
                               tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   256
                               model: search
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   257
                             )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   258
                            )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   259
                          
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   260
                         )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   261
                       )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   262
                      (ViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   263
                         name: 'MatchActionBox'
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   264
                         layout: (LayoutFrame 0 0 -70 0.5 0 1 10 0.5)
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   265
                         component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   266
                        (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   267
                           collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   268
                            (LabelSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   269
                               label: 'Selector Pattern:'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   270
                               name: 'Label1'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   271
                               layout: (LayoutFrame 0 0 0 0 0 0.5 25 0)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   272
                               translateLabel: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   273
                               adjust: left
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   274
                             )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   275
                            (InputFieldSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   276
                               name: 'EntryField1'
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   277
                               layout: (LayoutFrame 2 0 -54 1 -2 1 -29 1)
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   278
                               model: selectorPattern
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   279
                               immediateAccept: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   280
                               acceptOnReturn: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   281
                               acceptOnTab: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   282
                               acceptOnPointerLeave: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   283
                             )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   284
                            (ActionButtonSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   285
                               label: 'Search'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   286
                               name: 'Button4'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   287
                               layout: (LayoutFrame 5 0.5 -25 1 -5 1 0 1)
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   288
                               translateLabel: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   289
                               tabable: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   290
                               model: searchPatternMatchesInBackground
2886
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
   291
                             )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   292
                            )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   293
                          
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   294
                         )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   295
                       )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   296
                      (SequenceViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   297
                         name: 'ResultList'
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   298
                         layout: (LayoutFrame 0 0 15 0.5 0 1 0 1)
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   299
                         model: selectedImplementorsHolder
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   300
                         menu: resultListMenu
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   301
                         hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   302
                         hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   303
                         autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   304
                         useIndex: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   305
                         sequenceList: resultHolder
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   306
                       )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   307
                      )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   308
                    
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   309
                   )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   310
                 )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   311
                (VariableVerticalPanelSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   312
                   name: 'VariableVerticalPanel1'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   313
                   component: 
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   314
                  (SpecCollection
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   315
                     collection: (
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   316
                      (SequenceViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   317
                         name: 'List2'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   318
                         model: selectedClassOfResultHolder
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   319
                         menu: implementorListMenu
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   320
                         hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   321
                         hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   322
                         autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   323
                         doubleClickSelector: openBrowserOn:
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   324
                         valueChangeSelector: selectedClassOfResultHolderChanged
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   325
                         useIndex: false
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   326
                         sequenceList: classOfResultHolder
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   327
                       )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   328
                      (CodeViewSpec
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   329
                         name: 'CodeView'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   330
                         model: codeHolder
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   331
                         hasHorizontalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   332
                         hasVerticalScrollBar: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   333
                         autoHideScrollBars: true
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   334
                         hasKeyboardFocusInitially: false
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   335
                         postBuildCallback: sourceCodeWidgetCreated:
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   336
                       )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   337
                      )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   338
                    
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   339
                   )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   340
                   handles: (Any 0.5 1.0)
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   341
                 )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   342
                )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   343
              
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   344
             )
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   345
             handles: (Any 0.37391304347826093 1.0)
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   346
           )
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   347
          )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   348
        
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   349
       )
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   350
     )
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   351
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   352
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   353
!MethodFinderWindow class methodsFor:'menu specs'!
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   354
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   355
implementorListMenu
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   356
    "This resource specification was automatically generated
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   357
     by the MenuEditor of ST/X."
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   358
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   359
    "Do not manually edit this!! If it is corrupted,
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   360
     the MenuEditor may not be able to read the specification."
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   361
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   362
    "
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   363
     MenuEditor new openOnClass:MethodFinderWindow andSelector:#implementorListMenu
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   364
     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow implementorListMenu)) startUp
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   365
    "
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   366
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   367
    <resource: #menu>
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   368
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   369
    ^ 
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   370
     #(#Menu
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   371
        #(
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   372
         #(#MenuItem
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   373
            #label: 'Browse'
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   374
            #translateLabel: true
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   375
            #value: #openBrowserOnSelectedItem
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   376
          )
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   377
         )
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   378
        nil
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   379
        nil
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   380
      )
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   381
!
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   382
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   383
menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   384
    "This resource specification was automatically generated
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   385
     by the MenuEditor of ST/X."
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   386
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   387
    "Do not manually edit this!! If it is corrupted,
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   388
     the MenuEditor may not be able to read the specification."
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   389
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   390
    "
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   391
     MenuEditor new openOnClass:MethodFinderWindow andSelector:#menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   392
     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow menu)) startUp
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   393
    "
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   394
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   395
    <resource: #menu>
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   396
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   397
    ^ 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   398
     #(#Menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   399
        #(
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   400
         #(#MenuItem
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   401
            #label: '&File'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   402
            #activeHelpKey: #file
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   403
            #submenu: 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   404
           #(#Menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   405
              #(
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   406
               #(#MenuItem
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   407
                  #label: 'Exit'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   408
                  #value: #closeRequest
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   409
                  #activeHelpKey: #fileExit
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   410
                )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   411
               )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   412
              nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   413
              nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   414
            )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   415
          )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   416
         #(#MenuItem
3193
4ab685b49b91 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3109
diff changeset
   417
            label: 'MENU_Help'
4ab685b49b91 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3109
diff changeset
   418
            startGroup: conditionalRight
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   419
            #submenu: 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   420
           #(#Menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   421
              #(
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   422
               #(#MenuItem
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   423
                  #label: 'Documentation'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   424
                  #value: #openHTMLDocumentation
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   425
                  #activeHelpKey: #helpTutorial
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   426
                )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   427
               #(#MenuItem
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   428
                  #label: 'About MethodFinder...'
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   429
                  #value: #openAboutThisApplication
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   430
                  #activeHelpKey: #aboutThisAppliaction
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   431
                )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   432
               )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   433
              nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   434
              nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   435
            )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   436
          )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   437
         )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   438
        nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   439
        nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   440
      )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   441
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   442
    "Modified: / 13.11.2001 / 12:36:39 / cg"
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   443
!
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   444
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   445
resultListMenu
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   446
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   447
     by the MenuEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   448
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   449
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   450
     the MenuEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   451
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   452
    "
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   453
     MenuEditor new openOnClass:MethodFinderWindow andSelector:#implementorListMenu
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   454
     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow implementorListMenu)) startUp
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   455
    "
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   456
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   457
    <resource: #menu>
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   458
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   459
    ^ 
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   460
     #(#Menu
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   461
        #(
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   462
         #(#MenuItem
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   463
            #label: 'Browse Senders'
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   464
            #translateLabel: true
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   465
            #value: #openBrowserOnSenderOfSelectedResultItem
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   466
          )
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   467
         #(#MenuItem
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   468
            #label: 'Browse Implementors'
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   469
            #translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   470
            #value: #openBrowserOnSelectedResultItem
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   471
          )
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   472
         )
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   473
        nil
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   474
        nil
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   475
      )
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   476
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   477
    "Created: / 21-09-2012 / 11:05:15 / cg"
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   478
! !
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   479
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   480
!MethodFinderWindow class methodsFor:'startup'!
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   481
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   482
openOnSelectorPattern:selector
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   483
    |app|
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   484
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   485
    app := self new.
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   486
    app allButOpen.
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   487
    app selectorPattern value:selector.
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   488
    app openWindow.
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   489
    "/ app waitForBackgroundSearchFinished.
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   490
    
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   491
    ^ app
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   492
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   493
    "
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   494
     self openOnSelectorPattern:'asLowercase'
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   495
    "
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   496
! !
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
   497
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   498
!MethodFinderWindow methodsFor:'accessing'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   499
f67b97bc683a initial checkin
james
parents:
diff changeset
   500
receiver
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   501
    "Return a copy of the value of the instance variable 'receiver' "
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   502
f67b97bc683a initial checkin
james
parents:
diff changeset
   503
    ^ receiver copy
f67b97bc683a initial checkin
james
parents:
diff changeset
   504
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   505
f67b97bc683a initial checkin
james
parents:
diff changeset
   506
!MethodFinderWindow methodsFor:'actions'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   507
f67b97bc683a initial checkin
james
parents:
diff changeset
   508
argumentEditorsContents
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   509
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   510
"Determine how many text editors of the arguments are used and store the result
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   511
as argCounter. The result being the minimum between how many editors have
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   512
expressions in and how many are displayed.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   513
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   514
Add each argument string (key)and the evaluated version (value) to an Ordered Dictionary
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   515
from each of the text editors.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   516
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   517
Return the OrderedDictionary with the expressions from all the text editors. "
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   518
2165
a5ff995ed0d7 cleanup
sr
parents: 2046
diff changeset
   519
     | tempArguments argCounter tempArgument1Editor tempArgument2Editor tempArgument3Editor
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   520
associationKey associationValue|
f67b97bc683a initial checkin
james
parents:
diff changeset
   521
f67b97bc683a initial checkin
james
parents:
diff changeset
   522
argCounter:=0.
f67b97bc683a initial checkin
james
parents:
diff changeset
   523
f67b97bc683a initial checkin
james
parents:
diff changeset
   524
tempArgument1Editor:= (self cleanInputs: argument1Editor contents).
f67b97bc683a initial checkin
james
parents:
diff changeset
   525
tempArgument2Editor:=  (self cleanInputs: argument2Editor contents).
f67b97bc683a initial checkin
james
parents:
diff changeset
   526
tempArgument3Editor:= (self cleanInputs: argument3Editor contents).
f67b97bc683a initial checkin
james
parents:
diff changeset
   527
f67b97bc683a initial checkin
james
parents:
diff changeset
   528
tempArgument1Editor = '' ifFalse:[argCounter:=argCounter +1].
f67b97bc683a initial checkin
james
parents:
diff changeset
   529
tempArgument2Editor = '' ifFalse:[argCounter:=argCounter +1].
f67b97bc683a initial checkin
james
parents:
diff changeset
   530
tempArgument3Editor = '' ifFalse:[argCounter:=argCounter +1].
f67b97bc683a initial checkin
james
parents:
diff changeset
   531
f67b97bc683a initial checkin
james
parents:
diff changeset
   532
f67b97bc683a initial checkin
james
parents:
diff changeset
   533
argCounter:= (argCounter min: (self argCountHolder value -1)).
f67b97bc683a initial checkin
james
parents:
diff changeset
   534
tempArguments:= OrderedDictionary new:argCounter. 
f67b97bc683a initial checkin
james
parents:
diff changeset
   535
f67b97bc683a initial checkin
james
parents:
diff changeset
   536
(argCounter value >= 1) 
f67b97bc683a initial checkin
james
parents:
diff changeset
   537
                ifTrue:[associationValue:= (Compiler evaluate: tempArgument1Editor).
f67b97bc683a initial checkin
james
parents:
diff changeset
   538
                        ((self isExpression:tempArgument1Editor) or:[ associationValue isNil]) ifTrue:[                  "looks if an expression is typed in"
f67b97bc683a initial checkin
james
parents:
diff changeset
   539
                                        associationKey:=associationValue printString]
f67b97bc683a initial checkin
james
parents:
diff changeset
   540
                                                          ifFalse:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   541
                                        associationKey:=tempArgument1Editor].
f67b97bc683a initial checkin
james
parents:
diff changeset
   542
f67b97bc683a initial checkin
james
parents:
diff changeset
   543
                        tempArguments add: associationKey-> associationValue.
f67b97bc683a initial checkin
james
parents:
diff changeset
   544
                        ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   545
(argCounter value >= 2) 
f67b97bc683a initial checkin
james
parents:
diff changeset
   546
                ifTrue:[ associationValue:= (Compiler evaluate: tempArgument2Editor).
f67b97bc683a initial checkin
james
parents:
diff changeset
   547
                        (((self isExpression:tempArgument2Editor) or:[ associationValue isNil])) ifTrue:[                  "looks if an expression is typed in"
f67b97bc683a initial checkin
james
parents:
diff changeset
   548
                                        associationKey:=associationValue printString]
f67b97bc683a initial checkin
james
parents:
diff changeset
   549
                                                          ifFalse:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   550
                                        associationKey:=tempArgument2Editor].
f67b97bc683a initial checkin
james
parents:
diff changeset
   551
f67b97bc683a initial checkin
james
parents:
diff changeset
   552
                        tempArguments add: associationKey-> associationValue].
f67b97bc683a initial checkin
james
parents:
diff changeset
   553
f67b97bc683a initial checkin
james
parents:
diff changeset
   554
(argCounter value >= 3)
f67b97bc683a initial checkin
james
parents:
diff changeset
   555
                ifTrue:[ associationValue:= (Compiler evaluate: tempArgument3Editor).
f67b97bc683a initial checkin
james
parents:
diff changeset
   556
                        ((self isExpression:tempArgument3Editor) or:[ associationValue isNil]) ifTrue:[                  "looks if an expression is typed in"
f67b97bc683a initial checkin
james
parents:
diff changeset
   557
                                        associationKey:=associationValue printString]
f67b97bc683a initial checkin
james
parents:
diff changeset
   558
                                                          ifFalse:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   559
                                        associationKey:=tempArgument3Editor].
f67b97bc683a initial checkin
james
parents:
diff changeset
   560
f67b97bc683a initial checkin
james
parents:
diff changeset
   561
                        tempArguments add: associationKey-> associationValue].
f67b97bc683a initial checkin
james
parents:
diff changeset
   562
f67b97bc683a initial checkin
james
parents:
diff changeset
   563
f67b97bc683a initial checkin
james
parents:
diff changeset
   564
^tempArguments
f67b97bc683a initial checkin
james
parents:
diff changeset
   565
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   566
f67b97bc683a initial checkin
james
parents:
diff changeset
   567
clear
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   568
    "Reset the contents of all the outputs. Return the receiver."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   569
f67b97bc683a initial checkin
james
parents:
diff changeset
   570
    receiverEditor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   571
    argument1Editor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   572
    argument2Editor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   573
    argument3Editor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   574
    messageAnswerEditor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   575
    self resultHolder value:nil.
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   576
    self classOfResultHolder value: nil.
2730
abcb0402d5ba changed: #clear
Claus Gittinger <cg@exept.de>
parents: 2459
diff changeset
   577
    codeHolder value:nil.
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   578
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   579
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   580
extractClassAndSelectorFrom:anArgument 
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   581
    "Opens browser on theArgument of a specific class. anArgument being a string with the
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   582
       Class and the selector upon which the browser is to be opened. Return the receiver."
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   583
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   584
    |aClass aSelector x theArgument marker|
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   585
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   586
    anArgument isNil ifTrue:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   587
        ^ nil
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   588
    ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   589
    marker := self class markerForImplementingClass.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   590
3003
a09b88434b56 refactored
Claus Gittinger <cg@exept.de>
parents: 2927
diff changeset
   591
    theArgument := anArgument string withoutPrefix:marker.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   592
    aClass := theArgument copyUpTo:(Character space).
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   593
    x := aClass size + 2.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   594
    aSelector := theArgument copyFrom:x.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   595
    aClass := Smalltalk classNamed:aClass.
2886
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
   596
    (aSelector startsWith:'class ') ifTrue:[
3003
a09b88434b56 refactored
Claus Gittinger <cg@exept.de>
parents: 2927
diff changeset
   597
        aSelector := aSelector withoutPrefix:'class '.
2886
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
   598
        aClass := aClass class.
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
   599
    ].
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   600
    ^ aClass -> aSelector asSymbol
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   601
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   602
"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   603
MethodFinderWindow new extractClassAndSelectorFrom: '*SmallInteger +'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   604
MethodFinderWindow new extractClassAndSelectorFrom: 'String ,'       
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   605
MethodFinderWindow new extractClassAndSelectorFrom: 'Number detentBy:atMultiplesOf:snap:' 
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   606
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   607
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   608
"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   609
2886
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
   610
    "Modified: / 27-04-2012 / 15:05:53 / cg"
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   611
!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   612
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   613
isExpression:aString 
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   614
    "Return true or false depending on if the subString includes certain characters"
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   615
    
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   616
    (aString includesSubString:': ') ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   617
        ^ true
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   618
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   619
    (aString includes:$+) ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   620
        ^ true
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   621
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   622
    (aString includes:$-) ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   623
        ^ true
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   624
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   625
    (aString includes:$*) ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   626
        ^ true
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   627
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   628
    (aString includes:$/) ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   629
        ^ true
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   630
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   631
    (aString includes:$>) ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   632
        ^ true
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   633
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   634
    (aString includes:$<) ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   635
        ^ true
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   636
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   637
    (aString includesSubString:' new') ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   638
        ^ true
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   639
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   640
    (aString includes:$[) 
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   641
        & (aString includes:$]) 
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   642
        & (aString includes:$.) ifTrue:[ ^ false ].
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   643
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   644
    (aString includes:$.) ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   645
        ^ true
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   646
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   647
    ^ false
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   648
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   649
f67b97bc683a initial checkin
james
parents:
diff changeset
   650
messageAnswerEditorContents
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   651
    "Return a cleaned up version of message answer taken from the messageAnswerEditor
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   652
     as an association. The association has cleanedAnswerString as a key and the
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   653
     compiledAnswer as value."
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   654
    
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   655
    |aCleanedAnswerString compiledAnswer|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   656
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   657
    aCleanedAnswerString := self cleanInputs:(messageAnswerEditor contents).
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   658
    compiledAnswer := Compiler evaluate:aCleanedAnswerString.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   659
    ((self isExpression:aCleanedAnswerString) or:[ compiledAnswer isNil ]) ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   660
        aCleanedAnswerString := compiledAnswer printString
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   661
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   662
    ^ aCleanedAnswerString -> compiledAnswer.
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   663
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   664
f67b97bc683a initial checkin
james
parents:
diff changeset
   665
openBrowserOn:anArgument 
f67b97bc683a initial checkin
james
parents:
diff changeset
   666
    "Opens browser on theArgument of a specific class. anArgument being a string with the
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   667
       Class and the selector upon which the browser is to be opened. Return the receiver."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   668
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   669
    |classAndSelector|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   670
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   671
    classAndSelector := self extractClassAndSelectorFrom:anArgument.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   672
    classAndSelector isNil ifTrue:[
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   673
        ^ self
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   674
    ].
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   675
    UserPreferences systemBrowserClass
2459
dc2cc94d9444 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
   676
        openInClass:classAndSelector key 
dc2cc94d9444 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2412
diff changeset
   677
        selector:classAndSelector value   
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   678
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   679
"
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   680
MethodFinderWindow new openBrowserOn: '*SmallInteger +'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   681
MethodFinderWindow new openBrowserOn: 'String ,'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   682
MethodFinderWindow new openBrowserOn: 'Number detentBy:atMultiplesOf:snap:' 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   683
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   684
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   685
"
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   686
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   687
    "Modified: / 13.11.2001 / 12:46:17 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   688
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   689
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   690
openBrowserOnSelectedItem 
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   691
    "on the selected implementor"
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   692
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   693
    |sel|
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   694
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   695
    sel := self selectedClassOfResultHolder value.
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   696
    self openBrowserOn:sel
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   697
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   698
    "Modified: / 13-11-2001 / 12:47:39 / cg"
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   699
    "Modified (comment): / 21-09-2012 / 11:08:33 / cg"
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   700
!
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   701
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   702
openBrowserOnSelectedResultItem 
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   703
    "on an item in the lower left list,
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   704
     on all implementors of that message"
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   705
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   706
    |selIndex selector|
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   707
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   708
    selIndex := self selectedImplementorsHolder value.
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   709
    selIndex isNil ifTrue:[^ self].
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   710
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   711
    selector := resultSelectors at:selIndex.
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   712
    UserPreferences browserClass browseImplementorsOf:selector.
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   713
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
   714
    "Created: / 21-09-2012 / 11:05:46 / cg"
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   715
!
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   716
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   717
openBrowserOnSenderOfSelectedResultItem
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   718
    "on an item in the lower left list,
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   719
     on all implementors of that message"
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   720
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   721
    |selIndex selector|
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   722
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   723
    selIndex := self selectedImplementorsHolder value.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   724
    selIndex isNil ifTrue:[^ self].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   725
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   726
    selector := resultSelectors at:selIndex.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   727
    UserPreferences browserClass browseSendersOf:selector.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   728
!
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   729
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   730
receiverEditorContents
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   731
    "Return a cleaned up version of receiver taken from the receiverEditor
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   732
     as an association. The association has aCleanedRecieverString as a key and the
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   733
     compiledReceiver as value."
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   734
    
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   735
    |aCleanedRecieverString compiledReceiver|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   736
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   737
    aCleanedRecieverString := self cleanInputs:(receiverEditor contents).
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   738
    compiledReceiver := Compiler evaluate:aCleanedRecieverString.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   739
    ((self isExpression:aCleanedRecieverString) or:[ compiledReceiver isNil ]) ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   740
        aCleanedRecieverString := compiledReceiver printString
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   741
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   742
    ^ aCleanedRecieverString -> compiledReceiver.
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   743
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   744
f67b97bc683a initial checkin
james
parents:
diff changeset
   745
search
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   746
    "Do a search based on the input in the various text editors. Return the receiver."
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   747
    
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   748
    |tempReceiver tempAnswer tempArguments anArray resultArray receiverWithArgument mf|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   749
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   750
    self resultHolder value:nil.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   751
    self classOfResultHolder value:nil.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   752
    self codeHolder value:nil.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   753
    tempArguments := self argumentEditorsContents.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   754
    tempReceiver := self receiverEditorContents.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   755
    tempAnswer := self messageAnswerEditorContents.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   756
     "self cleanInputRec:tempReceiver arg:tempArguments ans:tempAnswer."
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   757
    anArray := Array new:2.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   758
    receiverWithArgument := self mergReciever:(tempReceiver value)
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   759
            WithArgument:(tempArguments values).
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   760
    anArray
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   761
        at:1 put:receiverWithArgument;
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   762
        at:2 put:tempAnswer value.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   763
     "an array now holds the following array #(#(receiver argument) answer) or #(#(reciever) answer). which should
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   764
     be suitable input for the method finder."
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   765
    self withCursor:Cursor execute
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   766
        do:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   767
            mf := MethodFinder new.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   768
            resultArray := mf
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   769
                    load:anArray;
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   770
                    findMessage.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   771
        ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   772
    ((resultArray at:1) includesSubString:'no single') ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   773
        self warn:(resultArray at:1).
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   774
        ^ self
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   775
    ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   776
     "the following then replaces data1 and data2 created by the method finder to the appropriate arguments"
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   777
    resultArray 
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   778
        keysAndValuesDo:[:key :value | 
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   779
            |newValue|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   780
3024
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   781
            newValue := value replString:'data1' withString:(tempReceiver key).
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   782
            (tempArguments size) >= 1 ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   783
                newValue := newValue replString:'data2'
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   784
                        withString:(tempArguments keyAt:1)
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   785
            ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   786
            (tempArguments size) > 1 ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   787
                newValue := newValue replString:'data3'
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   788
                        withString:(tempArguments keyAt:2).
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   789
            ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   790
            (tempArguments size) > 2 ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   791
                newValue := newValue replString:'data4'
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   792
                        withString:(tempArguments keyAt:3).
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   793
            ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   794
            (tempArguments size) > 3 ifTrue:[
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   795
                self halt:'unimplemented'.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   796
            ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   797
             "    newValue:= value replString: 'data3' withString:(self messageAnswer key). "
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   798
            newValue := newValue , ' --> ' , (tempAnswer key).
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   799
            newValue replaceAll:Character cr with:Character space.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   800
            resultArray at:key put:newValue.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   801
        ].
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   802
    self resultHolder value:resultArray.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   803
    resultSelectors := mf selectors.
66a99ab06e19 class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3023
diff changeset
   804
    receiver := tempReceiver
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   805
2859
118c4294d9cd changed: #search
Claus Gittinger <cg@exept.de>
parents: 2775
diff changeset
   806
    "Modified: / 26-09-2011 / 12:42:28 / cg"
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   807
!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   808
2891
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   809
searchPatternChanged
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   810
    self searchPatternMatchesInBackground
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   811
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   812
    "Created: / 01-06-2012 / 13:18:16 / cg"
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   813
!
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   814
3023
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   815
searchPatternMatchesInBackground
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   816
    "Do a search based on the pattern match as a background task"
2886
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
   817
3023
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   818
    | p pattern|
2891
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   819
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   820
    (p := searchProcess) notNil ifTrue:[
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   821
        searchProcess := nil.
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   822
        p terminate.
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   823
    ].
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   824
3023
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   825
    pattern := self selectorPattern value.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   826
    pattern isEmptyOrNil ifTrue:[
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   827
        self resultHolder value:self resultInfoText.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   828
        self classOfResultHolder value:nil.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   829
        self codeHolder value:nil.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   830
        ^ self
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   831
    ].
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   832
2891
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   833
    searchProcess := 
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   834
        [
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   835
            |list counts firsts seconds selectors resultList idx match|
2891
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   836
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   837
            self withCursor:Cursor execute do:[
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   838
                pattern includesMatchCharacters ifFalse:[   
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   839
                    list := SystemBrowser findImplementorsOf:pattern in:Smalltalk allClasses ignoreCase:true.
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   840
                ] ifTrue:[
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   841
                    match := '*',pattern,'*'.
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   842
                    list := SystemBrowser findImplementorsMatching:match in:Smalltalk allClasses ignoreCase:true.
2891
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   843
                ].
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   844
            ].
3023
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   845
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   846
            counts := IdentityDictionary new.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   847
            firsts := IdentityDictionary new.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   848
            seconds := IdentityDictionary new.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   849
            selectors := IdentitySet new.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   850
            list do:[:eachMethod |
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   851
                |msel|
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   852
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   853
                msel := eachMethod selector.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   854
                selectors add:msel.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   855
                (counts at:msel ifAbsentPut:[ 0 asValue ]) increment.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   856
                (firsts includesKey:msel) ifTrue:[
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   857
                    (seconds includesKey:msel) ifFalse:[
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   858
                        seconds at:msel ifAbsentPut:[ eachMethod mclass ].
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   859
                    ].
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   860
                ] ifFalse:[
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   861
                    firsts at:msel ifAbsentPut:[ eachMethod mclass ].
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   862
                ].
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   863
            ].
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   864
            resultSelectors := selectors asOrderedCollection sort.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   865
            resultList := resultSelectors 
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   866
                            collect:[:sel | 
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   867
                                |cnt s|
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   868
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   869
                                s := sel allBold , ' --> '.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   870
                                cnt := (counts at:sel) value.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   871
                                cnt == 1 ifTrue:[
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   872
                                    s , (firsts at:sel) name
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   873
                                ] ifFalse:[
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   874
                                    cnt == 2 ifTrue:[
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   875
                                        s , (firsts at:sel) name , ' and ' , (seconds at:sel) name
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   876
                                    ] ifFalse:[
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   877
                                        s , cnt printString , ' implementor(s)'
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   878
                                    ]
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   879
                                ].
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   880
                            ].
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   881
            self enqueueDelayedAction:[ self updateListAfterPatternSearch: resultList ].
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   882
            "/ is it in the list?
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   883
            idx := resultSelectors indexOf:pattern.
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   884
            idx ~~ 0 ifTrue:[
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   885
                self enqueueDelayedAction:[ self selectedImplementorsHolder value:idx ].
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   886
            ].    
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   887
            
2891
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   888
        ] fork.
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   889
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   890
    "Created: / 01-06-2012 / 13:16:54 / cg"
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   891
!
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   892
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   893
selectedClassOfResultHolderChanged
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   894
    |sel classAndSelector mthd|
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   895
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   896
    sel := self selectedClassOfResultHolder value.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   897
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   898
    classAndSelector := self extractClassAndSelectorFrom:sel.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   899
    classAndSelector isNil ifTrue:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   900
        ^ self
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   901
    ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   902
    mthd := classAndSelector key >> classAndSelector value.   
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   903
    mthd notNil ifTrue:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   904
        self withWaitCursorDo:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   905
            self codeHolder value:mthd source
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   906
        ]
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   907
    ] ifFalse:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   908
        self codeHolder value:nil
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   909
    ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   910
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   911
    "Created: / 13.11.2001 / 12:43:43 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   912
    "Modified: / 13.11.2001 / 12:48:56 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   913
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   914
f67b97bc683a initial checkin
james
parents:
diff changeset
   915
updateImplementorsOf:anInteger 
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   916
    "Request the implementors of the selected argument provided by aNumber.
2892
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   917
     Return the receiver."
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   918
    
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   919
    |methods classList aNumber|
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   920
2892
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   921
    (anInteger isNil) ifTrue:[
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   922
        ^ self
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   923
    ].
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   924
    anInteger isNil ifTrue:[
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   925
        aNumber := 1
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   926
    ] ifFalse:[
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   927
        aNumber := anInteger
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   928
    ].
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   929
    methods := SystemBrowser 
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   930
            findImplementorsOf:(resultSelectors at:aNumber)
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   931
            in:Smalltalk allClasses
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   932
            ignoreCase:false.
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   933
    classList := methods asOrderedCollection 
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   934
            collect:[:m | m mclass name , ' ' , m selector ].
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   935
    classList := (self markMatchingClasses:(resultSelectors at:aNumber)
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   936
            classesWithSelector:classList).
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   937
    self classOfResultHolder value:classList.
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   938
    classList size > 0 ifTrue:[
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   939
        self selectedClassOfResultHolder value:(classList first).
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   940
        self selectedClassOfResultHolderChanged.
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   941
    ] ifFalse:[
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   942
        self selectedClassOfResultHolder value:nil.
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   943
    ].
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   944
2892
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   945
    "Modified (comment): / 24-06-2012 / 18:41:45 / cg"
2891
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   946
!
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   947
3023
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   948
updateListAfterPatternSearch:resultList 
2892
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   949
    self classOfResultHolder value:nil.
a1349bc5e2fe changed:
Claus Gittinger <cg@exept.de>
parents: 2891
diff changeset
   950
    self codeHolder value:nil.
3023
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
   951
    self resultHolder value:resultList.
2891
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   952
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
   953
    "Created: / 01-06-2012 / 13:17:34 / cg"
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   954
!
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   955
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   956
waitForBackgroundSearchFinished
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   957
    | p |
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   958
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   959
    (p := searchProcess) isNil ifTrue:[^ self].
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   960
    p isDead ifTrue:[^ self].
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
   961
    p waitUntilTerminated 
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   962
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   963
f67b97bc683a initial checkin
james
parents:
diff changeset
   964
!MethodFinderWindow methodsFor:'aspects'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   965
f67b97bc683a initial checkin
james
parents:
diff changeset
   966
arg1BoxVisible
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   967
"Determines if the box should be visble or not. Return true or false"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   968
    arg1BoxVisible isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   969
        arg1BoxVisible := BlockValue
f67b97bc683a initial checkin
james
parents:
diff changeset
   970
                              with:[:vh | vh value >= 2 ]
f67b97bc683a initial checkin
james
parents:
diff changeset
   971
                              argument:(self argCountHolder)
f67b97bc683a initial checkin
james
parents:
diff changeset
   972
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   973
    ^ arg1BoxVisible.
f67b97bc683a initial checkin
james
parents:
diff changeset
   974
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   975
f67b97bc683a initial checkin
james
parents:
diff changeset
   976
arg2BoxVisible
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   977
"Determines if the box should be visble or not. Return true or false"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   978
    arg2BoxVisible isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   979
        arg2BoxVisible := BlockValue
f67b97bc683a initial checkin
james
parents:
diff changeset
   980
                              with:[:vh | vh value >= 3 ]
f67b97bc683a initial checkin
james
parents:
diff changeset
   981
                              argument:(self argCountHolder)
f67b97bc683a initial checkin
james
parents:
diff changeset
   982
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   983
    ^ arg2BoxVisible.
f67b97bc683a initial checkin
james
parents:
diff changeset
   984
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   985
f67b97bc683a initial checkin
james
parents:
diff changeset
   986
arg3BoxVisible
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   987
"Determines if the box should be visble or not. Return true or false"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   988
    arg3BoxVisible isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   989
        arg3BoxVisible := BlockValue
f67b97bc683a initial checkin
james
parents:
diff changeset
   990
                              with:[:vh | vh value >= 4 ]
f67b97bc683a initial checkin
james
parents:
diff changeset
   991
                              argument:(self argCountHolder)
f67b97bc683a initial checkin
james
parents:
diff changeset
   992
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   993
    ^ arg3BoxVisible.
f67b97bc683a initial checkin
james
parents:
diff changeset
   994
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   995
f67b97bc683a initial checkin
james
parents:
diff changeset
   996
arg4BoxVisible
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   997
"Determines if the box should be visble or not. Return true or false"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   998
    arg4BoxVisible isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   999
        arg4BoxVisible := BlockValue
f67b97bc683a initial checkin
james
parents:
diff changeset
  1000
                              with:[:vh | vh value >= 5 ]
f67b97bc683a initial checkin
james
parents:
diff changeset
  1001
                              argument:(self argCountHolder)
f67b97bc683a initial checkin
james
parents:
diff changeset
  1002
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
  1003
    ^ arg4BoxVisible.
f67b97bc683a initial checkin
james
parents:
diff changeset
  1004
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1005
f67b97bc683a initial checkin
james
parents:
diff changeset
  1006
argCountHolder
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1007
"Return the value of argCounterHolder which is initialized at 2."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1008
    argCountHolder isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
  1009
        argCountHolder := 2 asValue.
f67b97bc683a initial checkin
james
parents:
diff changeset
  1010
    ].     
f67b97bc683a initial checkin
james
parents:
diff changeset
  1011
    ^ argCountHolder.
f67b97bc683a initial checkin
james
parents:
diff changeset
  1012
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1013
f67b97bc683a initial checkin
james
parents:
diff changeset
  1014
argCountList
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1015
"Return the argCountList"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1016
    argCountList isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
  1017
        argCountList := #('0 arguments' '1 argument' '2 arguments' '3 arguments') asValue  
f67b97bc683a initial checkin
james
parents:
diff changeset
  1018
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
  1019
    ^ argCountList.
f67b97bc683a initial checkin
james
parents:
diff changeset
  1020
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1021
f67b97bc683a initial checkin
james
parents:
diff changeset
  1022
classOfResultHolder
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1023
    "Return a valueHolder which contains a collection with the names of the 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1024
     implementors of a specific message.   "
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1025
f67b97bc683a initial checkin
james
parents:
diff changeset
  1026
    |holder|
f67b97bc683a initial checkin
james
parents:
diff changeset
  1027
    (holder := builder bindingAt:#classOfResultHolder) isNil ifTrue:[
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1028
        holder := ValueHolder new.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1029
        builder aspectAt:#classOfResultHolder put:holder
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1030
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
  1031
    ^ holder
f67b97bc683a initial checkin
james
parents:
diff changeset
  1032
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1033
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1034
codeHolder
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1035
    codeHolder isNil ifTrue:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1036
        codeHolder := '' asValue.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1037
    ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1038
    ^ codeHolder.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1039
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1040
    "Created: / 13.11.2001 / 12:44:11 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1041
!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1042
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1043
resultHolder
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1044
    "Return a value holder which contains the results of a search as a collection."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1045
f67b97bc683a initial checkin
james
parents:
diff changeset
  1046
    |holder|
f67b97bc683a initial checkin
james
parents:
diff changeset
  1047
    (holder := builder bindingAt:#resultHolder) isNil ifTrue:[
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1048
        holder := ValueHolder new.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1049
        builder aspectAt:#resultHolder put:holder.
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
  1050
        holder value:(self resultInfoText collect:[:l | l withColor:Color darkGrey]).
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1051
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
  1052
    ^ holder.
2886
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1053
2890
3d8556368fe9 added: #defaultIcon
Claus Gittinger <cg@exept.de>
parents: 2889
diff changeset
  1054
    "Modified: / 01-06-2012 / 13:06:02 / cg"
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1055
!
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1056
3023
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
  1057
resultInfoText
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
  1058
    ^  {
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
  1059
          'Please enter combination of' .
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
  1060
          '    ',('receiver, arg and result' allBold) .
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
  1061
          'or a'.
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
  1062
          '    ',('selector search pattern' allBold) .
3289
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
  1063
          'into the above fields.' .
2902c1233b4e #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3215
diff changeset
  1064
          'Then click on either ',('"search"' allBold),'-button.'
3023
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
  1065
       }
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
  1066
!
8298397571eb class: MethodFinderWindow
Claus Gittinger <cg@exept.de>
parents: 3003
diff changeset
  1067
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1068
selectedClassOfResultHolder
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1069
    "valueHolder which contains the index of the selected result class (right list)"
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1070
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1071
    |holder|
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1072
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1073
    (holder := builder bindingAt:#selectedClassOfResultHolder) isNil ifTrue:[
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1074
        holder := ValueHolder new.
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1075
        builder aspectAt:#selectedClassOfResultHolder put:holder
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1076
    ].
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
  1077
    ^ holder
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1078
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1079
    "Modified (comment): / 21-09-2012 / 11:10:29 / cg"
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1080
!
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1081
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1082
selectedImplementorsHolder
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1083
    "valueHolder which contains the index of the selected implementors list (left list)"
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1084
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1085
    |holder|
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1086
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1087
    (holder := builder bindingAt:#selectedImplementorsHolder) isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1088
        holder := ValueHolder new.
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
  1089
        holder onChangeEvaluate:[self updateImplementorsOf:holder value].
2927
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1090
        builder aspectAt:#selectedImplementorsHolder put:holder
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1091
    ].
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1092
    ^ holder
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1093
Claus Gittinger <cg@exept.de>
parents: 2892
diff changeset
  1094
    "Created: / 21-09-2012 / 11:10:13 / cg"
2886
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1095
!
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1096
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1097
selectorPattern
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1098
    |holder|
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1099
    (holder := builder bindingAt:#selectorPattern) isNil ifTrue:[
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1100
        holder := ValueHolder new.
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1101
        builder aspectAt:#selectorPattern put:holder.
2891
d4f1cd8626e6 class definition
Claus Gittinger <cg@exept.de>
parents: 2890
diff changeset
  1102
        holder onChangeSend:#searchPatternChanged to:self.
2886
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1103
    ].
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1104
    ^ holder
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1105
ba035714bf27 added search by pattern;
Claus Gittinger <cg@exept.de>
parents: 2859
diff changeset
  1106
    "Created: / 27-04-2012 / 14:44:01 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1107
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
  1108
f67b97bc683a initial checkin
james
parents:
diff changeset
  1109
!MethodFinderWindow methodsFor:'callBacks'!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1110
f67b97bc683a initial checkin
james
parents:
diff changeset
  1111
argument1WidgetCreated: aWidget
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1112
"Store the widget as an instance variable. Return the receiver"
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1113
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1114
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1115
        argument1Editor := aWidget scrolledView.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1116
        aWidget tabMeansNextField:true.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1117
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1118
    "Modified: / 13.11.2001 / 12:21:41 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1119
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1120
f67b97bc683a initial checkin
james
parents:
diff changeset
  1121
argument2WidgetCreated: aWidget
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1122
"Store the widget as an instance variable. Return the receiver"
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1123
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1124
f67b97bc683a initial checkin
james
parents:
diff changeset
  1125
        argument2Editor := aWidget scrolledView.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1126
        aWidget tabMeansNextField:true.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1127
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1128
    "Modified: / 13.11.2001 / 12:21:45 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1129
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1130
f67b97bc683a initial checkin
james
parents:
diff changeset
  1131
argument3WidgetCreated: aWidget
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1132
"Store the widget as an instance variable. Return the receiver"
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1133
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1134
f67b97bc683a initial checkin
james
parents:
diff changeset
  1135
        argument3Editor := aWidget scrolledView.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1136
        aWidget tabMeansNextField:true.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1137
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1138
    "Modified: / 13.11.2001 / 12:21:49 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1139
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1140
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1141
messageAnswerWidgetCreated: aWidget
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1142
"Store the widget as an instance variable. Return the receiver"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1143
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1144
        messageAnswerEditor := aWidget scrolledView.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1145
        aWidget tabMeansNextField:true.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1146
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1147
    "Modified: / 13.11.2001 / 12:24:55 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1148
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1149
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1150
openHTMLDocumentation
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1151
    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#METHODFINDER'
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1152
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1153
f67b97bc683a initial checkin
james
parents:
diff changeset
  1154
receiverWidgetCreated: aWidget
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1155
"Store the widget as an instance variable. Return the receiver"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1156
f67b97bc683a initial checkin
james
parents:
diff changeset
  1157
        receiverEditor := aWidget scrolledView.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1158
        aWidget tabMeansNextField:true.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1159
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1160
    "Modified: / 13.11.2001 / 12:24:49 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1161
!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1162
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1163
sourceCodeWidgetCreated: aWidget
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1164
        aWidget acceptAction:nil.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1165
        aWidget readOnly:true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1166
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1167
    "Created: / 13.11.2001 / 12:50:27 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1168
    "Modified: / 13.11.2001 / 12:51:23 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1169
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
  1170
f67b97bc683a initial checkin
james
parents:
diff changeset
  1171
!MethodFinderWindow methodsFor:'controlInput'!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1172
3090
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1173
cleanInputs:aDirtyString 
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1174
    "Find and remove common mistakes made by the user. Return the 
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
  1175
     'aStringToBeCleaned' variable"
3090
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1176
    
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1177
    |aStringToBeCleaned rs position|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1178
3090
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1179
    aStringToBeCleaned := aDirtyString.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1180
    (aStringToBeCleaned endsWith:(Character cr)) ifTrue:[
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1181
        aStringToBeCleaned := aStringToBeCleaned copyFrom:1 to:(aStringToBeCleaned size - 1).
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1182
    ].
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1183
    aStringToBeCleaned := aStringToBeCleaned withoutSeparators.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1184
    rs := ReadStream on:aStringToBeCleaned.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1185
    [
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1186
        rs upToAll_positionBefore:'#true'.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1187
        rs atEnd
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1188
    ] whileFalse:[
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1189
        position := rs position.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1190
        aStringToBeCleaned := aStringToBeCleaned 
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1191
                copyReplaceFrom:position
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1192
                to:position
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1193
                with:''.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1194
        rs := ReadStream on:aStringToBeCleaned.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1195
    ].
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1196
    rs := ReadStream on:aStringToBeCleaned.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1197
    [
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1198
        rs upToAll_positionBefore:'#false'.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1199
        rs atEnd
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1200
    ] whileFalse:[
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1201
        position := rs position.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1202
        aStringToBeCleaned := aStringToBeCleaned 
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1203
                copyReplaceFrom:position
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1204
                to:position
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1205
                with:''.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1206
        rs := ReadStream on:aStringToBeCleaned.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1207
    ].
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1208
    [
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1209
        rs upToAll_positionBefore:'#nil'.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1210
        rs atEnd
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1211
    ] whileFalse:[
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1212
        position := rs position.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1213
        aStringToBeCleaned := aStringToBeCleaned 
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1214
                copyReplaceFrom:position
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1215
                to:position
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1216
                with:''.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1217
        rs := ReadStream on:aStringToBeCleaned.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1218
    ].
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1219
    ^ aStringToBeCleaned
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1220
!
f67b97bc683a initial checkin
james
parents:
diff changeset
  1221
3090
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1222
markMatchingClasses:aSelector classesWithSelector:anOrderedCollection 
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1223
    " Matches the class of the receiver with all the elements in anOrderedCollection
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1224
     (which are classes with selectors). If a match is found it is marked with an asterisk.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1225
     The classes are then sorted so the the asterisk appears first. Return the
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1226
     markedClassList."
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1227
    
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1228
    |marker recClass unmarkedClassList markedClassList|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1229
3090
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1230
    marker := self class markerForImplementingClass.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1231
    recClass := receiver value class.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1232
    unmarkedClassList := anOrderedCollection copy.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1233
    unmarkedClassList do:[:classAndMethod | 
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
  1234
        |className class sel|
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1235
3290
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
  1236
        className := classAndMethod copyButLast:aSelector size.
19e31edb0dd6 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3289
diff changeset
  1237
        class := Smalltalk classNamed:className. "/ Compiler evaluate:className.
3090
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1238
        
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1239
        "/ (recClass == class)
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1240
        
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1241
        (recClass whichClassImplements:aSelector) == class ifTrue:[
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1242
            "/ unmarkedClassList add: marker, classAndMethod.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1243
            unmarkedClassList add:classAndMethod allBold.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1244
            unmarkedClassList remove:classAndMethod.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
  1245
        ].
3090
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1246
    ].
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1247
    unmarkedClassList 
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1248
        sort:[:a :b | 
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1249
            |rawA rawB|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
  1250
3090
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1251
            rawA := a string withoutPrefix:marker.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1252
            rawB := b string withoutPrefix:marker.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1253
            rawA < rawB.
ef71554ea9e9 class: MethodFinderWindow
Stefan Vogel <sv@exept.de>
parents: 3024
diff changeset
  1254
        ].