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; |
$TK_WIDGET |
const tk_widget_type: STR := "entry"; |
---|
bind_enter_key(action: ROUT{TK_EVENT_INFO}) |
---|
get_text: STR |
---|
set_text(s:STR) |
---|
attr command: ROUT; |
---|
attr command: ROUT; |
---|
default_config: TK_ENTRY_CFG |
---|