FUNCTION_NAME = fl_winset, NONE, NONE, 1, INTFUNCTION_NAME = fl_get_canvas_id, NONE, INT, 1, WIDGETFUNCTION_NAME = fl_add_canvas_handler, NONE, NONE, 4, WIDGET, INT, MACRO, DATAFUNCTION_NAME = fl_set_clipping, NONE, NONE, 4, INT, INT, INT, INTFUNCTION_NAME = fl_color, NONE, NONE, 1, INTFUNCTION_NAME = fl_bk_color, NONE, NONE, 1, INTFUNCTION_NAME = fl_pieslice, NONE, NONE, 8, INT, INT, INT, INT, INT, INT, INT, INTFUNCTION_NAME = fl_rectangle, NONE, NONE, 6, INT, INT, INT, INT, INT, INTFUNCTION_NAME = fl_display, NONE, WIDGET, 0##---------------------------------------------------------------------------## Some enumerations for XForms## Boxes#ENUM_NAME = FL_NO_BOX, 0ENUM_NAME = FL_UP_BOX, 1ENUM_NAME = FL_DOWN_BOX, 2ENUM_NAME = FL_BORDER_BOX, 3ENUM_NAME = FL_SHADOW_BOX, 4ENUM_NAME = FL_FRAME_BOX, 5ENUM_NAME = FL_ROUNDED_BOX, 6ENUM_NAME = FL_EMBOSSED_BOX, 7ENUM_NAME = FL_FLAT_BOX, 8ENUM_NAME = FL_RFLAT_BOX, 9ENUM_NAME = FL_RSHADOW_BOX, 10ENUM_NAME = FL_OVAL_BOX, 11ENUM_NAME = FL_ROUNDED3D_UPBOX, 12ENUM_NAME = FL_ROUNDED3D_DOWNBOX, 13ENUM_NAME = FL_OVAL3D_UPBOX, 14ENUM_NAME = FL_OVAL3D_DOWNBOX, 15ENUM_NAME = FL_OVAL3D_FRAMEBOX, 16ENUM_NAME = FL_OVAL3D_EMBOSSEDBOX, 17## Buttons#ENUM_NAME = FL_NORMAL_BUTTON, 0ENUM_NAME = FL_PUSH_BUTTON, 1ENUM_NAME = FL_RADIO_BUTTON, 2ENUM_NAME = FL_HIDDEN_BUTTON, 3ENUM_NAME = FL_TOUCH_BUTTON, 4ENUM_NAME = FL_INOUT_BUTTON, 5ENUM_NAME = FL_RETURN_BUTTON, 6ENUM_NAME = FL_HIDDEN_RET_BUTTON, 7ENUM_NAME = FL_MENU_BUTTON, 8## Text#ENUM_NAME = FL_NORMAL_TEXT, 0## Inputs#ENUM_NAME = FL_NORMAL_INPUT, 0ENUM_NAME = FL_FLOAT_INPUT, 1ENUM_NAME = FL_INT_INPUT, 2ENUM_NAME = FL_DATE_INPUT, 3ENUM_NAME = FL_MULTILINE_INPUT, 4ENUM_NAME = FL_HIDDEN_INPUT, 5ENUM_NAME = FL_SECRET_INPUT, 6## Howto display a form on the screen#ENUM_NAME = FL_PLACE_FREE, 0ENUM_NAME = FL_PLACE_MOUSE, 1ENUM_NAME = FL_PLACE_CENTER, 2ENUM_NAME = FL_PLACE_POSITION, 4ENUM_NAME = FL_PLACE_SIZE, 8ENUM_NAME = FL_PLACE_GEOMETRY, 16ENUM_NAME = FL_PLACE_ASPECT, 32ENUM_NAME = FL_PLACE_FULLSCREEN, 64ENUM_NAME = FL_PLACE_HOTSPOT, 128ENUM_NAME = FL_PLACE_ICONIC, 256ENUM_NAME = FL_FREE_SIZE, 16384ENUM_NAME = FL_FIX_SIZE, 32768## Windowmanager decoration requests#ENUM_NAME = FL_FULLBORDER, 1ENUM_NAME = FL_TRANSIENT, 2ENUM_NAME = FL_NOBORDER, 3## Canvas#ENUM_NAME = FL_NORMAL_CANVAS, 0ENUM_NAME = FL_SCROLLED_CANVAS, 1## Some colors#ENUM_NAME = FL_BLACK, 0ENUM_NAME = FL_RED, 1ENUM_NAME = FL_GREEN, 2ENUM_NAME = FL_YELLOW, 3ENUM_NAME = FL_BLUE, 4ENUM_NAME = FL_MAGENTA, 5ENUM_NAME = FL_CYAN, 6ENUM_NAME = FL_WHITE, 7ENUM_NAME = FL_TOMATO, 8ENUM_NAME = FL_INDIANRED, 9ENUM_NAME = FL_SLATEBLUE, 10ENUM_NAME = FL_COL1, 11ENUM_NAME = FL_RIGHT_BCOL, 12ENUM_NAME = FL_BOTTOM_BCOL, 13ENUM_NAME = FL_TOP_BCOL, 14ENUM_NAME = FL_LEFT_BCOL, 15ENUM_NAME = FL_MCOL, 16ENUM_NAME = FL_INACTIVE, 17ENUM_NAME = FL_PALEGREEN, 18ENUM_NAME = FL_DARKGOLD, 19ENUM_NAME = FL_ORCHID, 20ENUM_NAME = FL_DARKCYAN, 21ENUM_NAME = FL_DARKTOMATO, 22ENUM_NAME = FL_WHEAT, 23ENUM_NAME = FL_DARKORANGE, 24ENUM_NAME = FL_DEEPPINK, 25ENUM_NAME = FL_CHARTREUSE, 26ENUM_NAME = FL_DARKVIOLET, 27ENUM_NAME = FL_SPRINGGREEN, 28ENUM_NAME = FL_DODGERBLUE, 29ENUM_NAME = FL_LIGHTER_COL1, 30ENUM_NAME = FL_DARKER_COL1, 31## Timers#ENUM_NAME = FL_NORMAL_TIMER, 0ENUM_NAME = FL_VALUE_TIMER, 1ENUM_NAME = FL_HIDDEN_TIMER, 2## Clock#ENUM_NAME = FL_ANALOG_CLOCK, 0ENUM_NAME = FL_DIGITAL_CLOCK, 1## Standard sizes in XForms#ENUM_NAME = FL_TINY_SIZE, 8ENUM_NAME = FL_SMALL_SIZE, 10ENUM_NAME = FL_NORMAL_SIZE, 12ENUM_NAME = FL_MEDIUM_SIZE, 14ENUM_NAME = FL_LARGE_SIZE, 18ENUM_NAME = FL_HUGE_SIZE, 24## Text styles#ENUM_NAME = FL_INVALID_STYLE, -1ENUM_NAME = FL_NORMAL_STYLE, 0ENUM_NAME = FL_BOLD_STYLE, 1ENUM_NAME = FL_ITALIC_STYLE, 2ENUM_NAME = FL_BOLDITALIC_STYLE, 3ENUM_NAME = FL_FIXED_STYLE, 4ENUM_NAME = FL_FIXEDBOLD_STYLE, 5ENUM_NAME = FL_FIXEDITALIC_STYLE, 6ENUM_NAME = FL_FIXEDBOLDITALIC_STYLE, 7ENUM_NAME = FL_TIMES_STYLE, 8ENUM_NAME = FL_TIMESBOLD_STYLE, 9ENUM_NAME = FL_TIMESITALIC_STYLE, 10ENUM_NAME = FL_TIMESBOLDITALIC_STYLE, 11ENUM_NAME = FL_MISC_STYLE, 12ENUM_NAME = FL_MISCBOLD_STYLE, 13ENUM_NAME = FL_MISCITALIC_STYLE, 14ENUM_NAME = FL_SYMBOL_STYLE, 15ENUM_NAME = FL_SHADOW_STYLE, 512ENUM_NAME = FL_ENGRAVED_STYLE, 1024ENUM_NAME = FL_EMBOSSED_STYLE, 2048##---------------------------------------------------------------------------## Some XLib calls#FUNCTION_NAME = XOpenDisplay, NONE, WIDGET, 1, NULLFUNCTION_NAME = XDefaultScreen, NONE, INT, 1, WIDGETFUNCTION_NAME = XDisplayWidth, NONE, INT, 2, WIDGET, INTFUNCTION_NAME = XDisplayHeight, NONE, INT, 2, WIDGET, INT## Xevents enumerations from /usr/include/X11/X.h#ENUM_NAME = KeyPressMask, 1ENUM_NAME = KeyReleaseMask, 2ENUM_NAME = ButtonPressMask, 4ENUM_NAME = ButtonReleaseMask, 8ENUM_NAME = EnterWindowMask, 16ENUM_NAME = LeaveWindowMask, 32ENUM_NAME = PointerMotionMask, 64ENUM_NAME = ButtonMotionMask, 8192ENUM_NAME = FL_ALL_EVENT, 8319#ENUM_NAME = KeyPress, 2ENUM_NAME = KeyRelease,	3ENUM_NAME = ButtonPress, 4ENUM_NAME = ButtonRelease, 5##---------------------------------------------------------------------------## Some ncurses calls#FUNCTION_NAME = filter, NONE, NONE, 0FUNCTION_NAME = use_env, NONE, NONE, 1, BOOLFUNCTION_NAME = initscr, NONE, WIDGET, 0FUNCTION_NAME = newwin, NONE, WIDGET, 4, INT, INT, INT, INTFUNCTION_NAME = delwin, NONE, INT, 1, WIDGETFUNCTION_NAME = box, NONE, INT, 3, WIDGET, INT, INTFUNCTION_NAME = endwin, NONE, INT, 0FUNCTION_NAME = isendwin, NONE, BOOL, 0FUNCTION_NAME = refresh, NONE, INT, 0FUNCTION_NAME = wrefresh, NONE, INT, 1, WIDGETFUNCTION_NAME = redrawwin, NONE, INT, 1, WIDGETFUNCTION_NAME = getch, NONE, INT, 0FUNCTION_NAME = wgetch, NONE, INT, 1, WIDGETFUNCTION_NAME = printw, NONE, INT, 2, STRING, STRINGFUNCTION_NAME = mvwprintw, NONE, INT, 5, WIDGET, INT, INT, STRING, STRING##---------------------------------------------------------------------------## Generic calls which might come handy - libm#FUNCTION_NAME = lrint, NONE, INT, 1, DOUBLEFUNCTION_NAME = sin, NONE, DOUBLE, 1, DOUBLEFUNCTION_NAME = cos, NONE, DOUBLE, 1, DOUBLEFUNCTION_NAME = tan, NONE, DOUBLE, 1, DOUBLEFUNCTION_NAME = sqrt, NONE, DOUBLE, 1, DOUBLE## libc#FUNCTION_NAME = toascii, NONE, INT, 1, INTFUNCTION_NAME = putchar, NONE, INT, 1, STRINGFUNCTION_NAME = kill, NONE, INT, 2, INT, INTFUNCTION_NAME = write, NONE, INT, 3, INT, STRING, INTFUNCTION_NAME = fsync, NONE, INT, 1, INTFUNCTION_NAME = malloc, NONE, POINTER, 1, INTFUNCTION_NAME = free, NONE, NONE, 1, POINTERFUNCTION_NAME = printf, NONE, NONE, 2, STRING, POINTERFUNCTION_NAME = snprintf, NONE, NONE, 4, POINTER, INT, STRING, DOUBLEFUNCTION_NAME = strncpy, NONE, STRING, 3, POINTER, POINTER, INTFUNCTION_NAME = rand, NONE, INT, 0FUNCTION_NAME = srand, NONE, NONE, 1, INTFUNCTION_NAME = time, NONE, INT, 1, NULLFUNCTION_NAME = memset, NONE, NONE, 3, POINTER, INT, INTFUNCTION_NAME = sscanf, NONE, NONE, 3, POINTER, STRING, PTR_INTFUNCTION_NAME = abs, NONE, INT, 1, INT## Some function names are reserved, create an alias#ALIAS_NAME = libc_rand, rand## Some system enums#ENUM_NAME = O_RDONLY, 0ENUM_NAME = O_WRONLY, 1ENUM_NAME = RAND_MAX, 2147483647##---------------------------------------------------------------------------## Connect a glade UI:#   glade-ui "filename"##---------------------------------------------------------------------------MACRO gladeuigtk_initglade_init$xml : glade_xml_new $1 NULL NULLglade_xml_signal_autoconnect $xmlRETURN $xmlENDMACRO#---------------------------------------------------------------------------## About dialog in GTK-server MACRO script## From a prompt, activate as follows: echo "about" | gtk-server -stdin##---------------------------------------------------------------------------MACRO about# Define text$msg : &"\n\t<span foreground=\"blue\"><b> - The GTK-server - </b></span>\n\n<span foreground=\"red\">Distributed under the GPL license</span>\n\n\t<span foreground=\"darkgreen\">  (c) Peter van Eerten</span>"# Define GUI$dialog : gtk_message_dialog_new_with_markup NULL GTK_DIALOG_MODAL GTK_MESSAGE_INFO GTK_BUTTONS_CLOSE $msg "''"gtk_window_set_title $dialog "\"About GTK-server\""gtk_window_set_icon_name $dialog "gtk-about"gt