File: runme.tcl

package info (click to toggle)
cmake 2.8.11.1-1~bpo70+1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy-backports
  • size: 37,056 kB
  • sloc: cpp: 157,219; ansic: 137,155; yacc: 3,254; sh: 2,745; xml: 2,483; lex: 1,028; lisp: 215; python: 199; objc: 134; f90: 105; perl: 99; fortran: 93; makefile: 65; tcl: 55; asm: 28; php: 25; ruby: 22; java: 20
file content (50 lines) | stat: -rw-r--r-- 1,118 bytes parent folder | download | duplicates (28)
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
50
# 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"