diff options
Diffstat (limited to 'project/templates/fltkada.html')
| -rw-r--r-- | project/templates/fltkada.html | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/project/templates/fltkada.html b/project/templates/fltkada.html index 584e4f8..cea8cac 100644 --- a/project/templates/fltkada.html +++ b/project/templates/fltkada.html @@ -28,30 +28,29 @@ be enough to write a text editor. It's a thick, loosely coupled binding, accompl the interface to C, then importing that to Ada. Attempted usage of the internal C interface as a binding on its own is not supported.</p> -<p>A typical FLTK Hello World program in Ada: +<p>A typical FLTK Hello World program in Ada:</p> <code> - with - FLTK.Widgets.Groups.Windows, - FLTK.Widgets.Boxes; +with + FLTK.Widgets.Groups.Windows, + FLTK.Widgets.Boxes; - function Hello_World return Integer is +function Hello_World return Integer is - My_Win : FLTK.Widgets.Groups.Windows.Window := - FLTK.Widgets.Groups.Windows.Create (100, 100, 200, 200, "Untitled"); + My_Win : FLTK.Widgets.Groups.Windows.Window := + FLTK.Widgets.Groups.Windows.Create (100, 100, 200, 200, "Untitled"); - My_Box : FLTK.Widgets.Boxes.Box := - FLTK.Widgets.Boxes.Create (50, 50, 100, 100, "Hello, World!"); + My_Box : FLTK.Widgets.Boxes.Box := + FLTK.Widgets.Boxes.Create (50, 50, 100, 100, "Hello, World!"); - begin +begin - My_Win.Add (My_Box); - My_Win.Show; + My_Win.Add (My_Box); + My_Win.Show; - return FLTK.Run; + return FLTK.Run; - end Hello_World; +end Hello_World; </code> -</p> <p>Aside from reworking the types to better fit the strongly typed philosophy of Ada, the entire library has been structured to avoid explicit heap usage. As you can see from the above example, the intended use is to |