Fix event handler

This commit is contained in:
YNH Webdev
2013-11-10 16:39:04 +01:00
parent 6213021f45
commit 72e7493842
6 changed files with 71 additions and 15 deletions

View File

@@ -0,0 +1,32 @@
note
description: "Summary description for {WSF_AGENT_VALIDATOR}."
author: ""
date: "$Date$"
revision: "$Revision$"
class
WSF_AGENT_VALIDATOR [G]
inherit
WSF_VALIDATOR [G]
create
make_with_agent
feature {NONE} -- Initialization
make_with_agent (h:like handler; e: STRING)
do
make (e)
handler := h
end
feature
is_valid (input: G): BOOLEAN
do
Result := handler.item ( [input])
end
handler: FUNCTION[ANY,TUPLE[G],BOOLEAN]
end