various updates

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

SWIG/Examples/tcl/class/example1.tcl

@@ -23,10 +23,8 @@ puts "\nA total of $Shape_nshapes shapes were created"
 
 # Set the location of the object
 
-# Notice how we can do this using functions specific to
-# the 'Circle' class.
-Circle_x_set $c 20
-Circle_y_set $c 30
+Shape_x_set $c 20
+Shape_y_set $c 30
 
 # Now use the same functions in the base class
 Shape_x_set $s -10
@@ -71,3 +69,6 @@ delete_Shape $s
 puts "$Shape_nshapes shapes remain"
 puts "Goodbye"
 
+
+
+

SWIG/Examples/tcl/variables/example.i

@@ -27,10 +27,10 @@ extern Point            pt;
 
 /* Some read-only variables */
 
-%readonly
-extern int  status;
-extern char path[256];
-%readwrite
+%readonly {
+  extern int  status;
+  extern char path[256];
+}
 
 /* Some helper functions to make it easier to test */
 extern void  print_vars();