/[mldonkey]/mldonkey/src/gtk2/gui/guiSystray.ml
ViewVC logotype

Diff of /mldonkey/src/gtk2/gui/guiSystray.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by spiralvoice, Sun Jul 10 13:28:50 2005 UTC revision 1.2 by spiralvoice, Mon Oct 31 18:34:02 2005 UTC
# Line 1  Line 1 
1  open GuiTypes2  open GuiTypes2
2    open Printf2
3    
4  type f = {mutable f : button_types -> unit}  type f = {mutable f : button_types -> unit}
5    
# Line 22  let callback = {f = (fun ev -> Line 23  let callback = {f = (fun ev ->
23               match ev with               match ev with
24                 DOUBLE_CLICKED ->                 DOUBLE_CLICKED ->
25                 begin                 begin
26                     Printf.printf "tray double clicked\n";                     lprintf "tray double clicked\n";
27                     flush stdout;                     flush stdout;
28                   end                   end
29               | RBUTTON_CLICKED ->               | RBUTTON_CLICKED ->
30                   begin                   begin
31                     Printf.printf "tray right clicked\n";                     lprintf "tray right clicked\n";
32                     flush stdout;                     flush stdout;
33                   end                   end
34               | _ -> ()               | _ -> ()

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26