Levente Uzonyi uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-ul.108.mcz
==================== Summary ====================
Name: Files-ul.108
Author: ul
Time: 26 April 2011, 4:17:22.631 am
UUID: 6db817ff-7efb-0846-b0f8-27cdf91b3e65
Ancestors: Files-dtl.107
- use #== for Symbol-Symbol comparison
=============== Diff against Files-dtl.107 ===============
Item was changed:
----- Method: FileDirectory>>directoryContentsFor:do: (in category 'private') -----
directoryContentsFor: fullPath do: aBlock
"Do aBlock for the files and directories in the directory with the given path. See primLookupEntryIn:index: for further details."
| f entryArray index |
f := fullPath asVmPathName.
index := 1.
[(entryArray := self primLookupEntryIn: f index: index) == nil] whileFalse: [
+ #badDirectoryPath == entryArray ifTrue: [
- #badDirectoryPath = entryArray ifTrue: [
^(InvalidDirectoryError pathName: pathName) signal].
index := index + 1.
aBlock value: (DirectoryEntry fromArray: entryArray directory: self) convertFromSystemName]!
Levente Uzonyi uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-ul.108.mcz
==================== Summary ====================
Name: Files-ul.108
Author: ul
Time: 26 April 2011, 4:17:22.631 am
UUID: 6db817ff-7efb-0846-b0f8-27cdf91b3e65
Ancestors: Files-dtl.107
- use #== for Symbol-Symbol comparison
=============== Diff against Files-dtl.107 ===============
Item was changed:
----- Method: FileDirectory>>directoryContentsFor:do: (in category 'private') -----
directoryContentsFor: fullPath do: aBlock
"Do aBlock for the files and directories in the directory with the given path. See primLookupEntryIn:index: for further details."
| f entryArray index |
f := fullPath asVmPathName.
index := 1.
[(entryArray := self primLookupEntryIn: f index: index) == nil] whileFalse: [
+ #badDirectoryPath == entryArray ifTrue: [
- #badDirectoryPath = entryArray ifTrue: [
^(InvalidDirectoryError pathName: pathName) signal].
index := index + 1.
aBlock value: (DirectoryEntry fromArray: entryArray directory: self) convertFromSystemName]!
Levente Uzonyi uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-ul.108.mcz
==================== Summary ====================
Name: Files-ul.108
Author: ul
Time: 26 April 2011, 4:17:22.631 am
UUID: 6db817ff-7efb-0846-b0f8-27cdf91b3e65
Ancestors: Files-dtl.107
- use #== for Symbol-Symbol comparison
=============== Diff against Files-dtl.107 ===============
Item was changed:
----- Method: FileDirectory>>directoryContentsFor:do: (in category 'private') -----
directoryContentsFor: fullPath do: aBlock
"Do aBlock for the files and directories in the directory with the given path. See primLookupEntryIn:index: for further details."
| f entryArray index |
f := fullPath asVmPathName.
index := 1.
[(entryArray := self primLookupEntryIn: f index: index) == nil] whileFalse: [
+ #badDirectoryPath == entryArray ifTrue: [
- #badDirectoryPath = entryArray ifTrue: [
^(InvalidDirectoryError pathName: pathName) signal].
index := index + 1.
aBlock value: (DirectoryEntry fromArray: entryArray directory: self) convertFromSystemName]!
Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.344.mcz
==================== Summary ====================
Name: Tools-fbs.344
Author: fbs
Time: 25 April 2011, 7:33:52.584 pm
UUID: 9e729fc7-f8d1-e145-9d32-930c91bfd5a8
Ancestors: Tools-fbs.343
Balázs Kósi found another bug, deleting a class with a method selected. This should resolve this bug and any others of a similar nature. If the currently selected class doesn't exist, consider this the same as having no class selected.
=============== Diff against Tools-fbs.343 ===============
Item was changed:
----- Method: Browser>>selectedClass (in category 'class list') -----
selectedClass
"Answer the class that is currently selected. Answer nil if no selection
exists."
| name envt |
(name := self selectedClassName) ifNil: [^ nil].
(envt := self selectedEnvironment) ifNil: [^ nil].
+ ^ envt at: name ifAbsent: [nil]!
- ^ envt at: name!
Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.344.mcz
==================== Summary ====================
Name: Tools-fbs.344
Author: fbs
Time: 25 April 2011, 7:33:52.584 pm
UUID: 9e729fc7-f8d1-e145-9d32-930c91bfd5a8
Ancestors: Tools-fbs.343
Balázs Kósi found another bug, deleting a class with a method selected. This should resolve this bug and any others of a similar nature. If the currently selected class doesn't exist, consider this the same as having no class selected.
=============== Diff against Tools-fbs.343 ===============
Item was changed:
----- Method: Browser>>selectedClass (in category 'class list') -----
selectedClass
"Answer the class that is currently selected. Answer nil if no selection
exists."
| name envt |
(name := self selectedClassName) ifNil: [^ nil].
(envt := self selectedEnvironment) ifNil: [^ nil].
+ ^ envt at: name ifAbsent: [nil]!
- ^ envt at: name!
Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.344.mcz
==================== Summary ====================
Name: Tools-fbs.344
Author: fbs
Time: 25 April 2011, 7:33:52.584 pm
UUID: 9e729fc7-f8d1-e145-9d32-930c91bfd5a8
Ancestors: Tools-fbs.343
Balázs Kósi found another bug, deleting a class with a method selected. This should resolve this bug and any others of a similar nature. If the currently selected class doesn't exist, consider this the same as having no class selected.
=============== Diff against Tools-fbs.343 ===============
Item was changed:
----- Method: Browser>>selectedClass (in category 'class list') -----
selectedClass
"Answer the class that is currently selected. Answer nil if no selection
exists."
| name envt |
(name := self selectedClassName) ifNil: [^ nil].
(envt := self selectedEnvironment) ifNil: [^ nil].
+ ^ envt at: name ifAbsent: [nil]!
- ^ envt at: name!