OpenEuphoria

another setHandler() question

• Posted by David Davis <gdavis at hypercon.net> Sep 07, 2003
• 376 views

is it possible to pass a parameter through sethandler()?

code snippet:

procedure ASL_Cancel_onClick(integer self, integer event, sequence 
params)
	closeWindow(ASL_Window)
end procedure

procedure ASL_Add_onClick(integer self, integer event, sequence params)

--	item = getIndex(ItemsAvailable_List)
--	addItem(Item_List, Products[item][2])
--	addItem(Quantity_List, Products[item][3])
--	addItem(Price_List, Products[item][4])
	
end procedure

procedure add_to_sale_list(integer self, integer event, sequence params)
integer item
atom Event
sequence title
	
	Event=params[1]
	if Event = LEFT_DOUBLECLICK  then
		item = getIndex(ItemsAvailable_List)
		title = Products[item][2] & "  " & Products[item][4] & "  " & 
Products[item][3]
		ASL_Window = createEx( Window, title, 0, Default, Default, 331, 120, 
0, 0 )
		ASL_Button1 = createEx( PushButton, "Add", ASL_Window, 40, 60, 80, 30, 
0, 0 )
		ASL_Button2 = createEx( PushButton, "Cancel", ASL_Window, 195, 60, 80, 
30, 0, 0 )
		ASL_Edit = createEx( EditText, "", ASL_Window, 110, 15, 85, 25, 0, 0 )
		setHandler( ASL_Button1, w32HClick, routine_id("ASL_Add_onClick"))
		setHandler( ASL_Button2, w32HClick, routine_id("ASL_Cancel_onClick))
		openWindow(ASL_Window, Modal)
		setFocus(ASL_Edit)
	end if
end procedure


I need to pass 'item' (integer) to the ASL_Add_onClick routine, but 
don't know if sethandler will let me, and I do not really want to make 
it a file-wide variable. If I could do the entire operation in just one 
procedure it would be even better. Hunting around the win32lib docs 
hasn't helped, any ideas?

Thank You