MethodFinderWindow.st
author Claus Gittinger <cg@exept.de>
Tue, 03 Feb 2004 16:08:53 +0100
changeset 1781 d67090b1ad57
parent 1538 a1de7a668cad
child 2046 67bafd381aa6
permissions -rw-r--r--
resources shared with UIPainter class
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
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
     8
		lookAtResultEditor codeHolder'
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
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    25
markerForImplementingClass
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    26
    ^ '=> '.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    27
    ^ '*'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    28
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    29
    "Created: / 13.11.2001 / 12:09:52 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    30
    "Modified: / 13.11.2001 / 12:11:57 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    31
! !
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    32
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    33
!MethodFinderWindow class methodsFor:'interface specs'!
f67b97bc683a initial checkin
james
parents:
diff changeset
    34
f67b97bc683a initial checkin
james
parents:
diff changeset
    35
windowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
    36
    "This resource specification was automatically generated
f67b97bc683a initial checkin
james
parents:
diff changeset
    37
     by the UIPainter of ST/X."
f67b97bc683a initial checkin
james
parents:
diff changeset
    38
f67b97bc683a initial checkin
james
parents:
diff changeset
    39
    "Do not manually edit this!! If it is corrupted,
f67b97bc683a initial checkin
james
parents:
diff changeset
    40
     the UIPainter may not be able to read the specification."
f67b97bc683a initial checkin
james
parents:
diff changeset
    41
f67b97bc683a initial checkin
james
parents:
diff changeset
    42
    "
f67b97bc683a initial checkin
james
parents:
diff changeset
    43
     UIPainter new openOnClass:MethodFinderWindow andSelector:#windowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
    44
     MethodFinderWindow new openInterface:#windowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
    45
     MethodFinderWindow open
f67b97bc683a initial checkin
james
parents:
diff changeset
    46
    "
f67b97bc683a initial checkin
james
parents:
diff changeset
    47
f67b97bc683a initial checkin
james
parents:
diff changeset
    48
    <resource: #canvas>
f67b97bc683a initial checkin
james
parents:
diff changeset
    49
f67b97bc683a initial checkin
james
parents:
diff changeset
    50
    ^ 
f67b97bc683a initial checkin
james
parents:
diff changeset
    51
     #(#FullSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
    52
        #name: #windowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
    53
        #window: 
f67b97bc683a initial checkin
james
parents:
diff changeset
    54
       #(#WindowSpec
f67b97bc683a initial checkin
james
parents:
diff changeset
    55
          #label: 'MethodFinder'
f67b97bc683a initial checkin
james
parents:
diff changeset
    56
          #name: 'MethodFinder'
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
    57
          #min: #(#Point nil nil)
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
    58
          #max: #(#Point nil nil)
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    59
          #bounds: #(#Rectangle 13 23 563 423)
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
    60
          #menu: #menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
    61
          #forceRecursiveBackground: false
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    62
        )
f67b97bc683a initial checkin
james
parents:
diff changeset
    63
        #component: 
f67b97bc683a initial checkin
james
parents:
diff changeset
    64
       #(#SpecCollection
f67b97bc683a initial checkin
james
parents:
diff changeset
    65
          #collection: #(
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    66
           #(#VariableHorizontalPanelSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    67
              #name: 'VariableHorizontalPanel1'
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    68
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    69
              #snapMode: #both
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    70
              #component: 
f67b97bc683a initial checkin
james
parents:
diff changeset
    71
             #(#SpecCollection
f67b97bc683a initial checkin
james
parents:
diff changeset
    72
                #collection: #(
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    73
                 #(#ViewSpec
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    74
                    #name: 'Box6'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    75
                    #level: 1
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    76
                    #component: 
f67b97bc683a initial checkin
james
parents:
diff changeset
    77
                   #(#SpecCollection
f67b97bc683a initial checkin
james
parents:
diff changeset
    78
                      #collection: #(
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    79
                       #(#SequenceViewSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    80
                          #name: 'List1'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    81
                          #layout: #(#LayoutFrame 0 0 0 0.5 0 1 0 1)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    82
                          #hasHorizontalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    83
                          #hasVerticalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    84
                          #autoHideScrollBars: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    85
                          #valueChangeSelector: #updateImplementorsOf:
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    86
                          #useIndex: true
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    87
                          #sequenceList: #resultHolder
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
    88
                        )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    89
                       #(#ViewSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    90
                          #name: 'Box4'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    91
                          #layout: #(#LayoutFrame 0 0 0 0 0 1 -25 0.5)
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
    92
                          #component: 
f67b97bc683a initial checkin
james
parents:
diff changeset
    93
                         #(#SpecCollection
f67b97bc683a initial checkin
james
parents:
diff changeset
    94
                            #collection: #(
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    95
                             #(#LabelSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    96
                                #label: 'Receiver'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    97
                                #name: 'ReceiverLabel'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    98
                                #layout: #(#LayoutFrame -4 0.0162791 0 0 -4 0.293023 24 0)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
    99
                                #translateLabel: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   100
                                #adjust: #center
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   101
                              )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   102
                             #(#ComboListSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   103
                                #name: 'allowedArgments'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   104
                                #layout: #(#LayoutFrame 0 0.339535 1 0 0 0.653488 23 0)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   105
                                #model: #argCountHolder
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   106
                                #comboList: #argCountList
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   107
                                #useIndex: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   108
                              )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   109
                             #(#LabelSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   110
                                #label: 'Answer'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   111
                                #name: 'MessageAnswerLabel'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   112
                                #layout: #(#LayoutFrame 0 0.6693 0 0 0 0.99023 24 0)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   113
                                #translateLabel: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   114
                                #adjust: #center
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   115
                              )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   116
                             #(#HorizontalPanelViewSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   117
                                #name: 'HorizontalPanel1'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   118
                                #layout: #(#LayoutFrame 0 0 25 0 0 1 0 1)
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   119
                                #horizontalLayout: #fit
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   120
                                #verticalLayout: #fit
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   121
                                #horizontalSpace: 3
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   122
                                #verticalSpace: 3
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   123
                                #component: 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   124
                               #(#SpecCollection
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   125
                                  #collection: #(
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   126
                                   #(#WorkspaceSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   127
                                      #name: 'ReceiverEditor'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   128
                                      #tabable: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   129
                                      #hasHorizontalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   130
                                      #hasVerticalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   131
                                      #miniScrollerHorizontal: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   132
                                      #miniScrollerVertical: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   133
                                      #autoHideScrollBars: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   134
                                      #extent: #(#Point 87 149)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   135
                                      #postBuildCallback: #receiverWidgetCreated:
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   136
                                    )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   137
                                   #(#VerticalPanelViewSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   138
                                      #name: 'VerticalPanel1'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   139
                                      #horizontalLayout: #fit
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   140
                                      #verticalLayout: #fit
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   141
                                      #horizontalSpace: 3
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   142
                                      #verticalSpace: 3
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   143
                                      #component: 
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   144
                                     #(#SpecCollection
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   145
                                        #collection: #(
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   146
                                         #(#ViewSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   147
                                            #name: 'Box1'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   148
                                            #visibilityChannel: #arg1BoxVisible
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   149
                                            #component: 
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   150
                                           #(#SpecCollection
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   151
                                              #collection: #(
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   152
                                               #(#WorkspaceSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   153
                                                  #name: 'Arg1Editor'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   154
                                                  #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   155
                                                  #tabable: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   156
                                                  #hasHorizontalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   157
                                                  #hasVerticalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   158
                                                  #miniScrollerHorizontal: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   159
                                                  #miniScrollerVertical: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   160
                                                  #autoHideScrollBars: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   161
                                                  #postBuildCallback: #argument1WidgetCreated:
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   162
                                                )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   163
                                               )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   164
                                             
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   165
                                            )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   166
                                            #extent: #(#Point 87 48)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   167
                                          )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   168
                                         #(#ViewSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   169
                                            #name: 'Box2'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   170
                                            #visibilityChannel: #arg2BoxVisible
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   171
                                            #component: 
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   172
                                           #(#SpecCollection
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   173
                                              #collection: #(
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   174
                                               #(#WorkspaceSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   175
                                                  #name: 'TextEditor5'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   176
                                                  #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   177
                                                  #tabable: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   178
                                                  #hasHorizontalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   179
                                                  #hasVerticalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   180
                                                  #miniScrollerHorizontal: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   181
                                                  #miniScrollerVertical: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   182
                                                  #autoHideScrollBars: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   183
                                                  #postBuildCallback: #argument2WidgetCreated:
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   184
                                                )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   185
                                               )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   186
                                             
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   187
                                            )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   188
                                            #extent: #(#Point 87 47)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   189
                                          )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   190
                                         #(#ViewSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   191
                                            #name: 'Box3'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   192
                                            #visibilityChannel: #arg3BoxVisible
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   193
                                            #component: 
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   194
                                           #(#SpecCollection
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   195
                                              #collection: #(
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   196
                                               #(#WorkspaceSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   197
                                                  #name: 'TextEditor6'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   198
                                                  #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   199
                                                  #tabable: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   200
                                                  #hasHorizontalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   201
                                                  #hasVerticalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   202
                                                  #miniScrollerHorizontal: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   203
                                                  #miniScrollerVertical: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   204
                                                  #autoHideScrollBars: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   205
                                                  #postBuildCallback: #argument3WidgetCreated:
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   206
                                                )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   207
                                               )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   208
                                             
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   209
                                            )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   210
                                            #extent: #(#Point 87 48)
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   211
                                          )
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   212
                                         )
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   213
                                       
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   214
                                      )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   215
                                      #extent: #(#Point 87 149)
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   216
                                    )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   217
                                   #(#WorkspaceSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   218
                                      #name: 'AnswerEditor'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   219
                                      #tabable: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   220
                                      #hasHorizontalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   221
                                      #hasVerticalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   222
                                      #miniScrollerHorizontal: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   223
                                      #miniScrollerVertical: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   224
                                      #autoHideScrollBars: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   225
                                      #extent: #(#Point 88 149)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   226
                                      #postBuildCallback: #messageAnswerWidgetCreated:
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   227
                                    )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   228
                                   )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   229
                                 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   230
                                )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   231
                              )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   232
                             )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   233
                           
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   234
                          )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   235
                        )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   236
                       #(#ViewSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   237
                          #name: 'Box5'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   238
                          #layout: #(#LayoutFrame 53 0.224737 -23 0.5 0 1 0 0.5)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   239
                          #component: 
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   240
                         #(#SpecCollection
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   241
                            #collection: #(
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   242
                             #(#ActionButtonSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   243
                                #label: 'Clear'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   244
                                #name: 'Button2'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   245
                                #layout: #(#LayoutFrame 0 0 0 0 -5 0.5 0 1)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   246
                                #translateLabel: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   247
                                #model: #clear
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   248
                              )
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   249
                             #(#ActionButtonSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   250
                                #label: 'Search'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   251
                                #name: 'Button1'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   252
                                #layout: #(#LayoutFrame 5 0.5 0 0 0 1 0 1)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   253
                                #translateLabel: true
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   254
                                #tabable: true
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   255
                                #model: #search
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   256
                              )
f67b97bc683a initial checkin
james
parents:
diff changeset
   257
                             )
f67b97bc683a initial checkin
james
parents:
diff changeset
   258
                           
f67b97bc683a initial checkin
james
parents:
diff changeset
   259
                          )
f67b97bc683a initial checkin
james
parents:
diff changeset
   260
                        )
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   261
                       )
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   262
                     
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   263
                    )
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   264
                  )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   265
                 #(#VariableVerticalPanelSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   266
                    #name: 'VariableVerticalPanel1'
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   267
                    #component: 
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   268
                   #(#SpecCollection
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   269
                      #collection: #(
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   270
                       #(#SequenceViewSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   271
                          #name: 'List2'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   272
                          #model: #selectedClassOfResultHolder
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   273
                          #menu: #implementorListMenu
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   274
                          #hasHorizontalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   275
                          #hasVerticalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   276
                          #autoHideScrollBars: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   277
                          #doubleClickSelector: #openBrowserOn:
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   278
                          #valueChangeSelector: #selectedClassOfResultHolderChanged
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   279
                          #useIndex: false
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   280
                          #sequenceList: #classOfResultHolder
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   281
                        )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   282
                       #(#CodeViewSpec
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   283
                          #name: 'CodeView'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   284
                          #model: #codeHolder
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   285
                          #hasHorizontalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   286
                          #hasVerticalScrollBar: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   287
                          #autoHideScrollBars: true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   288
                          #postBuildCallback: #sourceCodeWidgetCreated:
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   289
                        )
f67b97bc683a initial checkin
james
parents:
diff changeset
   290
                       )
f67b97bc683a initial checkin
james
parents:
diff changeset
   291
                     
f67b97bc683a initial checkin
james
parents:
diff changeset
   292
                    )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   293
                    #handles: #(#Any 0.5 1.0)
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   294
                  )
f67b97bc683a initial checkin
james
parents:
diff changeset
   295
                 )
f67b97bc683a initial checkin
james
parents:
diff changeset
   296
               
f67b97bc683a initial checkin
james
parents:
diff changeset
   297
              )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   298
              #handles: #(#Any 0.5 1.0)
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   299
            )
f67b97bc683a initial checkin
james
parents:
diff changeset
   300
           )
f67b97bc683a initial checkin
james
parents:
diff changeset
   301
         
f67b97bc683a initial checkin
james
parents:
diff changeset
   302
        )
f67b97bc683a initial checkin
james
parents:
diff changeset
   303
      )
1530
37b18e9a12fb checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1529
diff changeset
   304
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   305
    "Modified: / 13.11.2001 / 12:53:50 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   306
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   307
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   308
!MethodFinderWindow class methodsFor:'menu specs'!
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   309
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   310
implementorListMenu
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   311
    "This resource specification was automatically generated
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   312
     by the MenuEditor of ST/X."
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   313
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   314
    "Do not manually edit this!! If it is corrupted,
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   315
     the MenuEditor may not be able to read the specification."
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   316
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   317
    "
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   318
     MenuEditor new openOnClass:MethodFinderWindow andSelector:#implementorListMenu
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   319
     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow implementorListMenu)) startUp
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   320
    "
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   321
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   322
    <resource: #menu>
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   323
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   324
    ^ 
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   325
     #(#Menu
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   326
        #(
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   327
         #(#MenuItem
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   328
            #label: 'Browse'
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   329
            #translateLabel: true
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   330
            #value: #openBrowserOnSelectedItem
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   331
          )
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   332
         )
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   333
        nil
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   334
        nil
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   335
      )
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   336
!
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   337
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   338
menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   339
    "This resource specification was automatically generated
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   340
     by the MenuEditor of ST/X."
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   341
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   342
    "Do not manually edit this!! If it is corrupted,
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   343
     the MenuEditor may not be able to read the specification."
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   344
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   345
    "
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   346
     MenuEditor new openOnClass:MethodFinderWindow andSelector:#menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   347
     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow menu)) startUp
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   348
    "
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   349
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   350
    <resource: #menu>
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   351
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   352
    ^ 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   353
     #(#Menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   354
        #(
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   355
         #(#MenuItem
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   356
            #label: '&File'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   357
            #activeHelpKey: #file
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   358
            #submenu: 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   359
           #(#Menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   360
              #(
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   361
               #(#MenuItem
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   362
                  #label: 'Exit'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   363
                  #value: #closeRequest
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   364
                  #activeHelpKey: #fileExit
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   365
                )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   366
               )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   367
              nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   368
              nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   369
            )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   370
          )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   371
         #(#MenuItem
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   372
            #label: 'Help'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   373
            #startGroup: #right
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   374
            #submenu: 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   375
           #(#Menu
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   376
              #(
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   377
               #(#MenuItem
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   378
                  #label: 'Documentation'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   379
                  #value: #openHTMLDocumentation
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   380
                  #activeHelpKey: #helpTutorial
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   381
                )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   382
               #(#MenuItem
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   383
                  #label: 'About MethodFinder...'
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   384
                  #value: #openAboutThisApplication
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   385
                  #activeHelpKey: #aboutThisAppliaction
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   386
                )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   387
               )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   388
              nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   389
              nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   390
            )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   391
          )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   392
         )
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   393
        nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   394
        nil
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   395
      )
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   396
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   397
    "Modified: / 13.11.2001 / 12:36:39 / cg"
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   398
! !
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   399
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   400
!MethodFinderWindow methodsFor:'accessing'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   401
f67b97bc683a initial checkin
james
parents:
diff changeset
   402
receiver
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   403
    "Return a copy of the value of the instance variable 'receiver' "
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   404
f67b97bc683a initial checkin
james
parents:
diff changeset
   405
    ^ receiver copy
f67b97bc683a initial checkin
james
parents:
diff changeset
   406
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   407
f67b97bc683a initial checkin
james
parents:
diff changeset
   408
!MethodFinderWindow methodsFor:'actions'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   409
f67b97bc683a initial checkin
james
parents:
diff changeset
   410
argumentEditorsContents
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   411
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   412
"Determine how many text editors of the arguments are used and store the result
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   413
as argCounter. The result being the minimum between how many editors have
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   414
expressions in and how many are displayed.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   415
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   416
Add each argument string (key)and the evaluated version (value) to an Ordered Dictionary
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   417
from each of the text editors.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   418
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   419
Return the OrderedDictionary with the expressions from all the text editors. "
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   420
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   421
     | tempArguments argCounter tempArgument1Editor tempArgument2Editor tempArgument3Editor tempArgument4Editor
f67b97bc683a initial checkin
james
parents:
diff changeset
   422
associationKey associationValue|
f67b97bc683a initial checkin
james
parents:
diff changeset
   423
f67b97bc683a initial checkin
james
parents:
diff changeset
   424
argCounter:=0.
f67b97bc683a initial checkin
james
parents:
diff changeset
   425
f67b97bc683a initial checkin
james
parents:
diff changeset
   426
tempArgument1Editor:= (self cleanInputs: argument1Editor contents).
f67b97bc683a initial checkin
james
parents:
diff changeset
   427
tempArgument2Editor:=  (self cleanInputs: argument2Editor contents).
f67b97bc683a initial checkin
james
parents:
diff changeset
   428
tempArgument3Editor:= (self cleanInputs: argument3Editor contents).
f67b97bc683a initial checkin
james
parents:
diff changeset
   429
f67b97bc683a initial checkin
james
parents:
diff changeset
   430
tempArgument1Editor = '' ifFalse:[argCounter:=argCounter +1].
f67b97bc683a initial checkin
james
parents:
diff changeset
   431
tempArgument2Editor = '' ifFalse:[argCounter:=argCounter +1].
f67b97bc683a initial checkin
james
parents:
diff changeset
   432
tempArgument3Editor = '' ifFalse:[argCounter:=argCounter +1].
f67b97bc683a initial checkin
james
parents:
diff changeset
   433
f67b97bc683a initial checkin
james
parents:
diff changeset
   434
f67b97bc683a initial checkin
james
parents:
diff changeset
   435
argCounter:= (argCounter min: (self argCountHolder value -1)).
f67b97bc683a initial checkin
james
parents:
diff changeset
   436
tempArguments:= OrderedDictionary new:argCounter. 
f67b97bc683a initial checkin
james
parents:
diff changeset
   437
f67b97bc683a initial checkin
james
parents:
diff changeset
   438
(argCounter value >= 1) 
f67b97bc683a initial checkin
james
parents:
diff changeset
   439
                ifTrue:[associationValue:= (Compiler evaluate: tempArgument1Editor).
f67b97bc683a initial checkin
james
parents:
diff changeset
   440
                        ((self isExpression:tempArgument1Editor) or:[ associationValue isNil]) ifTrue:[                  "looks if an expression is typed in"
f67b97bc683a initial checkin
james
parents:
diff changeset
   441
                                        associationKey:=associationValue printString]
f67b97bc683a initial checkin
james
parents:
diff changeset
   442
                                                          ifFalse:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   443
                                        associationKey:=tempArgument1Editor].
f67b97bc683a initial checkin
james
parents:
diff changeset
   444
f67b97bc683a initial checkin
james
parents:
diff changeset
   445
                        tempArguments add: associationKey-> associationValue.
f67b97bc683a initial checkin
james
parents:
diff changeset
   446
                        ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   447
(argCounter value >= 2) 
f67b97bc683a initial checkin
james
parents:
diff changeset
   448
                ifTrue:[ associationValue:= (Compiler evaluate: tempArgument2Editor).
f67b97bc683a initial checkin
james
parents:
diff changeset
   449
                        (((self isExpression:tempArgument2Editor) or:[ associationValue isNil])) ifTrue:[                  "looks if an expression is typed in"
f67b97bc683a initial checkin
james
parents:
diff changeset
   450
                                        associationKey:=associationValue printString]
f67b97bc683a initial checkin
james
parents:
diff changeset
   451
                                                          ifFalse:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   452
                                        associationKey:=tempArgument2Editor].
f67b97bc683a initial checkin
james
parents:
diff changeset
   453
f67b97bc683a initial checkin
james
parents:
diff changeset
   454
                        tempArguments add: associationKey-> associationValue].
f67b97bc683a initial checkin
james
parents:
diff changeset
   455
f67b97bc683a initial checkin
james
parents:
diff changeset
   456
(argCounter value >= 3)
f67b97bc683a initial checkin
james
parents:
diff changeset
   457
                ifTrue:[ associationValue:= (Compiler evaluate: tempArgument3Editor).
f67b97bc683a initial checkin
james
parents:
diff changeset
   458
                        ((self isExpression:tempArgument3Editor) or:[ associationValue isNil]) ifTrue:[                  "looks if an expression is typed in"
f67b97bc683a initial checkin
james
parents:
diff changeset
   459
                                        associationKey:=associationValue printString]
f67b97bc683a initial checkin
james
parents:
diff changeset
   460
                                                          ifFalse:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   461
                                        associationKey:=tempArgument3Editor].
f67b97bc683a initial checkin
james
parents:
diff changeset
   462
f67b97bc683a initial checkin
james
parents:
diff changeset
   463
                        tempArguments add: associationKey-> associationValue].
f67b97bc683a initial checkin
james
parents:
diff changeset
   464
f67b97bc683a initial checkin
james
parents:
diff changeset
   465
f67b97bc683a initial checkin
james
parents:
diff changeset
   466
^tempArguments
f67b97bc683a initial checkin
james
parents:
diff changeset
   467
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   468
f67b97bc683a initial checkin
james
parents:
diff changeset
   469
clear
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   470
    "Reset the contents of all the outputs. Return the receiver."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   471
f67b97bc683a initial checkin
james
parents:
diff changeset
   472
    receiverEditor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   473
    argument1Editor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   474
    argument2Editor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   475
    argument3Editor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   476
    messageAnswerEditor contents:nil.
f67b97bc683a initial checkin
james
parents:
diff changeset
   477
    self resultHolder value:nil.
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   478
    self classOfResultHolder value: nil.
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   479
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   480
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   481
extractClassAndSelectorFrom:anArgument 
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   482
    "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
   483
       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
   484
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   485
    |aClass aSelector x theArgument marker|
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   486
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   487
    anArgument isNil ifTrue:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   488
        ^ nil
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   489
    ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   490
    marker := self class markerForImplementingClass.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   491
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   492
    theArgument := anArgument string.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   493
    (theArgument startsWith:marker) ifTrue:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   494
        theArgument := theArgument copyFrom:marker size+1
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   495
    ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   496
    aClass := theArgument copyUpTo:(Character space).
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   497
    x := aClass size + 2.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   498
    aSelector := theArgument copyFrom:x.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   499
    aClass := Smalltalk classNamed:aClass.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   500
    ^ aClass -> aSelector asSymbol
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   501
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   502
"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   503
MethodFinderWindow new extractClassAndSelectorFrom: '*SmallInteger +'
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   504
MethodFinderWindow new extractClassAndSelectorFrom: 'String ,'       
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   505
MethodFinderWindow new extractClassAndSelectorFrom: 'Number detentBy:atMultiplesOf:snap:' 
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   506
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   507
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   508
"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   509
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   510
    "Modified: / 13.11.2001 / 12:45:43 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   511
!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   512
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   513
isExpression: aString
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   514
      "Return true or false depending on if the subString includes certain characters"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   515
(aString includesSubString:': ') ifTrue:[^true].
f67b97bc683a initial checkin
james
parents:
diff changeset
   516
(aString includesSubString:'+') ifTrue:[^true].
f67b97bc683a initial checkin
james
parents:
diff changeset
   517
(aString includesSubString:'-') ifTrue:[^true].
f67b97bc683a initial checkin
james
parents:
diff changeset
   518
(aString includesSubString:'*') ifTrue:[^true].
f67b97bc683a initial checkin
james
parents:
diff changeset
   519
(aString includesSubString:'/') ifTrue:[^true].
f67b97bc683a initial checkin
james
parents:
diff changeset
   520
(aString includesSubString:'>') ifTrue:[^true].
f67b97bc683a initial checkin
james
parents:
diff changeset
   521
(aString includesSubString:'<') ifTrue:[^true].
f67b97bc683a initial checkin
james
parents:
diff changeset
   522
(aString includesSubString:' new') ifTrue:[^true].
f67b97bc683a initial checkin
james
parents:
diff changeset
   523
(aString includesSubString:'[') &  (aString includesSubString:']') & (aString includesSubString:'.')
f67b97bc683a initial checkin
james
parents:
diff changeset
   524
                                ifTrue:[^false].
f67b97bc683a initial checkin
james
parents:
diff changeset
   525
(aString includesSubString:'.') ifTrue:[^true].
f67b97bc683a initial checkin
james
parents:
diff changeset
   526
f67b97bc683a initial checkin
james
parents:
diff changeset
   527
 ^false
f67b97bc683a initial checkin
james
parents:
diff changeset
   528
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   529
f67b97bc683a initial checkin
james
parents:
diff changeset
   530
messageAnswerEditorContents
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   531
   "Return a cleaned up version of message answer taken from the messageAnswerEditor
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   532
    as an association. The association has cleanedAnswerString as a key and the 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   533
    compiledAnswer as value."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   534
f67b97bc683a initial checkin
james
parents:
diff changeset
   535
    |   aCleanedAnswerString   compiledAnswer  |
f67b97bc683a initial checkin
james
parents:
diff changeset
   536
f67b97bc683a initial checkin
james
parents:
diff changeset
   537
aCleanedAnswerString:=self cleanInputs: (messageAnswerEditor contents). 
f67b97bc683a initial checkin
james
parents:
diff changeset
   538
f67b97bc683a initial checkin
james
parents:
diff changeset
   539
compiledAnswer:=Compiler evaluate: aCleanedAnswerString.
f67b97bc683a initial checkin
james
parents:
diff changeset
   540
((self isExpression:aCleanedAnswerString) or:[compiledAnswer isNil]) ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   541
                        aCleanedAnswerString:=compiledAnswer printString].
f67b97bc683a initial checkin
james
parents:
diff changeset
   542
f67b97bc683a initial checkin
james
parents:
diff changeset
   543
^aCleanedAnswerString->compiledAnswer.
f67b97bc683a initial checkin
james
parents:
diff changeset
   544
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   545
f67b97bc683a initial checkin
james
parents:
diff changeset
   546
openBrowserOn:anArgument 
f67b97bc683a initial checkin
james
parents:
diff changeset
   547
    "Opens browser on theArgument of a specific class. anArgument being a string with the
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   548
       Class and the selector upon which the browser is to be opened. Return the receiver."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   549
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   550
    |classAndSelector|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   551
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   552
    classAndSelector := self extractClassAndSelectorFrom:anArgument.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   553
    classAndSelector isNil ifTrue:[
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   554
        ^ self
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   555
    ].
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   556
    SystemBrowser openInClass:classAndSelector key selector:classAndSelector value   
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   557
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   558
"
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   559
MethodFinderWindow new openBrowserOn: '*SmallInteger +'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   560
MethodFinderWindow new openBrowserOn: 'String ,'
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   561
MethodFinderWindow new openBrowserOn: 'Number detentBy:atMultiplesOf:snap:' 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   562
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   563
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   564
"
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   565
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   566
    "Modified: / 13.11.2001 / 12:46:17 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   567
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   568
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   569
openBrowserOnSelectedItem 
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   570
    |sel|
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   571
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   572
    sel := self selectedClassOfResultHolder value.
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   573
    self openBrowserOn:sel
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   574
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   575
    "Modified: / 13.11.2001 / 12:47:39 / cg"
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   576
!
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   577
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   578
receiverEditorContents
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   579
   "Return a cleaned up version of receiver taken from the receiverEditor
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   580
    as an association. The association has aCleanedRecieverString as a key and the 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   581
    compiledReceiver as value."
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   582
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   583
    |   aCleanedRecieverString   compiledReceiver  |
f67b97bc683a initial checkin
james
parents:
diff changeset
   584
f67b97bc683a initial checkin
james
parents:
diff changeset
   585
aCleanedRecieverString:=self cleanInputs: (receiverEditor contents). 
f67b97bc683a initial checkin
james
parents:
diff changeset
   586
f67b97bc683a initial checkin
james
parents:
diff changeset
   587
compiledReceiver:=Compiler evaluate: aCleanedRecieverString.
f67b97bc683a initial checkin
james
parents:
diff changeset
   588
f67b97bc683a initial checkin
james
parents:
diff changeset
   589
((self isExpression:aCleanedRecieverString) or:[compiledReceiver isNil]) ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   590
                        aCleanedRecieverString:=compiledReceiver printString].
f67b97bc683a initial checkin
james
parents:
diff changeset
   591
^aCleanedRecieverString->compiledReceiver.
f67b97bc683a initial checkin
james
parents:
diff changeset
   592
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   593
f67b97bc683a initial checkin
james
parents:
diff changeset
   594
search
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   595
"Do a search based on the input in the various text editors. Return the receiver."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   596
| tempReceiver tempAnswer tempArguments anArray resultArray receiverWithArgument mf|
1534
b38fd0e5254d comment
Claus Gittinger <cg@exept.de>
parents: 1533
diff changeset
   597
b38fd0e5254d comment
Claus Gittinger <cg@exept.de>
parents: 1533
diff changeset
   598
self resultHolder value: nil.                "reset the result list"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   599
self classOfResultHolder value: nil.        "reset the implementorOf list"
1534
b38fd0e5254d comment
Claus Gittinger <cg@exept.de>
parents: 1533
diff changeset
   600
self codeHolder value: nil.                  "reset the source"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   601
f67b97bc683a initial checkin
james
parents:
diff changeset
   602
tempArguments:=self argumentEditorsContents.
f67b97bc683a initial checkin
james
parents:
diff changeset
   603
tempReceiver :=self receiverEditorContents .  
f67b97bc683a initial checkin
james
parents:
diff changeset
   604
tempAnswer:= self messageAnswerEditorContents.   
f67b97bc683a initial checkin
james
parents:
diff changeset
   605
f67b97bc683a initial checkin
james
parents:
diff changeset
   606
"self cleanInputRec:tempReceiver arg:tempArguments ans:tempAnswer."
f67b97bc683a initial checkin
james
parents:
diff changeset
   607
f67b97bc683a initial checkin
james
parents:
diff changeset
   608
f67b97bc683a initial checkin
james
parents:
diff changeset
   609
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
   610
f67b97bc683a initial checkin
james
parents:
diff changeset
   611
receiverWithArgument:=self mergReciever: (tempReceiver value) WithArgument: (tempArguments values).
f67b97bc683a initial checkin
james
parents:
diff changeset
   612
f67b97bc683a initial checkin
james
parents:
diff changeset
   613
anArray at:1 put:receiverWithArgument;
f67b97bc683a initial checkin
james
parents:
diff changeset
   614
        at:2 put: tempAnswer value.             
f67b97bc683a initial checkin
james
parents:
diff changeset
   615
f67b97bc683a initial checkin
james
parents:
diff changeset
   616
"an array now holds the following array #(#(receiver argument) answer) or #(#(reciever) answer). which should
f67b97bc683a initial checkin
james
parents:
diff changeset
   617
be suitable input for the method finder."
1534
b38fd0e5254d comment
Claus Gittinger <cg@exept.de>
parents: 1533
diff changeset
   618
self withCursor:Cursor execute do:[
b38fd0e5254d comment
Claus Gittinger <cg@exept.de>
parents: 1533
diff changeset
   619
    mf:= MethodFinder new.
b38fd0e5254d comment
Claus Gittinger <cg@exept.de>
parents: 1533
diff changeset
   620
    resultArray:= mf load: anArray; findMessage. 
b38fd0e5254d comment
Claus Gittinger <cg@exept.de>
parents: 1533
diff changeset
   621
].
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   622
f67b97bc683a initial checkin
james
parents:
diff changeset
   623
((resultArray at:  1 )includesSubString: 'no single') ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   624
                                self warn: (resultArray at:  1 ).
f67b97bc683a initial checkin
james
parents:
diff changeset
   625
                                ^self
f67b97bc683a initial checkin
james
parents:
diff changeset
   626
                                                              ].  
f67b97bc683a initial checkin
james
parents:
diff changeset
   627
"the following then replaces data1 and data2 created by the method finder to the appropriate arguments"
f67b97bc683a initial checkin
james
parents:
diff changeset
   628
resultArray keysAndValuesDo:[:key :value |   | newValue | 
f67b97bc683a initial checkin
james
parents:
diff changeset
   629
      newValue:= value replString: 'data1' withString:(tempReceiver key).
f67b97bc683a initial checkin
james
parents:
diff changeset
   630
(tempArguments size) >= 1 ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   631
      newValue:= newValue replString: 'data2' withString:(tempArguments keyAt:1)].
f67b97bc683a initial checkin
james
parents:
diff changeset
   632
f67b97bc683a initial checkin
james
parents:
diff changeset
   633
(tempArguments size) > 1 ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   634
      newValue:= newValue replString: 'data3' withString:(tempArguments keyAt:2).].
f67b97bc683a initial checkin
james
parents:
diff changeset
   635
f67b97bc683a initial checkin
james
parents:
diff changeset
   636
(tempArguments size) > 2 ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   637
      newValue:= newValue replString: 'data4' withString:(tempArguments keyAt:3).].
f67b97bc683a initial checkin
james
parents:
diff changeset
   638
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   639
(tempArguments size) > 3 ifTrue:[ self halt. ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   640
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   641
f67b97bc683a initial checkin
james
parents:
diff changeset
   642
                        "    newValue:= value replString: 'data3' withString:(self messageAnswer key). " 
f67b97bc683a initial checkin
james
parents:
diff changeset
   643
f67b97bc683a initial checkin
james
parents:
diff changeset
   644
      newValue:=newValue, ' --> ', (tempAnswer key).
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   645
      newValue replaceAll:Character cr with:Character space.
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   646
f67b97bc683a initial checkin
james
parents:
diff changeset
   647
      resultArray at: key put: newValue.
f67b97bc683a initial checkin
james
parents:
diff changeset
   648
f67b97bc683a initial checkin
james
parents:
diff changeset
   649
              ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   650
f67b97bc683a initial checkin
james
parents:
diff changeset
   651
self resultHolder value: resultArray.
f67b97bc683a initial checkin
james
parents:
diff changeset
   652
resultSelectors:= mf selectors.   "used to find implementors so we do not have to "
f67b97bc683a initial checkin
james
parents:
diff changeset
   653
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
   654
1534
b38fd0e5254d comment
Claus Gittinger <cg@exept.de>
parents: 1533
diff changeset
   655
    "Modified: / 13.11.2001 / 18:52:35 / cg"
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   656
!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   657
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   658
selectedClassOfResultHolderChanged
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   659
    |sel classAndSelector mthd|
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   660
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   661
    sel := self selectedClassOfResultHolder value.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   662
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   663
    classAndSelector := self extractClassAndSelectorFrom:sel.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   664
    classAndSelector isNil ifTrue:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   665
        ^ self
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   666
    ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   667
    mthd := classAndSelector key >> classAndSelector value.   
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   668
    mthd notNil ifTrue:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   669
        self withWaitCursorDo:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   670
            self codeHolder value:mthd source
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   671
        ]
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   672
    ] ifFalse:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   673
        self codeHolder value:nil
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   674
    ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   675
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   676
    "Created: / 13.11.2001 / 12:43:43 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   677
    "Modified: / 13.11.2001 / 12:48:56 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   678
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   679
f67b97bc683a initial checkin
james
parents:
diff changeset
   680
updateImplementorsOf:anInteger 
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   681
    "Request the implementors of the selected argument provided by aNumber.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   682
     Return the receiver. "
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   683
      |methods classList aNumber|
f67b97bc683a initial checkin
james
parents:
diff changeset
   684
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   685
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   686
       (anInteger isNil) ifTrue:[^self].
f67b97bc683a initial checkin
james
parents:
diff changeset
   687
      anInteger isNil ifTrue:[aNumber:=1]
f67b97bc683a initial checkin
james
parents:
diff changeset
   688
                      ifFalse:[aNumber:=anInteger].  
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   689
      methods:=SystemBrowser findImplementorsOf: (resultSelectors at:aNumber) in:Smalltalk allClasses ignoreCase:false.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   690
      classList:=methods asOrderedCollection collect:[:m | m mclass name , ' ' , m selector].
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   691
f67b97bc683a initial checkin
james
parents:
diff changeset
   692
      classList:=(self markMatchingClasses:(resultSelectors at:aNumber) classesWithSelector:classList).
f67b97bc683a initial checkin
james
parents:
diff changeset
   693
f67b97bc683a initial checkin
james
parents:
diff changeset
   694
    self classOfResultHolder value: classList.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   695
    self selectedClassOfResultHolder value:nil.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   696
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   697
    "Modified: / 13.11.2001 / 12:07:31 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   698
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   699
f67b97bc683a initial checkin
james
parents:
diff changeset
   700
!MethodFinderWindow methodsFor:'aspects'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   701
f67b97bc683a initial checkin
james
parents:
diff changeset
   702
arg1BoxVisible
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   703
"Determines if the box should be visble or not. Return true or false"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   704
    arg1BoxVisible isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   705
        arg1BoxVisible := BlockValue
f67b97bc683a initial checkin
james
parents:
diff changeset
   706
                              with:[:vh | vh value >= 2 ]
f67b97bc683a initial checkin
james
parents:
diff changeset
   707
                              argument:(self argCountHolder)
f67b97bc683a initial checkin
james
parents:
diff changeset
   708
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   709
    ^ arg1BoxVisible.
f67b97bc683a initial checkin
james
parents:
diff changeset
   710
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   711
f67b97bc683a initial checkin
james
parents:
diff changeset
   712
arg2BoxVisible
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   713
"Determines if the box should be visble or not. Return true or false"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   714
    arg2BoxVisible isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   715
        arg2BoxVisible := BlockValue
f67b97bc683a initial checkin
james
parents:
diff changeset
   716
                              with:[:vh | vh value >= 3 ]
f67b97bc683a initial checkin
james
parents:
diff changeset
   717
                              argument:(self argCountHolder)
f67b97bc683a initial checkin
james
parents:
diff changeset
   718
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   719
    ^ arg2BoxVisible.
f67b97bc683a initial checkin
james
parents:
diff changeset
   720
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   721
f67b97bc683a initial checkin
james
parents:
diff changeset
   722
arg3BoxVisible
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   723
"Determines if the box should be visble or not. Return true or false"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   724
    arg3BoxVisible isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   725
        arg3BoxVisible := BlockValue
f67b97bc683a initial checkin
james
parents:
diff changeset
   726
                              with:[:vh | vh value >= 4 ]
f67b97bc683a initial checkin
james
parents:
diff changeset
   727
                              argument:(self argCountHolder)
f67b97bc683a initial checkin
james
parents:
diff changeset
   728
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   729
    ^ arg3BoxVisible.
f67b97bc683a initial checkin
james
parents:
diff changeset
   730
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   731
f67b97bc683a initial checkin
james
parents:
diff changeset
   732
arg4BoxVisible
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   733
"Determines if the box should be visble or not. Return true or false"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   734
    arg4BoxVisible isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   735
        arg4BoxVisible := BlockValue
f67b97bc683a initial checkin
james
parents:
diff changeset
   736
                              with:[:vh | vh value >= 5 ]
f67b97bc683a initial checkin
james
parents:
diff changeset
   737
                              argument:(self argCountHolder)
f67b97bc683a initial checkin
james
parents:
diff changeset
   738
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   739
    ^ arg4BoxVisible.
f67b97bc683a initial checkin
james
parents:
diff changeset
   740
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   741
f67b97bc683a initial checkin
james
parents:
diff changeset
   742
argCountHolder
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   743
"Return the value of argCounterHolder which is initialized at 2."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   744
    argCountHolder isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   745
        argCountHolder := 2 asValue.
f67b97bc683a initial checkin
james
parents:
diff changeset
   746
    ].     
f67b97bc683a initial checkin
james
parents:
diff changeset
   747
    ^ argCountHolder.
f67b97bc683a initial checkin
james
parents:
diff changeset
   748
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   749
f67b97bc683a initial checkin
james
parents:
diff changeset
   750
argCountList
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   751
"Return the argCountList"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   752
    argCountList isNil ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   753
        argCountList := #('0 arguments' '1 argument' '2 arguments' '3 arguments') asValue  
f67b97bc683a initial checkin
james
parents:
diff changeset
   754
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   755
    ^ argCountList.
f67b97bc683a initial checkin
james
parents:
diff changeset
   756
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   757
f67b97bc683a initial checkin
james
parents:
diff changeset
   758
classOfResultHolder
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   759
    "Return a valueHolder which contains a collection with the names of the 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   760
     implementors of a specific message.   "
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   761
f67b97bc683a initial checkin
james
parents:
diff changeset
   762
    |holder|
f67b97bc683a initial checkin
james
parents:
diff changeset
   763
    (holder := builder bindingAt:#classOfResultHolder) isNil ifTrue:[
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   764
        holder := ValueHolder new.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   765
        builder aspectAt:#classOfResultHolder put:holder
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   766
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   767
    ^ holder
f67b97bc683a initial checkin
james
parents:
diff changeset
   768
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   769
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   770
codeHolder
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   771
    codeHolder isNil ifTrue:[
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   772
        codeHolder := '' asValue.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   773
    ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   774
    ^ codeHolder.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   775
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   776
    "Created: / 13.11.2001 / 12:44:11 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   777
!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   778
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   779
resultHolder
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   780
    "Return a value holder which contains the results of a search as a collection."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   781
f67b97bc683a initial checkin
james
parents:
diff changeset
   782
    |holder|
f67b97bc683a initial checkin
james
parents:
diff changeset
   783
    (holder := builder bindingAt:#resultHolder) isNil ifTrue:[
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   784
        holder := ValueHolder new.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   785
        builder aspectAt:#resultHolder put:holder.
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   786
    ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   787
    ^ holder.
1529
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   788
!
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   789
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   790
selectedClassOfResultHolder
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   791
    "Return a valueHolder which contains the index of the selected result class
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   792
     (right list)"
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   793
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   794
    |holder|
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   795
    (holder := builder bindingAt:#selectedClassOfResultHolder) isNil ifTrue:[
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   796
        holder := ValueHolder new.
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   797
        builder aspectAt:#selectedClassOfResultHolder put:holder
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   798
    ].
8c1607c0fbe8 pop up menu
Claus Gittinger <cg@exept.de>
parents: 1526
diff changeset
   799
    ^ holder
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   800
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   801
f67b97bc683a initial checkin
james
parents:
diff changeset
   802
!MethodFinderWindow methodsFor:'callBacks'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   803
f67b97bc683a initial checkin
james
parents:
diff changeset
   804
argument1WidgetCreated: aWidget
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   805
"Store the widget as an instance variable. Return the receiver"
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   806
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   807
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   808
        argument1Editor := aWidget scrolledView.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   809
        aWidget tabMeansNextField:true.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   810
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   811
    "Modified: / 13.11.2001 / 12:21:41 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   812
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   813
f67b97bc683a initial checkin
james
parents:
diff changeset
   814
argument2WidgetCreated: aWidget
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   815
"Store the widget as an instance variable. Return the receiver"
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   816
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   817
f67b97bc683a initial checkin
james
parents:
diff changeset
   818
        argument2Editor := aWidget scrolledView.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   819
        aWidget tabMeansNextField:true.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   820
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   821
    "Modified: / 13.11.2001 / 12:21:45 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   822
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   823
f67b97bc683a initial checkin
james
parents:
diff changeset
   824
argument3WidgetCreated: aWidget
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   825
"Store the widget as an instance variable. Return the receiver"
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   826
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   827
f67b97bc683a initial checkin
james
parents:
diff changeset
   828
        argument3Editor := aWidget scrolledView.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   829
        aWidget tabMeansNextField:true.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   830
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   831
    "Modified: / 13.11.2001 / 12:21:49 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   832
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   833
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   834
messageAnswerWidgetCreated: aWidget
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   835
"Store the widget as an instance variable. Return the receiver"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   836
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   837
        messageAnswerEditor := aWidget scrolledView.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   838
        aWidget tabMeansNextField:true.
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
    "Modified: / 13.11.2001 / 12:24:55 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   841
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   842
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   843
openHTMLDocumentation
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   844
    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#METHODFINDER'
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   845
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   846
f67b97bc683a initial checkin
james
parents:
diff changeset
   847
receiverWidgetCreated: aWidget
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   848
"Store the widget as an instance variable. Return the receiver"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   849
f67b97bc683a initial checkin
james
parents:
diff changeset
   850
        receiverEditor := aWidget scrolledView.
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   851
        aWidget tabMeansNextField:true.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   852
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   853
    "Modified: / 13.11.2001 / 12:24:49 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   854
!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   855
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   856
sourceCodeWidgetCreated: aWidget
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   857
        aWidget acceptAction:nil.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   858
        aWidget readOnly:true
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   859
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   860
    "Created: / 13.11.2001 / 12:50:27 / cg"
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   861
    "Modified: / 13.11.2001 / 12:51:23 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   862
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   863
f67b97bc683a initial checkin
james
parents:
diff changeset
   864
!MethodFinderWindow methodsFor:'controlInput'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   865
f67b97bc683a initial checkin
james
parents:
diff changeset
   866
cleanInputs: aDirtyString
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   867
     "Find and remove common mistakes made by the user. Return the 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   868
     'aStringToBeCleaned' variable"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   869
       | aStringToBeCleaned rs position|
f67b97bc683a initial checkin
james
parents:
diff changeset
   870
f67b97bc683a initial checkin
james
parents:
diff changeset
   871
   aStringToBeCleaned:=aDirtyString.
f67b97bc683a initial checkin
james
parents:
diff changeset
   872
f67b97bc683a initial checkin
james
parents:
diff changeset
   873
(aStringToBeCleaned endsWith:(Character cr)) ifTrue:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   874
                        aStringToBeCleaned:=aStringToBeCleaned copyFrom:1 to: (aStringToBeCleaned size -1).].
f67b97bc683a initial checkin
james
parents:
diff changeset
   875
aStringToBeCleaned:= aStringToBeCleaned withoutSeparators.
f67b97bc683a initial checkin
james
parents:
diff changeset
   876
f67b97bc683a initial checkin
james
parents:
diff changeset
   877
f67b97bc683a initial checkin
james
parents:
diff changeset
   878
rs:=ReadStream on: aStringToBeCleaned.
f67b97bc683a initial checkin
james
parents:
diff changeset
   879
[rs upToAll: '#true'.  rs atEnd] whileFalse: [
f67b97bc683a initial checkin
james
parents:
diff changeset
   880
                        position:= rs position. 
f67b97bc683a initial checkin
james
parents:
diff changeset
   881
                        aStringToBeCleaned:=aStringToBeCleaned copyReplaceFrom: position to: position with: ''. "remove #"
f67b97bc683a initial checkin
james
parents:
diff changeset
   882
                        rs:=ReadStream on: aStringToBeCleaned.
f67b97bc683a initial checkin
james
parents:
diff changeset
   883
                        ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   884
f67b97bc683a initial checkin
james
parents:
diff changeset
   885
rs:=ReadStream on: aStringToBeCleaned.
f67b97bc683a initial checkin
james
parents:
diff changeset
   886
[rs upToAll: '#false'.  rs atEnd] whileFalse: [
f67b97bc683a initial checkin
james
parents:
diff changeset
   887
                        position:= rs position. 
f67b97bc683a initial checkin
james
parents:
diff changeset
   888
                        aStringToBeCleaned:=aStringToBeCleaned copyReplaceFrom: position to: position with: ''. "remove #"
f67b97bc683a initial checkin
james
parents:
diff changeset
   889
                        rs:=ReadStream on: aStringToBeCleaned.
f67b97bc683a initial checkin
james
parents:
diff changeset
   890
                        rs:=ReadStream on: aStringToBeCleaned. ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   891
f67b97bc683a initial checkin
james
parents:
diff changeset
   892
[rs upToAll: '#nil'.  rs atEnd] whileFalse: [
f67b97bc683a initial checkin
james
parents:
diff changeset
   893
                        position:= rs position. 
f67b97bc683a initial checkin
james
parents:
diff changeset
   894
                        aStringToBeCleaned:=aStringToBeCleaned copyReplaceFrom: position to: position with: ''. "remove #"
f67b97bc683a initial checkin
james
parents:
diff changeset
   895
                        rs:=ReadStream on: aStringToBeCleaned.  ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   896
                   ^aStringToBeCleaned    
f67b97bc683a initial checkin
james
parents:
diff changeset
   897
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   898
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   899
markMatchingClasses: aSelector  classesWithSelector:anOrderedCollection
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   900
   " Matches the class of the receiver with all the elements in anOrderedCollection
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   901
    (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
   902
    The classes are then sorted so the the asterisk appears first. Return the 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   903
    markedClassList."
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   904
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   905
        | marker recClass unmarkedClassList firstPartOfSelector markedClassList|
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   906
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   907
        marker := self class markerForImplementingClass.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   908
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   909
        recClass := receiver value class.
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   910
        unmarkedClassList:=anOrderedCollection copy.
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   911
        unmarkedClassList do:
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   912
                [:classAndMethod | | class |
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   913
                class:=Compiler evaluate:
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   914
                                ((ReadStream on: classAndMethod) upToAll: aSelector).
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   915
                "/ (recClass == class)
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   916
                (recClass whichClassImplements:aSelector) == class
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   917
                ifTrue:
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   918
                        ["/ unmarkedClassList add: marker, classAndMethod.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   919
                        unmarkedClassList add: classAndMethod allBold.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   920
                        unmarkedClassList remove: classAndMethod.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   921
                        ].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   922
        ].
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   923
f67b97bc683a initial checkin
james
parents:
diff changeset
   924
      unmarkedClassList sort:[:a :b | |rawA rawB|
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   925
                    rawA := a string.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   926
                    (rawA startsWith:marker) ifTrue:[rawA := rawA copyFrom:marker size+1].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   927
                    rawB := b string.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   928
                    (rawB startsWith:marker) ifTrue:[rawB := rawB copyFrom:marker size+1].
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   929
                    rawA < rawB.  ].
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   930
      markedClassList:= unmarkedClassList. 
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   931
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   932
         ^markedClassList
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   933
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   934
    "Modified: / 13.11.2001 / 12:16:05 / cg"
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   935
!
f67b97bc683a initial checkin
james
parents:
diff changeset
   936
f67b97bc683a initial checkin
james
parents:
diff changeset
   937
mergReciever: aReceiver WithArgument: arguments
f67b97bc683a initial checkin
james
parents:
diff changeset
   938
1525
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   939
"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
   940
 MethodFinder. Return an array."
c91fbd9f8338 checkin from browser
james
parents: 1522
diff changeset
   941
1522
f67b97bc683a initial checkin
james
parents:
diff changeset
   942
| tempReceiver tempArguments receiverWithArgument|
f67b97bc683a initial checkin
james
parents:
diff changeset
   943
f67b97bc683a initial checkin
james
parents:
diff changeset
   944
  tempReceiver:= aReceiver.
f67b97bc683a initial checkin
james
parents:
diff changeset
   945
 tempArguments :=  arguments.
f67b97bc683a initial checkin
james
parents:
diff changeset
   946
f67b97bc683a initial checkin
james
parents:
diff changeset
   947
(tempArguments isEmpty or:[(tempArguments) isNil])
f67b97bc683a initial checkin
james
parents:
diff changeset
   948
                ifTrue:[  receiverWithArgument:=Array new:1."no argument"
f67b97bc683a initial checkin
james
parents:
diff changeset
   949
                          receiverWithArgument at:1 put: tempReceiver.     
f67b97bc683a initial checkin
james
parents:
diff changeset
   950
                        ]
f67b97bc683a initial checkin
james
parents:
diff changeset
   951
                ifFalse:[
f67b97bc683a initial checkin
james
parents:
diff changeset
   952
        (tempArguments size = 1)
f67b97bc683a initial checkin
james
parents:
diff changeset
   953
                        ifTrue:[ receiverWithArgument:=Array new:2.
f67b97bc683a initial checkin
james
parents:
diff changeset
   954
                                  receiverWithArgument at:1 put: tempReceiver.      
f67b97bc683a initial checkin
james
parents:
diff changeset
   955
                                  receiverWithArgument at:2 put: (tempArguments at:1)
f67b97bc683a initial checkin
james
parents:
diff changeset
   956
                                ].  "a receiver with an argument"
f67b97bc683a initial checkin
james
parents:
diff changeset
   957
f67b97bc683a initial checkin
james
parents:
diff changeset
   958
        (tempArguments size = 2)
f67b97bc683a initial checkin
james
parents:
diff changeset
   959
                        ifTrue:[ receiverWithArgument:=Array new:3.
f67b97bc683a initial checkin
james
parents:
diff changeset
   960
                                  receiverWithArgument at:1 put: tempReceiver.      
f67b97bc683a initial checkin
james
parents:
diff changeset
   961
                                  (receiverWithArgument at:2 put: (tempArguments at:1)).
f67b97bc683a initial checkin
james
parents:
diff changeset
   962
                                  (receiverWithArgument at:3 put: (tempArguments at:2))
f67b97bc683a initial checkin
james
parents:
diff changeset
   963
                                ].  "a receiver with an argument"
f67b97bc683a initial checkin
james
parents:
diff changeset
   964
        (tempArguments size = 3)
f67b97bc683a initial checkin
james
parents:
diff changeset
   965
                        ifTrue:[ receiverWithArgument:=Array new:4.
f67b97bc683a initial checkin
james
parents:
diff changeset
   966
                                  receiverWithArgument at:1 put: tempReceiver.      
f67b97bc683a initial checkin
james
parents:
diff changeset
   967
                                  (receiverWithArgument at:2 put: (tempArguments at:1)).
f67b97bc683a initial checkin
james
parents:
diff changeset
   968
                                  (receiverWithArgument at:3 put: (tempArguments at:2)).
f67b97bc683a initial checkin
james
parents:
diff changeset
   969
                                  (receiverWithArgument at:4 put: (tempArguments at:3)).
f67b97bc683a initial checkin
james
parents:
diff changeset
   970
f67b97bc683a initial checkin
james
parents:
diff changeset
   971
                                ].  "a receiver with an argument"
f67b97bc683a initial checkin
james
parents:
diff changeset
   972
f67b97bc683a initial checkin
james
parents:
diff changeset
   973
                        ].
f67b97bc683a initial checkin
james
parents:
diff changeset
   974
^receiverWithArgument
f67b97bc683a initial checkin
james
parents:
diff changeset
   975
! !
f67b97bc683a initial checkin
james
parents:
diff changeset
   976
1532
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   977
!MethodFinderWindow methodsFor:'misc'!
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   978
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   979
aboutThisApplicationText
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   980
    |msg|
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   981
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   982
    msg := super aboutThisApplicationText.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   983
    msg := msg , '\\Ported from Squeak to ST/X by James Hayes (james@exept.de)'.
318c295490c1 GUI enhanced
Claus Gittinger <cg@exept.de>
parents: 1531
diff changeset
   984
    ^msg withCRs.
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
    "Modified: / 13.11.2001 / 12:56:44 / 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
!MethodFinderWindow class methodsFor:'documentation'!
f67b97bc683a initial checkin
james
parents:
diff changeset
   990
f67b97bc683a initial checkin
james
parents:
diff changeset
   991
version
f67b97bc683a initial checkin
james
parents:
diff changeset
   992
    ^ '$Header$'
f67b97bc683a initial checkin
james
parents:
diff changeset
   993
! !