summaryrefslogtreecommitdiff
path: root/main.ml
diff options
context:
space:
mode:
Diffstat (limited to 'main.ml')
-rw-r--r--main.ml4
1 files changed, 4 insertions, 0 deletions
diff --git a/main.ml b/main.ml
index a449195..fd884ab 100644
--- a/main.ml
+++ b/main.ml
@@ -33,6 +33,10 @@ let _ =
api#set_disconnectfunc (Some win#set_loggedout)
+(* global gui callbacks *)
+let _ =
+ win#set_on_disconnect (fun () -> api#disconnect)
+
(* login functions and callbacks *)