From 86a0894a1c54e69ae56e147cc943893194664304 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber Note:
-As the name suggests, you will likely never actually touch Abstract_Browser directly.
-Only through using or creating types derived from it.
function H_Bar
- (This : in out Abstract_Browser)
+ (This : in out Browser)
return Valuators.Sliders.Scrollbars.Scrollbar_Reference;
function V_Bar
- (This : in out Abstract_Browser)
+ (This : in out Browser)
return Valuators.Sliders.Scrollbars.Scrollbar_Reference;
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);
procedure Display
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Item : in Item_Cursor);
function Handle
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Event : in Event_Kind)
return Event_Outcome;
function Get_Scrollbar_Mode
- (This : in Abstract_Browser)
+ (This : in Browser)
return Scrollbar_Mode;
procedure Set_Scrollbar_Mode
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Mode : in Scrollbar_Mode);
function Get_H_Position
- (This : in Abstract_Browser)
+ (This : in Browser)
return Integer;
procedure Set_H_Position
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Value : in Integer);
function Get_V_Position
- (This : in Abstract_Browser)
+ (This : in Browser)
return Integer;
procedure Set_V_Position
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Value : in Integer);
procedure Resize
- (This : in out Abstract_Browser;
+ (This : in out Browser;
X, Y, W, H : in Integer);
procedure Set_Vertical_Left - (This : in out Abstract_Browser); + (This : in out Browser);
procedure Set_Vertical_Right - (This : in out Abstract_Browser); + (This : in out Browser);
function Get_Scrollbar_Size
- (This : in Abstract_Browser)
+ (This : in Browser)
return Integer;
procedure Set_Scrollbar_Size
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Value : in Integer);
int scrollbar_width() const;
void scrollbar_width(int width);
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);
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);
procedure Sort
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Order : in Sort_Order);
function Get_Text_Color
- (This : in Abstract_Browser)
+ (This : in Browser)
return Color;
procedure Set_Text_Color
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Value : in Color);
function Get_Text_Font
- (This : in Abstract_Browser)
+ (This : in Browser)
return Font_Kind;
procedure Set_Text_Font
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Font : in Font_Kind);
function Get_Text_Size
- (This : in Abstract_Browser)
+ (This : in Browser)
return Font_Size;
procedure Set_Text_Size
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Size : in Font_Size);
procedure Bounding_Box
- (This : in Abstract_Browser;
+ (This : in Browser;
X, Y, W, H : out Integer);
procedure Deleting
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Item : in Item_Cursor);
function Is_Displayed
- (This : in Abstract_Browser;
+ (This : in Browser;
Item : in Item_Cursor)
return Boolean;
procedure Draw - (This : in out Abstract_Browser); + (This : in out Browser);
function Find_Item
- (This : in Abstract_Browser;
+ (This : in Browser;
Y_Pos : in Integer)
return Item_Cursor;
function Full_List_Height
- (This : in Abstract_Browser)
+ (This : in Browser)
return Integer;
function Full_List_Width
- (This : in Abstract_Browser)
+ (This : in Browser)
return Integer;
function Average_Item_Height
- (This : in Abstract_Browser)
+ (This : in Browser)
return Integer;
procedure Inserting
- (This : in out Abstract_Browser;
+ (This : in out Browser;
A, B : in Item_Cursor);
function Item_At
- (This : in Abstract_Browser;
+ (This : in Browser;
Index : in Positive)
return Item_Cursor;
procedure Item_Draw
- (This : in Abstract_Browser;
+ (This : in Browser;
Item : in Item_Cursor;
X, Y, W, H : in Integer);
function Item_First
- (This : in Abstract_Browser)
+ (This : in Browser)
return Item_Cursor;
function Item_Height
- (This : in Abstract_Browser;
+ (This : in Browser;
Item : in Item_Cursor)
return Integer;
function Item_Last
- (This : in Abstract_Browser)
+ (This : in Browser)
return Item_Cursor;
function Item_Next
- (This : in Abstract_Browser;
+ (This : in Browser;
Item : in Item_Cursor)
return Item_Cursor;
function Item_Previous
- (This : in Abstract_Browser;
+ (This : in Browser;
Item : in Item_Cursor)
return Item_Cursor;
function Item_Quick_Height
- (This : in Abstract_Browser;
+ (This : in Browser;
Item : in Item_Cursor)
return Integer;
procedure Item_Select
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Item : in Item_Cursor;
State : in Boolean := True);
function Item_Selected
- (This : in Abstract_Browser;
+ (This : in Browser;
Item : in Item_Cursor)
return Boolean;
procedure Item_Swap
- (This : in out Abstract_Browser;
+ (This : in out Browser;
A, B : in Item_Cursor);
function Item_Text
- (This : in Abstract_Browser;
+ (This : in Browser;
Item : in Item_Cursor)
return String;
function Item_Width
- (This : in Abstract_Browser;
+ (This : in Browser;
Item : in Item_Cursor)
return Integer;
function Left_Edge
- (This : in Abstract_Browser)
+ (This : in Browser)
return Integer;
procedure New_List - (This : in out Abstract_Browser); + (This : in out Browser);
procedure Redraw_Line
- (This : in out Abstract_Browser;
+ (This : in out Browser;
Item : in Item_Cursor);
procedure Redraw_List - (This : in out Abstract_Browser); + (This : in out Browser);
procedure Replacing
- (This : in out Abstract_Browser;
+ (This : in out Browser;
A, B : in Item_Cursor);
function Current_Selection
- (This : in Abstract_Browser)
+ (This : in Browser)
return Item_Cursor;
procedure Swapping
- (This : in out Abstract_Browser;
+ (This : in out Browser;
A, B : in Item_Cursor);
function Top_Item
- (This : in Abstract_Browser)
+ (This : in Browser)
return Item_Cursor;