>From 4cd84aed0eae104c7b4f7ed724bc302e4bfe9a2f Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <address@hidden>
Date: Sun, 25 Sep 2011 22:38:29 +0200
Subject: [PATCH] lint: Add missing categories to classes in the kernel

Object allSubclasses select: [:each | each category isNil]
---
 ChangeLog           |    6 ++++++
 kernel/File.st      |    1 +
 kernel/PkgLoader.st |    4 ++++
 kernel/VFS.st       |    1 +
 4 files changed, 12 insertions(+), 0 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 67caa84..dd6f720 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2011-09-25  Holger Hans Peter Freyther  <address@hidden>
+
+	* kernel/File.st: Add a <category: 'text'> to the class.
+	* kernel/PkgLoader.st: Ditto.
+	* kernel/VFS.st: Ditto.
+
 2011-09-22  Paolo Bonzini  <address@hidden>
 
 	* kernel/Delay.st: Restart pending delays when the image restarts.
diff --git a/kernel/File.st b/kernel/File.st
index 3cc77eb..426a415 100644
--- a/kernel/File.st
+++ b/kernel/File.st
@@ -646,6 +646,7 @@ FilePath subclass: File [
 Namespace current: Kernel [
 
 Object subclass: Stat [
+    <category: 'Streams-Files'>
     
     | stMode stSize stAtime stMtime stCtime |
     stMode [ ^stMode ]
diff --git a/kernel/PkgLoader.st b/kernel/PkgLoader.st
index c3aac39..8a3a429 100644
--- a/kernel/PkgLoader.st
+++ b/kernel/PkgLoader.st
@@ -388,6 +388,8 @@ Namespace current: Kernel [
 PackageContainer subclass: PackageDirectory [
     | baseDirectories baseDirCache |
 
+    <category: 'Language-Packaging'>
+
     PackageContainer class >> on: aFile baseDirectories: aBlock [
 	<category: 'accessing'>
 	^(super new)
@@ -1108,6 +1110,8 @@ Namespace current: Kernel [
 Object subclass: Version [
     | major minor patch |
 
+    <category: 'Language-Packaging'>
+
     Version class >> fromString: aString [
 	<category: 'instance creation'>
 
diff --git a/kernel/VFS.st b/kernel/VFS.st
index 62b8d97..75e214d 100644
--- a/kernel/VFS.st
+++ b/kernel/VFS.st
@@ -347,6 +347,7 @@ virtual files that refer to a real file on disk.'>
 Namespace current: Kernel [
 
 VFS.FileWrapper subclass: RecursiveFileWrapper [
+    <category: 'Streams-Files'>
 
      do: aBlock [
 	"Same as the wrapped #do:, but reuses the file object for efficiency."
-- 
1.7.4.1