equal
deleted
inserted
replaced
27 |
27 |
28 DebugView comment:' |
28 DebugView comment:' |
29 COPYRIGHT (c) 1989 by Claus Gittinger |
29 COPYRIGHT (c) 1989 by Claus Gittinger |
30 All Rights Reserved |
30 All Rights Reserved |
31 |
31 |
32 $Header: /cvs/stx/stx/libtool/DebugView.st,v 1.40 1995-07-23 03:18:58 claus Exp $ |
32 $Header: /cvs/stx/stx/libtool/DebugView.st,v 1.41 1995-08-10 13:13:53 claus Exp $ |
33 '! |
33 '! |
34 |
34 |
35 !DebugView class methodsFor:'documentation'! |
35 !DebugView class methodsFor:'documentation'! |
36 |
36 |
37 copyright |
37 copyright |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 version |
51 version |
52 " |
52 " |
53 $Header: /cvs/stx/stx/libtool/DebugView.st,v 1.40 1995-07-23 03:18:58 claus Exp $ |
53 $Header: /cvs/stx/stx/libtool/DebugView.st,v 1.41 1995-08-10 13:13:53 claus Exp $ |
|
54 $Revision: 1.41 $ |
54 " |
55 " |
55 ! |
56 ! |
56 |
57 |
57 documentation |
58 documentation |
58 " |
59 " |
1586 code isNil ifTrue:[ |
1587 code isNil ifTrue:[ |
1587 canAccept := false. |
1588 canAccept := false. |
1588 ] ifFalse:[ |
1589 ] ifFalse:[ |
1589 codeView contents:code. |
1590 codeView contents:code. |
1590 (lineNrInMethod notNil and:[lineNrInMethod ~~ 0]) ifTrue:[ |
1591 (lineNrInMethod notNil and:[lineNrInMethod ~~ 0]) ifTrue:[ |
1591 lineNrInMethod > codeView list size ifTrue:[ |
1592 "/ lineNrInMethod > codeView list size ifTrue:[ |
1592 lineNrInMethod := codeView list size + 1 |
1593 "/ lineNrInMethod := codeView list size + 1 |
1593 ]. |
1594 "/ ]. |
1594 codeView selectLine:lineNrInMethod. |
1595 "/ codeView selectLine:lineNrInMethod. |
1595 codeView makeSelectionVisible |
1596 "/ codeView makeSelectionVisible |
|
1597 lineNrInMethod <= codeView list size ifTrue:[ |
|
1598 codeView selectLine:lineNrInMethod. |
|
1599 codeView makeSelectionVisible |
|
1600 ] |
1596 ]. |
1601 ]. |
1597 ]. |
1602 ]. |
1598 |
1603 |
1599 canAccept ifTrue:[ |
1604 canAccept ifTrue:[ |
1600 codeView acceptAction:[:code | self codeAccept:code asString] |
1605 codeView acceptAction:[:code | self codeAccept:code asString] |