equal
deleted
inserted
replaced
4027 "Modified: / 5.3.1998 / 01:27:53 / cg" |
4027 "Modified: / 5.3.1998 / 01:27:53 / cg" |
4028 ! ! |
4028 ! ! |
4029 |
4029 |
4030 !FileBrowser methodsFor:'queries'! |
4030 !FileBrowser methodsFor:'queries'! |
4031 |
4031 |
|
4032 fileName |
|
4033 "return my current fileName" |
|
4034 |
|
4035 ^ self path asFilename construct:currentFileName |
|
4036 |
|
4037 " |
|
4038 (FileBrowser openOnFileNamed:'Makefile') fileName |
|
4039 " |
|
4040 |
|
4041 "Modified: / 18.6.1998 / 14:58:54 / cg" |
|
4042 ! |
|
4043 |
4032 path |
4044 path |
4033 "return my currentDirectories pathName; |
4045 "return my currentDirectories pathName; |
4034 sent from the pathField to aquire the pathname when I changed directory" |
4046 sent from the pathField to aquire the pathname when I changed directory" |
4035 |
4047 |
4036 "/ somewhat tricky: first ask it for the full pathName, |
4048 "/ somewhat tricky: first ask it for the full pathName, |
4041 ! ! |
4053 ! ! |
4042 |
4054 |
4043 !FileBrowser class methodsFor:'documentation'! |
4055 !FileBrowser class methodsFor:'documentation'! |
4044 |
4056 |
4045 version |
4057 version |
4046 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.226 1998-06-17 09:27:32 cg Exp $' |
4058 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.227 1998-06-18 12:59:42 cg Exp $' |
4047 ! ! |
4059 ! ! |