Usage:
Text is get_selected_text(Edit)

Returns the selected text from an edit box

Edit     edit box object
 

Examples:
?-
...
set_selection(Edit, 10, 35),
Text is get_selected_text(Edit),
write(Text).