[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