From e2e976c7f4716034673e5939fa9f60797bf401fd Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sun, 2 Feb 2025 17:21:02 +1300 Subject: Filled holes in Fl_Window binding --- doc/fl_window.html | 189 +++++++++++++++++++++++++++++++++++++---------------- 1 file changed, 133 insertions(+), 56 deletions(-) (limited to 'doc') diff --git a/doc/fl_window.html b/doc/fl_window.html index 8376cf0..bda031e 100644 --- a/doc/fl_window.html +++ b/doc/fl_window.html @@ -41,11 +41,6 @@ Window_Reference - -   - Border_State - -   Modal_State @@ -155,7 +150,7 @@ function Last_Made_Current 
 static void default_callback(Fl_Window *, void *v);
-  +Back compatibility only, see default_atclose / Default_Window_Close in FLTK. @@ -164,7 +159,7 @@ static void default_icon(const Fl_RGB_Image *); 
 procedure Set_Default_Icon
-       (Pic : in out FLTK.Images.RGB.RGB_Image'Class);
+       (Pic : in FLTK.Images.RGB.RGB_Image'Class);
@@ -172,21 +167,32 @@ procedure Set_Default_Icon 
 static void default_icons(const Fl_RGB_Image *[], int);
-  +
+procedure Set_Default_Icons
+       (Pics : in FLTK.Images.RGB.RGB_Image_Array);
+
+procedure Reset_Default_Icons;
+
 static const char * default_xclass();
-  +
+function Get_Default_X_Class
+    return String;
+
 static void default_xclass(const char *);
-  +
+procedure Set_Default_X_Class
+       (Value : in String);
+
@@ -200,28 +206,28 @@ static void default_xclass(const char *); 
 virtual Fl_Window * as_window();
-Use view conversion and tag membership tests instead +Use view conversion and tag membership tests instead. 
-void border(int b);
+unsigned int border() const;
 
-procedure Set_Border_State
-       (This : in out Window;
-        To   : in     Border_State);
+function Has_Border
+       (This : in Window)
+    return Boolean;
 
-unsigned int border() const;
+void border(int b);
 
-function Get_Border_State
-       (This : in Window)
-    return Border_State;
+procedure Set_Border
+       (This  : in out Window;
+        Value : in     Boolean := True);
@@ -229,7 +235,10 @@ function Get_Border_State 
 void clear_border();
-  +
+procedure Clear_Border
+       (This : in out Window);
+
@@ -237,9 +246,8 @@ void clear_border(); void clear_modal_states(); 
-procedure Set_Modal_State
-       (This : in out Window;
-        To   : in     Modal_State);
+procedure Clear_Modal_State
+       (This : in out Window);
@@ -247,7 +255,11 @@ procedure Set_Modal_State 
 void copy_label(const char *a);
-  +
+procedure Set_Label
+       (This : in out Window;
+        Text : in     String);
+
@@ -268,7 +280,7 @@ void cursor(const Fl_RGB_Image *, int, int); 
 procedure Set_Cursor
        (This         : in out Window;
-        Pic          : in out FLTK.Images.RGB.RGB_Image'Class;
+        Pic          : in     FLTK.Images.RGB.RGB_Image'Class;
         Hot_X, Hot_Y : in     Integer);
@@ -277,7 +289,7 @@ procedure Set_Cursor 
 void cursor(Fl_Cursor c, Fl_Color, Fl_Color=FL_WHITE);
-  +Use cursor(Fl_Cursor) / Set_Cursor instead. @@ -317,17 +329,14 @@ procedure Set_Default_Cursor 
 void default_cursor(Fl_Cursor c, Fl_Color, Fl_Color=FL_WHITE);
-  +Use default_cursor(Fl_Cursor) / Set_Default_Cursor instead. 
 void free_position();
-
-procedure Free_Position
-       (This : in out Window);
-
+Marked as deprecated. @@ -438,7 +447,7 @@ void icon(const Fl_RGB_Image *); 
 procedure Set_Icon
        (This : in out Window;
-        Pic  : in out FLTK.Images.RGB.RGB_Image'Class);
+        Pic  : in     FLTK.Images.RGB.RGB_Image'Class);
@@ -446,14 +455,14 @@ procedure Set_Icon 
 const void * icon() const;
-  +Marked as deprecated. 
 void icon(const void *ic);
-  +Marked as deprecated. @@ -492,7 +501,14 @@ procedure Set_Icon_Label 
 void icons(const Fl_RGB_Image *[], int);
-  +
+procedure Set_Icons
+       (This : in out Window;
+        Pics : in     FLTK.Images.RGB.RGB_Image_Array);
+
+procedure Reset_Icons
+       (This : in out Window);
+
@@ -510,18 +526,20 @@ function Get_Label 
 void label(const char *);
-
-procedure Set_Label
-       (This : in out Window;
-        Text : in     String);
-
+Due to necessary marshalling between String and char* +using this method would be pointless, so its functionality is +subsumed by copy_label / Set_Label. 
 void label(const char *label, const char *iconlabel);
-  +
+procedure Set_Labels
+       (This            : in out Window;
+        Text, Icon_Text : in     String);
+
@@ -538,7 +556,11 @@ procedure Make_Current 
 unsigned int menu_window() const;
-Use tag membership tests instead +
+function Is_Menu_Window
+       (This : in Window)
+    return Boolean;
+
@@ -546,6 +568,15 @@ unsigned int menu_window() const; unsigned int modal() const; 
+function Is_Modal
+       (This : in Window)
+    return Boolean;
+
+ + + +Use modal, non_modal as appropriate. +
 function Get_Modal_State
        (This : in Window)
     return Modal_State;
@@ -556,7 +587,11 @@ function Get_Modal_State
 
 unsigned int non_modal() const;
 

-See unsigned int modal() const;
+
+function Is_Non_Modal
+       (This : in Window)
+    return Boolean;
+

   
 
   
@@ -574,28 +609,47 @@ function Is_Override
 
 virtual void resize(int X, int Y, int W, int H);
 

- 
+
+procedure Resize
+       (This       : in out Window;
+        X, Y, W, H : in     Integer);
+

   
 
   
 
 void set_menu_window();
 

- 
+Intended for internal use only.
   
 
   
 
 void set_modal();
 

-See void clear_modal_states();
+
+procedure Set_Modal
+       (This : in out Window);
+

+  
+
+  
+Use clear_modal_states, set_modal, set_non_modal as appropriate.
+
+procedure Set_Modal_State
+       (This  : in out Window;
+        Value : in     Modal_State);
+

   
 
   
 
 void set_non_modal();
 

-See void clear_modal_states();
+
+procedure Set_Non_Modal
+       (This : in out Window);
+

   
 
   
@@ -612,7 +666,7 @@ procedure Set_Override
 
 void set_tooltip_window();
 

- 
+Intended for internal use only.
   
 
   
@@ -624,7 +678,7 @@ void shape(const Fl_Image &b);
 
 procedure Shape
        (This : in out Window;
-        Pic  : in out FLTK.Images.Image'Class);
+        Pic  : in     FLTK.Images.Image'Class);
 

   
 
@@ -677,7 +731,11 @@ procedure Set_Size_Range
 
 unsigned int tooltip_window() const;
 

- 
+
+function Is_Tooltip_Window
+       (This : in Window)
+    return Boolean;
+

   
 
   
@@ -705,14 +763,22 @@ function Get_X_Root
 
 const char * xclass() const;
 

- 
+
+function Get_X_Class
+       (This : in Window)
+    return String;
+

   
 
   
 
 void xclass(const char *c);
 

- 
+
+procedure Set_X_Class
+       (This  : in out Window;
+        Value : in     String);
+

   
 
   
@@ -747,28 +813,39 @@ procedure Draw
 
 virtual void flush();
 

- 
+
+procedure Flush
+       (This : in out Window);
+

   
 
   
 
 int force_position() const;
 

- 
+
+function Is_Position_Forced
+       (This : in Window)
+    return Boolean;
+

   
 
   
 
 void force_position(int force);
 

- 
+
+procedure Force_Position
+       (This  : in out Window;
+        State : in     Boolean := True);
+

   
 
   
 
 void free_icons();
 

- 
+Intentionally left unbound.
   
 
 
-- 
cgit