--- a/SmallSense__VariablePO.st	Sat May 10 12:08:16 2014 +0100
+++ b/SmallSense__VariablePO.st	Thu Jun 19 11:33:05 2014 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: SmallSense }"
 
 PO subclass:#VariablePO
-	instanceVariableNames:'class type'
+	instanceVariableNames:'class type name'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SmallSense-Core-Interface-PO'
@@ -55,13 +55,30 @@
     "Created: / 06-04-2011 / 16:51:42 / Jakub <zelenja7@fel.cvut.cz>"
 !
 
-stringToCompleteForLanguage: language
+label
+    ^ name
+
+    "Created: / 20-05-2014 / 11:30:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+name
+    ^ name
 
+    "Created: / 20-05-2014 / 11:38:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+name: aString
+    name := aString
+
+    "Created: / 20-05-2014 / 11:37:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+stringToCompleteForLanguage:aProgrammingLanguage
     "Answers a string to complete"
 
-    ^name "/, ' '
+    ^ name
 
-    "Created: / 31-03-2014 / 23:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 20-05-2014 / 11:33:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 type:something