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
  
/* -*- C -*- */ 
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")) 
 
void create(int|mapping(string:mixed) uniformp_or_props, ?int padding) 
//! 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. 
{ 
  pgtk2_verify_not_inited(); 
  pgtk2_verify_setup(); 
  { 
    if (TYPEOF(Pike_sp[-args]) == PIKE_T_INT) { 
      INT_TYPE uniformp,padding; 
      GtkWidget *gv; 
      get_all_args(NULL,args,"%i%i",&uniformp,&padding); 
      gv=gtk_vbox_new(uniformp,padding); 
      THIS->obj=G_OBJECT(gv); 
    } else { 
      INIT_WITH_PROPS(GTK_TYPE_VBOX); 
    } 
    pgtk2_pop_n_elems(args); 
  } 
  pgtk2__init_this_object(); 
}