1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
(**************************************************************************)
(* Lablgtk - Examples *)
(* *)
(* This code is in the public domain. *)
(* You may freely copy parts of it in your application. *)
(* *)
(**************************************************************************)
(* $Id$ *)
let w = GWindow.window ()
let vb = GPack.vbox ~packing:w#add ()
let lbl = GMisc.label ~packing:vb#pack ()
let hb = GPack.hbox ~packing:vb#pack ()
let decB = GButton.button ~label:"Dec" ~packing:hb#add ()
let incB = GButton.button ~label:"Inc" ~packing:hb#add ()
let adj =
GData.adjustment ~lower:0. ~upper:100. ~step_incr:1. ~page_incr:10. ()
let sc = GRange.scale `HORIZONTAL ~adjustment:adj ~draw_value:false
~update_policy:`DISCONTINUOUS
~packing:vb#pack ()
let counter = new GUtil.variable 0
open GMain
let _ =
decB#connect#clicked
~callback:(fun () -> adj#set_value (float(counter#get-1)));
incB#connect#clicked
~callback:(fun () -> adj#set_value (float(counter#get+1)));
sc#connect#change_value
~callback:(fun _ v -> Printf.printf "drag: %i\n%!" (truncate v));
adj#connect#value_changed
~callback:(fun () -> counter#set (truncate adj#value));
counter#connect#changed ~callback:(fun n -> lbl#set_text (string_of_int n));
counter#set 0;
w#connect#destroy ~callback:Main.quit;
w#show ();
Main.main ()
|
