<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <link rel="Start" href="index.html"> <title>LablGTK : Gdk</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> color<br> <span class="keyword">type</span> colormap<br> <span class="keyword">type</span> visual<br> <span class="keyword">type</span> screen = [ <span class="keywordsign">`</span>gdkscreen ] <span class="constructor">Gobject</span>.obj<br> <span class="keyword">type</span> region<br> <span class="keyword">type</span> gc<br> <span class="keyword">type</span> window = [ <span class="keywordsign">`</span>drawable <span class="keywordsign">|</span> <span class="keywordsign">`</span>gdkwindow ] <span class="constructor">Gobject</span>.obj<br> <span class="keyword">type</span> pixmap = [ <span class="keywordsign">`</span>drawable <span class="keywordsign">|</span> <span class="keywordsign">`</span>gdkpixmap ] <span class="constructor">Gobject</span>.obj<br> <span class="keyword">type</span> bitmap = [ <span class="keywordsign">`</span>drawable <span class="keywordsign">|</span> <span class="keywordsign">`</span>gdkbitmap <span class="keywordsign">|</span> <span class="keywordsign">`</span>gdkpixmap ] <span class="constructor">Gobject</span>.obj<br> <span class="keyword">type</span> font<br> <span class="keyword">type</span> image = [ <span class="keywordsign">`</span>gdkimage ] <span class="constructor">Gobject</span>.obj<br> <span class="keyword">type</span> atom<br> <span class="keyword">type</span> keysym = int<br> <span class="keyword">type</span> +<span class="keywordsign">'</span>a event<br> <span class="keyword">type</span> drag_context = [ <span class="keywordsign">`</span>dragcontext ] <span class="constructor">Gobject</span>.obj<br> <span class="keyword">type</span> cursor<br> <span class="keyword">type</span> xid = int32<br> <span class="keyword">type</span> device<br> <span class="keyword">type</span> display<br> <span class="keyword">exception</span> <span class="constructor">Error</span> <span class="keyword">of</span> string<br> <span class="keyword">module</span> <span class="constructor">Tags</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> event_type =<br> [ <span class="keywordsign">`</span><span class="constructor">BUTTON_PRESS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON_RELEASE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CLIENT_EVENT</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CONFIGURE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DELETE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DESTROY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DRAG_ENTER</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DRAG_LEAVE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DRAG_MOTION</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DRAG_STATUS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DROP_FINISHED</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DROP_START</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">ENTER_NOTIFY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">EXPOSE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">FOCUS_CHANGE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">KEY_PRESS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">KEY_RELEASE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LEAVE_NOTIFY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MAP</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MOTION_NOTIFY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NOTHING</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NO_EXPOSE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PROPERTY_NOTIFY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PROXIMITY_IN</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PROXIMITY_OUT</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SCROLL</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SELECTION_CLEAR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SELECTION_NOTIFY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SELECTION_REQUEST</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SETTING</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">THREE_BUTTON_PRESS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TWO_BUTTON_PRESS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UNMAP</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">VISIBILITY_NOTIFY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">WINDOW_STATE</span> ]<br> <span class="keyword">type</span> event_mask =<br> [ <span class="keywordsign">`</span><span class="constructor">ALL_EVENTS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON1_MOTION</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON2_MOTION</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON3_MOTION</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON_MOTION</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON_PRESS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON_RELEASE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">ENTER_NOTIFY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">EXPOSURE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">FOCUS_CHANGE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">KEY_PRESS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">KEY_RELEASE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LEAVE_NOTIFY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">POINTER_MOTION</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">POINTER_MOTION_HINT</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PROPERTY_CHANGE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PROXIMITY_IN</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PROXIMITY_OUT</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SCROLL</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">STRUCTURE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SUBSTRUCTURE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">VISIBILITY_NOTIFY</span> ]<br> <span class="keyword">type</span> extension_mode = [ <span class="keywordsign">`</span><span class="constructor">ALL</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CURSOR</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NONE</span> ]<br> <span class="keyword">type</span> visibility_state = [ <span class="keywordsign">`</span><span class="constructor">FULLY_OBSCURED</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PARTIAL</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UNOBSCURED</span> ]<br> <span class="keyword">type</span> input_source = [ <span class="keywordsign">`</span><span class="constructor">CURSOR</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">ERASER</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MOUSE</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PEN</span> ]<br> <span class="keyword">type</span> scroll_direction = [ <span class="keywordsign">`</span><span class="constructor">DOWN</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LEFT</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">RIGHT</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UP</span> ]<br> <span class="keyword">type</span> notify_type =<br> [ <span class="keywordsign">`</span><span class="constructor">ANCESTOR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">INFERIOR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NONLINEAR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NONLINEAR_VIRTUAL</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UNKNOWN</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">VIRTUAL</span> ]<br> <span class="keyword">type</span> crossing_mode = [ <span class="keywordsign">`</span><span class="constructor">GRAB</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NORMAL</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UNGRAB</span> ]<br> <span class="keyword">type</span> setting_action = [ <span class="keywordsign">`</span><span class="constructor">CHANGED</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DELETED</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NEW</span> ]<br> <span class="keyword">type</span> window_state = [ <span class="keywordsign">`</span><span class="constructor">ICONIFIED</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MAXIMIZED</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">STICKY</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">WITHDRAWN</span> ]<br> <span class="keyword">type</span> modifier =<br> [ <span class="keywordsign">`</span><span class="constructor">BUTTON1</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON2</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON3</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON4</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUTTON5</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CONTROL</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LOCK</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MOD1</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MOD2</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MOD3</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MOD4</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MOD5</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SHIFT</span> ]<br> <span class="keyword">type</span> drag_action =<br> [ <span class="keywordsign">`</span><span class="constructor">ASK</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">COPY</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DEFAULT</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LINK</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MOVE</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PRIVATE</span> ]<br> <span class="keyword">type</span> rgb_dither = [ <span class="keywordsign">`</span><span class="constructor">MAX</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NONE</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NORMAL</span> ]<br> <span class="keyword">type</span> property_state = [ <span class="keywordsign">`</span><span class="constructor">DELETE</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NEW_VALUE</span> ]<br> <span class="keyword">type</span> property_mode = [ <span class="keywordsign">`</span><span class="constructor">APPEND</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PREPEND</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">REPLACE</span> ]<br> <span class="keyword">type</span> xdata =<br> [ <span class="keywordsign">`</span><span class="constructor">BYTES</span> <span class="keyword">of</span> string <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">INT32S</span> <span class="keyword">of</span> int32 array <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SHORTS</span> <span class="keyword">of</span> int array ]<br> <span class="keyword">type</span> xdata_ret =<br> [ <span class="keywordsign">`</span><span class="constructor">BYTES</span> <span class="keyword">of</span> string<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">INT32S</span> <span class="keyword">of</span> int32 array<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NONE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SHORTS</span> <span class="keyword">of</span> int array ]<br> <span class="keyword">type</span> gravity =<br> [ <span class="keywordsign">`</span><span class="constructor">CENTER</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">EAST</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NORTH</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NORTH_EAST</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NORTH_WEST</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SOUTH</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SOUTH_EAST</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SOUTH_WEST</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">STATIC</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">WEST</span> ]<br> <span class="keyword">type</span> window_type_hint =<br> [ <span class="keywordsign">`</span><span class="constructor">DESKTOP</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DIALOG</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DOCK</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MENU</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NORMAL</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SPLASHSCREEN</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TOOLBAR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UTILITY</span> ]<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Convert</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> test_modifier : <span class="constructor">Gdk</span>.<span class="constructor">Tags</span>.modifier <span class="keywordsign">-></span> int <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> modifier : int <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Tags</span>.modifier list<br> <span class="keyword">val</span> window_state : int <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Tags</span>.window_state list<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Atom</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> intern : ?dont_create:bool <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.atom<br> <span class="keyword">val</span> name : <span class="constructor">Gdk</span>.atom <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> none : <span class="constructor">Gdk</span>.atom<br> <span class="keyword">val</span> primary : <span class="constructor">Gdk</span>.atom<br> <span class="keyword">val</span> secondary : <span class="constructor">Gdk</span>.atom<br> <span class="keyword">val</span> clipboard : <span class="constructor">Gdk</span>.atom<br> <span class="keyword">val</span> string : <span class="constructor">Gdk</span>.atom<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Property</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> change :<br> window:<span class="constructor">Gdk</span>.window <span class="keywordsign">-></span><br> typ:<span class="constructor">Gdk</span>.atom <span class="keywordsign">-></span><br> ?mode:<span class="constructor">Gdk</span>.<span class="constructor">Tags</span>.property_mode <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.atom <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Tags</span>.xdata <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get :<br> window:<span class="constructor">Gdk</span>.window <span class="keywordsign">-></span><br> ?max_length:int <span class="keywordsign">-></span><br> ?delete:bool <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.atom <span class="keywordsign">-></span> (<span class="constructor">Gdk</span>.atom * <span class="constructor">Gdk</span>.<span class="constructor">Tags</span>.xdata) option<br> <span class="keyword">val</span> delete : window:<span class="constructor">Gdk</span>.window <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.atom <span class="keywordsign">-></span> unit<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Screen</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> width : ?screen:<span class="constructor">Gdk</span>.screen <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> height : ?screen:<span class="constructor">Gdk</span>.screen <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> get_pango_context : ?screen:<span class="constructor">Gdk</span>.screen <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Pango</span>.context<br> <span class="keyword">val</span> default : unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.screen<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Visual</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> visual_type =<br> [ <span class="keywordsign">`</span><span class="constructor">DIRECT_COLOR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">GRAYSCALE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PSEUDO_COLOR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">STATIC_COLOR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">STATIC_GRAY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TRUE_COLOR</span> ]<br> <span class="keyword">val</span> get_best :<br> ?depth:int <span class="keywordsign">-></span> ?kind:<span class="constructor">Gdk</span>.<span class="constructor">Visual</span>.visual_type <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.visual<br> <span class="keyword">val</span> get_type : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Visual</span>.visual_type<br> <span class="keyword">val</span> depth : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> red_mask : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> red_shift : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> red_prec : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> green_mask : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> green_shift : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> green_prec : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> blue_mask : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> blue_shift : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> blue_prec : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Image</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> image_type = [ <span class="keywordsign">`</span><span class="constructor">FASTEST</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NORMAL</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SHARED</span> ]<br> <span class="keyword">val</span> create :<br> kind:<span class="constructor">Gdk</span>.<span class="constructor">Image</span>.image_type <span class="keywordsign">-></span><br> visual:<span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.image<br> <span class="keyword">val</span> get :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.image<br> <span class="keyword">val</span> put_pixel : <span class="constructor">Gdk</span>.image <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> pixel:int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_pixel : <span class="constructor">Gdk</span>.image <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> destroy : <span class="constructor">Gdk</span>.image <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> width : <span class="constructor">Gdk</span>.image <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> height : <span class="constructor">Gdk</span>.image <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> depth : <span class="constructor">Gdk</span>.image <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> get_visual : <span class="constructor">Gdk</span>.image <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.visual<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Color</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> get_system_colormap : unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.colormap<br> <span class="keyword">val</span> get_colormap : ?privat:bool <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.colormap<br> <span class="keyword">val</span> get_visual : <span class="constructor">Gdk</span>.colormap <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.visual<br> <span class="keyword">type</span> spec =<br> [ <span class="keywordsign">`</span><span class="constructor">BLACK</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NAME</span> <span class="keyword">of</span> string <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">RGB</span> <span class="keyword">of</span> int * int * int <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">WHITE</span> ]<br> <span class="keyword">val</span> alloc : colormap:<span class="constructor">Gdk</span>.colormap <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Color</span>.spec <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.color<br> <span class="keyword">val</span> red : <span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> blue : <span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> green : <span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> pixel : <span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> int<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Rectangle</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> t<br> <span class="keyword">val</span> create :<br> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Rectangle</span>.t<br> <span class="keyword">val</span> x : <span class="constructor">Gdk</span>.<span class="constructor">Rectangle</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> y : <span class="constructor">Gdk</span>.<span class="constructor">Rectangle</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> width : <span class="constructor">Gdk</span>.<span class="constructor">Rectangle</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> height : <span class="constructor">Gdk</span>.<span class="constructor">Rectangle</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Drawable</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> cast : <span class="keywordsign">'</span>a <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> [ <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj<br> <span class="keyword">val</span> get_visual : [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.visual<br> <span class="keyword">val</span> get_depth : [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> get_colormap : [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.colormap<br> <span class="keyword">val</span> get_size : [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> int * int<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Window</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> cast : <span class="keywordsign">'</span>a <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.window<br> <span class="keyword">val</span> get_parent : <span class="constructor">Gdk</span>.window <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.window<br> <span class="keyword">val</span> get_position : <span class="constructor">Gdk</span>.window <span class="keywordsign">-></span> int * int<br> <span class="keyword">val</span> get_pointer_location : <span class="constructor">Gdk</span>.window <span class="keywordsign">-></span> int * int<br> <span class="keyword">val</span> root_parent : unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.window<br> <span class="keyword">val</span> clear : <span class="constructor">Gdk</span>.window <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_xwindow : [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.xid<br> <span class="keyword">type</span> background_pixmap =<br> [ <span class="keywordsign">`</span><span class="constructor">NONE</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PARENT_RELATIVE</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PIXMAP</span> <span class="keyword">of</span> <span class="constructor">Gdk</span>.pixmap ]<br> <span class="keyword">val</span> set_back_pixmap :<br> <span class="constructor">Gdk</span>.window <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Window</span>.background_pixmap <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_cursor : <span class="constructor">Gdk</span>.window <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.cursor <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_visual : <span class="constructor">Gdk</span>.window <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.visual<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">PointArray</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> t = { len : int; }<br> <span class="keyword">val</span> create : len:int <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">PointArray</span>.t<br> <span class="keyword">val</span> set : <span class="constructor">Gdk</span>.<span class="constructor">PointArray</span>.t <span class="keywordsign">-></span> pos:int <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Region</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> gdkFillRule = [ <span class="keywordsign">`</span><span class="constructor">EVEN_ODD_RULE</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">WINDING_RULE</span> ]<br> <span class="keyword">type</span> gdkOverlapType = [ <span class="keywordsign">`</span><span class="constructor">IN</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">OUT</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PART</span> ]<br> <span class="keyword">val</span> create : unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region<br> <span class="keyword">val</span> destroy : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> polygon : (int * int) list <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Region</span>.gdkFillRule <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region<br> <span class="keyword">val</span> intersect : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region<br> <span class="keyword">val</span> union : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region<br> <span class="keyword">val</span> subtract : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region<br> <span class="keyword">val</span> xor : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region<br> <span class="keyword">val</span> union_with_rect : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Rectangle</span>.t <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region<br> <span class="keyword">val</span> offset : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> shrink : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> empty : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> equal : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> point_in : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> rect_in :<br> <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Rectangle</span>.t <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Region</span>.gdkOverlapType<br> <span class="keyword">val</span> get_clipbox : <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Rectangle</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">GC</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> gdkFunction = [ <span class="keywordsign">`</span><span class="constructor">COPY</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">INVERT</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">XOR</span> ]<br> <span class="keyword">type</span> gdkFill = [ <span class="keywordsign">`</span><span class="constructor">OPAQUE_STIPPLED</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SOLID</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">STIPPLED</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TILED</span> ]<br> <span class="keyword">type</span> gdkSubwindowMode = [ <span class="keywordsign">`</span><span class="constructor">CLIP_BY_CHILDREN</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">INCLUDE_INFERIORS</span> ]<br> <span class="keyword">type</span> gdkLineStyle = [ <span class="keywordsign">`</span><span class="constructor">DOUBLE_DASH</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">ON_OFF_DASH</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SOLID</span> ]<br> <span class="keyword">type</span> gdkCapStyle = [ <span class="keywordsign">`</span><span class="constructor">BUTT</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">NOT_LAST</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PROJECTING</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">ROUND</span> ]<br> <span class="keyword">type</span> gdkJoinStyle = [ <span class="keywordsign">`</span><span class="constructor">BEVEL</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MITER</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">ROUND</span> ]<br> <span class="keyword">val</span> create : [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.gc<br> <span class="keyword">val</span> set_foreground : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_background : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_font : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_function : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkFunction <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_fill : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkFill <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_tile : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.pixmap <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_stipple : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.pixmap <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_ts_origin : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_clip_origin : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_clip_mask : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.bitmap <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_clip_rectangle : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Rectangle</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_clip_region : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.region <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_subwindow : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkSubwindowMode <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_exposures : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> bool <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_line_attributes :<br> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span><br> width:int <span class="keywordsign">-></span><br> style:<span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkLineStyle <span class="keywordsign">-></span><br> cap:<span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkCapStyle <span class="keywordsign">-></span> join:<span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkJoinStyle <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_dashes : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> offset:int <span class="keywordsign">-></span> int list <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> copy : dst:<span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> unit<br> <span class="keyword">type</span> values = {<br> foreground : <span class="constructor">Gdk</span>.color;<br> background : <span class="constructor">Gdk</span>.color;<br> font : <span class="constructor">Gdk</span>.font option;<br> fonction : <span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkFunction;<br> fill : <span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkFill;<br> tile : <span class="constructor">Gdk</span>.pixmap option;<br> stipple : <span class="constructor">Gdk</span>.pixmap option;<br> clip_mask : <span class="constructor">Gdk</span>.bitmap option;<br> subwindow_mode : <span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkSubwindowMode;<br> ts_x_origin : int;<br> ts_y_origin : int;<br> clip_x_origin : int;<br> clip_y_origin : int;<br> graphics_exposures : bool;<br> line_width : int;<br> line_style : <span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkLineStyle;<br> cap_style : <span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkCapStyle;<br> join_style : <span class="constructor">Gdk</span>.<span class="constructor">GC</span>.gdkJoinStyle;<br> }<br> <span class="keyword">val</span> get_values : <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">GC</span>.values<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Pixmap</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> cast : <span class="keywordsign">'</span>a <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.pixmap<br> <span class="keyword">val</span> destroy : [> <span class="keywordsign">`</span>gdkpixmap ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> create :<br> ?window:<span class="constructor">Gdk</span>.window <span class="keywordsign">-></span><br> width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> ?depth:int <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.pixmap<br> <span class="keyword">val</span> create_from_data :<br> ?window:<span class="constructor">Gdk</span>.window <span class="keywordsign">-></span><br> width:int <span class="keywordsign">-></span><br> height:int <span class="keywordsign">-></span><br> ?depth:int <span class="keywordsign">-></span> fg:<span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> bg:<span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.pixmap<br> <span class="keyword">val</span> create_from_xpm :<br> ?window:<span class="constructor">Gdk</span>.window <span class="keywordsign">-></span><br> ?colormap:<span class="constructor">Gdk</span>.colormap <span class="keywordsign">-></span><br> ?transparent:<span class="constructor">Gdk</span>.color <span class="keywordsign">-></span><br> file:string <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.pixmap * <span class="constructor">Gdk</span>.bitmap<br> <span class="keyword">val</span> create_from_xpm_d :<br> ?window:<span class="constructor">Gdk</span>.window <span class="keywordsign">-></span><br> ?colormap:<span class="constructor">Gdk</span>.colormap <span class="keywordsign">-></span><br> ?transparent:<span class="constructor">Gdk</span>.color <span class="keywordsign">-></span><br> data:string array <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.pixmap * <span class="constructor">Gdk</span>.bitmap<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Bitmap</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> cast : <span class="keywordsign">'</span>a <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.bitmap<br> <span class="keyword">val</span> create :<br> ?window:<span class="constructor">Gdk</span>.window <span class="keywordsign">-></span> width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.bitmap<br> <span class="keyword">val</span> create_from_data :<br> ?window:<span class="constructor">Gdk</span>.window <span class="keywordsign">-></span> width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.bitmap<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Font</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> load : string <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.font<br> <span class="keyword">val</span> load_fontset : string <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.font<br> <span class="keyword">val</span> string_width : <span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> char_width : <span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> char <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> string_height : <span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> char_height : <span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> char <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> string_measure : <span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> char_measure : <span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> char <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> get_type : <span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> [ <span class="keywordsign">`</span><span class="constructor">FONT</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">FONTSET</span> ]<br> <span class="keyword">val</span> ascent : <span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> descent : <span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> int<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Draw</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> point :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> line :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> rectangle :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span><br> x:int <span class="keywordsign">-></span><br> y:int <span class="keywordsign">-></span> width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> ?filled:bool <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> arc :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span><br> x:int <span class="keywordsign">-></span><br> y:int <span class="keywordsign">-></span><br> width:int <span class="keywordsign">-></span><br> height:int <span class="keywordsign">-></span><br> ?filled:bool <span class="keywordsign">-></span> ?start:float <span class="keywordsign">-></span> ?angle:float <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> polygon :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> ?filled:bool <span class="keywordsign">-></span> (int * int) list <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> string :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> font:<span class="constructor">Gdk</span>.font <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> string <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> layout :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span><br> x:int <span class="keywordsign">-></span><br> y:int <span class="keywordsign">-></span> <span class="constructor">Pango</span>.layout <span class="keywordsign">-></span> ?fore:<span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> ?back:<span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> image :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span><br> ?xsrc:int <span class="keywordsign">-></span><br> ?ysrc:int <span class="keywordsign">-></span><br> ?xdest:int <span class="keywordsign">-></span><br> ?ydest:int <span class="keywordsign">-></span> ?width:int <span class="keywordsign">-></span> ?height:int <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.image <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> pixmap :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span><br> ?xsrc:int <span class="keywordsign">-></span><br> ?ysrc:int <span class="keywordsign">-></span><br> ?xdest:int <span class="keywordsign">-></span><br> ?ydest:int <span class="keywordsign">-></span> ?width:int <span class="keywordsign">-></span> ?height:int <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.pixmap <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> points :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> (int * int) list <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> lines :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> (int * int) list <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> segments :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span> ((int * int) * (int * int)) list <span class="keywordsign">-></span> unit<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Rgb</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> init : unit <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_visual : unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.visual<br> <span class="keyword">val</span> get_cmap : unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.colormap<br> <span class="keyword">val</span> draw_image :<br> [> <span class="keywordsign">`</span>drawable ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span><br> <span class="constructor">Gdk</span>.gc <span class="keywordsign">-></span><br> width:int <span class="keywordsign">-></span><br> height:int <span class="keywordsign">-></span><br> ?x:int <span class="keywordsign">-></span><br> ?y:int <span class="keywordsign">-></span><br> ?dither:<span class="constructor">Gdk</span>.<span class="constructor">Tags</span>.rgb_dither <span class="keywordsign">-></span><br> ?row_stride:int <span class="keywordsign">-></span> <span class="constructor">Gpointer</span>.region <span class="keywordsign">-></span> unit<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">DnD</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> drag_status :<br> <span class="constructor">Gdk</span>.drag_context <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Tags</span>.drag_action option <span class="keywordsign">-></span> time:int32 <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> drag_context_suggested_action :<br> <span class="constructor">Gdk</span>.drag_context <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.<span class="constructor">Tags</span>.drag_action<br> <span class="keyword">val</span> drag_context_targets : <span class="constructor">Gdk</span>.drag_context <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.atom list<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Truecolor</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> color_creator :<br> <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> red:int <span class="keywordsign">-></span> green:int <span class="keywordsign">-></span> blue:int <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> color_parser : <span class="constructor">Gdk</span>.visual <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int * int * int<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">X</span> : <span class="keyword">sig</span> <span class="keyword">val</span> flush : unit <span class="keywordsign">-></span> unit <span class="keyword">val</span> beep : unit <span class="keywordsign">-></span> unit <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Cursor</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> cursor_type =<br> [ <span class="keywordsign">`</span><span class="constructor">ARROW</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BASED_ARROW_DOWN</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BASED_ARROW_UP</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BOAT</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BOGOSITY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BOTTOM_LEFT_CORNER</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BOTTOM_RIGHT_CORNER</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BOTTOM_SIDE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BOTTOM_TEE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BOX_SPIRAL</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CENTER_PTR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CIRCLE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CLOCK</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">COFFEE_MUG</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CROSS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CROSSHAIR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">CROSS_REVERSE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DIAMOND_CROSS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DOT</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DOTBOX</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DOUBLE_ARROW</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DRAFT_LARGE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DRAFT_SMALL</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DRAPED_BOX</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">EXCHANGE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">FLEUR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">GOBBLER</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">GUMBY</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">HAND1</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">HAND2</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">HEART</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">ICON</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">IRON_CROSS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LEFTBUTTON</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LEFT_PTR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LEFT_SIDE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LEFT_TEE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LL_ANGLE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LR_ANGLE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MAN</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MIDDLEBUTTON</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">MOUSE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PENCIL</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PIRATE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">PLUS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">QUESTION_ARROW</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">RIGHTBUTTON</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">RIGHT_PTR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">RIGHT_SIDE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">RIGHT_TEE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">RTL_LOGO</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SAILBOAT</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SB_DOWN_ARROW</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SB_H_DOUBLE_ARROW</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SB_LEFT_ARROW</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SB_RIGHT_ARROW</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SB_UP_ARROW</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SB_V_DOUBLE_ARROW</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SHUTTLE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SIZING</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SPIDER</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">SPRAYCAN</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">STAR</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TARGET</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TCROSS</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TOP_LEFT_ARROW</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TOP_LEFT_CORNER</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TOP_RIGHT_CORNER</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TOP_SIDE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TOP_TEE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">TREK</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UL_ANGLE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UMBRELLA</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">UR_ANGLE</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">WATCH</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">XTERM</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">X_CURSOR</span> ]<br> <span class="keyword">val</span> create : <span class="constructor">Gdk</span>.<span class="constructor">Cursor</span>.cursor_type <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.cursor<br> <span class="keyword">val</span> create_from_pixmap :<br> <span class="constructor">Gdk</span>.pixmap <span class="keywordsign">-></span><br> mask:<span class="constructor">Gdk</span>.bitmap <span class="keywordsign">-></span><br> fg:<span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> bg:<span class="constructor">Gdk</span>.color <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.cursor<br> <span class="keyword">val</span> create_from_pixbuf :<br> [ <span class="keywordsign">`</span>pixbuf ] <span class="constructor">Gobject</span>.obj <span class="keywordsign">-></span> x:int <span class="keywordsign">-></span> y:int <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.cursor<br> <span class="keyword">val</span> get_image : <span class="constructor">Gdk</span>.cursor <span class="keywordsign">-></span> [ <span class="keywordsign">`</span>pixbuf ] <span class="constructor">Gobject</span>.obj<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Display</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> default : unit <span class="keywordsign">-></span> <span class="constructor">Gdk</span>.display<br> <span class="keyword">val</span> window_at_pointer :<br> ?display:<span class="constructor">Gdk</span>.display <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> (<span class="constructor">Gdk</span>.window * int * int) option<br> <span class="keyword">end</span><br> <span class="keyword">end</span></code></body></html>