equal
deleted
inserted
replaced
3624 ! |
3624 ! |
3625 |
3625 |
3626 readAbbrevFile |
3626 readAbbrevFile |
3627 "read the abbrev file and install classes found there as autoloaded classes" |
3627 "read the abbrev file and install classes found there as autoloaded classes" |
3628 |
3628 |
3629 |sel| |
3629 |sel current| |
3630 |
3630 |
3631 sel := self singleSelectedFile. |
3631 current := currentDirectory asFilename. |
3632 sel isNil ifTrue:[ |
3632 sel := fileListView selection. |
3633 sel := currentDirectory asFilename construct:'abbrev.stc'. |
3633 sel size == 0 ifTrue:[ |
3634 ]. |
3634 Smalltalk installAutoloadedClassesFrom:(current construct:'abbrev.stc'). |
3635 sel notNil ifTrue:[ |
3635 ^ self |
3636 self withWaitCursorDo:[ |
3636 ]. |
3637 Smalltalk installAutoloadedClassesFrom:sel |
3637 sel do:[:eachIndex | |
3638 ] |
3638 |f| |
3639 ]. |
3639 |
3640 |
3640 f := fileList at:eachIndex ifAbsent:nil. |
3641 "Created: / 4.2.1999 / 17:40:42 / cg" |
3641 f := current construct:f. |
3642 "Modified: / 10.11.2001 / 13:12:34 / cg" |
3642 f isDirectory ifTrue:[ |
|
3643 f := f construct:'abbrev.stc' |
|
3644 ]. |
|
3645 Smalltalk installAutoloadedClassesFrom:f. |
|
3646 ]. |
3643 ! |
3647 ! |
3644 |
3648 |
3645 revisitFile:aFileName |
3649 revisitFile:aFileName |
3646 |lineNr| |
3650 |lineNr| |
3647 |
3651 |
7721 ! ! |
7725 ! ! |
7722 |
7726 |
7723 !FileBrowser class methodsFor:'documentation'! |
7727 !FileBrowser class methodsFor:'documentation'! |
7724 |
7728 |
7725 version |
7729 version |
7726 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.456 2002-01-07 18:16:16 cg Exp $' |
7730 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.457 2002-01-28 10:27:14 cg Exp $' |
7727 ! ! |
7731 ! ! |