From 931b27a04a5af60f297dd66288fd6163c277b181 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 29 Jun 2017 18:42:47 +1000 Subject: Reworked css for nav, pre, code tags, added some colour --- project/templates/fltkada.html | 29 ++++++++++++++--------------- 1 file changed, 14 insertions(+), 15 deletions(-) (limited to 'project/templates/fltkada.html') 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.

-

A typical FLTK Hello World program in Ada: +

A typical FLTK Hello World program in Ada:

- 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; -

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 -- cgit