From 86a0894a1c54e69ae56e147cc943893194664304 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Wed, 11 Dec 2024 17:25:21 +1300 Subject: Abstract_Browser now Browser, slight tweaks to Select and Sort subprograms --- doc/fl_browser_.html | 140 ++++++++++++++++++++++++++++----------------------- 1 file changed, 78 insertions(+), 62 deletions(-) (limited to 'doc') diff --git a/doc/fl_browser_.html b/doc/fl_browser_.html index 8c98c56..0f8c5fa 100644 --- a/doc/fl_browser_.html +++ b/doc/fl_browser_.html @@ -27,8 +27,9 @@

Note:

-As the name suggests, you will likely never actually touch Abstract_Browser directly. -Only through using or creating types derived from it.

+This Browser type should really be abstract but cannot be for technical binding reasons. +If you try to use it directly you will get exceptions. Either extend it or use types +already extended from it.

@@ -37,12 +38,12 @@ Only through using or creating types derived from it.

Fl_Browser_ - Abstract_Browser + Browser   - Abstract_Browser_Reference + Browser_Reference @@ -73,7 +74,7 @@ Fl_Scrollbar hscrollbar;
 function H_Bar
-       (This : in out Abstract_Browser)
+       (This : in out Browser)
     return Valuators.Sliders.Scrollbars.Scrollbar_Reference;
 
@@ -84,7 +85,7 @@ Fl_Scrollbar scrollbar;
 function V_Bar
-       (This : in out Abstract_Browser)
+       (This : in out Browser)
     return Valuators.Sliders.Scrollbars.Scrollbar_Reference;
 
@@ -104,7 +105,7 @@ Fl_Browser_(int X, int Y, int W, int H, const char *L=0); function Create (X, Y, W, H : in Integer; Text : in String := "") - return Abstract_Browser; + return Browser; @@ -121,9 +122,13 @@ int deselect(int docallbacks=0);
 function Deselect
-       (This         : in out Abstract_Browser;
+       (This         : in out Browser;
         Do_Callbacks : in     Boolean := False)
     return Boolean;
+
+procedure Deselect
+       (This         : in out Browser;
+        Do_Callbacks : in     Boolean := False);
 
@@ -133,7 +138,7 @@ void display(void *item);
 procedure Display
-       (This : in out Abstract_Browser;
+       (This : in out Browser;
         Item : in     Item_Cursor);
 
@@ -144,7 +149,7 @@ int handle(int event);
 function Handle
-       (This  : in out Abstract_Browser;
+       (This  : in out Browser;
         Event : in     Event_Kind)
     return Event_Outcome;
 
@@ -156,7 +161,7 @@ uchar has_scrollbar() const;
 function Get_Scrollbar_Mode
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Scrollbar_Mode;
 
@@ -167,7 +172,7 @@ void has_scrollbar(uchar mode);
 procedure Set_Scrollbar_Mode
-       (This : in out Abstract_Browser;
+       (This : in out Browser;
         Mode : in     Scrollbar_Mode);
 
@@ -178,7 +183,7 @@ int hposition() const;
 function Get_H_Position
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Integer;
 
@@ -189,7 +194,7 @@ void hposition(int);
 procedure Set_H_Position
-       (This  : in out Abstract_Browser;
+       (This  : in out Browser;
         Value : in     Integer);
 
@@ -200,7 +205,7 @@ int position() const;
 function Get_V_Position
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Integer;
 
@@ -211,7 +216,7 @@ void position(int pos);
 procedure Set_V_Position
-       (This  : in out Abstract_Browser;
+       (This  : in out Browser;
         Value : in     Integer);
 
@@ -222,7 +227,7 @@ void resize(int X, int Y, int W, int H);
 procedure Resize
-       (This       : in out Abstract_Browser;
+       (This       : in out Browser;
         X, Y, W, H : in     Integer);
 
@@ -233,7 +238,7 @@ void scrollbar_left();
 procedure Set_Vertical_Left
-       (This : in out Abstract_Browser);
+       (This : in out Browser);
 
@@ -243,7 +248,7 @@ void scrollbar_right();
 procedure Set_Vertical_Right
-       (This : in out Abstract_Browser);
+       (This : in out Browser);
 
@@ -253,7 +258,7 @@ int scrollbar_size() const;
 function Get_Scrollbar_Size
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Integer;
 
@@ -264,7 +269,7 @@ void scrollbar_size(int newSize);
 procedure Set_Scrollbar_Size
-       (This  : in out Abstract_Browser;
+       (This  : in out Browser;
         Value : in     Integer);
 
@@ -273,14 +278,14 @@ procedure Set_Scrollbar_Size
 int scrollbar_width() const;
 
-Deprecated, see scrollbar_size +Deprecated, see scrollbar_size();
 void scrollbar_width(int width);
 
-Deprecated, see scrollbar_size +Deprecated, see scrollbar_size(int width); @@ -289,11 +294,17 @@ int select(void *item, int val=1, int docallbacks=0);
 function Set_Select
-       (This         : in out Abstract_Browser;
+       (This         : in out Browser;
         Item         : in     Item_Cursor;
         State        : in     Boolean := True;
         Do_Callbacks : in     Boolean := False)
     return Boolean;
+
+procedure Set_Select
+       (This         : in out Browser;
+        Item         : in     Item_Cursor;
+        State        : in     Boolean := True;
+        Do_Callbacks : in     Boolean := False);
 
@@ -303,10 +314,15 @@ int select_only(void *item, int docallbacks=0);
 function Select_Only
-       (This         : in out Abstract_Browser;
+       (This         : in out Browser;
         Item         : in     Item_Cursor;
         Do_Callbacks : in     Boolean := False)
     return Boolean;
+
+procedure Select_Only
+       (This         : in out Browser;
+        Item         : in     Item_Cursor;
+        Do_Callbacks : in     Boolean := False);
 
@@ -316,7 +332,7 @@ void sort(int flags=0);
 procedure Sort
-       (This  : in out Abstract_Browser;
+       (This  : in out Browser;
         Order : in     Sort_Order);
 
@@ -327,7 +343,7 @@ Fl_Color textcolor() const;
 function Get_Text_Color
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Color;
 
@@ -338,7 +354,7 @@ void textcolor(Fl_Color col);
 procedure Set_Text_Color
-       (This  : in out Abstract_Browser;
+       (This  : in out Browser;
         Value : in     Color);
 
@@ -349,7 +365,7 @@ Fl_Font textfont() const;
 function Get_Text_Font
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Font_Kind;
 
@@ -360,7 +376,7 @@ void textfont(Fl_Font font);
 procedure Set_Text_Font
-       (This : in out Abstract_Browser;
+       (This : in out Browser;
         Font : in     Font_Kind);
 
@@ -371,7 +387,7 @@ Fl_Fontsize textsize() const;
 function Get_Text_Size
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Font_Size;
 
@@ -382,7 +398,7 @@ void textsize(Fl_Fontsize newSize);
 procedure Set_Text_Size
-       (This : in out Abstract_Browser;
+       (This : in out Browser;
         Size : in     Font_Size);
 
@@ -400,7 +416,7 @@ void bbox(int &X, int &Y, int &W, int &H) const;
 procedure Bounding_Box
-       (This       : in     Abstract_Browser;
+       (This       : in     Browser;
         X, Y, W, H :    out Integer);
 
@@ -411,7 +427,7 @@ void deleting(void *item);
 procedure Deleting
-       (This : in out Abstract_Browser;
+       (This : in out Browser;
         Item : in     Item_Cursor);
 
@@ -422,7 +438,7 @@ int displayed(void *item) const;
 function Is_Displayed
-       (This : in Abstract_Browser;
+       (This : in Browser;
         Item : in Item_Cursor)
     return Boolean;
 
@@ -434,7 +450,7 @@ void draw();
 procedure Draw
-       (This : in out Abstract_Browser);
+       (This : in out Browser);
 
@@ -444,7 +460,7 @@ void * find_item(int ypos);
 function Find_Item
-       (This  : in Abstract_Browser;
+       (This  : in Browser;
         Y_Pos : in Integer)
     return Item_Cursor;
 
@@ -456,7 +472,7 @@ virtual int full_height() const;
 function Full_List_Height
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Integer;
 
@@ -467,7 +483,7 @@ virtual int full_width() const;
 function Full_List_Width
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Integer;
 
@@ -478,7 +494,7 @@ virtual int incr_height() const;
 function Average_Item_Height
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Integer;
 
@@ -489,7 +505,7 @@ void inserting(void *a, void *b);
 procedure Inserting
-       (This : in out Abstract_Browser;
+       (This : in out Browser;
         A, B : in     Item_Cursor);
 
@@ -500,7 +516,7 @@ virtual void * item_at(int index) const;
 function Item_At
-       (This  : in Abstract_Browser;
+       (This  : in Browser;
         Index : in Positive)
     return Item_Cursor;
 
@@ -513,7 +529,7 @@ virtual void item_draw(void *item,
 procedure Item_Draw
-       (This       : in Abstract_Browser;
+       (This       : in Browser;
         Item       : in Item_Cursor;
         X, Y, W, H : in Integer);
 
@@ -525,7 +541,7 @@ virtual void * item_first() const =0;
 function Item_First
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Item_Cursor;
 
@@ -536,7 +552,7 @@ virtual int item_height(void *item) const =0;
 function Item_Height
-       (This : in Abstract_Browser;
+       (This : in Browser;
         Item : in Item_Cursor)
     return Integer;
 
@@ -548,7 +564,7 @@ virtual void * item_last() const;
 function Item_Last
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Item_Cursor;
 
@@ -559,7 +575,7 @@ virtual void * item_next(void *item) const =0;
 function Item_Next
-       (This : in Abstract_Browser;
+       (This : in Browser;
         Item : in Item_Cursor)
     return Item_Cursor;
 
@@ -571,7 +587,7 @@ virtual void * item_prev(void *item) const =0;
 function Item_Previous
-       (This : in Abstract_Browser;
+       (This : in Browser;
         Item : in Item_Cursor)
     return Item_Cursor;
 
@@ -583,7 +599,7 @@ virtual int item_quick_height(void *item) const;
 function Item_Quick_Height
-       (This : in Abstract_Browser;
+       (This : in Browser;
         Item : in Item_Cursor)
     return Integer;
 
@@ -595,7 +611,7 @@ virtual void item_select(void *item, int val=1);
 procedure Item_Select
-       (This  : in out Abstract_Browser;
+       (This  : in out Browser;
         Item  : in     Item_Cursor;
         State : in     Boolean := True);
 
@@ -607,7 +623,7 @@ virtual int item_selected(void *item) const;
 function Item_Selected
-       (This : in Abstract_Browser;
+       (This : in Browser;
         Item : in Item_Cursor)
     return Boolean;
 
@@ -619,7 +635,7 @@ virtual void item_swap(void *a, void *b);
 procedure Item_Swap
-       (This : in out Abstract_Browser;
+       (This : in out Browser;
         A, B : in     Item_Cursor);
 
@@ -630,7 +646,7 @@ virtual const char * item_text(void *item) const;
 function Item_Text
-       (This : in Abstract_Browser;
+       (This : in Browser;
         Item : in Item_Cursor)
     return String;
 
@@ -642,7 +658,7 @@ virtual int item_width(void *item) const =0;
 function Item_Width
-       (This : in Abstract_Browser;
+       (This : in Browser;
         Item : in Item_Cursor)
     return Integer;
 
@@ -654,7 +670,7 @@ int leftedge() const;
 function Left_Edge
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Integer;
 
@@ -665,7 +681,7 @@ void new_list();
 procedure New_List
-       (This : in out Abstract_Browser);
+       (This : in out Browser);
 
@@ -675,7 +691,7 @@ void redraw_line(void *item);
 procedure Redraw_Line
-       (This : in out Abstract_Browser;
+       (This : in out Browser;
         Item : in     Item_Cursor);
 
@@ -686,7 +702,7 @@ void redraw_lines();
 procedure Redraw_List
-       (This : in out Abstract_Browser);
+       (This : in out Browser);
 
@@ -696,7 +712,7 @@ void replacing(void *a, void *b);
 procedure Replacing
-       (This : in out Abstract_Browser;
+       (This : in out Browser;
         A, B : in     Item_Cursor);
 
@@ -707,7 +723,7 @@ void * selection() const;
 function Current_Selection
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Item_Cursor;
 
@@ -718,7 +734,7 @@ void swapping(void *a, void *b);
 procedure Swapping
-       (This : in out Abstract_Browser;
+       (This : in out Browser;
         A, B : in     Item_Cursor);
 
@@ -729,7 +745,7 @@ void * top() const;
 function Top_Item
-       (This : in Abstract_Browser)
+       (This : in Browser)
     return Item_Cursor;
 
-- cgit