6 val bar : #GRange.progress = bar
7 val mutable pstat = true
9 let pvalue = bar#percentage in
11 if pvalue > 0.99 || not pstat then (pstat <- true; 0.0)
14 bar#set_percentage pvalue;
22 let window = GWindow.window ~border_width: 10 () in
23 window#connect#destroy ~callback:Main.quit;
25 let table = GPack.table ~rows:3 ~columns:2 ~packing: window#add () in
27 GMisc.label ~text:"Progress Bar Example" ()
28 ~packing:(table#attach ~left:0 ~right:2 ~top:0 ~expand:`X ~shrink:`BOTH);
31 GRange.progress_bar ~bar_style:`DISCRETE ~discrete_blocks:20 ()
32 ~packing:(table#attach ~left:0 ~right:2 ~top:1
33 ~expand:`BOTH ~fill:`X ~shrink:`BOTH) in
35 let bar = new bar pbar in
36 let ptimer = Timeout.add ~ms:50 ~callback:bar#progress in
38 let button = GButton.button ~label:"Reset" ()
39 ~packing:(table#attach ~left:0 ~top:2
40 ~expand:`NONE ~fill:`X ~shrink:`BOTH) in
41 button#connect#clicked ~callback:bar#reset;
43 let button = GButton.button ~label:"Cancel" ()
44 ~packing:(table#attach ~left:1 ~top:2
45 ~expand:`NONE ~fill:`X ~shrink:`BOTH) in
46 button#connect#clicked ~callback:Main.quit;