+++ /dev/null
-(* $Id$ *)
-
-open GMain
-
-let main () =
- let window = GWindow.dialog ~title: "dialog"
- ~border_width: 10 ~width: 300 ~height: 300 () in
- window#connect#destroy ~callback:Main.quit;
-
- let scrolled_window = GBin.scrolled_window
- ~border_width: 10 ~hpolicy: `AUTOMATIC ~packing: window#vbox#add ()
- in
-
- let table = GPack.table ~rows:10 ~columns:10
- ~row_spacings: 10 ~col_spacings: 10
- ~packing: scrolled_window#add_with_viewport ()
- in
-
- for i = 0 to 9 do
- for j = 0 to 9 do
- let label = Printf.sprintf "button (%d,%d)\n" i j in
- GButton.toggle_button ~label
- ~packing:(table#attach ~left: i ~top: j ~expand: `BOTH) ()
- done
- done;
-
- let button =
- GButton.button ~label: "close" ~packing: window#action_area#add () in
- button#connect#clicked ~callback: Main.quit;
- button#grab_default ();
- window#show ();
- Main.main ()
-
-let _ = main ()
-