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