Entity: predicate

edit( )
edit(Arg1, ... , ArgN)

Creates an edit control.

Put inside the brackets only these arguments which you need. All other arguments will be set by default. The arguments may be any of the following (the order is not important).
handle(Handle) handle to this edit control. 
parent(Parent) handle to the parent window.
class(Edit_func) predicate which will receive the messages from this edit control.
text(Text) the text which is set at the beginning
pos(X,Y) coordinates of upper left corner
size(Width, Height)  size of the edit control
border  flag (default on)
multiline  flag (default off)
readonly  flag (default off)


?-window( title("Edit control demo"), size(200, 200)).

  window_brush(_, rgb(0, 0, 255)), % blue
  edit( class(edit_func), text("Start Value"), pos(10, 10), size(100, 100), multiline).

edit_func(init) :-
  color_text(_, rgb(0, 255, 0)), % green
  color_text_back(_, rgb(255, 0, 0)). % red

See also: