jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

various updates

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@969 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-12-24 04:07:20 +00:00
commit e52670b165
8 changed files with 29 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Examples/tcl/class/example1.tcl
View file

@ -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"