MethodFinderWindow.st
changeset 3854 47c6372ef98e
parent 3839 b37f9731ec27
equal deleted inserted replaced
3853:557296bf53ad 3854:47c6372ef98e
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)
     2  Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)
     5  Copyright (C) 2001 eXept Software AG
     3  Copyright (C) 2001 eXept Software AG
     6 
     4 
     7  Permission is hereby granted, free of charge, to any 
     5  Permission is hereby granted, free of charge, to any 
   182     <resource: #canvas>
   180     <resource: #canvas>
   183 
   181 
   184     ^ 
   182     ^ 
   185     #(FullSpec
   183     #(FullSpec
   186        name: windowSpec
   184        name: windowSpec
   187        uuid: '7da03570-e499-11e9-8918-10ddb1cc5928'
   185        uuid: '466c0b1a-1dd9-11b2-b82a-c45444825dc9'
   188        window: 
   186        window: 
   189       (WindowSpec
   187       (WindowSpec
   190          label: 'MethodFinder'
   188          label: 'MethodFinder'
   191          name: 'MethodFinder'
   189          name: 'MethodFinder'
   192          uuid: '5fb0c87a-89f6-11e9-8df0-b8f6b1108e05'
   190          uuid: '5fb0c87a-89f6-11e9-8df0-b8f6b1108e05'
   237                                      useIndex: true
   235                                      useIndex: true
   238                                   )
   236                                   )
   239                                   (LabelSpec
   237                                   (LabelSpec
   240                                      label: 'Answer'
   238                                      label: 'Answer'
   241                                      name: 'MessageAnswerLabel'
   239                                      name: 'MessageAnswerLabel'
   242                                      layout: (LayoutFrame 0 0.64000000000000135 0 0 0 1 28 0) activeHelpKey: arg1Value
   240                                      layout: (LayoutFrame 0 0.64000000000000135 0 0 0 1 28 0) uuid: '5fb0dd60-89f6-11e9-8df0-b8f6b1108e05'
   243                                      uuid: '5fb0dd60-89f6-11e9-8df0-b8f6b1108e05'
       
   244                                      translateLabel: true
   241                                      translateLabel: true
   245                                   )
   242                                   )
   246                                   (HorizontalPanelViewSpec
   243                                   (HorizontalPanelViewSpec
   247                                      name: 'HorizontalPanel1'
   244                                      name: 'HorizontalPanel1'
   248                                      layout: (LayoutFrame 0 0 30 0 0 1 0 1) uuid: '5fb0dee6-89f6-11e9-8df0-b8f6b1108e05'
   245                                      layout: (LayoutFrame 0 0 30 0 0 1 0 1) uuid: '5fb0dee6-89f6-11e9-8df0-b8f6b1108e05'
   262                                            hasVerticalScrollBar: true
   259                                            hasVerticalScrollBar: true
   263                                            miniScrollerHorizontal: true
   260                                            miniScrollerHorizontal: true
   264                                            miniScrollerVertical: true
   261                                            miniScrollerVertical: true
   265                                            autoHideScrollBars: true
   262                                            autoHideScrollBars: true
   266                                            hasKeyboardFocusInitially: false
   263                                            hasKeyboardFocusInitially: false
   267                                            extent: (Point 86 142) postBuildCallback: receiverWidgetCreated:
   264                                            extent: (Point 87 142) postBuildCallback: receiverWidgetCreated:
   268                                         )
   265                                         )
   269                                         (VerticalPanelViewSpec
   266                                         (VerticalPanelViewSpec
   270                                            name: 'VerticalPanel1'
   267                                            name: 'VerticalPanel1'
   271                                            uuid: '5fb0e51c-89f6-11e9-8df0-b8f6b1108e05'
   268                                            uuid: '5fb0e51c-89f6-11e9-8df0-b8f6b1108e05'
   272                                            horizontalLayout: fit
   269                                            horizontalLayout: fit
  1159 search2Levels
  1156 search2Levels
  1160     "Do an exhaustive search.
  1157     "Do an exhaustive search.
  1161      Given the original message,
  1158      Given the original message,
  1162      try applying all unary messages first to the receiver,
  1159      try applying all unary messages first to the receiver,
  1163      then to each argument.
  1160      then to each argument.
  1164      This takes O(N²) time - so be prepared"
  1161      This takes O(N²) time - so be prepared"
  1165 
  1162 
  1166     |tempReceiver tempAnswer tempArguments numArgs
  1163     |tempReceiver tempAnswer tempArguments numArgs
  1167      anArray resultArray receiverWithArgument mf|
  1164      anArray resultArray receiverWithArgument mf|
  1168 
  1165 
  1169     tempArguments := self argumentEditorsContents.
  1166     tempArguments := self argumentEditorsContents.