CustomContext.st
changeset 784 b0ac144b73af
parent 780 c45cc4cd91f0
child 803 95cdac772759
--- a/CustomContext.st	Fri Dec 26 21:02:39 2014 +0100
+++ b/CustomContext.st	Sat Dec 27 14:51:33 2014 +0100
@@ -52,6 +52,14 @@
     ^ perspective
 
     "Modified (comment): / 24-12-2014 / 22:39:02 / root"
+!
+
+perspective: aPerspective
+    "see CustomPerspective"
+
+    perspective := aPerspective
+
+    "Created: / 27-12-2014 / 12:02:53 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 
 !CustomContext methodsFor:'accessing-selection'!