pro w_curs, value, arrow=arrow, i_beam=i_beam, hourglass=hourglass, $
black_crosshair=black_crosshair, crosshair=crosshair, up_arrow=up_arrow, $
size=size, icon=icon, nw_se=nw_se, ne_sw=ne_sw, ew=ew, sn=sn

;	Converts cursor into another shape. Only for MS Windows

	if !version.OS ne 'windows' and !version.OS ne 'Win32' then begin
print,"Not supported on this platform. Use routine 'CURS'"
return
	endif


		CASE 1 OF

n_elements(value) gt 0:		begin

	CASE value OF

0:		set=32512
1:		set=32513
2:		set=32514
3:		set=32515
4:		set=32516
5:		set=32640
6:		set=32641
7:		set=32642
8:		set=32643
9:		set=32644
10:		set=32645

	ELSE:	set=value
	ENDCASE

				end


keyword_set(crosshair): begin
	device,cursor_crosshair=1
	return
			end


keyword_set(arrow):		set=32512
keyword_set(i_beam):		set=32513
keyword_set(hourglass):		set=32514
keyword_set(black_crosshair):	set=32515
keyword_set(up_arrow):		set=32516
keyword_set(size):		set=32640
keyword_set(icon):		set=32641
keyword_set(nw_se):		set=32642
keyword_set(ne_sw):		set=32643
keyword_set(ew):		set=32644
keyword_set(sn):		set=32645

ELSE:				set=32512
ENDCASE

	device,cursor_standard=set



	end