TextGadget with wrapping

[Inf0Byt3]

As you probably know the text gadget doesn't wrap the text by itself, like on Windows. Here's a snippet for enabling it .

Code: Select all

 Procedure TextGadgetEx(Gad,X,Y,W,H,Text.s,Flags=0)
 
   TextGadget(Gad,X,Y,W,H,Text.s,Flags)
   gtk_label_set_justify_(GadgetID(Gad), #GTK_JUSTIFY_LEFT);
   gtk_label_set_line_wrap_(GadgetID(Gad),1)
   gtk_widget_set_size_request_(GadgetID(Gad),GadgetWidth(Gad),GadgetHeight(Gad))
 
 EndProcedure

You can call it instead of TextGadget().