summaryrefslogtreecommitdiff
path: root/src/Gtk/Signal.dcl
blob: e4ce83b7038b361bd60fea552c47c6b34851ba85 (plain) (blame)
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
definition module Gtk.Signal

from System._Pointer import :: Pointer

from Gtk.State import :: GtkM, :: GtkState
from Gtk.Widgets import class gtkWidget

class signalHandler h
where
	signalName :: !h -> String
	signalHandler :: !h -> SignalHandlerInternal

:: GSignalHandler
	= DestroyHandler  !(GtkM ())
	| ActivateHandler !(GtkM ())

instance signalHandler GSignalHandler

:: SignalHandlerInternal
	= SHI_Void !(GtkM ())
	| SHI_Int_Int_Pointer_Pointer_Bool !(Int Int Pointer Pointer -> GtkM Bool)

installSignalHandler :: !h !w -> GtkM w | signalHandler h & gtkWidget w

saveState :: GtkM ()
retrieveState :: GtkM GtkState
handleSignal :: !Int !{#Int} -> Int