Insert a widget to a textbuffer. The widget will be considered as one character and will be represented by the Unicode "object replacement character" 0xFFFC whenever the contains of the textbuffer will return (if 'unhidden' flag is 1, see _gtkTextBufferGet).
Insère un widget dans un objet text.
_textbuffer_ : ObjGtkTextBuffer : any textbuffer already created.
_textview_ : ObjGtk : any textview (ObjGtk) already created.
_widget_ : Objgtk : any widget to add to the textbuffer.
_position_ : I : the position where the widget will include.
Return : ObjGtkTextBuffer : the same _textbuffer_ or nil if error.
typeof win = ObjGtk;; typeof object = ObjGtk;; typeof buffer = ObjGtkTextBuffer;; typeof widget = ObjGtk;; fun end (obj, u)= _gtkMainQuit; _closemachine; 0;; fun main ()= _showconsole; set win = _gtkWindowNew _channel nil "My test" SGTK_POS_MOUSE; _gtkWindowResize win 400 400; _gtkWindowCBdestroy win @end nil; set widget = _gtkButtonNewLabel _channel "Scolring"; set buffer = _gtkTextBufferNew _channel nil; set object = _gtkTextNew _channel buffer; _gtkTextSet object "The Scol language is a GREAT language !\nFor more information, click on this button : " nil; _gtkTextBufferInsertWidget buffer object widget 86; _gtkWidgetAddContainer win object; _gtkWidgetShow win; _gtkMain; 0;;
