blob: 6055cf6195dc208f20d64e7798ebdf0ecf2de352 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
# file: runme.tcl
# This file illustrates the high level C++ interface.
# In this case C++ classes work kind of like Tk widgets
catch { load ./example[info sharedlibextension] example}
# ----- Object creation -----
puts "Creating some objects:"
Circle c 10
puts " Created circle [c cget -this]"
Square s 10
puts " Created square [s cget -this]"
# ----- Access a static member -----
puts "\nA total of $Shape_nshapes shapes were created"
# ----- Member data access -----
# Set the location of the object
c configure -x 20 -y 30
s configure -x -10 -y 5
puts "\nHere is their current position:"
puts " Circle = ([c cget -x], [c cget -y])"
puts " Square = ([s cget -x], [s cget -y])"
# ----- Call some methods -----
puts "\nHere are some properties of the shapes:"
foreach o "c s" {
puts " [$o cget -this]"
puts " area = [$o area]"
puts " perimeter = [$o perimeter]"
}
# ----- Delete everything -----
puts "\nGuess I'll clean up now"
# Note: this invokes the virtual destructor
rename c ""
rename s ""
puts "$Shape_nshapes shapes remain"
puts "Goodbye"
|
