class TK_ENTRY < $TK_WIDGET
****
Entry widget Example usage:
___e_:=_#TK_ENTRY;
___e.set_text("Some_initial_text");
___e.bind_enter_key(bind(entered_text));
The routine "entered_text" may be defined as below entered_text is
___#OUT+"Entered_text_into_entry_widget:"+e.get_data+"\n";
end;


Flattened version is here

Ancestors
$TK_WIDGET



Public


Constants
const tk_widget_type: STR := "entry";

Features
bind_enter_key(action: ROUT{TK_EVENT_INFO})
get_text: STR
set_text(s:STR)


Private

attr command: ROUT;
attr command: ROUT;
default_config: TK_ENTRY_CFG

The Sather Home Page