OpenEuphoria

RE: getSelectedText and SortedLists

• Posted by Cassidy Napoli <gonzotek at yahoo.com> Nov 07, 2001
• 324 views

Is this any help?

--  code generated by Win32Lib IDE v0.11.0 (with a bit of hand tweaking 
by Cassidy)
include Win32lib.ew
without warning
------------------------------
--  Window Window1
global constant Win =
create( Window, "Win", 0, Default, Default, 400, 300, 0 )

global constant listname =
create( SortedList, "", Win, 76, 76, 150, 120, 0 )

global constant lbl =
create( LText, "", Win, 140, 40, 150, 20, 0 )
------------------------------
procedure listname_onClick ()
integer idx
idx = getIndex(listname)
setText(lbl, getItem (listname, idx ) )
end procedure
onClick[listname] = routine_id("listname_onClick")
------------------------------
procedure Win_onOpen ()
addItem(listname,"3")
addItem(listname,"1")
addItem(listname,"c")
addItem(listname,"2")
end procedure

onOpen[Win] = routine_id("Win_onOpen")
WinMain( Win, Normal )