# Filename: D:\Studienarbeit\Beispiel1\Beispiel1.tcl
# Version: 1.0 
# Date: Tue Sept 8 
# Author: junge 

canvas .test -width 7c -height 10c
pack .test

.test create line 1c 1c 6c 1c -tags quelle
.test create line 1c 6c 6c 6c -tags quelle
.test create line 1c 8c 6c 8c -tags quelle
.test create line 1c 1c 1c 8c -tags quelle
.test create line 6c 1c 6c 8c -tags quelle
.test create line 1c 8c 3.5c 6c -tags quelle
.test create line 3.5c 6c 6c 8c -tags quelle
.test create text 3.5c 4.5c -text "Quelle" -tags quelle

.test bind quelle <Button-1> {.test itemconfigure quelle -fill red}
.test bind quelle <Button-3> {.test itemconfigure quelle -fill black}