An IVIB Primer - Unicon

handle_cut
Create a new file myeditabletextlist.icn and copy in the following code:
_____________________________________
#
# myeditabletextlist subclass of EditableTextList to
# allow clipboard operation in Cut/Copy?paste
#
import gui
link graphics
import undo
$include "guih.icn"
class myeditabletextlist : EditableTextList()
method handle_cut(e)
start_handle(e)
if has_region() then {
copy_to_clipboard(get_region())
delete_region(e)
}
end_handle(e)
end
method handle_copy(e)
start_handle(e)
if has_region() then {
copy_to_clipboard(get_region())
}
end_handle(e)
end
#_______________________________________________________________
method copy_to_clipboard(l)
local large_str, i
if /l | *l = 0 then fail
large_str := l[1]
every i := 2 to *l do
large_str ||:= l[i]
WAttrib("selection=" || large_str)
return large_str
end
#________________________________________________________________
method get_list_from_clipboard()
local large_str, l, str,start,blank1,tab1,p
blank1 := ' '
36