LES CURSOR ou CURSEURS DE SOURIS

En tk, il existe la possibilité d'utiliser plusieurs types de curseurs de souris.

Ainsi, il est possible de paramétrer l'affichage de votre curseur en fonction de ce que vous voulez faire.

Voici quelques petits exemples comment utiliser vos curseurs personalisés :

Essai de test de plusieurs types de curseurs

 

 

Voici une petite application qui liste les types usuels de  curseurs à utiliser dans vos applis.

Pour visualiser le curseur, passez simplement dessus le nom dans la liste affichée.

Téléchargez le fichier source ICI

Voici le code de l'application :

wm title . "Essai de curseurs"

frame .a
frame .b
frame .c
frame .d
frame .e
frame .f

pack .a .b .c .d .e .f -side left

foreach {cursa cursb cursc cursd curse cursf} {
	arrow based_arrow_down based_arrow_up boat bogosity bottom_left_corner bottom_right_corner bottom_side
	bottom_tee box_spiral center_ptr circle clock coffee_mug cross cross_reverse crosshair diamond_cross dot dotbox double_arrow
	draft_large draft_small draped_box exchange fleur gobbler gumby hand1 hand2 heart icon iron_cross left_ptr left_side
	left_tee leftbutton ll_angle lr_angle man middlebutton mouse pencil pirate plus question_arrow right_ptr right_side right_tee
	rightbutton rtl_logo sailboat sb_down_arrow sb_h_double_arrow sb_left_arrow sb_right_arrow sb_up_arrow sb_v_double_arrow
	shuttle sizing spider spraycan star target tcross top_left_arrow top_left_corner top_right_corner top_side top_tee trek ul_angle
	umbrella ur_angle watch xterm
} {
	pack [label .a.$cursa -text $cursa -cursor $cursa]
	pack [label .b.$cursb -text $cursb -cursor $cursb]
	pack [label .c.$cursc -text $cursc -cursor $cursc]
	pack [label .d.$cursd -text $cursd -cursor $cursd]
	pack [label .e.$curse -text $curse -cursor $curse]
	pack [label .f.$cursf -text $cursf -cursor $cursf]
}

set name "Liste des curseurs: [.a.arrow cget -cursor]"
.a.arrow configure -text $name