"Fossies" - the Fresh Open Source Software archive 
package require java
set f [java::new java.awt.Frame]
$f setSize 100 100
$f show
java::bind $f mouseClicked {
puts "mouse click at ([java::event x],[java::event y])"
}
Copyright © 1997-1998 Sun Microsystems, Inc.