Commits

Paweł Wieczorek committed feb1019 Draft

added mli for ui algebra

Comments (0)

Files changed (2)

src/Screens/MainScreen.ml

   Continue
 
 let _screen_mousemotion state mx my =
-  Printf.printf "Mouse down at (%u, %u)\n%!" mx my;
   Continue
 
 (**************************************************************************

src/UI/UI_Algebra.mli

+(**************************************************************************
+ * PixLand
+ *   Copyrights 2012 by Pawel Wieczorek <wieczyk gmail com>
+ *)
+
+open UI;;
+
+(**************************************************************************
+ * Types
+ *)
+
+type 'a ui_widget =
+    Button of string * 'a
+  | HorizontalBox of 'a ui_widget list
+
+type 'a ui_contener =
+    Panel of string * 'a ui_widget
+  | Tabs of 'a ui_contener list
+
+
+(**************************************************************************
+ * 
+ *)
+
+val calculate_height_for_ui_widget : 'a ui_widget -> int
+
+val calculate_height_for_ui_contener : 'a ui_contener -> int
+
+val draw_horizontal_box : Video.rect -> Video.image -> 'a ui_widget list -> unit
+
+val draw_ui_widget : Video.rect -> Video.image -> 'a ui_widget -> unit
+
+val draw_ui_contener : Video.rect -> Video.image -> 'a ui_contener -> unit