Using the type method is now more consistent

10 files changed, 50 insertions, 18 deletions

diff --git a/doc/fl_counter.html b/doc/fl_counter.html
index 7a01221..fbd6eb3 100644
--- a/doc/fl_counter.html
+++ b/doc/fl_counter.html
@@ -41,6 +41,11 @@
     <td>Counter_Reference</td>
   </tr>
 
+  <tr>
+    <td>uchar</td>
+    <td>Counter_Kind</td>
+  </tr>
+
 </table>
 
 
@@ -210,6 +215,24 @@ procedure Set_Text_Size
 </pre></td>
   </tr>
 
+  <tr>
+<td>See type method for Fl_Widget.</td>
+<td><pre>
+function Get_Kind
+       (This : in out Counter)
+    return Counter_Kind;
+</pre></td>
+  </tr>
+
+  <tr>
+<td>See type method for Fl_Widget.</td>
+<td><pre>
+procedure Set_Kind
+       (This  : in out Counter;
+        Value : in     Counter_Kind);
+</pre></td>
+  </tr>
+
 </table>
 
 
diff --git a/doc/fl_dial.html b/doc/fl_dial.html
index 565b7cf..0b3fc45 100644
--- a/doc/fl_dial.html
+++ b/doc/fl_dial.html
@@ -154,7 +154,7 @@ function Handle
   <tr>
 <td>See type method for Fl_Widget.</td>
 <td><pre>
-function Get_Dial_Type
+function Get_Kind
        (This : in Dial)
     return Dial_Kind;
 </pre></td>
@@ -163,7 +163,7 @@ function Get_Dial_Type
   <tr>
 <td>See type method for Fl_Widget.</td>
 <td><pre>
-procedure Set_Dial_Type
+procedure Set_Kind
        (This : in out Dial;
         To   : in     Dial_Kind);
 </pre></td>
diff --git a/doc/fl_file_chooser.html b/doc/fl_file_chooser.html
index 15b1380..24bd6d8 100644
--- a/doc/fl_file_chooser.html
+++ b/doc/fl_file_chooser.html
@@ -669,7 +669,7 @@ procedure Set_Text_Size
 int type();
 </pre></td>
 <td><pre>
-function Get_Chooser_Kind
+function Get_Kind
        (This : in File_Chooser)
     return Chooser_Kind;
 </pre></td>
@@ -680,7 +680,7 @@ function Get_Chooser_Kind
 void type(int t);
 </pre></td>
 <td><pre>
-procedure Set_Chooser_Kind
+procedure Set_Kind
        (This : in out File_Chooser;
         Kind : in     Chooser_Kind);
 </pre></td>
diff --git a/doc/fl_input_.html b/doc/fl_input_.html
index b8e9929..071ec66 100644
--- a/doc/fl_input_.html
+++ b/doc/fl_input_.html
@@ -209,7 +209,7 @@ function Index
 int input_type() const;
 </pre></td>
 <td><pre>
-function Get_Input_Type
+function Get_Kind
        (This : in Input)
     return Input_Kind;
 </pre></td>
@@ -220,7 +220,7 @@ function Get_Input_Type
 void input_type(int t);
 </pre></td>
 <td><pre>
-procedure Set_Input_Type
+procedure Set_Kind
        (This : in out Input;
         To   : in     Input_Kind);
 </pre></td>
diff --git a/doc/fl_menu_item.html b/doc/fl_menu_item.html
index 1fb05b3..a09cfe7 100644
--- a/doc/fl_menu_item.html
+++ b/doc/fl_menu_item.html
@@ -480,7 +480,7 @@ procedure Set_Label_Size
 Fl_Labeltype labeltype() const;
 </pre></td>
 <td><pre>
-function Get_Label_Type
+function Get_Label_Kind
        (This : in Menu_Item)
     return Label_Kind;
 </pre></td>
@@ -491,7 +491,7 @@ function Get_Label_Type
 void labeltype(Fl_Labeltype a);
 </pre></td>
 <td><pre>
-procedure Set_Label_Type
+procedure Set_Label_Kind
        (This : in out Menu_Item;
         To   : in     Label_Kind);
 </pre></td>
diff --git a/doc/fl_pack.html b/doc/fl_pack.html
index 6dc580a..1a7a887 100644
--- a/doc/fl_pack.html
+++ b/doc/fl_pack.html
@@ -89,7 +89,7 @@ function Create
 uchar horizontal() const;
 </pre></td>
 <td><pre>
-function Get_Pack_Type
+function Get_Kind
        (This : in Packed_Group)
     return Pack_Kind;
 </pre></td>
@@ -120,7 +120,7 @@ procedure Set_Spacing
   <tr>
 <td>See type method for Fl_Widget.</td>
 <td><pre>
-procedure Set_Pack_Type
+procedure Set_Kind
        (This : in out Packed_Group;
         Kind : in     Pack_Kind);
 </pre></td>
diff --git a/doc/fl_scroll.html b/doc/fl_scroll.html
index f264792..35856ba 100644
--- a/doc/fl_scroll.html
+++ b/doc/fl_scroll.html
@@ -198,9 +198,18 @@ function Get_Scroll_Y
   </tr>
 
   <tr>
-<td>&nbsp;</td>
+<td>See type method in Fl_Widget.</td>
+<td><pre>
+function Get_Kind
+       (This : in Scroll)
+    return Scroll_Kind;
+</pre></td>
+  </tr>
+
+  <tr>
+<td>See type method in Fl_Widget.</td>
 <td><pre>
-procedure Set_Type
+procedure Set_Kind
        (This : in out Scroll;
         Mode : in     Scroll_Kind);
 </pre></td>
diff --git a/doc/fl_slider.html b/doc/fl_slider.html
index 099008d..a56daf4 100644
--- a/doc/fl_slider.html
+++ b/doc/fl_slider.html
@@ -194,7 +194,7 @@ procedure Set_Slide_Size
   <tr>
 <td>See type method for Fl_Widget.</td>
 <td><pre>
-function Get_Slider_Type
+function Get_Kind
        (This : in Slider)
     return Slider_Kind;
 </pre></td>
@@ -203,7 +203,7 @@ function Get_Slider_Type
   <tr>
 <td>See type method for Fl_Widget.</td>
 <td><pre>
-procedure Set_Slider_Type
+procedure Set_Kind
        (This : in out Slider;
         To   : in     Slider_Kind);
 </pre></td>
diff --git a/doc/fl_spinner.html b/doc/fl_spinner.html
index 9e3221f..5a2d185 100644
--- a/doc/fl_spinner.html
+++ b/doc/fl_spinner.html
@@ -367,7 +367,7 @@ procedure Set_Text_Size
 uchar type() const;
 </pre></td>
 <td><pre>
-function Get_Type
+function Get_Kind
        (This : in Spinner)
     return Spinner_Kind;
 </pre></td>
@@ -378,7 +378,7 @@ function Get_Type
 void type(uchar v);
 </pre></td>
 <td><pre>
-procedure Set_Type
+procedure Set_Kind
        (This : in out Spinner;
         To   : in     Spinner_Kind);
 </pre></td>
diff --git a/doc/fl_widget.html b/doc/fl_widget.html
index cb21c4d..265af2c 100644
--- a/doc/fl_widget.html
+++ b/doc/fl_widget.html
@@ -691,7 +691,7 @@ procedure Set_Label_Size
 Fl_Labeltype labeltype() const;
 </pre></td>
 <td><pre>
-function Get_Label_Type
+function Get_Label_Kind
        (This : in Widget)
     return Label_Kind;
 </pre></td>
@@ -702,7 +702,7 @@ function Get_Label_Type
 void labeltype(Fl_Labeltype a);
 </pre></td>
 <td><pre>
-procedure Set_Label_Type
+procedure Set_Label_Kind
        (This  : in out Widget;
         Label : in     Label_Kind);
 </pre></td>