in reply to How do I set a busy cursor in Tk

Hi,

There is an option in Tk, for more details refer to "Learning Perl/TK, Orielly series" book.

I want to give you some examples:

-cursor=>cursorname

Sets the cursor displayed when the mouse cursor is over the menu.

The following are the cursor names:

X_cursorbox_spiraldotboxhand2manrightbu ttonsizingtop_tee
arrowcenter_ptrdouble_arrowheartmiddlebuttonrtl_logospidertrek
based_arrow_downcircledraft_largeiconmousesailboatspraycanul_angle
based_arrow_upclockdraft_smalliron_crosspencilsb_down_arrowstarumbrella
boatcoffee_mugdraped_boxleft_ptrpirates b_h_double_arrowtargetur_angle
bogositycrossexchangeleft_sideplussb_le ft_arrowtcrosswatch
bottom_left_cornercross_reversefleurleft_teeques tion_arrowsb_right_arrowtop_left_arrow
bottom_right_cornercrosshairgobblerleftbuttonrig ht_ptrsb_up_arrowtop_left_corner
bottom_sidediamond_crossgumbyII_angleright_sidesb_v_double_arrowtop_right_corner
bottom_teedothand1Ir_angleright_teeshut tletop_side

Regards,
Franklin

Don't put off till tomorrow, what you can do today.

In Section Seekers of Perl Wisdom