| changeset 651 | b8a14e281c24 |
| parent 646 | 04dafb2560bf |
| child 654 | dac2634ce5ec |
| 650:bb426452251e | 651:b8a14e281c24 |
|---|---|
1314 ] |
1314 ] |
1315 |
1315 |
1316 ! |
1316 ! |
1317 |
1317 |
1318 browse |
1318 browse |
1319 |w cls| |
1319 |mthd w sel cls| |
1320 |
1320 |
1321 w := selectedContext method who. |
1321 mthd := selectedContext method. |
1322 cls := w at:1. |
1322 mthd notNil ifTrue:[ |
1323 "/ cls printCR. |
1323 w := selectedContext method who. |
1324 cls browserClass openInClass:cls selector:(w at:2). |
1324 w notNil ifTrue:[ |
1325 cls := w at:1. |
|
1326 sel := w at:2. |
|
1327 ] |
|
1328 ]. |
|
1329 cls isNil ifTrue:[ |
|
1330 "/ class not found - try receiver |
|
1331 cls := selectedContext receiver class |
|
1332 ]. |
|
1333 |
|
1334 cls browserClass openInClass:cls selector:sel. |
|
1325 |
1335 |
1326 "Created: 22.11.1995 / 21:27:01 / cg" |
1336 "Created: 22.11.1995 / 21:27:01 / cg" |
1327 "Modified: 20.5.1996 / 10:28:16 / cg" |
1337 "Modified: 28.6.1996 / 17:33:50 / cg" |
1328 ! |
1338 ! |
1329 |
1339 |
1330 browseClass |
1340 browseClass |
1331 |w cls| |
1341 |w cls| |
1332 |
1342 |
2569 ! ! |
2579 ! ! |
2570 |
2580 |
2571 !DebugView class methodsFor:'documentation'! |
2581 !DebugView class methodsFor:'documentation'! |
2572 |
2582 |
2573 version |
2583 version |
2574 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.92 1996-06-28 13:55:39 cg Exp $' |
2584 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.93 1996-06-28 21:48:59 cg Exp $' |
2575 ! ! |
2585 ! ! |