X-Git-Url: http://git.euphorik.ch/index.cgi?a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FGUI.fs;h=d78c202dc3a9ee56b9e15584795461d64bb31c02;hb=c3f9ff71e0f80120b1f5b3e84e028b02b8cb1541;hp=4eee1e572d713cf0cc6ab594e3839931912ed81a;hpb=d3f9cd7b16d25f49bd8d06394b0f1d4040809fbd;p=master-thesis.git diff --git a/Parasitemia/ParasitemiaUI/GUI.fs b/Parasitemia/ParasitemiaUI/GUI.fs index 4eee1e5..d78c202 100644 --- a/Parasitemia/ParasitemiaUI/GUI.fs +++ b/Parasitemia/ParasitemiaUI/GUI.fs @@ -484,6 +484,8 @@ let run (defaultConfig : Config) (fileToOpen : string option) = win.menuAbout.Click.AddHandler (fun obj args -> About.showWindow win) + win.menuCommandLineArguments.Click.AddHandler (fun obj args -> CommandLineArguments.showWindow win) + win.Closing.AddHandler (fun obj args -> askSaveCurrent ()) // Zoom on the current image.