#!/bin/sh
# standard Tcl executable introduction ... \
exec tclsh "$0" "$@"

package require Itcl
namespace import itcl::*

class c {
	method m {} {
		puts "$this doing m"
	}
	
	public variable v {v contents}
	
	proc p {} {
		puts "Doing c::p"
	}
	
	public common c {c contents}
}

c c1

c1 m
puts "c1::v = [c1 cget -v]"
c::p
puts "c1::c = [c1 cget -c]"
