Tk Library Source Code

Artifact e8debecf5999b2b0485c7e53a24fdb051cb0e954:

Attachment "test.tcl" to ticket [3613644fff] added by blacksqr 2013-05-21 13:11:11.

---

package require tepam

namespace eval myns {

tepam::procedure myproc {
	-args {
		{-myvar -default myvalue}
	}
} {
	return $myvar
}

}

puts "first try: [::myns::myproc]"
puts "second try: [myns::myproc]"