/*
 * tkaddcursor.c: Tk のカーソルにデータを追加するロードライブラリ
 *
 *     [2002/06/20] OSHIRO Naoki.
 */

/*
 * gcc -fPIC -I/usr/X11R6/include -I/usr/local/include -c tkaddcursor.c
 * ld -Bshareable -x tkaddcursor.o -o libtkaddcursor.so -L/usr/local/lib -ltcl80jp -lm
 */

#include <tcl.h>
#include <tk.h>
#include <X11/bitmaps/flagdown>

int addcursor(ClientData clientData, Tcl_Interp *interp,
             int argc, char *argv[])
{
    Tk_DefineCursor(Tk_MainWindow(interp),
		    Tk_GetCursorFromData(interp, Tk_MainWindow(interp),
					 flagdown_bits, flagdown_bits,
					 flagdown_width, flagdown_height,
					 flagdown_width/2, flagdown_height/2,
					 Tk_GetUid("black"), Tk_GetUid("black")));
				  
    return TCL_OK;
}

int delcursor(ClientData clientData, Tcl_Interp *interp,
             int argc, char *argv[])
{
    Tk_DefineCursor(Tk_MainWindow(interp),
		    Tk_GetCursorFromData(interp, Tk_MainWindow(interp),
					 "", "", 1, 1, 0, 0,
					 Tk_GetUid("black"), Tk_GetUid("black")));
    return TCL_OK;
}

int Tkaddcursor_Init(Tcl_Interp *interp)
{
    Tcl_CreateCommand(interp, "addcursor", addcursor, NULL, NULL);
    Tcl_CreateCommand(interp, "delcursor", delcursor, NULL, NULL);
    return TCL_OK;
}