use $self special variable instead of self in %extend

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9533 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/tcl/operator/example.i

@@ -20,7 +20,7 @@
 %extend Complex {
    char *str() {
        static char temp[512];
-       sprintf(temp,"(%g,%g)", self->re(), self->im());
+       sprintf(temp,"(%g,%g)", $self->re(), $self->im());
        return temp;
    }
 };

Examples/tcl/reference/example.i

@@ -33,10 +33,10 @@ public:
   /* This wrapper provides an alternative to the [] operator */
   %extend {
     Vector &get(int index) {
-      return (*self)[index];
+      return (*$self)[index];
     }
     void set(int index, Vector &a) {
-      (*self)[index] = a;
+      (*$self)[index] = a;
     }
   }
 };