[gtkada] simple gtk_editable question

Jeffrey Carter jrcarter at acm.org
Fri Jan 11 02:18:46 CET 2002


Siddhartha Ray wrote:
> 
>    if Temprorary_String'Length < L then
>       Actual_String := Temprorary_String & (L - Temprorary_String'Length) *
>          " ";
>    elsif Temprorary_String'Length > L then
>       Actual_String := Temprorary_String (Temprorary_String'First ..
>          Temprorary_String'First + L - 1);
>    else
>       Actual_String := Temprorary_String;
>    end if;

All of this can be replaced by a single call to Ada.Strings.Fixed.Move.

-- 
Jeff Carter
"I unclog my nose towards you."
Monty Python & the Holy Grail




More information about the gtkada mailing list