6130 |
6130 |
6131 |items m specialMenu| |
6131 |items m specialMenu| |
6132 |
6132 |
6133 (currentMethod notNil |
6133 (currentMethod notNil |
6134 and:[currentMethod isWrapped]) ifTrue:[ |
6134 and:[currentMethod isWrapped]) ifTrue:[ |
6135 items := #( |
6135 items := #( |
6136 ('inspect method' methodInspect ) |
6136 ('inspect method' methodInspect ) |
6137 ('decompile' methodDecompile ) |
6137 ('decompile' methodDecompile ) |
6138 ('-' nil ) |
6138 ('-' nil ) |
6139 ('remove break/trace' methodRemoveBreakOrTrace ) |
6139 ). |
6140 ). |
6140 |
|
6141 currentMethod isCounting ifTrue:[ |
|
6142 items := items , #( |
|
6143 ('stop counting' methodStopCounting) |
|
6144 ('reset count' methodResetCounting) |
|
6145 ). |
|
6146 ] ifFalse:[ |
|
6147 currentMethod isCountingMemoryUsage ifTrue:[ |
|
6148 items := items , #( |
|
6149 ('stop mem usage' methodStopMemoryUsage) |
|
6150 ('reset mem count' methodResetMemoryUsage) |
|
6151 ). |
|
6152 ] ifFalse:[ |
|
6153 currentMethod isTimed ifTrue:[ |
|
6154 items := items , #( |
|
6155 ('stop timing' methodStopTiming) |
|
6156 ('reset times' methodResetTiming) |
|
6157 ). |
|
6158 ] ifFalse:[ |
|
6159 items := items , #( |
|
6160 ('remove break/trace' methodRemoveBreakOrTrace ) |
|
6161 ). |
|
6162 ] |
|
6163 ] |
|
6164 ] |
6141 ] ifFalse:[ |
6165 ] ifFalse:[ |
6142 items := #( |
6166 items := #( |
6143 ('inspect method' methodInspect ) |
6167 ('inspect method' methodInspect ) |
6144 ('decompile' methodDecompile ) |
6168 ('decompile' methodDecompile ) |
6145 ('-' nil ) |
6169 ('-' nil ) |
6146 ('breakpoint' methodBreakPoint ) |
6170 ('breakpoint' methodBreakPoint ) |
6147 ('breakpoint in...' methodBreakPointInProcess) |
6171 ('breakpoint in...' methodBreakPointInProcess) |
6148 ('-' nil ) |
6172 ('-' nil ) |
6149 ('trace' methodTrace ) |
6173 ('trace' methodTrace ) |
6150 ('trace sender' methodTraceSender ) |
6174 ('trace sender' methodTraceSender ) |
6151 ('trace full walkback' methodTraceFull ) |
6175 ('trace full walkback' methodTraceFull ) |
6152 ('-' nil ) |
6176 ('-' nil ) |
6153 ('start timing' methodStartTiming ) |
6177 ('start timing' methodStartTiming ) |
6154 ('start counting' methodStartCounting ) |
6178 ('start counting' methodStartCounting ) |
6155 ('start mem usage' methodStartMemoryUsage ) |
6179 ('start mem usage' methodStartMemoryUsage ) |
6156 ). |
6180 ). |
6157 ]. |
6181 ]. |
6158 specialMenu := PopUpMenu |
6182 specialMenu := PopUpMenu |
6159 itemList:items |
6183 itemList:items |
6160 resources:resources. |
6184 resources:resources. |
6161 |
6185 |
6162 device ctrlDown ifTrue:[ |
6186 device ctrlDown ifTrue:[ |
6163 currentMethod isNil ifTrue:[ |
6187 currentMethod isNil ifTrue:[ |
6164 classMethodListView flash. |
6188 classMethodListView flash. |
6165 ^ nil |
6189 ^ nil |
6166 ]. |
6190 ]. |
6167 |
6191 |
6168 ^ specialMenu |
6192 ^ specialMenu |
6169 ]. |
6193 ]. |
6170 |
6194 |
6171 items := #( |
6195 items := #( |
6172 ('fileOut' methodFileOut ) |
6196 ('fileOut' methodFileOut ) |
6173 ('fileOut all' classMethodFileOutAll ) |
6197 ('fileOut all' classMethodFileOutAll ) |
6174 ('printOut' methodPrintOut ) |
6198 ('printOut' methodPrintOut ) |
6175 ('-' nil ) |
6199 ('-' nil ) |
6176 ('browse' classMethodBrowse ) |
6200 ('browse' classMethodBrowse ) |
6177 ('spawn' methodSpawn ) |
6201 ('spawn' methodSpawn ) |
6178 ('spawn class' classSpawn ) |
6202 ('spawn class' classSpawn ) |
6179 ('spawn full protocol' classSpawnFullProtocol ) |
6203 ('spawn full protocol' classSpawnFullProtocol ) |
6180 ('spawn hierarchy' classSpawnHierarchy ) |
6204 ('spawn hierarchy' classSpawnHierarchy ) |
6181 ('-' nil ) |
6205 ('-' nil ) |
6182 ('filter...' classMethodFilter ) |
6206 ('filter...' classMethodFilter ) |
6183 ('senders...' methodSenders Cmds ) |
6207 ('senders...' methodSenders Cmds ) |
6184 ('implementors...' methodImplementors Cmdi ) |
6208 ('implementors...' methodImplementors Cmdi ) |
6185 ('globals...' methodGlobalReferends Cmdg ) |
6209 ('globals...' methodGlobalReferends Cmdg ) |
6186 ('-' nil ) |
6210 ('-' nil ) |
6187 ('remove' methodRemove ) |
6211 ('remove' methodRemove ) |
6188 ('-' nil ) |
6212 ('-' nil ) |
6189 ('others' othersMenu Ctrl ) |
6213 ('others' othersMenu Ctrl ) |
6190 ). |
6214 ). |
6191 |
6215 |
6192 m := PopUpMenu itemList:items resources:resources. |
6216 m := PopUpMenu itemList:items resources:resources. |
6193 m subMenuAt:#othersMenu put:specialMenu. |
6217 m subMenuAt:#othersMenu put:specialMenu. |
6194 ^ m |
6218 ^ m |
6195 |
6219 |
6383 "helper for classMethod-list - extract selector from the string" |
6407 "helper for classMethod-list - extract selector from the string" |
6384 |
6408 |
6385 |pos s| |
6409 |pos s| |
6386 |
6410 |
6387 s := aString string withoutSpaces. |
6411 s := aString string withoutSpaces. |
6388 (s endsWith:'}') ifTrue:[ |
6412 (s includes:$}) ifTrue:[ |
6389 s := s copyTo:(s lastIndexOf:${) - 1. |
6413 s := s copyTo:(s lastIndexOf:${) - 1. |
6390 s := s withoutSpaces. |
6414 s := s withoutSpaces. |
6391 ]. |
6415 ]. |
6392 |
6416 |
6393 (s endsWith:' !!') ifTrue:[ |
6417 (s endsWith:' !!') ifTrue:[ |
6394 s := s copyWithoutLast:2 |
6418 s := s copyWithoutLast:2 |
6395 ]. |
6419 ]. |
6396 (s endsWith:')') ifTrue:[ |
6420 (s endsWith:')') ifTrue:[ |
6397 s := aString copyTo:(aString lastIndexOf:$()-1. |
6421 s := aString copyTo:(aString lastIndexOf:$()-1. |
6398 s := s withoutSpaces. |
6422 s := s withoutSpaces. |
6399 ]. |
6423 ]. |
6400 (s endsWith:' !!') ifTrue:[ |
6424 (s endsWith:' !!') ifTrue:[ |
6401 s := s copyWithoutLast:2 |
6425 s := s copyWithoutLast:2 |
6402 ]. |
6426 ]. |
6403 pos := s lastIndexOf:(Character space). |
6427 pos := s lastIndexOf:(Character space). |
6404 s := s copyFrom:(pos + 1). |
6428 s := s copyFrom:(pos + 1). |
6405 s := s string. |
6429 s := s string. |
6406 ^ s |
6430 ^ s |