1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--
-- Packaging up Haskell function values as delegates.
--
-- The UI which invokes the delegate can be found in ui.cs
--
-- Note: you have to start 'hugs' from within its
-- installation to have this example work.
--
module Delegate where
import Dotnet
foreign import dotnet
"static System.Windows.Forms.Application.Run"
run :: Object a -> IO ()
delegate :: IO ()
delegate = do
ui <- new "[ui.dll]UITest"
upHandler <- newDelegator ( \ _ _ -> ui # invoke "IncCount" ())
downHandler <- newDelegator ( \ _ _ -> ui # invoke "DecCount" ())
--msgBox "Hugs98.NET" "a *real* delegate :-)")
() <- ui # invoke "AddHandlerUp" upHandler
() <- ui # invoke "AddHandlerDown" downHandler
-- ToDo: the InvokeBridge is unable to locate this static method; look into.
-- For now, use .NET stub method do it for us.
-- run ui
() <- ui # invoke "RunIt" ()
putStrLn "done"
|
