diff options
Diffstat (limited to 'main.ml')
-rw-r--r-- | main.ml | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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 *) |