--- a/SmallSense__PO.st	Wed Aug 13 20:40:56 2014 +0100
+++ b/SmallSense__PO.st	Thu Aug 14 09:28:16 2014 +0100
@@ -90,12 +90,30 @@
     "Created: / 20-05-2014 / 10:43:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+forFieldBinding: binding
+    ^ VariableBindingPO new binding: binding
+
+    "Created: / 14-08-2014 / 09:04:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 forGlobalNamed: name
     ^ VariablePO globalVariable: name
 
     "Created: / 24-07-2014 / 16:50:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+forInstanceVariableNamed: nm in: cls
+    ^ VariablePO instanceVariable: nm in: cls.
+
+    "Created: / 13-08-2014 / 21:27:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+forLocalVariableBinding: binding
+    ^ VariableBindingPO new binding: binding
+
+    "Created: / 14-08-2014 / 09:04:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 forLocalVariableNamed: nm
     ^ VariablePO variable: nm
 
@@ -110,6 +128,14 @@
     "Created: / 06-04-2011 / 21:01:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!PO class methodsFor:'instance creation-java'!
+
+forMethodBinding: binding
+    ^ MethodBindingPO new binding: binding
+
+    "Created: / 13-08-2014 / 22:24:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !PO methodsFor:'accessing'!
 
 context
@@ -378,6 +404,12 @@
     ^ false
 !
 
+isSmallSenseMethodBindingPO
+    "return false here; to be redefined in subclass(es)"
+
+    ^ false
+!
+
 isSmallSenseMethodPO
     ^ false
 !
@@ -386,6 +418,12 @@
     ^ false
 !
 
+isSmallSenseVariableBindingPO
+    "return false here; to be redefined in subclass(es)"
+
+    ^ false
+!
+
 isSmallSenseVariablePO
     ^ false
 ! !