diff options
author | Jed Barber <jjbarber@y7mail.com> | 2018-03-23 02:28:25 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2018-03-23 02:28:25 +1100 |
commit | 04b80586bb52e02c0d081215d14ef7356b1f5af8 (patch) | |
tree | 72e30c7e17d364e9a16a7cd40ced15953841c3c3 /src/fltk-dialogs.ads | |
parent | c53eec6b06e8a30a8e718d3955892a245f89a2f6 (diff) |
Completed Input widgets, Dialog routines
Diffstat (limited to 'src/fltk-dialogs.ads')
-rw-r--r-- | src/fltk-dialogs.ads | 78 |
1 files changed, 71 insertions, 7 deletions
diff --git a/src/fltk-dialogs.ads b/src/fltk-dialogs.ads index cb5b966..0368834 100644 --- a/src/fltk-dialogs.ads +++ b/src/fltk-dialogs.ads @@ -1,17 +1,63 @@ +with + + FLTK.Widgets.Boxes, + FLTK.Widgets.Groups.Color_Choosers; + + package FLTK.Dialogs is + type Beep_Kind is + (Default_Beep, Message_Beep, Error_Beep, + Question_Beep, Password_Beep, Notification_Beep); + + type Choice is (First, Second, Third); + + + + procedure Alert (Message : String); + -- function Ask + -- (Message : in String) + -- return Boolean; + + procedure Beep + (Kind : in Beep_Kind); - type Choice is (First, Second, Third); function Three_Way_Choice (Message, Button1, Button2, Button3 : in String) return Choice; + function Text_Input + (Message : in String; + Default : in String := "") + return String; + + procedure Message_Box + (Message : in String); + + function Password + (Message : in String; + Default : in String := "") + return String; + + + + + function Color_Chooser + (Title : in String; + R, G, B : in out Long_Float; + Mode : in FLTK.Widgets.Groups.Color_Choosers.Color_Mode) + return Boolean; + + function Dir_Chooser + (Message, Default : in String; + Relative : in Boolean := False) + return String; function File_Chooser (Message, Filter_Pattern, Default : in String; @@ -19,14 +65,32 @@ package FLTK.Dialogs is return String; - function Text_Input - (Message : in String; - Default : in String := "") - return String; - procedure Message_Box - (Message : in String); + function Get_Hotspot + return Boolean; + + procedure Set_Hotspot + (To : in Boolean); + + procedure Set_Message_Font + (Font : in Font_Kind; + Size : in Font_Size); + + function Get_Message_Icon + return FLTK.Widgets.Boxes.Box_Cursor; + + procedure Set_Message_Title + (To : in String); + + procedure Set_Message_Title_Default + (To : in String); + + +private + + + Icon_Box : aliased FLTK.Widgets.Boxes.Box; end FLTK.Dialogs; |