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

---