Refactored draw/handle methods in Widgets hierarchy, improved docs, added a few minor method bindings here and there

1 files changed, 61 insertions, 17 deletions

diff --git a/doc/fl_slider.html b/doc/fl_slider.html
index 7ccd2a1..3b99b86 100644
--- a/doc/fl_slider.html
+++ b/doc/fl_slider.html
@@ -42,7 +42,7 @@
   </tr>
 
   <tr>
-    <td>&nbsp;</td>
+    <td>uchar</td>
     <td>Slider_Kind</td>
   </tr>
 
@@ -51,7 +51,7 @@
 
 
 <table class="function">
-  <tr><th colspan="2">Functions and Procedures</th></tr>
+  <tr><th colspan="2">Constructors</th></tr>
 
   <tr>
 <td><pre>
@@ -60,7 +60,7 @@ Fl_Slider(int X, int Y, int W, int H, const char *L=0);
 <td><pre>
 function Create
        (X, Y, W, H : in Integer;
-        Text       : in String)
+        Text       : in String := "")
     return Slider;
 </pre></td>
   </tr>
@@ -69,9 +69,22 @@ function Create
 <td><pre>
 Fl_Slider(uchar t, int X, int Y, int W, int H, const char *L);
 </pre></td>
-<td>&nbsp;</td>
+<td><pre>
+function Create
+       (Kind       : in Slider_Kind;
+        X, Y, W, H : in Integer;
+        Text       : in String := "")
+    return Slider;
+</pre></td>
   </tr>
 
+</table>
+
+
+
+<table class="function">
+  <tr><th colspan="2">Functions and Procedures</th></tr>
+
   <tr>
 <td><pre>
 void bounds(double a, double b);
@@ -85,16 +98,6 @@ procedure Set_Bounds
 
   <tr>
 <td><pre>
-void draw();
-</pre></td>
-<td><pre>
-procedure Draw
-       (This : in out Slider);
-</pre></td>
-  </tr>
-
-  <tr>
-<td><pre>
 int handle(int);
 </pre></td>
 <td><pre>
@@ -159,12 +162,12 @@ void slider_size(double v);
 <td><pre>
 procedure Set_Slide_Size
        (This : in out Slider;
-        To   : in     Float);
+        To   : in     Long_Float);
 </pre></td>
   </tr>
 
   <tr>
-<td>See type() methods for Fl_Widget</td>
+<td>See type method for Fl_Widget.</td>
 <td><pre>
 function Get_Slider_Type
        (This : in Slider)
@@ -173,7 +176,7 @@ function Get_Slider_Type
   </tr>
 
   <tr>
-<td>See type() methods for Fl_Widget</td>
+<td>See type method for Fl_Widget.</td>
 <td><pre>
 procedure Set_Slider_Type
        (This : in out Slider;
@@ -184,6 +187,47 @@ procedure Set_Slider_Type
 </table>
 
 
+
+<table class="function">
+  <tr><th colspan="2">Protected Functions and Procedures</th></tr>
+
+  <tr>
+<td><pre>
+void draw();
+</pre></td>
+<td><pre>
+procedure Draw
+       (This : in out Slider);
+</pre></td>
+  </tr>
+
+  <tr>
+<td><pre>
+void draw(int, int, int, int);
+</pre></td>
+<td><pre>
+procedure Draw
+       (This       : in out Slider;
+        X, Y, W, H : in     Integer);
+</pre></td>
+  </tr>
+
+  <tr>
+<td><pre>
+int handle(int, int, int, int, int);
+</pre></td>
+<td><pre>
+function Handle
+       (This       : in out Slider;
+        Event      : in     Event_Kind;
+        X, Y, W, H : in     Integer)
+    return Event_Outcome;
+</pre></td>
+  </tr>
+
+</table>
+
+
   </body>
 </html>