cgit.sxemacs.org Git - sxemacs/blob - src/emacs-widget-accessors.c

   1 DEFUN("gtk-adjustment-lower", Fgtk_adjustment_lower, 1, 1, 0,   /*
   2 Access the `lower' slot of OBJ, a GtkAdjustment object.
   3 */
   4       (obj))
   5 {
   6         GtkAdjustment *the_obj = NULL;
   7         GtkArg arg;
   8
   9         CHECK_GTK_OBJECT(obj);
  10
  11         if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
  12                 signal_simple_error("Object is not a GtkAdjustment", obj);
  13         };
  14
  15         the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
  16         arg.type = gtk_type_from_name("gfloat");
  17         GTK_VALUE_FLOAT(arg) = the_obj->lower;
  18         return (gtk_type_to_lisp(&arg));
  19 }
  20
  21 DEFUN("gtk-adjustment-upper", Fgtk_adjustment_upper, 1, 1, 0,   /*
  22 Access the `upper' slot of OBJ, a GtkAdjustment object.
  23 */
  24       (obj))
  25 {
  26         GtkAdjustment *the_obj = NULL;
  27         GtkArg arg;
  28
  29         CHECK_GTK_OBJECT(obj);
  30
  31         if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
  32                 signal_simple_error("Object is not a GtkAdjustment", obj);
  33         };
  34
  35         the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
  36         arg.type = gtk_type_from_name("gfloat");
  37         GTK_VALUE_FLOAT(arg) = the_obj->upper;
  38         return (gtk_type_to_lisp(&arg));
  39 }
  40
  41 DEFUN("gtk-adjustment-value", Fgtk_adjustment_value, 1, 1, 0,   /*
  42 Access the `value' slot of OBJ, a GtkAdjustment object.
  43 */
  44       (obj))
  45 {
  46         GtkAdjustment *the_obj = NULL;
  47         GtkArg arg;
  48
  49         CHECK_GTK_OBJECT(obj);
  50
  51         if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
  52                 signal_simple_error("Object is not a GtkAdjustment", obj);
  53         };
  54
  55         the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
  56         arg.type = gtk_type_from_name("gfloat");
  57         GTK_VALUE_FLOAT(arg) = the_obj->value;
  58         return (gtk_type_to_lisp(&arg));
  59 }
  60
  61 DEFUN("gtk-adjustment-step-increment", Fgtk_adjustment_step_increment, 1, 1, 0, /*
  62 Access the `step_increment' slot of OBJ, a GtkAdjustment object.
  63 */
  64       (obj))
  65 {
  66         GtkAdjustment *the_obj = NULL;
  67         GtkArg arg;
  68
  69         CHECK_GTK_OBJECT(obj);
  70
  71         if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
  72                 signal_simple_error("Object is not a GtkAdjustment", obj);
  73         };
  74
  75         the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
  76         arg.type = gtk_type_from_name("gfloat");
  77         GTK_VALUE_FLOAT(arg) = the_obj->step_increment;
  78         return (gtk_type_to_lisp(&arg));
  79 }
  80
  81 DEFUN("gtk-adjustment-page-increment", Fgtk_adjustment_page_increment, 1, 1, 0, /*
  82 Access the `page_increment' slot of OBJ, a GtkAdjustment object.
  83 */
  84       (obj))
  85 {
  86         GtkAdjustment *the_obj = NULL;
  87         GtkArg arg;
  88
  89         CHECK_GTK_OBJECT(obj);
  90
  91         if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
  92                 signal_simple_error("Object is not a GtkAdjustment", obj);
  93         };
  94
  95         the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
  96         arg.type = gtk_type_from_name("gfloat");
  97         GTK_VALUE_FLOAT(arg) = the_obj->page_increment;
  98         return (gtk_type_to_lisp(&arg));
  99 }
 100
 101 DEFUN("gtk-adjustment-page-size", Fgtk_adjustment_page_size, 1, 1, 0,   /*
 102 Access the `page_size' slot of OBJ, a GtkAdjustment object.
 103 */
 104       (obj))
 105 {
 106         GtkAdjustment *the_obj = NULL;
 107         GtkArg arg;
 108
 109         CHECK_GTK_OBJECT(obj);
 110
 111         if (!GTK_IS_ADJUSTMENT(XGTK_OBJECT(obj)->object)) {
 112                 signal_simple_error("Object is not a GtkAdjustment", obj);
 113         };
 114
 115         the_obj = GTK_ADJUSTMENT(XGTK_OBJECT(obj)->object);
 116         arg.type = gtk_type_from_name("gfloat");
 117         GTK_VALUE_FLOAT(arg) = the_obj->page_size;
 118         return (gtk_type_to_lisp(&arg));
 119 }
 120
 121 DEFUN("gtk-widget-style", Fgtk_widget_style, 1, 1, 0,   /*
 122 Access the `style' slot of OBJ, a GtkWidget object.
 123 */
 124       (obj))
 125 {
 126         GtkWidget *the_obj = NULL;
 127         GtkArg arg;
 128
 129         CHECK_GTK_OBJECT(obj);
 130
 131         if (!GTK_IS_WIDGET(XGTK_OBJECT(obj)->object)) {
 132                 signal_simple_error("Object is not a GtkWidget", obj);
 133         };
 134
 135         the_obj = GTK_WIDGET(XGTK_OBJECT(obj)->object);
 136         arg.type = gtk_type_from_name("GtkStyle");
 137         GTK_VALUE_BOXED(arg) = (void *)the_obj->style;
 138         return (gtk_type_to_lisp(&arg));
 139 }
 140
 141 DEFUN("gtk-widget-window", Fgtk_widget_window, 1, 1, 0, /*
 142 Access the `window' slot of OBJ, a GtkWidget object.
 143 */
 144       (obj))
 145 {
 146         GtkWidget *the_obj = NULL;
 147         GtkArg arg;
 148
 149         CHECK_GTK_OBJECT(obj);
 150
 151         if (!GTK_IS_WIDGET(XGTK_OBJECT(obj)->object)) {
 152                 signal_simple_error("Object is not a GtkWidget", obj);
 153         };
 154
 155         the_obj = GTK_WIDGET(XGTK_OBJECT(obj)->object);
 156         arg.type = gtk_type_from_name("GdkWindow");
 157         GTK_VALUE_BOXED(arg) = (void *)the_obj->window;
 158         return (gtk_type_to_lisp(&arg));
 159 }
 160
 161 DEFUN("gtk-widget-state", Fgtk_widget_state, 1, 1, 0,   /*
 162 Access the `state' slot of OBJ, a GtkWidget object.
 163 */
 164       (obj))
 165 {
 166         GtkWidget *the_obj = NULL;
 167         GtkArg arg;
 168
 169         CHECK_GTK_OBJECT(obj);
 170
 171         if (!GTK_IS_WIDGET(XGTK_OBJECT(obj)->object)) {
 172                 signal_simple_error("Object is not a GtkWidget", obj);
 173         };
 174
 175         the_obj = GTK_WIDGET(XGTK_OBJECT(obj)->object);
 176         arg.type = gtk_type_from_name("GtkStateType");
 177         GTK_VALUE_ENUM(arg) = the_obj->state;
 178         return (gtk_type_to_lisp(&arg));
 179 }
 180
 181 DEFUN("gtk-widget-name", Fgtk_widget_name, 1, 1, 0,     /*
 182 Access the `name' slot of OBJ, a GtkWidget object.
 183 */
 184       (obj))
 185 {
 186         GtkWidget *the_obj = NULL;
 187         GtkArg arg;
 188
 189         CHECK_GTK_OBJECT(obj);
 190
 191         if (!GTK_IS_WIDGET(XGTK_OBJECT(obj)->object)) {
 192                 signal_simple_error("Object is not a GtkWidget", obj);
 193         };
 194
 195         the_obj = GTK_WIDGET(XGTK_OBJECT(obj)->object);
 196         arg.type = gtk_type_from_name("GtkString");
 197         GTK_VALUE_STRING(arg) = the_obj->name;
 198         return (gtk_type_to_lisp(&arg));
 199 }
 200
 201 DEFUN("gtk-widget-parent", Fgtk_widget_parent, 1, 1, 0, /*
 202 Access the `parent' slot of OBJ, a GtkWidget object.
 203 */
 204       (obj))
 205 {
 206         GtkWidget *the_obj = NULL;
 207         GtkArg arg;
 208
 209         CHECK_GTK_OBJECT(obj);
 210
 211         if (!GTK_IS_WIDGET(XGTK_OBJECT(obj)->object)) {
 212                 signal_simple_error("Object is not a GtkWidget", obj);
 213         };
 214
 215         the_obj = GTK_WIDGET(XGTK_OBJECT(obj)->object);
 216         arg.type = gtk_type_from_name("GtkWidget");
 217         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->parent);
 218         return (gtk_type_to_lisp(&arg));
 219 }
 220
 221 DEFUN("gtk-button-child", Fgtk_button_child, 1, 1, 0,   /*
 222 Access the `child' slot of OBJ, a GtkButton object.
 223 */
 224       (obj))
 225 {
 226         GtkButton *the_obj = NULL;
 227         GtkArg arg;
 228
 229         CHECK_GTK_OBJECT(obj);
 230
 231         if (!GTK_IS_BUTTON(XGTK_OBJECT(obj)->object)) {
 232                 signal_simple_error("Object is not a GtkButton", obj);
 233         };
 234
 235         the_obj = GTK_BUTTON(XGTK_OBJECT(obj)->object);
 236         arg.type = gtk_type_from_name("GtkWidget");
 237         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->child);
 238         return (gtk_type_to_lisp(&arg));
 239 }
 240
 241 DEFUN("gtk-button-in-button", Fgtk_button_in_button, 1, 1, 0,   /*
 242 Access the `in_button' slot of OBJ, a GtkButton object.
 243 */
 244       (obj))
 245 {
 246         GtkButton *the_obj = NULL;
 247         GtkArg arg;
 248
 249         CHECK_GTK_OBJECT(obj);
 250
 251         if (!GTK_IS_BUTTON(XGTK_OBJECT(obj)->object)) {
 252                 signal_simple_error("Object is not a GtkButton", obj);
 253         };
 254
 255         the_obj = GTK_BUTTON(XGTK_OBJECT(obj)->object);
 256         arg.type = gtk_type_from_name("gboolean");
 257         GTK_VALUE_BOOL(arg) = the_obj->in_button;
 258         return (gtk_type_to_lisp(&arg));
 259 }
 260
 261 DEFUN("gtk-button-button-down", Fgtk_button_button_down, 1, 1, 0,       /*
 262 Access the `button_down' slot of OBJ, a GtkButton object.
 263 */
 264       (obj))
 265 {
 266         GtkButton *the_obj = NULL;
 267         GtkArg arg;
 268
 269         CHECK_GTK_OBJECT(obj);
 270
 271         if (!GTK_IS_BUTTON(XGTK_OBJECT(obj)->object)) {
 272                 signal_simple_error("Object is not a GtkButton", obj);
 273         };
 274
 275         the_obj = GTK_BUTTON(XGTK_OBJECT(obj)->object);
 276         arg.type = gtk_type_from_name("gboolean");
 277         GTK_VALUE_BOOL(arg) = the_obj->button_down;
 278         return (gtk_type_to_lisp(&arg));
 279 }
 280
 281 DEFUN("gtk-combo-entry", Fgtk_combo_entry, 1, 1, 0,     /*
 282 Access the `entry' slot of OBJ, a GtkCombo object.
 283 */
 284       (obj))
 285 {
 286         GtkCombo *the_obj = NULL;
 287         GtkArg arg;
 288
 289         CHECK_GTK_OBJECT(obj);
 290
 291         if (!GTK_IS_COMBO(XGTK_OBJECT(obj)->object)) {
 292                 signal_simple_error("Object is not a GtkCombo", obj);
 293         };
 294
 295         the_obj = GTK_COMBO(XGTK_OBJECT(obj)->object);
 296         arg.type = gtk_type_from_name("GtkWidget");
 297         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->entry);
 298         return (gtk_type_to_lisp(&arg));
 299 }
 300
 301 DEFUN("gtk-combo-button", Fgtk_combo_button, 1, 1, 0,   /*
 302 Access the `button' slot of OBJ, a GtkCombo object.
 303 */
 304       (obj))
 305 {
 306         GtkCombo *the_obj = NULL;
 307         GtkArg arg;
 308
 309         CHECK_GTK_OBJECT(obj);
 310
 311         if (!GTK_IS_COMBO(XGTK_OBJECT(obj)->object)) {
 312                 signal_simple_error("Object is not a GtkCombo", obj);
 313         };
 314
 315         the_obj = GTK_COMBO(XGTK_OBJECT(obj)->object);
 316         arg.type = gtk_type_from_name("GtkWidget");
 317         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->button);
 318         return (gtk_type_to_lisp(&arg));
 319 }
 320
 321 DEFUN("gtk-combo-popup", Fgtk_combo_popup, 1, 1, 0,     /*
 322 Access the `popup' slot of OBJ, a GtkCombo object.
 323 */
 324       (obj))
 325 {
 326         GtkCombo *the_obj = NULL;
 327         GtkArg arg;
 328
 329         CHECK_GTK_OBJECT(obj);
 330
 331         if (!GTK_IS_COMBO(XGTK_OBJECT(obj)->object)) {
 332                 signal_simple_error("Object is not a GtkCombo", obj);
 333         };
 334
 335         the_obj = GTK_COMBO(XGTK_OBJECT(obj)->object);
 336         arg.type = gtk_type_from_name("GtkWidget");
 337         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->popup);
 338         return (gtk_type_to_lisp(&arg));
 339 }
 340
 341 DEFUN("gtk-combo-popwin", Fgtk_combo_popwin, 1, 1, 0,   /*
 342 Access the `popwin' slot of OBJ, a GtkCombo object.
 343 */
 344       (obj))
 345 {
 346         GtkCombo *the_obj = NULL;
 347         GtkArg arg;
 348
 349         CHECK_GTK_OBJECT(obj);
 350
 351         if (!GTK_IS_COMBO(XGTK_OBJECT(obj)->object)) {
 352                 signal_simple_error("Object is not a GtkCombo", obj);
 353         };
 354
 355         the_obj = GTK_COMBO(XGTK_OBJECT(obj)->object);
 356         arg.type = gtk_type_from_name("GtkWidget");
 357         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->popwin);
 358         return (gtk_type_to_lisp(&arg));
 359 }
 360
 361 DEFUN("gtk-combo-list", Fgtk_combo_list, 1, 1, 0,       /*
 362 Access the `list' slot of OBJ, a GtkCombo object.
 363 */
 364       (obj))
 365 {
 366         GtkCombo *the_obj = NULL;
 367         GtkArg arg;
 368
 369         CHECK_GTK_OBJECT(obj);
 370
 371         if (!GTK_IS_COMBO(XGTK_OBJECT(obj)->object)) {
 372                 signal_simple_error("Object is not a GtkCombo", obj);
 373         };
 374
 375         the_obj = GTK_COMBO(XGTK_OBJECT(obj)->object);
 376         arg.type = gtk_type_from_name("GtkWidget");
 377         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->list);
 378         return (gtk_type_to_lisp(&arg));
 379 }
 380
 381 DEFUN("gtk-gamma-curve-table", Fgtk_gamma_curve_table, 1, 1, 0, /*
 382 Access the `table' slot of OBJ, a GtkGammaCurve object.
 383 */
 384       (obj))
 385 {
 386         GtkGammaCurve *the_obj = NULL;
 387         GtkArg arg;
 388
 389         CHECK_GTK_OBJECT(obj);
 390
 391         if (!GTK_IS_GAMMA_CURVE(XGTK_OBJECT(obj)->object)) {
 392                 signal_simple_error("Object is not a GtkGammaCurve", obj);
 393         };
 394
 395         the_obj = GTK_GAMMA_CURVE(XGTK_OBJECT(obj)->object);
 396         arg.type = gtk_type_from_name("GtkWidget");
 397         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->table);
 398         return (gtk_type_to_lisp(&arg));
 399 }
 400
 401 DEFUN("gtk-gamma-curve-curve", Fgtk_gamma_curve_curve, 1, 1, 0, /*
 402 Access the `curve' slot of OBJ, a GtkGammaCurve object.
 403 */
 404       (obj))
 405 {
 406         GtkGammaCurve *the_obj = NULL;
 407         GtkArg arg;
 408
 409         CHECK_GTK_OBJECT(obj);
 410
 411         if (!GTK_IS_GAMMA_CURVE(XGTK_OBJECT(obj)->object)) {
 412                 signal_simple_error("Object is not a GtkGammaCurve", obj);
 413         };
 414
 415         the_obj = GTK_GAMMA_CURVE(XGTK_OBJECT(obj)->object);
 416         arg.type = gtk_type_from_name("GtkWidget");
 417         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->curve);
 418         return (gtk_type_to_lisp(&arg));
 419 }
 420
 421 DEFUN("gtk-gamma-curve-gamma", Fgtk_gamma_curve_gamma, 1, 1, 0, /*
 422 Access the `gamma' slot of OBJ, a GtkGammaCurve object.
 423 */
 424       (obj))
 425 {
 426         GtkGammaCurve *the_obj = NULL;
 427         GtkArg arg;
 428
 429         CHECK_GTK_OBJECT(obj);
 430
 431         if (!GTK_IS_GAMMA_CURVE(XGTK_OBJECT(obj)->object)) {
 432                 signal_simple_error("Object is not a GtkGammaCurve", obj);
 433         };
 434
 435         the_obj = GTK_GAMMA_CURVE(XGTK_OBJECT(obj)->object);
 436         arg.type = gtk_type_from_name("gfloat");
 437         GTK_VALUE_FLOAT(arg) = the_obj->gamma;
 438         return (gtk_type_to_lisp(&arg));
 439 }
 440
 441 DEFUN("gtk-gamma-curve-gamma-dialog", Fgtk_gamma_curve_gamma_dialog, 1, 1, 0,   /*
 442 Access the `gamma_dialog' slot of OBJ, a GtkGammaCurve object.
 443 */
 444       (obj))
 445 {
 446         GtkGammaCurve *the_obj = NULL;
 447         GtkArg arg;
 448
 449         CHECK_GTK_OBJECT(obj);
 450
 451         if (!GTK_IS_GAMMA_CURVE(XGTK_OBJECT(obj)->object)) {
 452                 signal_simple_error("Object is not a GtkGammaCurve", obj);
 453         };
 454
 455         the_obj = GTK_GAMMA_CURVE(XGTK_OBJECT(obj)->object);
 456         arg.type = gtk_type_from_name("GtkWidget");
 457         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->gamma_dialog);
 458         return (gtk_type_to_lisp(&arg));
 459 }
 460
 461 DEFUN("gtk-gamma-curve-gamma-text", Fgtk_gamma_curve_gamma_text, 1, 1, 0,       /*
 462 Access the `gamma_text' slot of OBJ, a GtkGammaCurve object.
 463 */
 464       (obj))
 465 {
 466         GtkGammaCurve *the_obj = NULL;
 467         GtkArg arg;
 468
 469         CHECK_GTK_OBJECT(obj);
 470
 471         if (!GTK_IS_GAMMA_CURVE(XGTK_OBJECT(obj)->object)) {
 472                 signal_simple_error("Object is not a GtkGammaCurve", obj);
 473         };
 474
 475         the_obj = GTK_GAMMA_CURVE(XGTK_OBJECT(obj)->object);
 476         arg.type = gtk_type_from_name("GtkWidget");
 477         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->gamma_text);
 478         return (gtk_type_to_lisp(&arg));
 479 }
 480
 481 DEFUN("gtk-check-menu-item-active", Fgtk_check_menu_item_active, 1, 1, 0,       /*
 482 Access the `active' slot of OBJ, a GtkCheckMenuItem object.
 483 */
 484       (obj))
 485 {
 486         GtkCheckMenuItem *the_obj = NULL;
 487         GtkArg arg;
 488
 489         CHECK_GTK_OBJECT(obj);
 490
 491         if (!GTK_IS_CHECK_MENU_ITEM(XGTK_OBJECT(obj)->object)) {
 492                 signal_simple_error("Object is not a GtkCheckMenuItem", obj);
 493         };
 494
 495         the_obj = GTK_CHECK_MENU_ITEM(XGTK_OBJECT(obj)->object);
 496         arg.type = gtk_type_from_name("gboolean");
 497         GTK_VALUE_BOOL(arg) = the_obj->active;
 498         return (gtk_type_to_lisp(&arg));
 499 }
 500
 501 DEFUN("gtk-notebook-tab-pos", Fgtk_notebook_tab_pos, 1, 1, 0,   /*
 502 Access the `tab_pos' slot of OBJ, a GtkNotebook object.
 503 */
 504       (obj))
 505 {
 506         GtkNotebook *the_obj = NULL;
 507         GtkArg arg;
 508
 509         CHECK_GTK_OBJECT(obj);
 510
 511         if (!GTK_IS_NOTEBOOK(XGTK_OBJECT(obj)->object)) {
 512                 signal_simple_error("Object is not a GtkNotebook", obj);
 513         };
 514
 515         the_obj = GTK_NOTEBOOK(XGTK_OBJECT(obj)->object);
 516         arg.type = gtk_type_from_name("GtkPositionType");
 517         GTK_VALUE_ENUM(arg) = the_obj->tab_pos;
 518         return (gtk_type_to_lisp(&arg));
 519 }
 520
 521 DEFUN("gtk-text-hadj", Fgtk_text_hadj, 1, 1, 0, /*
 522 Access the `hadj' slot of OBJ, a GtkText object.
 523 */
 524       (obj))
 525 {
 526         GtkText *the_obj = NULL;
 527         GtkArg arg;
 528
 529         CHECK_GTK_OBJECT(obj);
 530
 531         if (!GTK_IS_TEXT(XGTK_OBJECT(obj)->object)) {
 532                 signal_simple_error("Object is not a GtkText", obj);
 533         };
 534
 535         the_obj = GTK_TEXT(XGTK_OBJECT(obj)->object);
 536         arg.type = gtk_type_from_name("GtkAdjustment");
 537         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->hadj);
 538         return (gtk_type_to_lisp(&arg));
 539 }
 540
 541 DEFUN("gtk-text-vadj", Fgtk_text_vadj, 1, 1, 0, /*
 542 Access the `vadj' slot of OBJ, a GtkText object.
 543 */
 544       (obj))
 545 {
 546         GtkText *the_obj = NULL;
 547         GtkArg arg;
 548
 549         CHECK_GTK_OBJECT(obj);
 550
 551         if (!GTK_IS_TEXT(XGTK_OBJECT(obj)->object)) {
 552                 signal_simple_error("Object is not a GtkText", obj);
 553         };
 554
 555         the_obj = GTK_TEXT(XGTK_OBJECT(obj)->object);
 556         arg.type = gtk_type_from_name("GtkAdjustment");
 557         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->vadj);
 558         return (gtk_type_to_lisp(&arg));
 559 }
 560
 561 DEFUN("gtk-file-selection-dir-list", Fgtk_file_selection_dir_list, 1, 1, 0,     /*
 562 Access the `dir_list' slot of OBJ, a GtkFileSelection object.
 563 */
 564       (obj))
 565 {
 566         GtkFileSelection *the_obj = NULL;
 567         GtkArg arg;
 568
 569         CHECK_GTK_OBJECT(obj);
 570
 571         if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
 572                 signal_simple_error("Object is not a GtkFileSelection", obj);
 573         };
 574
 575         the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
 576         arg.type = gtk_type_from_name("GtkWidget");
 577         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->dir_list);
 578         return (gtk_type_to_lisp(&arg));
 579 }
 580
 581 DEFUN("gtk-file-selection-file-list", Fgtk_file_selection_file_list, 1, 1, 0,   /*
 582 Access the `file_list' slot of OBJ, a GtkFileSelection object.
 583 */
 584       (obj))
 585 {
 586         GtkFileSelection *the_obj = NULL;
 587         GtkArg arg;
 588
 589         CHECK_GTK_OBJECT(obj);
 590
 591         if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
 592                 signal_simple_error("Object is not a GtkFileSelection", obj);
 593         };
 594
 595         the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
 596         arg.type = gtk_type_from_name("GtkWidget");
 597         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->file_list);
 598         return (gtk_type_to_lisp(&arg));
 599 }
 600
 601 DEFUN("gtk-file-selection-selection-entry", Fgtk_file_selection_selection_entry, 1, 1, 0, /*
 602 Access the `selection_entry' slot of OBJ, a GtkFileSelection object.
 603 */
 604       (obj))
 605 {
 606         GtkFileSelection *the_obj = NULL;
 607         GtkArg arg;
 608
 609         CHECK_GTK_OBJECT(obj);
 610
 611         if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
 612                 signal_simple_error("Object is not a GtkFileSelection", obj);
 613         };
 614
 615         the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
 616         arg.type = gtk_type_from_name("GtkWidget");
 617         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->selection_entry);
 618         return (gtk_type_to_lisp(&arg));
 619 }
 620
 621 DEFUN("gtk-file-selection-selection-text", Fgtk_file_selection_selection_text, 1, 1, 0, /*
 622 Access the `selection_text' slot of OBJ, a GtkFileSelection object.
 623 */
 624       (obj))
 625 {
 626         GtkFileSelection *the_obj = NULL;
 627         GtkArg arg;
 628
 629         CHECK_GTK_OBJECT(obj);
 630
 631         if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
 632                 signal_simple_error("Object is not a GtkFileSelection", obj);
 633         };
 634
 635         the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
 636         arg.type = gtk_type_from_name("GtkWidget");
 637         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->selection_text);
 638         return (gtk_type_to_lisp(&arg));
 639 }
 640
 641 DEFUN("gtk-file-selection-main-vbox", Fgtk_file_selection_main_vbox, 1, 1, 0,   /*
 642 Access the `main_vbox' slot of OBJ, a GtkFileSelection object.
 643 */
 644       (obj))
 645 {
 646         GtkFileSelection *the_obj = NULL;
 647         GtkArg arg;
 648
 649         CHECK_GTK_OBJECT(obj);
 650
 651         if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
 652                 signal_simple_error("Object is not a GtkFileSelection", obj);
 653         };
 654
 655         the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
 656         arg.type = gtk_type_from_name("GtkWidget");
 657         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->main_vbox);
 658         return (gtk_type_to_lisp(&arg));
 659 }
 660
 661 DEFUN("gtk-file-selection-ok-button", Fgtk_file_selection_ok_button, 1, 1, 0,   /*
 662 Access the `ok_button' slot of OBJ, a GtkFileSelection object.
 663 */
 664       (obj))
 665 {
 666         GtkFileSelection *the_obj = NULL;
 667         GtkArg arg;
 668
 669         CHECK_GTK_OBJECT(obj);
 670
 671         if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
 672                 signal_simple_error("Object is not a GtkFileSelection", obj);
 673         };
 674
 675         the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
 676         arg.type = gtk_type_from_name("GtkWidget");
 677         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->ok_button);
 678         return (gtk_type_to_lisp(&arg));
 679 }
 680
 681 DEFUN("gtk-file-selection-cancel-button", Fgtk_file_selection_cancel_button, 1, 1, 0,   /*
 682 Access the `cancel_button' slot of OBJ, a GtkFileSelection object.
 683 */
 684       (obj))
 685 {
 686         GtkFileSelection *the_obj = NULL;
 687         GtkArg arg;
 688
 689         CHECK_GTK_OBJECT(obj);
 690
 691         if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
 692                 signal_simple_error("Object is not a GtkFileSelection", obj);
 693         };
 694
 695         the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
 696         arg.type = gtk_type_from_name("GtkWidget");
 697         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->cancel_button);
 698         return (gtk_type_to_lisp(&arg));
 699 }
 700
 701 DEFUN("gtk-file-selection-help-button", Fgtk_file_selection_help_button, 1, 1, 0,       /*
 702 Access the `help_button' slot of OBJ, a GtkFileSelection object.
 703 */
 704       (obj))
 705 {
 706         GtkFileSelection *the_obj = NULL;
 707         GtkArg arg;
 708
 709         CHECK_GTK_OBJECT(obj);
 710
 711         if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
 712                 signal_simple_error("Object is not a GtkFileSelection", obj);
 713         };
 714
 715         the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
 716         arg.type = gtk_type_from_name("GtkWidget");
 717         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->help_button);
 718         return (gtk_type_to_lisp(&arg));
 719 }
 720
 721 DEFUN("gtk-file-selection-action-area", Fgtk_file_selection_action_area, 1, 1, 0,       /*
 722 Access the `action_area' slot of OBJ, a GtkFileSelection object.
 723 */
 724       (obj))
 725 {
 726         GtkFileSelection *the_obj = NULL;
 727         GtkArg arg;
 728
 729         CHECK_GTK_OBJECT(obj);
 730
 731         if (!GTK_IS_FILE_SELECTION(XGTK_OBJECT(obj)->object)) {
 732                 signal_simple_error("Object is not a GtkFileSelection", obj);
 733         };
 734
 735         the_obj = GTK_FILE_SELECTION(XGTK_OBJECT(obj)->object);
 736         arg.type = gtk_type_from_name("GtkWidget");
 737         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->action_area);
 738         return (gtk_type_to_lisp(&arg));
 739 }
 740
 741 DEFUN("gtk-font-selection-dialog-fontsel", Fgtk_font_selection_dialog_fontsel, 1, 1, 0, /*
 742 Access the `fontsel' slot of OBJ, a GtkFontSelectionDialog object.
 743 */
 744       (obj))
 745 {
 746         GtkFontSelectionDialog *the_obj = NULL;
 747         GtkArg arg;
 748
 749         CHECK_GTK_OBJECT(obj);
 750
 751         if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 752                 signal_simple_error("Object is not a GtkFontSelectionDialog",
 753                                     obj);
 754         };
 755
 756         the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 757         arg.type = gtk_type_from_name("GtkWidget");
 758         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->fontsel);
 759         return (gtk_type_to_lisp(&arg));
 760 }
 761
 762 DEFUN("gtk-font-selection-dialog-main-vbox", Fgtk_font_selection_dialog_main_vbox, 1, 1, 0,     /*
 763 Access the `main_vbox' slot of OBJ, a GtkFontSelectionDialog object.
 764 */
 765       (obj))
 766 {
 767         GtkFontSelectionDialog *the_obj = NULL;
 768         GtkArg arg;
 769
 770         CHECK_GTK_OBJECT(obj);
 771
 772         if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 773                 signal_simple_error("Object is not a GtkFontSelectionDialog",
 774                                     obj);
 775         };
 776
 777         the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 778         arg.type = gtk_type_from_name("GtkWidget");
 779         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->main_vbox);
 780         return (gtk_type_to_lisp(&arg));
 781 }
 782
 783 DEFUN("gtk-font-selection-dialog-action-area", Fgtk_font_selection_dialog_action_area, 1, 1, 0, /*
 784 Access the `action_area' slot of OBJ, a GtkFontSelectionDialog object.
 785 */
 786       (obj))
 787 {
 788         GtkFontSelectionDialog *the_obj = NULL;
 789         GtkArg arg;
 790
 791         CHECK_GTK_OBJECT(obj);
 792
 793         if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 794                 signal_simple_error("Object is not a GtkFontSelectionDialog",
 795                                     obj);
 796         };
 797
 798         the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 799         arg.type = gtk_type_from_name("GtkWidget");
 800         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->action_area);
 801         return (gtk_type_to_lisp(&arg));
 802 }
 803
 804 DEFUN("gtk-font-selection-dialog-ok-button", Fgtk_font_selection_dialog_ok_button, 1, 1, 0,     /*
 805 Access the `ok_button' slot of OBJ, a GtkFontSelectionDialog object.
 806 */
 807       (obj))
 808 {
 809         GtkFontSelectionDialog *the_obj = NULL;
 810         GtkArg arg;
 811
 812         CHECK_GTK_OBJECT(obj);
 813
 814         if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 815                 signal_simple_error("Object is not a GtkFontSelectionDialog",
 816                                     obj);
 817         };
 818
 819         the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 820         arg.type = gtk_type_from_name("GtkWidget");
 821         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->ok_button);
 822         return (gtk_type_to_lisp(&arg));
 823 }
 824
 825 DEFUN("gtk-font-selection-dialog-apply-button", Fgtk_font_selection_dialog_apply_button, 1, 1, 0,       /*
 826 Access the `apply_button' slot of OBJ, a GtkFontSelectionDialog object.
 827 */
 828       (obj))
 829 {
 830         GtkFontSelectionDialog *the_obj = NULL;
 831         GtkArg arg;
 832
 833         CHECK_GTK_OBJECT(obj);
 834
 835         if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 836                 signal_simple_error("Object is not a GtkFontSelectionDialog",
 837                                     obj);
 838         };
 839
 840         the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 841         arg.type = gtk_type_from_name("GtkWidget");
 842         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->apply_button);
 843         return (gtk_type_to_lisp(&arg));
 844 }
 845
 846 DEFUN("gtk-font-selection-dialog-cancel-button", Fgtk_font_selection_dialog_cancel_button, 1, 1, 0,     /*
 847 Access the `cancel_button' slot of OBJ, a GtkFontSelectionDialog object.
 848 */
 849       (obj))
 850 {
 851         GtkFontSelectionDialog *the_obj = NULL;
 852         GtkArg arg;
 853
 854         CHECK_GTK_OBJECT(obj);
 855
 856         if (!GTK_IS_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 857                 signal_simple_error("Object is not a GtkFontSelectionDialog",
 858                                     obj);
 859         };
 860
 861         the_obj = GTK_FONT_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 862         arg.type = gtk_type_from_name("GtkWidget");
 863         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->cancel_button);
 864         return (gtk_type_to_lisp(&arg));
 865 }
 866
 867 DEFUN("gtk-color-selection-dialog-colorsel", Fgtk_color_selection_dialog_colorsel, 1, 1, 0,     /*
 868 Access the `colorsel' slot of OBJ, a GtkColorSelectionDialog object.
 869 */
 870       (obj))
 871 {
 872         GtkColorSelectionDialog *the_obj = NULL;
 873         GtkArg arg;
 874
 875         CHECK_GTK_OBJECT(obj);
 876
 877         if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 878                 signal_simple_error("Object is not a GtkColorSelectionDialog",
 879                                     obj);
 880         };
 881
 882         the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 883         arg.type = gtk_type_from_name("GtkWidget");
 884         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->colorsel);
 885         return (gtk_type_to_lisp(&arg));
 886 }
 887
 888 DEFUN("gtk-color-selection-dialog-main-vbox", Fgtk_color_selection_dialog_main_vbox, 1, 1, 0,   /*
 889 Access the `main_vbox' slot of OBJ, a GtkColorSelectionDialog object.
 890 */
 891       (obj))
 892 {
 893         GtkColorSelectionDialog *the_obj = NULL;
 894         GtkArg arg;
 895
 896         CHECK_GTK_OBJECT(obj);
 897
 898         if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 899                 signal_simple_error("Object is not a GtkColorSelectionDialog",
 900                                     obj);
 901         };
 902
 903         the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 904         arg.type = gtk_type_from_name("GtkWidget");
 905         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->main_vbox);
 906         return (gtk_type_to_lisp(&arg));
 907 }
 908
 909 DEFUN("gtk-color-selection-dialog-ok-button", Fgtk_color_selection_dialog_ok_button, 1, 1, 0,   /*
 910 Access the `ok_button' slot of OBJ, a GtkColorSelectionDialog object.
 911 */
 912       (obj))
 913 {
 914         GtkColorSelectionDialog *the_obj = NULL;
 915         GtkArg arg;
 916
 917         CHECK_GTK_OBJECT(obj);
 918
 919         if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 920                 signal_simple_error("Object is not a GtkColorSelectionDialog",
 921                                     obj);
 922         };
 923
 924         the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 925         arg.type = gtk_type_from_name("GtkWidget");
 926         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->ok_button);
 927         return (gtk_type_to_lisp(&arg));
 928 }
 929
 930 DEFUN("gtk-color-selection-dialog-reset-button", Fgtk_color_selection_dialog_reset_button, 1, 1, 0,     /*
 931 Access the `reset_button' slot of OBJ, a GtkColorSelectionDialog object.
 932 */
 933       (obj))
 934 {
 935         GtkColorSelectionDialog *the_obj = NULL;
 936         GtkArg arg;
 937
 938         CHECK_GTK_OBJECT(obj);
 939
 940         if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 941                 signal_simple_error("Object is not a GtkColorSelectionDialog",
 942                                     obj);
 943         };
 944
 945         the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 946         arg.type = gtk_type_from_name("GtkWidget");
 947         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->reset_button);
 948         return (gtk_type_to_lisp(&arg));
 949 }
 950
 951 DEFUN("gtk-color-selection-dialog-cancel-button", Fgtk_color_selection_dialog_cancel_button, 1, 1, 0,   /*
 952 Access the `cancel_button' slot of OBJ, a GtkColorSelectionDialog object.
 953 */
 954       (obj))
 955 {
 956         GtkColorSelectionDialog *the_obj = NULL;
 957         GtkArg arg;
 958
 959         CHECK_GTK_OBJECT(obj);
 960
 961         if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 962                 signal_simple_error("Object is not a GtkColorSelectionDialog",
 963                                     obj);
 964         };
 965
 966         the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 967         arg.type = gtk_type_from_name("GtkWidget");
 968         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->cancel_button);
 969         return (gtk_type_to_lisp(&arg));
 970 }
 971
 972 DEFUN("gtk-color-selection-dialog-help-button", Fgtk_color_selection_dialog_help_button, 1, 1, 0,       /*
 973 Access the `help_button' slot of OBJ, a GtkColorSelectionDialog object.
 974 */
 975       (obj))
 976 {
 977         GtkColorSelectionDialog *the_obj = NULL;
 978         GtkArg arg;
 979
 980         CHECK_GTK_OBJECT(obj);
 981
 982         if (!GTK_IS_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object)) {
 983                 signal_simple_error("Object is not a GtkColorSelectionDialog",
 984                                     obj);
 985         };
 986
 987         the_obj = GTK_COLOR_SELECTION_DIALOG(XGTK_OBJECT(obj)->object);
 988         arg.type = gtk_type_from_name("GtkWidget");
 989         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->help_button);
 990         return (gtk_type_to_lisp(&arg));
 991 }
 992
 993 DEFUN("gtk-dialog-vbox", Fgtk_dialog_vbox, 1, 1, 0,     /*
 994 Access the `vbox' slot of OBJ, a GtkDialog object.
 995 */
 996       (obj))
 997 {
 998         GtkDialog *the_obj = NULL;
 999         GtkArg arg;
1000
1001         CHECK_GTK_OBJECT(obj);
1002
1003         if (!GTK_IS_DIALOG(XGTK_OBJECT(obj)->object)) {
1004                 signal_simple_error("Object is not a GtkDialog", obj);
1005         };
1006
1007         the_obj = GTK_DIALOG(XGTK_OBJECT(obj)->object);
1008         arg.type = gtk_type_from_name("GtkWidget");
1009         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->vbox);
1010         return (gtk_type_to_lisp(&arg));
1011 }
1012
1013 DEFUN("gtk-dialog-action-area", Fgtk_dialog_action_area, 1, 1, 0,       /*
1014 Access the `action_area' slot of OBJ, a GtkDialog object.
1015 */
1016       (obj))
1017 {
1018         GtkDialog *the_obj = NULL;
1019         GtkArg arg;
1020
1021         CHECK_GTK_OBJECT(obj);
1022
1023         if (!GTK_IS_DIALOG(XGTK_OBJECT(obj)->object)) {
1024                 signal_simple_error("Object is not a GtkDialog", obj);
1025         };
1026
1027         the_obj = GTK_DIALOG(XGTK_OBJECT(obj)->object);
1028         arg.type = gtk_type_from_name("GtkWidget");
1029         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->action_area);
1030         return (gtk_type_to_lisp(&arg));
1031 }
1032
1033 DEFUN("gtk-input-dialog-close-button", Fgtk_input_dialog_close_button, 1, 1, 0, /*
1034 Access the `close_button' slot of OBJ, a GtkInputDialog object.
1035 */
1036       (obj))
1037 {
1038         GtkInputDialog *the_obj = NULL;
1039         GtkArg arg;
1040
1041         CHECK_GTK_OBJECT(obj);
1042
1043         if (!GTK_IS_INPUT_DIALOG(XGTK_OBJECT(obj)->object)) {
1044                 signal_simple_error("Object is not a GtkInputDialog", obj);
1045         };
1046
1047         the_obj = GTK_INPUT_DIALOG(XGTK_OBJECT(obj)->object);
1048         arg.type = gtk_type_from_name("GtkWidget");
1049         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->close_button);
1050         return (gtk_type_to_lisp(&arg));
1051 }
1052
1053 DEFUN("gtk-input-dialog-save-button", Fgtk_input_dialog_save_button, 1, 1, 0,   /*
1054 Access the `save_button' slot of OBJ, a GtkInputDialog object.
1055 */
1056       (obj))
1057 {
1058         GtkInputDialog *the_obj = NULL;
1059         GtkArg arg;
1060
1061         CHECK_GTK_OBJECT(obj);
1062
1063         if (!GTK_IS_INPUT_DIALOG(XGTK_OBJECT(obj)->object)) {
1064                 signal_simple_error("Object is not a GtkInputDialog", obj);
1065         };
1066
1067         the_obj = GTK_INPUT_DIALOG(XGTK_OBJECT(obj)->object);
1068         arg.type = gtk_type_from_name("GtkWidget");
1069         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->save_button);
1070         return (gtk_type_to_lisp(&arg));
1071 }
1072
1073 DEFUN("gtk-plug-socket-window", Fgtk_plug_socket_window, 1, 1, 0,       /*
1074 Access the `socket_window' slot of OBJ, a GtkPlug object.
1075 */
1076       (obj))
1077 {
1078         GtkPlug *the_obj = NULL;
1079         GtkArg arg;
1080
1081         CHECK_GTK_OBJECT(obj);
1082
1083         if (!GTK_IS_PLUG(XGTK_OBJECT(obj)->object)) {
1084                 signal_simple_error("Object is not a GtkPlug", obj);
1085         };
1086
1087         the_obj = GTK_PLUG(XGTK_OBJECT(obj)->object);
1088         arg.type = gtk_type_from_name("GdkWindow");
1089         GTK_VALUE_BOXED(arg) = (void *)the_obj->socket_window;
1090         return (gtk_type_to_lisp(&arg));
1091 }
1092
1093 DEFUN("gtk-plug-same-app", Fgtk_plug_same_app, 1, 1, 0, /*
1094 Access the `same_app' slot of OBJ, a GtkPlug object.
1095 */
1096       (obj))
1097 {
1098         GtkPlug *the_obj = NULL;
1099         GtkArg arg;
1100
1101         CHECK_GTK_OBJECT(obj);
1102
1103         if (!GTK_IS_PLUG(XGTK_OBJECT(obj)->object)) {
1104                 signal_simple_error("Object is not a GtkPlug", obj);
1105         };
1106
1107         the_obj = GTK_PLUG(XGTK_OBJECT(obj)->object);
1108         arg.type = gtk_type_from_name("gint");
1109         GTK_VALUE_INT(arg) = the_obj->same_app;
1110         return (gtk_type_to_lisp(&arg));
1111 }
1112
1113 DEFUN("gtk-object-flags", Fgtk_object_flags, 1, 1, 0,   /*
1114 Access the `flags' slot of OBJ, a GtkObject object.
1115 */
1116       (obj))
1117 {
1118         GtkObject *the_obj = NULL;
1119         GtkArg arg;
1120
1121         CHECK_GTK_OBJECT(obj);
1122
1123         if (!GTK_IS_OBJECT(XGTK_OBJECT(obj)->object)) {
1124                 signal_simple_error("Object is not a GtkObject", obj);
1125         };
1126
1127         the_obj = GTK_OBJECT(XGTK_OBJECT(obj)->object);
1128         arg.type = gtk_type_from_name("guint");
1129         GTK_VALUE_UINT(arg) = the_obj->flags;
1130         return (gtk_type_to_lisp(&arg));
1131 }
1132
1133 DEFUN("gtk-object-ref-count", Fgtk_object_ref_count, 1, 1, 0,   /*
1134 Access the `ref_count' slot of OBJ, a GtkObject object.
1135 */
1136       (obj))
1137 {
1138         GtkObject *the_obj = NULL;
1139         GtkArg arg;
1140
1141         CHECK_GTK_OBJECT(obj);
1142
1143         if (!GTK_IS_OBJECT(XGTK_OBJECT(obj)->object)) {
1144                 signal_simple_error("Object is not a GtkObject", obj);
1145         };
1146
1147         the_obj = GTK_OBJECT(XGTK_OBJECT(obj)->object);
1148         arg.type = gtk_type_from_name("guint");
1149         GTK_VALUE_UINT(arg) = the_obj->ref_count;
1150         return (gtk_type_to_lisp(&arg));
1151 }
1152
1153 DEFUN("gtk-paned-child1", Fgtk_paned_child1, 1, 1, 0,   /*
1154 Access the `child1' slot of OBJ, a GtkPaned object.
1155 */
1156       (obj))
1157 {
1158         GtkPaned *the_obj = NULL;
1159         GtkArg arg;
1160
1161         CHECK_GTK_OBJECT(obj);
1162
1163         if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1164                 signal_simple_error("Object is not a GtkPaned", obj);
1165         };
1166
1167         the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1168         arg.type = gtk_type_from_name("GtkWidget");
1169         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->child1);
1170         return (gtk_type_to_lisp(&arg));
1171 }
1172
1173 DEFUN("gtk-paned-child2", Fgtk_paned_child2, 1, 1, 0,   /*
1174 Access the `child2' slot of OBJ, a GtkPaned object.
1175 */
1176       (obj))
1177 {
1178         GtkPaned *the_obj = NULL;
1179         GtkArg arg;
1180
1181         CHECK_GTK_OBJECT(obj);
1182
1183         if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1184                 signal_simple_error("Object is not a GtkPaned", obj);
1185         };
1186
1187         the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1188         arg.type = gtk_type_from_name("GtkWidget");
1189         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->child2);
1190         return (gtk_type_to_lisp(&arg));
1191 }
1192
1193 DEFUN("gtk-paned-child1-resize", Fgtk_paned_child1_resize, 1, 1, 0,     /*
1194 Access the `child1_resize' slot of OBJ, a GtkPaned object.
1195 */
1196       (obj))
1197 {
1198         GtkPaned *the_obj = NULL;
1199         GtkArg arg;
1200
1201         CHECK_GTK_OBJECT(obj);
1202
1203         if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1204                 signal_simple_error("Object is not a GtkPaned", obj);
1205         };
1206
1207         the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1208         arg.type = gtk_type_from_name("gboolean");
1209         GTK_VALUE_BOOL(arg) = the_obj->child1_resize;
1210         return (gtk_type_to_lisp(&arg));
1211 }
1212
1213 DEFUN("gtk-paned-child2-resize", Fgtk_paned_child2_resize, 1, 1, 0,     /*
1214 Access the `child2_resize' slot of OBJ, a GtkPaned object.
1215 */
1216       (obj))
1217 {
1218         GtkPaned *the_obj = NULL;
1219         GtkArg arg;
1220
1221         CHECK_GTK_OBJECT(obj);
1222
1223         if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1224                 signal_simple_error("Object is not a GtkPaned", obj);
1225         };
1226
1227         the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1228         arg.type = gtk_type_from_name("gboolean");
1229         GTK_VALUE_BOOL(arg) = the_obj->child2_resize;
1230         return (gtk_type_to_lisp(&arg));
1231 }
1232
1233 DEFUN("gtk-paned-child1-shrink", Fgtk_paned_child1_shrink, 1, 1, 0,     /*
1234 Access the `child1_shrink' slot of OBJ, a GtkPaned object.
1235 */
1236       (obj))
1237 {
1238         GtkPaned *the_obj = NULL;
1239         GtkArg arg;
1240
1241         CHECK_GTK_OBJECT(obj);
1242
1243         if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1244                 signal_simple_error("Object is not a GtkPaned", obj);
1245         };
1246
1247         the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1248         arg.type = gtk_type_from_name("gboolean");
1249         GTK_VALUE_BOOL(arg) = the_obj->child1_shrink;
1250         return (gtk_type_to_lisp(&arg));
1251 }
1252
1253 DEFUN("gtk-paned-child2-shrink", Fgtk_paned_child2_shrink, 1, 1, 0,     /*
1254 Access the `child2_shrink' slot of OBJ, a GtkPaned object.
1255 */
1256       (obj))
1257 {
1258         GtkPaned *the_obj = NULL;
1259         GtkArg arg;
1260
1261         CHECK_GTK_OBJECT(obj);
1262
1263         if (!GTK_IS_PANED(XGTK_OBJECT(obj)->object)) {
1264                 signal_simple_error("Object is not a GtkPaned", obj);
1265         };
1266
1267         the_obj = GTK_PANED(XGTK_OBJECT(obj)->object);
1268         arg.type = gtk_type_from_name("gboolean");
1269         GTK_VALUE_BOOL(arg) = the_obj->child2_shrink;
1270         return (gtk_type_to_lisp(&arg));
1271 }
1272
1273 DEFUN("gtk-clist-rows", Fgtk_clist_rows, 1, 1, 0,       /*
1274 Access the `rows' slot of OBJ, a GtkCList object.
1275 */
1276       (obj))
1277 {
1278         GtkCList *the_obj = NULL;
1279         GtkArg arg;
1280
1281         CHECK_GTK_OBJECT(obj);
1282
1283         if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1284                 signal_simple_error("Object is not a GtkCList", obj);
1285         };
1286
1287         the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1288         arg.type = gtk_type_from_name("gint");
1289         GTK_VALUE_INT(arg) = the_obj->rows;
1290         return (gtk_type_to_lisp(&arg));
1291 }
1292
1293 DEFUN("gtk-clist-columns", Fgtk_clist_columns, 1, 1, 0, /*
1294 Access the `columns' slot of OBJ, a GtkCList object.
1295 */
1296       (obj))
1297 {
1298         GtkCList *the_obj = NULL;
1299         GtkArg arg;
1300
1301         CHECK_GTK_OBJECT(obj);
1302
1303         if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1304                 signal_simple_error("Object is not a GtkCList", obj);
1305         };
1306
1307         the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1308         arg.type = gtk_type_from_name("gint");
1309         GTK_VALUE_INT(arg) = the_obj->columns;
1310         return (gtk_type_to_lisp(&arg));
1311 }
1312
1313 DEFUN("gtk-clist-hadjustment", Fgtk_clist_hadjustment, 1, 1, 0, /*
1314 Access the `hadjustment' slot of OBJ, a GtkCList object.
1315 */
1316       (obj))
1317 {
1318         GtkCList *the_obj = NULL;
1319         GtkArg arg;
1320
1321         CHECK_GTK_OBJECT(obj);
1322
1323         if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1324                 signal_simple_error("Object is not a GtkCList", obj);
1325         };
1326
1327         the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1328         arg.type = gtk_type_from_name("GtkAdjustment");
1329         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->hadjustment);
1330         return (gtk_type_to_lisp(&arg));
1331 }
1332
1333 DEFUN("gtk-clist-vadjustment", Fgtk_clist_vadjustment, 1, 1, 0, /*
1334 Access the `vadjustment' slot of OBJ, a GtkCList object.
1335 */
1336       (obj))
1337 {
1338         GtkCList *the_obj = NULL;
1339         GtkArg arg;
1340
1341         CHECK_GTK_OBJECT(obj);
1342
1343         if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1344                 signal_simple_error("Object is not a GtkCList", obj);
1345         };
1346
1347         the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1348         arg.type = gtk_type_from_name("GtkAdjustment");
1349         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->vadjustment);
1350         return (gtk_type_to_lisp(&arg));
1351 }
1352
1353 DEFUN("gtk-clist-sort-type", Fgtk_clist_sort_type, 1, 1, 0,     /*
1354 Access the `sort_type' slot of OBJ, a GtkCList object.
1355 */
1356       (obj))
1357 {
1358         GtkCList *the_obj = NULL;
1359         GtkArg arg;
1360
1361         CHECK_GTK_OBJECT(obj);
1362
1363         if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1364                 signal_simple_error("Object is not a GtkCList", obj);
1365         };
1366
1367         the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1368         arg.type = gtk_type_from_name("GtkSortType");
1369         GTK_VALUE_ENUM(arg) = the_obj->sort_type;
1370         return (gtk_type_to_lisp(&arg));
1371 }
1372
1373 DEFUN("gtk-clist-focus-row", Fgtk_clist_focus_row, 1, 1, 0,     /*
1374 Access the `focus_row' slot of OBJ, a GtkCList object.
1375 */
1376       (obj))
1377 {
1378         GtkCList *the_obj = NULL;
1379         GtkArg arg;
1380
1381         CHECK_GTK_OBJECT(obj);
1382
1383         if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1384                 signal_simple_error("Object is not a GtkCList", obj);
1385         };
1386
1387         the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1388         arg.type = gtk_type_from_name("gint");
1389         GTK_VALUE_INT(arg) = the_obj->focus_row;
1390         return (gtk_type_to_lisp(&arg));
1391 }
1392
1393 DEFUN("gtk-clist-sort-column", Fgtk_clist_sort_column, 1, 1, 0, /*
1394 Access the `sort_column' slot of OBJ, a GtkCList object.
1395 */
1396       (obj))
1397 {
1398         GtkCList *the_obj = NULL;
1399         GtkArg arg;
1400
1401         CHECK_GTK_OBJECT(obj);
1402
1403         if (!GTK_IS_CLIST(XGTK_OBJECT(obj)->object)) {
1404                 signal_simple_error("Object is not a GtkCList", obj);
1405         };
1406
1407         the_obj = GTK_CLIST(XGTK_OBJECT(obj)->object);
1408         arg.type = gtk_type_from_name("gint");
1409         GTK_VALUE_INT(arg) = the_obj->sort_column;
1410         return (gtk_type_to_lisp(&arg));
1411 }
1412
1413 DEFUN("gtk-list-children", Fgtk_list_children, 1, 1, 0, /*
1414 Access the `children' slot of OBJ, a GtkList object.
1415 */
1416       (obj))
1417 {
1418         GtkList *the_obj = NULL;
1419         GtkArg arg;
1420
1421         CHECK_GTK_OBJECT(obj);
1422
1423         if (!GTK_IS_LIST(XGTK_OBJECT(obj)->object)) {
1424                 signal_simple_error("Object is not a GtkList", obj);
1425         };
1426
1427         the_obj = GTK_LIST(XGTK_OBJECT(obj)->object);
1428         arg.type = gtk_type_from_name("GtkListOfObject");
1429         GTK_VALUE_POINTER(arg) = the_obj->children;
1430         return (gtk_type_to_lisp(&arg));
1431 }
1432
1433 DEFUN("gtk-list-selection", Fgtk_list_selection, 1, 1, 0,       /*
1434 Access the `selection' slot of OBJ, a GtkList object.
1435 */
1436       (obj))
1437 {
1438         GtkList *the_obj = NULL;
1439         GtkArg arg;
1440
1441         CHECK_GTK_OBJECT(obj);
1442
1443         if (!GTK_IS_LIST(XGTK_OBJECT(obj)->object)) {
1444                 signal_simple_error("Object is not a GtkList", obj);
1445         };
1446
1447         the_obj = GTK_LIST(XGTK_OBJECT(obj)->object);
1448         arg.type = gtk_type_from_name("GtkListOfObject");
1449         GTK_VALUE_POINTER(arg) = the_obj->selection;
1450         return (gtk_type_to_lisp(&arg));
1451 }
1452
1453 DEFUN("gtk-tree-children", Fgtk_tree_children, 1, 1, 0, /*
1454 Access the `children' slot of OBJ, a GtkTree object.
1455 */
1456       (obj))
1457 {
1458         GtkTree *the_obj = NULL;
1459         GtkArg arg;
1460
1461         CHECK_GTK_OBJECT(obj);
1462
1463         if (!GTK_IS_TREE(XGTK_OBJECT(obj)->object)) {
1464                 signal_simple_error("Object is not a GtkTree", obj);
1465         };
1466
1467         the_obj = GTK_TREE(XGTK_OBJECT(obj)->object);
1468         arg.type = gtk_type_from_name("GtkListOfObject");
1469         GTK_VALUE_POINTER(arg) = the_obj->children;
1470         return (gtk_type_to_lisp(&arg));
1471 }
1472
1473 DEFUN("gtk-tree-root-tree", Fgtk_tree_root_tree, 1, 1, 0,       /*
1474 Access the `root_tree' slot of OBJ, a GtkTree object.
1475 */
1476       (obj))
1477 {
1478         GtkTree *the_obj = NULL;
1479         GtkArg arg;
1480
1481         CHECK_GTK_OBJECT(obj);
1482
1483         if (!GTK_IS_TREE(XGTK_OBJECT(obj)->object)) {
1484                 signal_simple_error("Object is not a GtkTree", obj);
1485         };
1486
1487         the_obj = GTK_TREE(XGTK_OBJECT(obj)->object);
1488         arg.type = gtk_type_from_name("GtkTree");
1489         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->root_tree);
1490         return (gtk_type_to_lisp(&arg));
1491 }
1492
1493 DEFUN("gtk-tree-tree-owner", Fgtk_tree_tree_owner, 1, 1, 0,     /*
1494 Access the `tree_owner' slot of OBJ, a GtkTree object.
1495 */
1496       (obj))
1497 {
1498         GtkTree *the_obj = NULL;
1499         GtkArg arg;
1500
1501         CHECK_GTK_OBJECT(obj);
1502
1503         if (!GTK_IS_TREE(XGTK_OBJECT(obj)->object)) {
1504                 signal_simple_error("Object is not a GtkTree", obj);
1505         };
1506
1507         the_obj = GTK_TREE(XGTK_OBJECT(obj)->object);
1508         arg.type = gtk_type_from_name("GtkWidget");
1509         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->tree_owner);
1510         return (gtk_type_to_lisp(&arg));
1511 }
1512
1513 DEFUN("gtk-tree-selection", Fgtk_tree_selection, 1, 1, 0,       /*
1514 Access the `selection' slot of OBJ, a GtkTree object.
1515 */
1516       (obj))
1517 {
1518         GtkTree *the_obj = NULL;
1519         GtkArg arg;
1520
1521         CHECK_GTK_OBJECT(obj);
1522
1523         if (!GTK_IS_TREE(XGTK_OBJECT(obj)->object)) {
1524                 signal_simple_error("Object is not a GtkTree", obj);
1525         };
1526
1527         the_obj = GTK_TREE(XGTK_OBJECT(obj)->object);
1528         arg.type = gtk_type_from_name("GtkListOfObject");
1529         GTK_VALUE_POINTER(arg) = the_obj->selection;
1530         return (gtk_type_to_lisp(&arg));
1531 }
1532
1533 DEFUN("gtk-tree-item-subtree", Fgtk_tree_item_subtree, 1, 1, 0, /*
1534 Access the `subtree' slot of OBJ, a GtkTreeItem object.
1535 */
1536       (obj))
1537 {
1538         GtkTreeItem *the_obj = NULL;
1539         GtkArg arg;
1540
1541         CHECK_GTK_OBJECT(obj);
1542
1543         if (!GTK_IS_TREE_ITEM(XGTK_OBJECT(obj)->object)) {
1544                 signal_simple_error("Object is not a GtkTreeItem", obj);
1545         };
1546
1547         the_obj = GTK_TREE_ITEM(XGTK_OBJECT(obj)->object);
1548         arg.type = gtk_type_from_name("GtkWidget");
1549         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->subtree);
1550         return (gtk_type_to_lisp(&arg));
1551 }
1552
1553 DEFUN("gtk-scrolled-window-hscrollbar", Fgtk_scrolled_window_hscrollbar, 1, 1, 0,       /*
1554 Access the `hscrollbar' slot of OBJ, a GtkScrolledWindow object.
1555 */
1556       (obj))
1557 {
1558         GtkScrolledWindow *the_obj = NULL;
1559         GtkArg arg;
1560
1561         CHECK_GTK_OBJECT(obj);
1562
1563         if (!GTK_IS_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object)) {
1564                 signal_simple_error("Object is not a GtkScrolledWindow", obj);
1565         };
1566
1567         the_obj = GTK_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object);
1568         arg.type = gtk_type_from_name("GtkWidget");
1569         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->hscrollbar);
1570         return (gtk_type_to_lisp(&arg));
1571 }
1572
1573 DEFUN("gtk-scrolled-window-vscrollbar", Fgtk_scrolled_window_vscrollbar, 1, 1, 0,       /*
1574 Access the `vscrollbar' slot of OBJ, a GtkScrolledWindow object.
1575 */
1576       (obj))
1577 {
1578         GtkScrolledWindow *the_obj = NULL;
1579         GtkArg arg;
1580
1581         CHECK_GTK_OBJECT(obj);
1582
1583         if (!GTK_IS_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object)) {
1584                 signal_simple_error("Object is not a GtkScrolledWindow", obj);
1585         };
1586
1587         the_obj = GTK_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object);
1588         arg.type = gtk_type_from_name("GtkWidget");
1589         GTK_VALUE_OBJECT(arg) = GTK_OBJECT(the_obj->vscrollbar);
1590         return (gtk_type_to_lisp(&arg));
1591 }
1592
1593 DEFUN("gtk-scrolled-window-hscrollbar-visible", Fgtk_scrolled_window_hscrollbar_visible, 1, 1, 0,       /*
1594 Access the `hscrollbar_visible' slot of OBJ, a GtkScrolledWindow object.
1595 */
1596       (obj))
1597 {
1598         GtkScrolledWindow *the_obj = NULL;
1599         GtkArg arg;
1600
1601         CHECK_GTK_OBJECT(obj);
1602
1603         if (!GTK_IS_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object)) {
1604                 signal_simple_error("Object is not a GtkScrolledWindow", obj);
1605         };
1606
1607         the_obj = GTK_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object);
1608         arg.type = gtk_type_from_name("gboolean");
1609         GTK_VALUE_BOOL(arg) = the_obj->hscrollbar_visible;
1610         return (gtk_type_to_lisp(&arg));
1611 }
1612
1613 DEFUN("gtk-scrolled-window-vscrollbar-visible", Fgtk_scrolled_window_vscrollbar_visible, 1, 1, 0,       /*
1614 Access the `vscrollbar_visible' slot of OBJ, a GtkScrolledWindow object.
1615 */
1616       (obj))
1617 {
1618         GtkScrolledWindow *the_obj = NULL;
1619         GtkArg arg;
1620
1621         CHECK_GTK_OBJECT(obj);
1622
1623         if (!GTK_IS_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object)) {
1624                 signal_simple_error("Object is not a GtkScrolledWindow", obj);
1625         };
1626
1627         the_obj = GTK_SCROLLED_WINDOW(XGTK_OBJECT(obj)->object);
1628         arg.type = gtk_type_from_name("gboolean");
1629         GTK_VALUE_BOOL(arg) = the_obj->vscrollbar_visible;
1630         return (gtk_type_to_lisp(&arg));
1631 }
1632
1633 void syms_of_widget_accessors(void)
1634 {
1635         DEFSUBR(Fgtk_scrolled_window_vscrollbar_visible);
1636         DEFSUBR(Fgtk_scrolled_window_hscrollbar_visible);
1637         DEFSUBR(Fgtk_scrolled_window_vscrollbar);
1638         DEFSUBR(Fgtk_scrolled_window_hscrollbar);
1639         DEFSUBR(Fgtk_tree_item_subtree);
1640         DEFSUBR(Fgtk_tree_selection);
1641         DEFSUBR(Fgtk_tree_tree_owner);
1642         DEFSUBR(Fgtk_tree_root_tree);
1643         DEFSUBR(Fgtk_tree_children);
1644         DEFSUBR(Fgtk_list_selection);
1645         DEFSUBR(Fgtk_list_children);
1646         DEFSUBR(Fgtk_clist_sort_column);
1647         DEFSUBR(Fgtk_clist_focus_row);
1648         DEFSUBR(Fgtk_clist_sort_type);
1649         DEFSUBR(Fgtk_clist_vadjustment);
1650         DEFSUBR(Fgtk_clist_hadjustment);
1651         DEFSUBR(Fgtk_clist_columns);
1652         DEFSUBR(Fgtk_clist_rows);
1653         DEFSUBR(Fgtk_paned_child2_shrink);
1654         DEFSUBR(Fgtk_paned_child1_shrink);
1655         DEFSUBR(Fgtk_paned_child2_resize);
1656         DEFSUBR(Fgtk_paned_child1_resize);
1657         DEFSUBR(Fgtk_paned_child2);
1658         DEFSUBR(Fgtk_paned_child1);
1659         DEFSUBR(Fgtk_object_ref_count);
1660         DEFSUBR(Fgtk_object_flags);
1661         DEFSUBR(Fgtk_plug_same_app);
1662         DEFSUBR(Fgtk_plug_socket_window);
1663         DEFSUBR(Fgtk_input_dialog_save_button);
1664         DEFSUBR(Fgtk_input_dialog_close_button);
1665         DEFSUBR(Fgtk_dialog_action_area);
1666         DEFSUBR(Fgtk_dialog_vbox);
1667         DEFSUBR(Fgtk_color_selection_dialog_help_button);
1668         DEFSUBR(Fgtk_color_selection_dialog_cancel_button);
1669         DEFSUBR(Fgtk_color_selection_dialog_reset_button);
1670         DEFSUBR(Fgtk_color_selection_dialog_ok_button);
1671         DEFSUBR(Fgtk_color_selection_dialog_main_vbox);
1672         DEFSUBR(Fgtk_color_selection_dialog_colorsel);
1673         DEFSUBR(Fgtk_font_selection_dialog_cancel_button);
1674         DEFSUBR(Fgtk_font_selection_dialog_apply_button);
1675         DEFSUBR(Fgtk_font_selection_dialog_ok_button);
1676         DEFSUBR(Fgtk_font_selection_dialog_action_area);
1677         DEFSUBR(Fgtk_font_selection_dialog_main_vbox);
1678         DEFSUBR(Fgtk_font_selection_dialog_fontsel);
1679         DEFSUBR(Fgtk_file_selection_action_area);
1680         DEFSUBR(Fgtk_file_selection_help_button);
1681         DEFSUBR(Fgtk_file_selection_cancel_button);
1682         DEFSUBR(Fgtk_file_selection_ok_button);
1683         DEFSUBR(Fgtk_file_selection_main_vbox);
1684         DEFSUBR(Fgtk_file_selection_selection_text);
1685         DEFSUBR(Fgtk_file_selection_selection_entry);
1686         DEFSUBR(Fgtk_file_selection_file_list);
1687         DEFSUBR(Fgtk_file_selection_dir_list);
1688         DEFSUBR(Fgtk_text_vadj);
1689         DEFSUBR(Fgtk_text_hadj);
1690         DEFSUBR(Fgtk_notebook_tab_pos);
1691         DEFSUBR(Fgtk_check_menu_item_active);
1692         DEFSUBR(Fgtk_gamma_curve_gamma_text);
1693         DEFSUBR(Fgtk_gamma_curve_gamma_dialog);
1694         DEFSUBR(Fgtk_gamma_curve_gamma);
1695         DEFSUBR(Fgtk_gamma_curve_curve);
1696         DEFSUBR(Fgtk_gamma_curve_table);
1697         DEFSUBR(Fgtk_combo_list);
1698         DEFSUBR(Fgtk_combo_popwin);
1699         DEFSUBR(Fgtk_combo_popup);
1700         DEFSUBR(Fgtk_combo_button);
1701         DEFSUBR(Fgtk_combo_entry);
1702         DEFSUBR(Fgtk_button_button_down);
1703         DEFSUBR(Fgtk_button_in_button);
1704         DEFSUBR(Fgtk_button_child);
1705         DEFSUBR(Fgtk_widget_parent);
1706         DEFSUBR(Fgtk_widget_name);
1707         DEFSUBR(Fgtk_widget_state);
1708         DEFSUBR(Fgtk_widget_window);
1709         DEFSUBR(Fgtk_widget_style);
1710         DEFSUBR(Fgtk_adjustment_page_size);
1711         DEFSUBR(Fgtk_adjustment_page_increment);
1712         DEFSUBR(Fgtk_adjustment_step_increment);
1713         DEFSUBR(Fgtk_adjustment_value);
1714         DEFSUBR(Fgtk_adjustment_upper);
1715         DEFSUBR(Fgtk_adjustment_lower);
1716 }