TextGadget with wrapping
Posted: Sat Apr 19, 2008 3:17 pm
As you probably know the text gadget doesn't wrap the text by itself, like on Windows. Here's a snippet for enabling it 
.
You can call it instead of TextGadget().
.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