SmallSense__PackagePO.st
changeset 344 88d012c17762
parent 343 b3d22e8c0a05
child 346 88c1d211f9be
--- a/SmallSense__PackagePO.st	Thu Jun 19 11:33:05 2014 +0100
+++ b/SmallSense__PackagePO.st	Thu Jun 19 13:15:27 2014 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: SmallSense }"
 
 PO subclass:#PackagePO
-	instanceVariableNames:'name projectDefinition isJava'
+	instanceVariableNames:'package packageDefinition isJava'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Core-Interface-PO'
@@ -17,21 +17,43 @@
     "Created: / 06-05-2014 / 00:09:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+label
+    "Return a text to be displayed. The label may be cached
+     `label` instvar."
+
+    ^ package
+
+    "Created: / 19-06-2014 / 12:04:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 name
-    ^ name 
+    ^ package 
 
     "Created: / 06-05-2014 / 00:01:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-projectDefinition
-    projectDefinition isNil ifTrue:[ 
-        projectDefinition := ProjectDefinition definitionClassForPackage: name.  
+package
+    ^ package
+!
+
+packageDefinition
+    packageDefinition isNil ifTrue:[
+        packageDefinition := ProjectDefinition definitionClassForPackage:package.
     ].
-    ^ projectDefinition
+    ^ packageDefinition
 
     "Created: / 06-05-2014 / 00:05:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!PackagePO methodsFor:'initialization'!
+
+initializeWithPackage: aStringOrSymbol
+    package := aStringOrSymbol.
+    isJava := false.
+
+    "Created: / 19-06-2014 / 12:02:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !PackagePO methodsFor:'testing'!
 
 isSmallSensePackagePO