equal
deleted
inserted
replaced
31 |
31 |
32 |
32 |
33 ! ! |
33 ! ! |
34 |
34 |
35 !NewChangesBrowser class methodsFor:'instance creation'! |
35 !NewChangesBrowser class methodsFor:'instance creation'! |
|
36 |
|
37 openOn:aFileName |
|
38 "opens a Changes Browser with the changes of the aFileName" |
|
39 |
|
40 ^self openOnFile:aFileName |
|
41 |
|
42 "Created: / 17.10.1998 / 14:41:28 / cg" |
|
43 ! |
36 |
44 |
37 openOnFile:aFileName |
45 openOnFile:aFileName |
38 "opens a Changes Browser with the changes of the aFileName" |
46 "opens a Changes Browser with the changes of the aFileName" |
39 |
47 |
40 ^self new |
48 ^self new |
1713 ! |
1721 ! |
1714 |
1722 |
1715 changeFileName:aFileName |
1723 changeFileName:aFileName |
1716 "sets the name of the file with the changes" |
1724 "sets the name of the file with the changes" |
1717 |
1725 |
1718 changeFileName := (Filename currentDirectory asAbsoluteFilename construct: aFileName) name. |
1726 changeFileName := aFileName asFilename name. |
|
1727 "/ (Filename currentDirectory asAbsoluteFilename construct: aFileName) name. |
|
1728 |
|
1729 "Modified: / 17.10.1998 / 14:43:01 / cg" |
1719 ! |
1730 ! |
1720 |
1731 |
1721 checkClassIsLoaded:aClass |
1732 checkClassIsLoaded:aClass |
1722 "returns true if aClass is loaded" |
1733 "returns true if aClass is loaded" |
1723 |
1734 |
3505 ! ! |
3516 ! ! |
3506 |
3517 |
3507 !NewChangesBrowser class methodsFor:'documentation'! |
3518 !NewChangesBrowser class methodsFor:'documentation'! |
3508 |
3519 |
3509 version |
3520 version |
3510 ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.22 1998-09-15 09:03:17 tz Exp $' |
3521 ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.23 1998-10-17 13:25:54 cg Exp $' |
3511 ! ! |
3522 ! ! |