------------------------------------------------------------------------
--# How to use a custom cursor;
------------------------------------------------------------------------

include GtkEngine.e

constant goose = locate_file("thumbnails/mongoose.png") -- image to use for cursor;

constant win = create(GtkWindow,
    "title=OpenEuphoria,border=10,position=1,icon=face-smile,$destroy=Quit") 

constant panel = create(GtkBox,"orientation=VERTICAL")
	add(win,panel)

constant img = create(GtkImage,"thumbnails/euphoria.gif")
	add(panel,img) 
	
show_all(win)

------------------------------------------------------------
-- custom cursors must be created AFTER the window they are
-- to be used in is instantiated (a.k.a. shown)
------------------------------------------------------------
constant -- create custom cursor from image file;
    pix = create(GdkPixbuf,goose,32,32) -- size 32x32px;
    set(win,"cursor",pix,12,5) -- location of 'hot spot';

    -- if you prefer a pre-built cursor, use one of the enums in 
    -- GtkEnums:
    -- set(win,"cursor",GDK_WATCH)
    
    -- this can also be used as a 'wait' indication while some long 
    -- process takes place...

main()