[gtkada] Window Icons

[Rick Duley]

Hi folks

This is what I am trying to write to a Label:

      -- Add the text to the label according to the values pass in User_Data.
      Gtk_New
        (Analyse60_Confirmation.Analyse60_Confirmation_Label,
         -(<tt>With_Leader(Word => "Recursive_Search",
                       Column_Width => 25)
           & Boolean'Image(User_Data.Recursive)
           & ASCII.LF
           & With_Leader(Word => "TTR Data",
                         Column_Width => 25)
           & Boolean'Image(User_Data.Verbose)
           & ASCII.LF
           & With_Leader(Word => "Language Use",
                         Column_Width => 25)
           & Boolean'Image(User_Data.Requirements)
           & ASCII.LF
           & With_Leader(Word => "Lexical Test",
                         Column_Width => 25)
           & Boolean'Image(User_Data.Lexical_Report)
           & ASCII.LF
           & With_Leader(Word => "Tutor Report",
                         Column_Width => 25)
           & Boolean'Image(User_Data.Tutor_Report)
           & ASCII.LF
           & With_Leader(Word => "Student Report",
                         Column_Width => 25)
           & Boolean'Image(User_Data.Student_Report)
           & ASCII.LF & ASCII.LF
           & With_Leader(Word => "Curve Sample Count",
                         Column_Width => 25)
           & Integer'Image(User_Data.Curve_Sample_Count)
           & ASCII.LF
           & With_Leader(Word => "Curve Sample Increment",
                         Column_Width => 25)
           & Integer'Image(User_Data.Curve_Increment)
           & ASCII.LF
           & With_Leader(Word => "Curve Maximum",
                         Column_Width => 25)
           & Integer'Image(User_Data.Curve_Maximum)
           & ASCII.LF
           & With_Leader(Word => "ALV Sample Count",
                         Column_Width => 25)
           & Integer'Image(User_Data.ALV_Sample_Count)
           & ASCII.LF
           & With_Leader(Word => "ALV Sample Size",
                         Column_Width => 25)
           & Integer'Image(User_Data.ALV_Sample_Size))</tt>);

This should produce something like:

     Recursive Search ....... TRUE
     TTR Data ............... FALSE
     Language Use ........... FALSE
     etc.

'With_Leader' is a support function which writes the word and then fills the
line between the end of the word and 'Column_Width' with full stops.  My
problem is that the default font is a variable-width font and, therefore, the
values in the right-hand column (at the end of the line of full-stops) are not
tabulated.  You can see I have inserted tags as in the suggestion:

   Gtk_New(Text_Label, "<tt> Some text </tt>");
   Set)Use_Markup(Text_Label, True);

but this raises a compiler error message: 'missing operand'.

Problem seems to be that there is no such thing as a 'Font' attribute for a
Lable (or any Editable as fas as I can find), yet surely there must be a way to
use other than the default Font.

All help is appreciated
Cheers
-------------------------------------------
"Professional qualitative judgement
   consists in knowing the rules
     for using (or occasionally breaking)
       the rules."
                            D. Royce Sadler
-------------------------------------------
Rick Duley
Murdoch University
School of Engineering Science
Perth, Western Australia
http://eng.murdoch.edu.au/~rick
aussie : 040 910 6049                .-_|\
o'seas : + 61 40 910 6049           /     \
                              perth *_.-._/
                                         v