eb05362005-11-05Henrik Grubbström (Grubba) /* -*- C -*- */
1a05542005-07-28Martin Nilsson class GTK2.Vbox; inherit GTK2.Box; //! Most packing is done by creating boxes. These are invisible widget //! containers that we can pack our widgets into which come in two //! forms, a horizontal box, and a vertical box. This is the vertical //! one. When packing widgets into a vertical box, the objects are //! inserted horizontally from top to bottom or bottom to top depending //! on the call used. //! //! IMG: GTK2.Vbox(0,0)->add(GTK2.Button("Hello"))->add(GTK2.Button("World"))->pack_end_defaults(GTK2.Button("From right"))->pack_start_defaults(GTK2.Button("From left")) //! IMG: GTK2.Vbox(1,0)->add(GTK2.Button("Hello"))->add(GTK2.Button("World"))->pack_end_defaults(GTK2.Button("From right"))->pack_start_defaults(GTK2.Button("From left")) //! IMG: GTK2.Vbox(1,40)->add(GTK2.Button("Hello"))->add(GTK2.Button("World"))->pack_end_defaults(GTK2.Button("From right"))->pack_start_defaults(GTK2.Button("From left"))
3d76632005-11-03Lance Dillon void create(int|mapping(string:mixed) uniformp_or_props, ?int padding)
1a05542005-07-28Martin Nilsson //! Create a new vertical box widget. //! If all_same_size is true, all widgets will have exactly the same size. //! padding is added to the top and bottom of the children.
3d76632005-11-03Lance Dillon {
ba9e802006-02-27Martin Stjernholm  pgtk2_verify_not_inited(); pgtk2_verify_setup();
3d76632005-11-03Lance Dillon  { if (Pike_sp[-args].type==PIKE_T_INT) {
cac4202005-12-17Marcus Comstedt  INT_TYPE uniformp,padding;
3d76632005-11-03Lance Dillon  GtkWidget *gv; get_all_args("create",args,"%i%i",&uniformp,&padding); gv=gtk_vbox_new(uniformp,padding); THIS->obj=G_OBJECT(gv); } else { INIT_WITH_PROPS(GTK_TYPE_VBOX); }
ba9e802006-02-27Martin Stjernholm  pgtk2_pop_n_elems(args);
3d76632005-11-03Lance Dillon  }
ba9e802006-02-27Martin Stjernholm  pgtk2__init_this_object();
3d76632005-11-03Lance Dillon }