equal
deleted
inserted
replaced
50 ! |
50 ! |
51 |
51 |
52 lineNumber |
52 lineNumber |
53 |nr| |
53 |nr| |
54 |
54 |
55 'ask line for pc:' print. pc printCR. |
55 "/ 'ask line for pc:' print. pc printCR. |
56 pc isNil ifTrue:['-> 0 [a]' printCR. ^0]. |
56 pc isNil ifTrue:[" '-> 0 [a]' printCR. " ^0]. |
57 |
57 |
58 nr := method lineNumberForPC:pc. |
58 nr := method lineNumberForPC:pc. |
59 nr isNil ifTrue:['-> 0 [b]' printCR. ^ 0]. |
59 nr isNil ifTrue:[" '-> 0 [b]' printCR. " ^ 0]. |
60 '-> ' print. nr printCR. |
60 "/ '-> ' print. nr printCR. |
61 ^ nr. |
61 ^ nr. |
62 |
62 |
63 "Created: 1.5.1996 / 15:05:47 / cg" |
63 "Created: 1.5.1996 / 15:05:47 / cg" |
64 "Modified: 12.8.1997 / 01:51:37 / cg" |
64 "Modified: 12.8.1997 / 02:39:44 / cg" |
65 ! |
65 ! |
66 |
66 |
67 methodClass |
67 methodClass |
68 ^ class |
68 ^ class |
69 |
69 |
245 ! ! |
245 ! ! |
246 |
246 |
247 !JavaContext class methodsFor:'documentation'! |
247 !JavaContext class methodsFor:'documentation'! |
248 |
248 |
249 version |
249 version |
250 ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaContext.st,v 1.14 1997/08/12 00:37:24 cg Exp $' |
250 ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaContext.st,v 1.15 1997/08/12 00:39:51 cg Exp $' |
251 ! ! |
251 ! ! |