<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <link rel="Start" href="index.html"> <title>LablGTK : GlGtk</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> visual_options =<br> [ <span class="keywordsign">`</span><span class="constructor">ACCUM_ALPHA_SIZE</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">ACCUM_GREEN_SIZE</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">ALPHA_SIZE</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">AUX_BUFFERS</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BLUE_SIZE</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">BUFFER_SIZE</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DEPTH_SIZE</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">DOUBLEBUFFER</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">GREEN_SIZE</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">LEVEL</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">RED_SIZE</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">RGBA</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">STENCIL_SIZE</span> <span class="keyword">of</span> int<br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">STEREO</span><br> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">USE_GL</span> ]<br> <span class="keyword">type</span> gl_area = [ <span class="keywordsign">`</span>drawingarea <span class="keywordsign">|</span> <span class="keywordsign">`</span>glarea <span class="keywordsign">|</span> <span class="keywordsign">`</span>gtk <span class="keywordsign">|</span> <span class="keywordsign">`</span>widget ]<br> <span class="keyword">module</span> <span class="constructor">GtkRaw</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">external</span> create :<br> <span class="constructor">GlGtk</span>.visual_options list <span class="keywordsign">-></span><br> share:[> <span class="keywordsign">`</span>glarea ] <span class="constructor">Gtk</span>.optobj <span class="keywordsign">-></span> <span class="constructor">GlGtk</span>.gl_area <span class="constructor">Gtk</span>.obj<br> = <span class="string">"ml_gtk_gl_area_new"</span><br> <span class="keyword">external</span> swap_buffers : [> <span class="keywordsign">`</span>glarea ] <span class="constructor">Gtk</span>.obj <span class="keywordsign">-></span> unit<br> = <span class="string">"ml_gtk_gl_area_swap_buffers"</span><br> <span class="keyword">external</span> make_current : [> <span class="keywordsign">`</span>glarea ] <span class="constructor">Gtk</span>.obj <span class="keywordsign">-></span> bool<br> = <span class="string">"ml_gtk_gl_area_make_current"</span><br> <span class="keyword">end</span><br> <span class="keyword">class</span> area_signals :<br> ([> <span class="constructor">GlGtk</span>.gl_area ] <span class="keyword">as</span> <span class="keywordsign">'</span>b) <span class="constructor">Gtk</span>.obj <span class="keywordsign">-></span><br> <span class="keyword">object</span> (<span class="keywordsign">'</span>a)<br> <span class="keyword">val</span> obj : <span class="keywordsign">'</span>b <span class="constructor">Gtk</span>.obj<br> <span class="keyword">method</span> after : <span class="keywordsign">'</span>a<br> <span class="keyword">method</span> destroy : callback:(unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> <span class="constructor">GtkSignal</span>.id<br> <span class="keyword">method</span> display : callback:(unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> <span class="constructor">GtkSignal</span>.id<br> <span class="keyword">method</span> realize : callback:(unit <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> <span class="constructor">GtkSignal</span>.id<br> <span class="keyword">method</span> reshape :<br> callback:(width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> <span class="constructor">GtkSignal</span>.id<br> <span class="keyword">end</span><br> <span class="keyword">class</span> area :<br> <span class="constructor">GlGtk</span>.gl_area <span class="constructor">Gtk</span>.obj <span class="keywordsign">-></span><br> <span class="keyword">object</span><br> <span class="keyword">val</span> obj : <span class="constructor">GlGtk</span>.gl_area <span class="constructor">Gtk</span>.obj<br> <span class="keyword">method</span> as_area : <span class="constructor">GlGtk</span>.gl_area <span class="constructor">Gtk</span>.obj<br> <span class="keyword">method</span> as_widget : <span class="constructor">Gtk</span>.widget <span class="constructor">Gtk</span>.obj<br> <span class="keyword">method</span> coerce : <span class="constructor">GObj</span>.widget<br> <span class="keyword">method</span> connect : <span class="constructor">GlGtk</span>.area_signals<br> <span class="keyword">method</span> destroy : unit <span class="keywordsign">-></span> unit<br> <span class="keyword">method</span> drag : <span class="constructor">GObj</span>.drag_ops<br> <span class="keyword">method</span> event : <span class="constructor">GObj</span>.event_ops<br> <span class="keyword">method</span> get_oid : int<br> <span class="keyword">method</span> make_current : unit <span class="keywordsign">-></span> unit<br> <span class="keyword">method</span> misc : <span class="constructor">GObj</span>.misc_ops<br> <span class="keyword">method</span> set_size : width:int <span class="keywordsign">-></span> height:int <span class="keywordsign">-></span> unit<br> <span class="keyword">method</span> swap_buffers : unit <span class="keywordsign">-></span> unit<br> <span class="keyword">end</span><br> <span class="keyword">val</span> area :<br> <span class="constructor">GlGtk</span>.visual_options list <span class="keywordsign">-></span><br> ?share:<span class="constructor">GlGtk</span>.area <span class="keywordsign">-></span><br> ?width:int <span class="keywordsign">-></span><br> ?height:int <span class="keywordsign">-></span><br> ?packing:(<span class="constructor">GObj</span>.widget <span class="keywordsign">-></span> unit) <span class="keywordsign">-></span> ?show:bool <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">GlGtk</span>.area<br> <span class="keyword">val</span> region_of_raw : <span class="keywordsign">'</span>a <span class="constructor">Raw</span>.t <span class="keywordsign">-></span> <span class="constructor">Gpointer</span>.region<br> <span class="keyword">end</span></code></body></html>