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
45
46
47
|
(**************************************************************************)
(* Lablgtk - Examples *)
(* *)
(* This code is in the public domain. *)
(* You may freely copy parts of it in your application. *)
(* *)
(**************************************************************************)
(* $Id$ *)
let main () =
ignore (GMain.init ());
let window = GWindow.window
~border_width:10
~width:300 ~height:200 () in
ignore (window#connect#destroy ~callback:GMain.quit);
let root_layout = GPack.box `VERTICAL ~spacing:10 ~homogeneous:false ~packing:window#add () in
let switcher = GPack.stack_switcher () in
let stack = GPack.stack ~transition_type:`SLIDE_LEFT_RIGHT () in
switcher#set_stack stack#as_stack;
let transition_choice_button = GButton.check_button ~label:"Change transition type" () in
root_layout#pack ~expand:false ~fill:false transition_choice_button#coerce;
root_layout#pack ~expand:false ~fill:false switcher#coerce;
root_layout#pack ~expand:true ~fill:true stack#coerce;
switcher#set_halign `CENTER;
let checkbox = GButton.check_button ~label:"Item"
~packing:(fun w -> stack#add_titled w "frame1" "Check button") () in
let label = GMisc.label ~text:"A label"
~packing:(fun w -> stack#add_titled w "frame2" "Label") () in
let entry = GEdit.entry ~placeholder_text:"Type here"
~packing:(fun w -> stack#add_titled w "frame3" "Form") () in
ignore (transition_choice_button#connect#toggled ~callback:(fun () ->
match transition_choice_button#active with
| true -> stack#set_transition_type `OVER_UP_DOWN
| false -> stack#set_transition_type `SLIDE_LEFT_RIGHT));
window#show ();
GMain.main ()
let _ = main ()
|
