Queueing Aspects of Integrated Information and Computing Systems in Geosciences and Natural Sciences - Advances in Data, Methods, Models and Their Applications in Geoscience - page 16

21 }
22
23

proc create_country_mexico_sites {} {

global w

24

global text_site_name_cancun

25

global text_site_name_chichen_itza

26

global text_site_name_tulum

27

set text_site_name_cancun "Cancún"

28

set text_site_name_chichen_itza "Chichén Itzá"

29

set text_site_name_tulum "Tulum"

30

31
32 $w create oval 8.80i 4.00i 9.30i 4.50i \
33 -fill yellow -width 3 \
34 -tags {itemshape site legend_infopoint}
35 $w bind legend_infopoint <Button-1> \
36 {showName "Legend InfoPoint"}
37 $w bind legend_infopoint <Shift-Button-3> \
38

{ exec browedit$t_suff}

39
40 $w create oval 9.93i 4.60i 9.98i 4.65i \
41 -fill white -width 1 \
42 -tags {itemshape site cancun}
43 $w bind cancun <Button-1> \
44 {showName "$text_site_name_cancun"}
45 $w bind cancun <Shift-Button-3> \
46

{ exec browedit$t_suff}

47
48 $w create oval 9.30i 4.85i 9.36i 4.90i \
49 -fill white -width 1 \
50 -tags {itemshape site chichen_itza}
51 $w bind chichen_itza <Button-1> \
52 {showName "$text_site_name_chichen_itza"}
53 $w bind chichen_itza <Shift-Button-3> \
54

{ exec browedit$t_suff}

55 ...
56 }
57
58

proc create_country_mexico_autoevents {} {

global w
60 $w bind legend_infopoint <Any-Enter> { set killatleave \
61 [ exec ./mexico_legend_infopoint_viewall.sh $op_parallel ] }
62 $w bind legend_infopoint <Any-Leave> \
63

59

{ exec ./mexico_legend_infopoint_kaxv.sh }

64
65 $w bind cancun <Any-Enter> { set killatleave \
66 [ exec $appl_image_viewer -geometry +800+400 \
67 ./mexico_site_name_cancun.jpg $op_parallel ] }
68 $w bind cancun <Any-Leave> { exec

kill -9 $killatleave }

69
70 $w bind chichen_itza <Any-Enter> { set killatleave \
71 [ exec $appl_image_viewer -geometry +800+100 \
72 ./mexico_site_name_chichen_itza.jpg $op_parallel ] }
73 $w bind chichen_itza <Any-Leave> { exec

kill -9 $killatleave }

74 ...
75 }
76