--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SmallSense__ClassPO.st	Sat Aug 24 22:15:09 2013 +0100
@@ -0,0 +1,47 @@
+"{ Package: 'jv:smallsense' }"
+
+"{ NameSpace: SmallSense }"
+
+PO subclass:#ClassPO
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'SmallSense-Interface-PO'
+!
+
+
+!ClassPO methodsFor:'accessing'!
+
+icon
+
+    icon ifNil:[icon := SystemBrowser iconForClass: subject].
+    ^icon
+
+    "Created: / 06-04-2011 / 23:36:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+subject: aClass
+
+    super subject: aClass.
+    name := aClass name.
+
+    "Created: / 06-04-2011 / 21:02:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!ClassPO methodsFor:'testing'!
+
+isSmallSenseClassPO
+    ^ true
+! !
+
+!ClassPO class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
+version_SVN
+    ^ '$Id: SmallSenseClass.st 7825 2011-11-26 18:32:31Z vranyj1 $'
+! !
+