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