[15285] | 1 | ;;; -*- lisp -*- |
---|
| 2 | ;;; gnomeui.defs - Export Gnome interfaces to Guile. |
---|
| 3 | ;;; |
---|
| 4 | ;;; Copyright (C) 1998 Tom Tromey |
---|
| 5 | ;;; Copyright (C) 2000 John Harper |
---|
| 6 | ;;; |
---|
| 7 | ;;; This program is free software; you can redistribute it and/or modify |
---|
| 8 | ;;; it under the terms of the GNU General Public License as published by |
---|
| 9 | ;;; the Free Software Foundation; either version 2, or (at your option) |
---|
| 10 | ;;; any later version. |
---|
| 11 | ;;; |
---|
| 12 | ;;; This program is distributed in the hope that it will be useful, |
---|
| 13 | ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
---|
| 14 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
---|
| 15 | ;;; GNU General Public License for more details. |
---|
| 16 | ;;; |
---|
| 17 | ;;; You should have received a copy of the GNU General Public License |
---|
| 18 | ;;; along with this program; if not, write to the Free Software |
---|
| 19 | ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA |
---|
| 20 | ;;; 02111-1307, USA. */ |
---|
| 21 | |
---|
| 22 | (import "gtk.defs") |
---|
[18403] | 23 | (import "gdk-pixbuf.defs") |
---|
| 24 | (import "gnome-canvas.defs") |
---|
[15285] | 25 | |
---|
| 26 | (define-enum GnomePreferencesType |
---|
| 27 | (never GNOME_PREFERENCES_NEVER) |
---|
| 28 | (user GNOME_PREFERENCES_USER) |
---|
| 29 | (always GNOME_PREFERENCES_ALWAYS)) |
---|
| 30 | |
---|
| 31 | ;; ugh, kludge of the highest order.. |
---|
| 32 | |
---|
| 33 | (define-type 'GnomeStringCallback "sgtk_protshell*" output-rep-to-full-callback |
---|
| 34 | nil "sgtk_valid_function" |
---|
| 35 | (cons 'c2args |
---|
| 36 | (lambda (output type var options) |
---|
| 37 | (@ "sgtk_gnome_string_callback, (gpointer) %s" var))) |
---|
| 38 | (cons 'finish output-full-callback-finish)) |
---|
| 39 | |
---|
| 40 | (define-type 'GnomeReplyCallback "sgtk_protshell*" output-rep-to-full-callback |
---|
| 41 | nil "sgtk_valid_function" |
---|
| 42 | (cons 'c2args |
---|
| 43 | (lambda (output type var options) |
---|
| 44 | (@ "sgtk_gnome_reply_callback, (gpointer) %s" var))) |
---|
| 45 | (cons 'finish output-full-callback-finish)) |
---|
| 46 | |
---|
| 47 | |
---|
| 48 | ;; gnome-app-helper |
---|
| 49 | |
---|
| 50 | (define-func gnome_app_message |
---|
| 51 | GtkWidget |
---|
| 52 | ((GnomeApp app) |
---|
| 53 | (string message))) |
---|
| 54 | |
---|
| 55 | (define-func gnome_app_flash |
---|
| 56 | none |
---|
| 57 | ((GnomeApp app) |
---|
| 58 | (string flash))) |
---|
| 59 | |
---|
| 60 | (define-func gnome_app_error |
---|
| 61 | GtkWidget |
---|
| 62 | ((GnomeApp app) |
---|
| 63 | (string error))) |
---|
| 64 | |
---|
| 65 | (define-func gnome_app_warning |
---|
| 66 | GtkWidget |
---|
| 67 | ((GnomeApp app) |
---|
| 68 | (string warning))) |
---|
| 69 | |
---|
| 70 | (define-func gnome_app_question |
---|
| 71 | GtkWidget |
---|
| 72 | ((GnomeApp app) |
---|
| 73 | (string question) |
---|
| 74 | (GnomeReplyCallback callback)) |
---|
| 75 | (protection *result*)) |
---|
| 76 | |
---|
| 77 | (define-func gnome_app_question_modal |
---|
| 78 | GtkWidget |
---|
| 79 | ((GnomeApp app) |
---|
| 80 | (string question) |
---|
| 81 | (GnomeReplyCallback callback)) |
---|
| 82 | (protection *result*)) |
---|
| 83 | |
---|
| 84 | (define-func gnome_app_ok_cancel |
---|
| 85 | GtkWidget |
---|
| 86 | ((GnomeApp app) |
---|
| 87 | (string message) |
---|
| 88 | (GnomeReplyCallback callback)) |
---|
| 89 | (protection *result*)) |
---|
| 90 | |
---|
| 91 | (define-func gnome_app_ok_cancel_modal |
---|
| 92 | GtkWidget |
---|
| 93 | ((GnomeApp app) |
---|
| 94 | (string message) |
---|
| 95 | (GnomeReplyCallback callback)) |
---|
| 96 | (protection *result*)) |
---|
| 97 | |
---|
| 98 | (define-func gnome_app_request_string |
---|
| 99 | GtkWidget |
---|
| 100 | ((GnomeApp app) |
---|
| 101 | (string prompt) |
---|
| 102 | (GnomeStringCallback callback)) |
---|
| 103 | (protection *result*)) |
---|
| 104 | |
---|
| 105 | (define-func gnome_app_request_password |
---|
| 106 | GtkWidget |
---|
| 107 | ((GnomeApp app) |
---|
| 108 | (string prompt) |
---|
| 109 | (GnomeStringCallback callback)) |
---|
| 110 | (protection *result*)) |
---|
| 111 | |
---|
| 112 | |
---|
| 113 | ;; gnome-dialog-util |
---|
| 114 | |
---|
| 115 | (define-func gnome_ok_dialog |
---|
| 116 | GtkWidget |
---|
| 117 | ((string message))) |
---|
| 118 | |
---|
| 119 | (define-func gnome_ok_dialog_parented |
---|
| 120 | GtkWidget |
---|
| 121 | ((string message) |
---|
| 122 | (GtkWindow parent))) |
---|
| 123 | |
---|
| 124 | (define-func gnome_error_dialog |
---|
| 125 | GtkWidget |
---|
| 126 | ((string error))) |
---|
| 127 | |
---|
| 128 | (define-func gnome_error_dialog_parented |
---|
| 129 | GtkWidget |
---|
| 130 | ((string error) |
---|
| 131 | (GtkWindow parent))) |
---|
| 132 | |
---|
| 133 | (define-func gnome_warning_dialog |
---|
| 134 | GtkWidget |
---|
| 135 | ((string warning))) |
---|
| 136 | |
---|
| 137 | (define-func gnome_warning_dialog_parented |
---|
| 138 | GtkWidget |
---|
| 139 | ((string warning) |
---|
| 140 | (GtkWindow parent))) |
---|
| 141 | |
---|
| 142 | (define-func gnome_question_dialog |
---|
| 143 | GtkWidget |
---|
| 144 | ((string question) |
---|
| 145 | (GnomeReplyCallback callback)) |
---|
| 146 | (protection *result*)) |
---|
| 147 | |
---|
| 148 | (define-func gnome_question_dialog_parented |
---|
| 149 | GtkWidget |
---|
| 150 | ((string question) |
---|
| 151 | (GnomeReplyCallback callback) |
---|
| 152 | (GtkWindow parent)) |
---|
| 153 | (protection *result*)) |
---|
| 154 | |
---|
| 155 | (define-func gnome_question_dialog_modal |
---|
| 156 | GtkWidget |
---|
| 157 | ((string question) |
---|
| 158 | (GnomeReplyCallback callback)) |
---|
| 159 | (protection *result*)) |
---|
| 160 | |
---|
| 161 | (define-func gnome_question_dialog_modal_parented |
---|
| 162 | GtkWidget |
---|
| 163 | ((string question) |
---|
| 164 | (GnomeReplyCallback callback) |
---|
| 165 | (GtkWindow parent)) |
---|
| 166 | (protection *result*)) |
---|
| 167 | |
---|
| 168 | (define-func gnome_ok_cancel_dialog |
---|
| 169 | GtkWidget |
---|
| 170 | ((string question) |
---|
| 171 | (GnomeReplyCallback callback)) |
---|
| 172 | (protection *result*)) |
---|
| 173 | |
---|
| 174 | (define-func gnome_ok_cancel_dialog_parented |
---|
| 175 | GtkWidget |
---|
| 176 | ((string question) |
---|
| 177 | (GnomeReplyCallback callback) |
---|
| 178 | (GtkWindow parent)) |
---|
| 179 | (protection *result*)) |
---|
| 180 | |
---|
| 181 | (define-func gnome_ok_cancel_dialog_modal |
---|
| 182 | GtkWidget |
---|
| 183 | ((string question) |
---|
| 184 | (GnomeReplyCallback callback)) |
---|
| 185 | (protection *result*)) |
---|
| 186 | |
---|
| 187 | (define-func gnome_ok_cancel_dialog_modal_parented |
---|
| 188 | GtkWidget |
---|
| 189 | ((string question) |
---|
| 190 | (GnomeReplyCallback callback) |
---|
| 191 | (GtkWindow parent)) |
---|
| 192 | (protection *result*)) |
---|
| 193 | |
---|
| 194 | (define-func gnome_request_string_dialog |
---|
| 195 | GtkWidget |
---|
| 196 | ((string prompt) |
---|
| 197 | (GnomeStringCallback callback)) |
---|
| 198 | (protection *result*)) |
---|
| 199 | |
---|
| 200 | (define-func gnome_request_string_dialog_parented |
---|
| 201 | GtkWidget |
---|
| 202 | ((string prompt) |
---|
| 203 | (GnomeStringCallback callback) |
---|
| 204 | (GtkWindow parent)) |
---|
| 205 | (protection *result*)) |
---|
| 206 | |
---|
| 207 | (define-func gnome_request_password_dialog |
---|
| 208 | GtkWidget |
---|
| 209 | ((string prompt) |
---|
| 210 | (GnomeStringCallback callback)) |
---|
| 211 | (protection *result*)) |
---|
| 212 | |
---|
| 213 | (define-func gnome_request_password_dialog_parented |
---|
| 214 | GtkWidget |
---|
| 215 | ((string prompt) |
---|
| 216 | (GnomeStringCallback callback) |
---|
| 217 | (GtkWindow parent)) |
---|
| 218 | (protection *result*)) |
---|
| 219 | |
---|
| 220 | (define-func gnome_request_dialog |
---|
| 221 | GtkWidget |
---|
| 222 | ((bool password) |
---|
| 223 | (string prompt) |
---|
| 224 | (string default_text (null-ok)) |
---|
| 225 | (int max_length) |
---|
| 226 | (GnomeStringCallback callback) |
---|
| 227 | (GtkWindow parent (null-ok))) |
---|
| 228 | (protection *result*)) |
---|
| 229 | |
---|
| 230 | |
---|
| 231 | ;; gnome-geometry |
---|
| 232 | |
---|
| 233 | (define-func gnome_parse_geometry |
---|
| 234 | bool |
---|
| 235 | ((string geom) |
---|
| 236 | ((ret int) xpos) |
---|
| 237 | ((ret int) ypos) |
---|
| 238 | ((ret int) width) |
---|
| 239 | ((ret int) height))) |
---|
| 240 | |
---|
| 241 | (define-func gnome_geometry_string |
---|
| 242 | string |
---|
| 243 | ((GdkWindow window))) |
---|
| 244 | |
---|
| 245 | |
---|
| 246 | ;; gtkcauldron |
---|
| 247 | |
---|
| 248 | ;; [the interface isn't suited to lisp anyway..] |
---|
| 249 | |
---|
| 250 | |
---|
| 251 | ;; GnomeAbout |
---|
| 252 | |
---|
[18403] | 253 | (define-object GnomeAbout (GtkDialog)) |
---|
[15285] | 254 | |
---|
| 255 | (define-func gnome_about_new |
---|
| 256 | GtkWidget |
---|
[18403] | 257 | ((string name) |
---|
[15285] | 258 | (string version) |
---|
| 259 | (string copyright) |
---|
| 260 | (string comments) |
---|
[18403] | 261 | ((tvec string) authors) |
---|
| 262 | ((tvec string) documentors) |
---|
| 263 | (string translator_credits) |
---|
| 264 | (GdkPixbuf logo (null-ok)))) |
---|
[15285] | 265 | |
---|
| 266 | |
---|
| 267 | ;; GnomeApp |
---|
| 268 | |
---|
| 269 | (define-object GnomeApp (GtkWindow)) |
---|
| 270 | |
---|
| 271 | (define-func gnome_app_new |
---|
| 272 | GtkWidget |
---|
| 273 | ((string appname) |
---|
| 274 | (string title))) |
---|
| 275 | |
---|
| 276 | (define-func gnome_app_set_menus |
---|
| 277 | none |
---|
| 278 | ((GnomeApp app) |
---|
| 279 | (GtkMenuBar menubar))) |
---|
| 280 | |
---|
| 281 | (define-func gnome_app_set_toolbar |
---|
| 282 | none |
---|
| 283 | ((GnomeApp app) |
---|
| 284 | (GtkToolbar toolbar))) |
---|
| 285 | |
---|
| 286 | (define-func gnome_app_set_statusbar |
---|
| 287 | none |
---|
| 288 | ((GnomeApp app) |
---|
| 289 | (GtkWidget statusbar))) |
---|
| 290 | |
---|
| 291 | (define-func gnome_app_set_contents |
---|
| 292 | none |
---|
| 293 | ((GnomeApp app) |
---|
| 294 | (GtkWidget contents))) |
---|
| 295 | |
---|
| 296 | |
---|
| 297 | ;; GnomeAppBar |
---|
| 298 | |
---|
| 299 | (define-object GnomeAppBar (GtkHBox)) |
---|
| 300 | |
---|
| 301 | (define-func gnome_appbar_new |
---|
| 302 | GtkWidget |
---|
| 303 | ((bool has_progress) |
---|
| 304 | (bool has_status) |
---|
| 305 | (GnomePreferencesType interactivity))) |
---|
| 306 | |
---|
| 307 | (define-func gnome_appbar_set_status |
---|
| 308 | none |
---|
| 309 | ((GnomeAppBar appbar) |
---|
| 310 | (string status))) |
---|
| 311 | |
---|
| 312 | (define-func gnome_appbar_set_default |
---|
| 313 | none |
---|
| 314 | ((GnomeAppBar appbar) |
---|
| 315 | (string default_status))) |
---|
| 316 | |
---|
| 317 | (define-func gnome_appbar_push |
---|
| 318 | none |
---|
| 319 | ((GnomeAppBar appbar) |
---|
| 320 | (string status))) |
---|
| 321 | |
---|
| 322 | (define-func gnome_appbar_pop |
---|
| 323 | none |
---|
| 324 | ((GnomeAppBar appbar))) |
---|
| 325 | |
---|
| 326 | (define-func gnome_appbar_clear_stack |
---|
| 327 | none |
---|
| 328 | ((GnomeAppBar appbar))) |
---|
| 329 | |
---|
| 330 | (define-func gnome_appbar_set_progress |
---|
| 331 | none |
---|
| 332 | ((GnomeAppBar appbar) |
---|
| 333 | (float percentage))) |
---|
| 334 | |
---|
| 335 | (define-func gnome_appbar_get_progress |
---|
| 336 | GtkProgress |
---|
| 337 | ((GnomeAppBar appbar))) |
---|
| 338 | |
---|
| 339 | (define-func gnome_appbar_refresh |
---|
| 340 | none |
---|
| 341 | ((GnomeAppBar appbar))) |
---|
| 342 | |
---|
| 343 | (define-func gnome_appbar_set_prompt |
---|
| 344 | none |
---|
| 345 | ((GnomeAppBar appbar) |
---|
| 346 | (string prompt) |
---|
| 347 | (bool modal))) |
---|
| 348 | |
---|
| 349 | (define-func gnome_appbar_clear_prompt |
---|
| 350 | none |
---|
| 351 | ((GnomeAppBar appbar))) |
---|
| 352 | |
---|
| 353 | (define-func gnome_appbar_get_response |
---|
| 354 | string |
---|
| 355 | ((GnomeAppBar appbar))) |
---|
| 356 | |
---|
| 357 | |
---|
| 358 | ;; GnomeClient |
---|
| 359 | |
---|
| 360 | ;; FIXME: Some functions still live in client.c, until argc/argv supported. |
---|
| 361 | |
---|
| 362 | (define-enum GnomeInteractStyle |
---|
| 363 | (none GNOME_INTERACT_NONE) |
---|
| 364 | (errors GNOME_INTERACT_ERRORS) |
---|
| 365 | (any GNOME_INTERACT_ANY)) |
---|
| 366 | |
---|
| 367 | (define-enum GnomeDialogType |
---|
| 368 | (error GNOME_DIALOG_ERROR) |
---|
| 369 | (normal GNOME_DIALOG_NORMAL)) |
---|
| 370 | |
---|
| 371 | (define-enum GnomeSaveStyle |
---|
| 372 | (global GNOME_SAVE_GLOBAL) |
---|
| 373 | (local GNOME_SAVE_LOCAL) |
---|
| 374 | (both GNOME_SAVE_BOTH)) |
---|
| 375 | |
---|
| 376 | (define-enum GnomeRestartStyle |
---|
| 377 | (if-running GNOME_RESTART_IF_RUNNING) |
---|
| 378 | (anyway GNOME_RESTART_ANYWAY) |
---|
| 379 | (immediately GNOME_RESTART_IMMEDIATELY) |
---|
| 380 | (never GNOME_RESTART_NEVER)) |
---|
| 381 | |
---|
| 382 | (define-object GnomeClient (GtkObject)) |
---|
| 383 | |
---|
| 384 | (define-func gnome_client_disable_master_connection |
---|
| 385 | none |
---|
| 386 | ()) |
---|
| 387 | |
---|
| 388 | (define-func gnome_master_client |
---|
| 389 | GnomeClient |
---|
| 390 | ()) |
---|
| 391 | |
---|
| 392 | (define-func gnome_client_new |
---|
| 393 | GnomeClient |
---|
| 394 | ()) |
---|
| 395 | |
---|
| 396 | (define-func gnome_client_new_without_connection |
---|
| 397 | GnomeClient |
---|
| 398 | ()) |
---|
| 399 | |
---|
| 400 | (define-func gnome_client_connect |
---|
| 401 | none |
---|
| 402 | ((GnomeClient client))) |
---|
| 403 | |
---|
| 404 | (define-func gnome_client_disconnect |
---|
| 405 | none |
---|
| 406 | ((GnomeClient client))) |
---|
| 407 | |
---|
| 408 | (define-func gnome_client_flush |
---|
| 409 | none |
---|
| 410 | ((GnomeClient client))) |
---|
| 411 | |
---|
| 412 | (define-func gnome_client_set_id |
---|
| 413 | none |
---|
| 414 | ((GnomeClient client) |
---|
| 415 | (string id))) |
---|
| 416 | |
---|
| 417 | (define-func gnome_client_get_config_prefix |
---|
[18403] | 418 | static_string |
---|
[15285] | 419 | ((GnomeClient client))) |
---|
| 420 | |
---|
| 421 | ; gnome_client_set_clone_command |
---|
| 422 | |
---|
| 423 | (define-func gnome_client_set_current_directory |
---|
| 424 | none |
---|
| 425 | ((GnomeClient client) |
---|
| 426 | (string dir))) |
---|
| 427 | |
---|
| 428 | ; gnome_client_set_environment |
---|
| 429 | |
---|
| 430 | (define-func gnome_client_set_process_id |
---|
| 431 | none |
---|
| 432 | ((GnomeClient client) |
---|
| 433 | (int id))) |
---|
| 434 | |
---|
| 435 | (define-func gnome_client_set_program |
---|
| 436 | none |
---|
| 437 | ((GnomeClient client) |
---|
| 438 | (string program))) |
---|
| 439 | |
---|
| 440 | ; gnome_client_set_restart_command |
---|
| 441 | |
---|
| 442 | ; gnome_client_set_resign_command |
---|
| 443 | |
---|
| 444 | (define-func gnome_client_set_restart_style |
---|
| 445 | none |
---|
| 446 | ((GnomeClient client) |
---|
| 447 | (GnomeRestartStyle style))) |
---|
| 448 | |
---|
| 449 | ; gnome_client_set_shutdown_command |
---|
| 450 | |
---|
| 451 | (define-func gnome_client_set_user_id |
---|
| 452 | none |
---|
| 453 | ((GnomeClient client) |
---|
| 454 | (string id))) |
---|
| 455 | |
---|
| 456 | (define-func gnome_client_request_phase_2 |
---|
| 457 | none |
---|
| 458 | ((GnomeClient client))) |
---|
| 459 | |
---|
| 460 | (define-func gnome_client_request_save |
---|
| 461 | none |
---|
| 462 | ((GnomeClient client) |
---|
| 463 | (GnomeSaveStyle save_style) |
---|
| 464 | (bool shutdown) |
---|
| 465 | (GnomeInteractStyle interact_style) |
---|
| 466 | (bool fast) |
---|
| 467 | (bool global))) |
---|
| 468 | |
---|
| 469 | ; XXX can't handle callbacks, only full-callbacks |
---|
| 470 | ;(define-func gnome_client_request_interaction_interp |
---|
| 471 | ; none |
---|
| 472 | ; ((GnomeClient client) |
---|
| 473 | ; (GnomeDialogType dialog_type) |
---|
| 474 | ; (callback function)) |
---|
| 475 | ; (protection client)) |
---|
| 476 | |
---|
| 477 | (define-func gnome_interaction_key_return |
---|
| 478 | none |
---|
| 479 | ((int key) |
---|
| 480 | (bool cancel_shutdown))) |
---|
| 481 | |
---|
| 482 | |
---|
| 483 | ;; GnomeColorPicker |
---|
| 484 | |
---|
| 485 | (define-object GnomeColorPicker (GtkButton)) |
---|
| 486 | |
---|
| 487 | (define-func gnome_color_picker_new |
---|
| 488 | GnomeColorPicker |
---|
| 489 | ()) |
---|
| 490 | |
---|
| 491 | (define-func gnome_color_picker_set_i16 |
---|
| 492 | none |
---|
| 493 | ((GnomeColorPicker cp) |
---|
| 494 | (char r) |
---|
| 495 | (char g) |
---|
| 496 | (char b) |
---|
| 497 | (char a))) |
---|
| 498 | |
---|
| 499 | (define-func gnome_color_picker_get_i16 |
---|
| 500 | none |
---|
| 501 | ((GnomeColorPicker cp) |
---|
[18403] | 502 | ((ret ushort) r) |
---|
| 503 | ((ret ushort) g) |
---|
| 504 | ((ret ushort) b) |
---|
| 505 | ((ret ushort) a))) |
---|
[15285] | 506 | |
---|
| 507 | (define-func gnome_color_picker_set_dither |
---|
| 508 | none |
---|
| 509 | ((GnomeColorPicker cp) |
---|
| 510 | (bool dither))) |
---|
| 511 | |
---|
| 512 | (define-func gnome_color_picker_set_use_alpha |
---|
| 513 | none |
---|
| 514 | ((GnomeColorPicker cp) |
---|
| 515 | (bool use_alpha))) |
---|
| 516 | |
---|
| 517 | (define-func gnome_color_picker_set_title |
---|
| 518 | none |
---|
| 519 | ((GnomeColorPicker cp) |
---|
| 520 | (string title))) |
---|
| 521 | |
---|
| 522 | |
---|
| 523 | ;; GnomeDateEdit |
---|
| 524 | |
---|
| 525 | (define-object GnomeDateEdit (GtkHBox)) |
---|
| 526 | |
---|
| 527 | (define-func gnome_date_edit_new |
---|
| 528 | GtkWidget |
---|
| 529 | ((ulong the_time) ;actually time_t |
---|
| 530 | (bool show_time) |
---|
| 531 | (bool use_24))) |
---|
| 532 | |
---|
| 533 | (define-func gnome_date_edit_set_time |
---|
| 534 | none |
---|
| 535 | ((GnomeDateEdit de) |
---|
| 536 | (ulong the_time))) ;actually time_t |
---|
| 537 | |
---|
| 538 | (define-func gnome_date_edit_set_popup_range |
---|
| 539 | none |
---|
| 540 | ((GnomeDateEdit de) |
---|
| 541 | (int low_hour) |
---|
| 542 | (int high_hour))) |
---|
| 543 | |
---|
| 544 | (define-func gnome_date_edit_get_date |
---|
| 545 | ulong ;actually time_t |
---|
| 546 | ((GnomeDateEdit de))) |
---|
| 547 | |
---|
| 548 | |
---|
| 549 | ;; GnomeDEntryEdit |
---|
| 550 | |
---|
| 551 | |
---|
| 552 | ;; GnomeDialog |
---|
| 553 | |
---|
| 554 | (define-object GnomeDialog (GtkWindow) |
---|
| 555 | (fields |
---|
| 556 | (GtkWidget vbox))) |
---|
| 557 | |
---|
| 558 | (define-func gnome_dialog_newv |
---|
| 559 | GtkWidget |
---|
| 560 | ((string title) |
---|
| 561 | ((tvec GnomeStockButtonNameType) buttons)) |
---|
| 562 | (scm-name "gnome-dialog-new")) |
---|
| 563 | |
---|
| 564 | (define-func gnome_dialog_set_parent |
---|
| 565 | none |
---|
| 566 | ((GnomeDialog d) |
---|
| 567 | (GtkWindow parent))) |
---|
| 568 | |
---|
| 569 | (define-func gnome_dialog_run |
---|
| 570 | int |
---|
| 571 | ((GnomeDialog d))) |
---|
| 572 | |
---|
| 573 | (define-func gnome_dialog_run_and_close |
---|
| 574 | int |
---|
| 575 | ((GnomeDialog d))) |
---|
| 576 | |
---|
| 577 | (define-func gnome_dialog_set_default |
---|
| 578 | none |
---|
| 579 | ((GnomeDialog d) |
---|
| 580 | (int button))) |
---|
| 581 | |
---|
| 582 | (define-func gnome_dialog_set_sensitive |
---|
| 583 | none |
---|
| 584 | ((GnomeDialog d) |
---|
| 585 | (int button) |
---|
| 586 | (bool setting))) |
---|
| 587 | |
---|
| 588 | (define-func gnome_dialog_set_accelerator |
---|
| 589 | none |
---|
| 590 | ((GnomeDialog d) |
---|
| 591 | (int button) |
---|
| 592 | (char accel_key) |
---|
| 593 | (uint accel_mods))) ;uint8 |
---|
| 594 | |
---|
| 595 | (define-func gnome_dialog_close |
---|
| 596 | none |
---|
| 597 | ((GnomeDialog d))) |
---|
| 598 | |
---|
| 599 | (define-func gnome_dialog_close_hides |
---|
| 600 | none |
---|
| 601 | ((GnomeDialog d) |
---|
| 602 | (bool just_hide))) |
---|
| 603 | |
---|
| 604 | (define-func gnome_dialog_set_close |
---|
| 605 | none |
---|
| 606 | ((GnomeDialog d) |
---|
| 607 | (bool click_closes))) |
---|
| 608 | |
---|
| 609 | (define-func gnome_dialog_editable_enters |
---|
| 610 | none |
---|
| 611 | ((GnomeDialog d) |
---|
| 612 | (GtkEditable editable))) |
---|
| 613 | |
---|
| 614 | (define-func gnome_dialog_append_button |
---|
| 615 | none |
---|
| 616 | ((GnomeDialog d) |
---|
| 617 | (GnomeStockButtonNameType name))) |
---|
| 618 | |
---|
| 619 | (define-func gnome_dialog_append_buttonsv |
---|
| 620 | none |
---|
| 621 | ((GnomeDialog d) |
---|
| 622 | ((tvec GnomeStockButtonNameType) buttons)) |
---|
| 623 | (scm-name "gnome-dialog-append-buttons")) |
---|
| 624 | |
---|
| 625 | (define-func gnome_dialog_append_button_with_pixmap |
---|
| 626 | none |
---|
| 627 | ((GnomeDialog d) |
---|
| 628 | (GnomeStockButtonNameType name) |
---|
| 629 | (string pixmap))) |
---|
| 630 | |
---|
| 631 | (define-func gnome_dialog_append_buttons_with_pixmaps |
---|
| 632 | none |
---|
| 633 | ((GnomeDialog d) |
---|
| 634 | ((tvec GnomeStockButtonNameType) names) |
---|
| 635 | ((tvec string) pixmaps))) |
---|
| 636 | |
---|
| 637 | |
---|
| 638 | ;; GnomeDockBand |
---|
| 639 | ;; GnomeDockItem |
---|
| 640 | ;; GnomeDock |
---|
| 641 | ;; GnomeDockLayout |
---|
| 642 | |
---|
| 643 | ;; GnomeDruid |
---|
| 644 | ;; GnomeDruidPage |
---|
| 645 | ;; GnomeDruidPageStart |
---|
| 646 | ;; GnomeDruidPageStandard |
---|
| 647 | ;; GnomeDruidPageFinish |
---|
| 648 | |
---|
| 649 | |
---|
| 650 | ;; GnomeEntry |
---|
| 651 | |
---|
| 652 | (define-object GnomeEntry (GtkCombo)) |
---|
| 653 | |
---|
| 654 | (define-func gnome_entry_new |
---|
| 655 | GtkWidget |
---|
| 656 | ((string history_id (null-ok)))) |
---|
| 657 | |
---|
| 658 | (define-func gnome_entry_gtk_entry |
---|
| 659 | GtkWidget |
---|
| 660 | ((GnomeEntry ge))) |
---|
| 661 | |
---|
| 662 | (define-func gnome_entry_set_history_id |
---|
| 663 | none |
---|
| 664 | ((GnomeEntry ge) |
---|
| 665 | (string history_id))) |
---|
| 666 | |
---|
| 667 | (define-func gnome_entry_prepend_history |
---|
| 668 | none |
---|
| 669 | ((GnomeEntry ge) |
---|
| 670 | (int save) |
---|
| 671 | (string text))) |
---|
| 672 | |
---|
| 673 | (define-func gnome_entry_append_history |
---|
| 674 | none |
---|
| 675 | ((GnomeEntry ge) |
---|
| 676 | (int save) |
---|
| 677 | (string text))) |
---|
| 678 | |
---|
| 679 | (define-func gnome_entry_load_history |
---|
| 680 | none |
---|
| 681 | ((GnomeEntry ge))) |
---|
| 682 | |
---|
| 683 | (define-func gnome_entry_save_history |
---|
| 684 | none |
---|
| 685 | ((GnomeEntry ge))) |
---|
| 686 | |
---|
| 687 | |
---|
| 688 | ;; GnomeFileEntry |
---|
| 689 | |
---|
| 690 | (define-object GnomeFileEntry (GtkHBox)) |
---|
| 691 | |
---|
| 692 | (define-func gnome_file_entry_new |
---|
| 693 | GtkWidget |
---|
| 694 | ((string history_id) |
---|
| 695 | (string browse_dialog_title))) |
---|
| 696 | |
---|
| 697 | (define-func gnome_file_entry_gnome_entry |
---|
| 698 | GtkWidget |
---|
| 699 | ((GnomeFileEntry fe))) |
---|
| 700 | |
---|
| 701 | (define-func gnome_file_entry_gtk_entry |
---|
| 702 | GtkWidget |
---|
| 703 | ((GnomeFileEntry fe))) |
---|
| 704 | |
---|
| 705 | (define-func gnome_file_entry_set_title |
---|
| 706 | none |
---|
| 707 | ((GnomeFileEntry fe) |
---|
| 708 | (string browse_dialog_title))) |
---|
| 709 | |
---|
| 710 | (define-func gnome_file_entry_set_default_path |
---|
| 711 | none |
---|
| 712 | ((GnomeFileEntry fe) |
---|
| 713 | (string path))) |
---|
| 714 | |
---|
| 715 | (define-func gnome_file_entry_set_directory |
---|
| 716 | none |
---|
| 717 | ((GnomeFileEntry fe) |
---|
| 718 | (bool directory_only))) |
---|
| 719 | |
---|
| 720 | (define-func gnome_file_entry_get_full_path |
---|
| 721 | string |
---|
| 722 | ((GnomeFileEntry fe) |
---|
| 723 | (bool file_must_exist))) |
---|
| 724 | |
---|
| 725 | (define-func gnome_file_entry_set_modal |
---|
| 726 | none |
---|
| 727 | ((GnomeFileEntry fe) |
---|
| 728 | (bool is_modal))) |
---|
| 729 | |
---|
| 730 | |
---|
| 731 | ;; GnomeFontPicker |
---|
| 732 | |
---|
| 733 | |
---|
| 734 | ;; GnomeHRef |
---|
| 735 | |
---|
| 736 | (define-object GnomeHRef (GtkButton)) |
---|
| 737 | |
---|
| 738 | (define-func gnome_href_new |
---|
| 739 | GtkWidget |
---|
| 740 | ((string url) |
---|
| 741 | (string label))) |
---|
| 742 | |
---|
| 743 | (define-func gnome_href_set_url |
---|
| 744 | none |
---|
| 745 | ((GnomeHRef href) |
---|
| 746 | (string url))) |
---|
| 747 | |
---|
[18403] | 748 | (define-func gnome_href_set_text |
---|
[15285] | 749 | none |
---|
| 750 | ((GnomeHRef href) |
---|
| 751 | (string label))) |
---|
| 752 | |
---|
| 753 | (define-func gnome_href_get_url |
---|
[18403] | 754 | static_string |
---|
[15285] | 755 | ((GnomeHRef href))) |
---|
| 756 | |
---|
[18403] | 757 | (define-func gnome_href_get_text |
---|
[15285] | 758 | string |
---|
| 759 | ((GnomeHRef href))) |
---|
| 760 | |
---|
| 761 | |
---|
| 762 | ;; GnomeIconEntry |
---|
| 763 | |
---|
| 764 | (define-object GnomeIconEntry (GtkVBox)) |
---|
| 765 | |
---|
| 766 | (define-func gnome_icon_entry_new |
---|
| 767 | GtkWidget |
---|
| 768 | ((string history_id) |
---|
| 769 | (string browse_dialog_title))) |
---|
| 770 | |
---|
| 771 | (define-func gnome_icon_entry_set_pixmap_subdir |
---|
| 772 | none |
---|
| 773 | ((GnomeIconEntry ie) |
---|
| 774 | (string subdir))) |
---|
| 775 | |
---|
| 776 | (define-func gnome_icon_entry_set_icon |
---|
| 777 | none |
---|
| 778 | ((GnomeIconEntry ie) |
---|
| 779 | (string filename))) |
---|
| 780 | |
---|
| 781 | (define-func gnome_icon_entry_gnome_file_entry |
---|
| 782 | GtkWidget |
---|
| 783 | ((GnomeIconEntry ie))) |
---|
| 784 | |
---|
| 785 | (define-func gnome_icon_entry_gnome_entry |
---|
| 786 | GtkWidget |
---|
| 787 | ((GnomeIconEntry ie))) |
---|
| 788 | |
---|
| 789 | (define-func gnome_icon_entry_gtk_entry |
---|
| 790 | GtkWidget |
---|
| 791 | ((GnomeIconEntry ie))) |
---|
| 792 | |
---|
| 793 | (define-func gnome_icon_entry_get_filename |
---|
| 794 | string |
---|
| 795 | ((GnomeIconEntry ie))) |
---|
| 796 | |
---|
| 797 | |
---|
| 798 | ;; GnomeIconSelection |
---|
| 799 | |
---|
| 800 | (define-object GnomeIconSelection (GtkVBox)) |
---|
| 801 | |
---|
| 802 | (define-func gnome_icon_selection_new |
---|
| 803 | GtkWidget |
---|
| 804 | ()) |
---|
| 805 | |
---|
| 806 | (define-func gnome_icon_selection_add_defaults |
---|
| 807 | none |
---|
| 808 | ((GnomeIconSelection gis))) |
---|
| 809 | |
---|
| 810 | (define-func gnome_icon_selection_add_directory |
---|
| 811 | none |
---|
| 812 | ((GnomeIconSelection gis) |
---|
| 813 | (string dir))) |
---|
| 814 | |
---|
| 815 | (define-func gnome_icon_selection_show_icons |
---|
| 816 | none |
---|
| 817 | ((GnomeIconSelection gis))) |
---|
| 818 | |
---|
| 819 | (define-func gnome_icon_selection_clear |
---|
| 820 | none |
---|
| 821 | ((GnomeIconSelection gis) |
---|
| 822 | (bool not_shown))) |
---|
| 823 | |
---|
| 824 | (define-func gnome_icon_selection_get_icon |
---|
| 825 | static_string |
---|
| 826 | ((GnomeIconSelection gis) |
---|
| 827 | (bool full_path))) |
---|
| 828 | |
---|
| 829 | (define-func gnome_icon_selection_select_icon |
---|
| 830 | none |
---|
| 831 | ((GnomeIconSelection gis) |
---|
| 832 | (string filename))) |
---|
| 833 | |
---|
| 834 | |
---|
| 835 | ;; GnomeMessageBox |
---|
| 836 | |
---|
| 837 | (define-object GnomeMessageBox (GnomeDialog)) |
---|
| 838 | |
---|
| 839 | (define-func gnome_message_box_newv |
---|
| 840 | GtkWidget |
---|
| 841 | ((string message) |
---|
| 842 | (string messagebox_type) |
---|
| 843 | ((tvec string) buttons))) |
---|
| 844 | |
---|
| 845 | |
---|
| 846 | ;; GnomePixmapEntry |
---|
| 847 | |
---|
| 848 | (define-object GnomePixmapEntry (GtkVBox)) |
---|
| 849 | |
---|
| 850 | (define-func gnome_pixmap_entry_new |
---|
| 851 | GtkWidget |
---|
| 852 | ((string history_id) |
---|
| 853 | (string browse_dialog_title) |
---|
| 854 | (bool do_preview))) |
---|
| 855 | |
---|
| 856 | (define-func gnome_pixmap_entry_set_pixmap_subdir |
---|
| 857 | none |
---|
| 858 | ((GnomePixmapEntry pe) |
---|
| 859 | (string subdir))) |
---|
| 860 | |
---|
| 861 | (define-func gnome_pixmap_entry_gnome_file_entry |
---|
| 862 | GtkWidget |
---|
| 863 | ((GnomePixmapEntry pe))) |
---|
| 864 | |
---|
| 865 | (define-func gnome_pixmap_entry_gtk_entry |
---|
| 866 | GtkWidget |
---|
| 867 | ((GnomePixmapEntry pe))) |
---|
| 868 | |
---|
| 869 | (define-func gnome_pixmap_entry_set_preview |
---|
| 870 | none |
---|
| 871 | ((GnomePixmapEntry pe) |
---|
| 872 | (bool do_preview))) |
---|
| 873 | |
---|
| 874 | (define-func gnome_pixmap_entry_set_preview_size |
---|
| 875 | none |
---|
| 876 | ((GnomePixmapEntry pe) |
---|
| 877 | (int preview_w) |
---|
| 878 | (int preview_h))) |
---|
| 879 | |
---|
| 880 | (define-func gnome_pixmap_entry_get_filename |
---|
| 881 | string |
---|
| 882 | ((GnomePixmapEntry pe))) |
---|
| 883 | |
---|
| 884 | |
---|
| 885 | ;; GnomePixmap |
---|
| 886 | |
---|
| 887 | (define-object GnomePixmap (GtkWidget)) |
---|
| 888 | |
---|
| 889 | (define-func gnome_pixmap_new_from_file |
---|
| 890 | GtkWidget |
---|
| 891 | ((string filename))) |
---|
| 892 | |
---|
| 893 | (define-func gnome_pixmap_new_from_file_at_size |
---|
| 894 | GtkWidget |
---|
| 895 | ((string filename) |
---|
| 896 | (int width) |
---|
| 897 | (int height))) |
---|
| 898 | |
---|
| 899 | (define-func gnome_pixmap_new_from_gnome_pixmap |
---|
| 900 | GtkWidget |
---|
| 901 | ((GnomePixmap p))) |
---|
| 902 | |
---|
| 903 | (define-func gnome_pixmap_load_file |
---|
| 904 | none |
---|
| 905 | ((GnomePixmap p) |
---|
| 906 | (string file))) |
---|
| 907 | |
---|
| 908 | (define-func gnome_pixmap_load_file_at_size |
---|
| 909 | none |
---|
| 910 | ((GnomePixmap p) |
---|
| 911 | (string file) |
---|
| 912 | (int width) |
---|
| 913 | (int height))) |
---|
| 914 | |
---|
| 915 | ;; lots of others I can't be arsed to type in.. |
---|
| 916 | |
---|
| 917 | |
---|
| 918 | ;; GnomePropertyBox |
---|
| 919 | |
---|
| 920 | (define-object GnomePropertyBox (GnomeDialog) |
---|
| 921 | (fields |
---|
| 922 | (GtkWidget notebook) |
---|
| 923 | (GtkWidget ok_button) |
---|
| 924 | (GtkWidget apply_button) |
---|
| 925 | (GtkWidget cancel_button) |
---|
| 926 | (GtkWidget help_button))) |
---|
| 927 | |
---|
| 928 | (define-func gnome_property_box_new |
---|
| 929 | GtkWidget |
---|
| 930 | ()) |
---|
| 931 | |
---|
| 932 | (define-func gnome_property_box_changed |
---|
| 933 | none |
---|
| 934 | ((GnomePropertyBox box))) |
---|
| 935 | |
---|
| 936 | (define-func gnome_property_box_set_state |
---|
| 937 | none |
---|
| 938 | ((GnomePropertyBox box) |
---|
| 939 | (bool state))) |
---|
| 940 | |
---|
| 941 | (define-func gnome_property_box_append_page |
---|
| 942 | int |
---|
| 943 | ((GnomePropertyBox box) |
---|
| 944 | (GtkWidget child) |
---|
| 945 | (GtkWidget tab_label))) |
---|
| 946 | |
---|
| 947 | |
---|
| 948 | ;; GnomeScores |
---|
| 949 | |
---|
| 950 | |
---|
| 951 | ;; GnomeStock |
---|
| 952 | |
---|
| 953 | (define-string-enum GnomeStockButtonNameType |
---|
| 954 | (ok GNOME_STOCK_BUTTON_OK) |
---|
| 955 | (cancel GNOME_STOCK_BUTTON_CANCEL) |
---|
| 956 | (yes GNOME_STOCK_BUTTON_YES) |
---|
| 957 | (no GNOME_STOCK_BUTTON_NO) |
---|
| 958 | (close GNOME_STOCK_BUTTON_CLOSE) |
---|
| 959 | (apply GNOME_STOCK_BUTTON_APPLY) |
---|
| 960 | (help GNOME_STOCK_BUTTON_HELP)) |
---|
| 961 | |
---|
| 962 | (define-string-enum GnomeStockMenuNameType |
---|
| 963 | (blank GNOME_STOCK_MENU_BLANK) |
---|
| 964 | (new GNOME_STOCK_MENU_NEW) |
---|
| 965 | (save GNOME_STOCK_MENU_SAVE) |
---|
| 966 | (save-as GNOME_STOCK_MENU_SAVE_AS) |
---|
| 967 | (open GNOME_STOCK_MENU_OPEN) |
---|
| 968 | (quit GNOME_STOCK_MENU_QUIT) |
---|
| 969 | (cut GNOME_STOCK_MENU_CUT) |
---|
| 970 | (copy GNOME_STOCK_MENU_COPY) |
---|
| 971 | (paste GNOME_STOCK_MENU_PASTE) |
---|
| 972 | (prop GNOME_STOCK_MENU_PROP) |
---|
| 973 | (pref GNOME_STOCK_MENU_PREF) |
---|
| 974 | (about GNOME_STOCK_MENU_ABOUT) |
---|
| 975 | (scores GNOME_STOCK_MENU_SCORES) |
---|
| 976 | (undo GNOME_STOCK_MENU_UNDO) |
---|
| 977 | (print GNOME_STOCK_MENU_PRINT) |
---|
| 978 | (search GNOME_STOCK_MENU_SEARCH) |
---|
| 979 | (back GNOME_STOCK_MENU_BACK) |
---|
| 980 | (forward GNOME_STOCK_MENU_FORWARD) |
---|
| 981 | (home GNOME_STOCK_MENU_HOME) |
---|
| 982 | (stop GNOME_STOCK_MENU_STOP) |
---|
| 983 | (refresh GNOME_STOCK_MENU_REFRESH) |
---|
| 984 | (mail GNOME_STOCK_MENU_MAIL) |
---|
| 985 | (mail-receive GNOME_STOCK_MENU_MAIL_RCV) |
---|
| 986 | (mail-send GNOME_STOCK_MENU_MAIL_SND) |
---|
| 987 | (trash GNOME_STOCK_MENU_TRASH) |
---|
| 988 | (trash-full GNOME_STOCK_MENU_TRASH_FULL) |
---|
| 989 | ;; This is an alias for Quit for now. |
---|
| 990 | (exit GNOME_STOCK_MENU_QUIT)) |
---|
| 991 | |
---|
| 992 | (define-string-enum GnomeStockPixmapNameType |
---|
| 993 | (new GNOME_STOCK_PIXMAP_NEW) |
---|
| 994 | (open GNOME_STOCK_PIXMAP_OPEN) |
---|
| 995 | (close GNOME_STOCK_PIXMAP_CLOSE) |
---|
| 996 | (revert GNOME_STOCK_PIXMAP_REVERT) |
---|
| 997 | (save GNOME_STOCK_PIXMAP_SAVE) |
---|
| 998 | (save-as GNOME_STOCK_PIXMAP_SAVE_AS) |
---|
| 999 | (cut GNOME_STOCK_PIXMAP_CUT) |
---|
| 1000 | (copy GNOME_STOCK_PIXMAP_COPY) |
---|
| 1001 | (paste GNOME_STOCK_PIXMAP_PASTE) |
---|
| 1002 | (clear GNOME_STOCK_PIXMAP_CLEAR) |
---|
| 1003 | (properties GNOME_STOCK_PIXMAP_PROPERTIES) |
---|
| 1004 | (preferences GNOME_STOCK_PIXMAP_PREFERENCES) |
---|
| 1005 | (help GNOME_STOCK_PIXMAP_HELP) |
---|
| 1006 | (scores GNOME_STOCK_PIXMAP_SCORES) |
---|
| 1007 | (print GNOME_STOCK_PIXMAP_PRINT) |
---|
| 1008 | (search GNOME_STOCK_PIXMAP_SEARCH) |
---|
| 1009 | (search/Replace GNOME_STOCK_PIXMAP_SRCHRPL) |
---|
| 1010 | (back GNOME_STOCK_PIXMAP_BACK) |
---|
| 1011 | (forward GNOME_STOCK_PIXMAP_FORWARD) |
---|
| 1012 | (first GNOME_STOCK_PIXMAP_FIRST) |
---|
| 1013 | (last GNOME_STOCK_PIXMAP_LAST) |
---|
| 1014 | (home GNOME_STOCK_PIXMAP_HOME) |
---|
| 1015 | (stop GNOME_STOCK_PIXMAP_STOP) |
---|
| 1016 | (refresh GNOME_STOCK_PIXMAP_REFRESH) |
---|
| 1017 | (undo GNOME_STOCK_PIXMAP_UNDO) |
---|
| 1018 | (redo GNOME_STOCK_PIXMAP_REDO) |
---|
| 1019 | (timer GNOME_STOCK_PIXMAP_TIMER) |
---|
| 1020 | (timer-stopped GNOME_STOCK_PIXMAP_TIMER_STOP) |
---|
| 1021 | (mail GNOME_STOCK_PIXMAP_MAIL ) |
---|
| 1022 | (receive-mail GNOME_STOCK_PIXMAP_MAIL_RCV) |
---|
| 1023 | (send-mail GNOME_STOCK_PIXMAP_MAIL_SND) |
---|
| 1024 | (reply-to-mail GNOME_STOCK_PIXMAP_MAIL_RPL) |
---|
| 1025 | (forward-mail GNOME_STOCK_PIXMAP_MAIL_FWD) |
---|
| 1026 | (new-mail GNOME_STOCK_PIXMAP_MAIL_NEW) |
---|
| 1027 | (trash GNOME_STOCK_PIXMAP_TRASH) |
---|
| 1028 | (trash-full GNOME_STOCK_PIXMAP_TRASH_FULL) |
---|
| 1029 | (undelete GNOME_STOCK_PIXMAP_UNDELETE) |
---|
| 1030 | (spellchecker GNOME_STOCK_PIXMAP_SPELLCHECK) |
---|
| 1031 | (microphone GNOME_STOCK_PIXMAP_MIC) |
---|
| 1032 | (line-in GNOME_STOCK_PIXMAP_LINE_IN) |
---|
| 1033 | (cdrom GNOME_STOCK_PIXMAP_CDROM) |
---|
| 1034 | (volume GNOME_STOCK_PIXMAP_VOLUME) |
---|
| 1035 | (midi GNOME_STOCK_PIXMAP_MIDI) |
---|
| 1036 | (book-red GNOME_STOCK_PIXMAP_BOOK_RED) |
---|
| 1037 | (book-green GNOME_STOCK_PIXMAP_BOOK_GREEN) |
---|
| 1038 | (book-blue GNOME_STOCK_PIXMAP_BOOK_BLUE) |
---|
| 1039 | (book-yellow GNOME_STOCK_PIXMAP_BOOK_YELLOW) |
---|
| 1040 | (book-open GNOME_STOCK_PIXMAP_BOOK_OPEN) |
---|
| 1041 | (about GNOME_STOCK_PIXMAP_ABOUT) |
---|
| 1042 | (quit GNOME_STOCK_PIXMAP_QUIT) |
---|
| 1043 | (exit GNOME_STOCK_PIXMAP_QUIT) |
---|
| 1044 | (multiple GNOME_STOCK_PIXMAP_MULTIPLE) |
---|
| 1045 | (not GNOME_STOCK_PIXMAP_NOT) |
---|
| 1046 | (convert GNOME_STOCK_PIXMAP_CONVERT) |
---|
| 1047 | (jump-to GNOME_STOCK_PIXMAP_JUMP_TO) |
---|
| 1048 | (up GNOME_STOCK_PIXMAP_UP) |
---|
| 1049 | (down GNOME_STOCK_PIXMAP_DOWN) |
---|
| 1050 | (top GNOME_STOCK_PIXMAP_TOP) |
---|
| 1051 | (bottom GNOME_STOCK_PIXMAP_BOTTOM) |
---|
| 1052 | (attach GNOME_STOCK_PIXMAP_ATTACH) |
---|
| 1053 | (index GNOME_STOCK_PIXMAP_INDEX) |
---|
| 1054 | (font GNOME_STOCK_PIXMAP_FONT) |
---|
| 1055 | (exec GNOME_STOCK_PIXMAP_EXEC) |
---|
| 1056 | (left GNOME_STOCK_PIXMAP_ALIGN_LEFT) |
---|
| 1057 | (right GNOME_STOCK_PIXMAP_ALIGN_RIGHT) |
---|
| 1058 | (center GNOME_STOCK_PIXMAP_ALIGN_CENTER) |
---|
| 1059 | (justify GNOME_STOCK_PIXMAP_ALIGN_JUSTIFY) |
---|
| 1060 | (bold GNOME_STOCK_PIXMAP_TEXT_BOLD) |
---|
| 1061 | (italic GNOME_STOCK_PIXMAP_TEXT_ITALIC) |
---|
| 1062 | (underline GNOME_STOCK_PIXMAP_TEXT_UNDERLINE) |
---|
| 1063 | (strikeout GNOME_STOCK_PIXMAP_TEXT_STRIKEOUT) |
---|
| 1064 | (text-indent GNOME_STOCK_PIXMAP_TEXT_INDENT) |
---|
| 1065 | (text-unindent GNOME_STOCK_PIXMAP_TEXT_UNINDENT) |
---|
| 1066 | (color-select GNOME_STOCK_PIXMAP_COLORSELECTOR) |
---|
| 1067 | (add GNOME_STOCK_PIXMAP_ADD) |
---|
| 1068 | (remove GNOME_STOCK_PIXMAP_REMOVE) |
---|
| 1069 | (table-borders GNOME_STOCK_PIXMAP_TABLE_BORDERS) |
---|
| 1070 | (table-fill GNOME_STOCK_PIXMAP_TABLE_FILL) |
---|
| 1071 | (text-bulleted-list GNOME_STOCK_PIXMAP_TEXT_BULLETED_LIST) |
---|
[18403] | 1072 | (text-numbered-list GNOME_STOCK_PIXMAP_TEXT_NUMBERED_LIST)) |
---|
[15285] | 1073 | |
---|
[18403] | 1074 | |
---|
| 1075 | ;; GnomeIconTextItem |
---|
[15285] | 1076 | |
---|
[18403] | 1077 | (define-object GnomeIconTextItem (GnomeCanvasItem)) |
---|
[15285] | 1078 | |
---|
[18403] | 1079 | (define-func gnome_icon_text_item_configure |
---|
| 1080 | none |
---|
| 1081 | ((GnomeIconTextItem iti) |
---|
| 1082 | (int x) |
---|
| 1083 | (int y) |
---|
| 1084 | (int width) |
---|
| 1085 | (string fontname) |
---|
| 1086 | (string text) |
---|
| 1087 | (bool is_editable) |
---|
| 1088 | (bool is_static))) |
---|
[15285] | 1089 | |
---|
[18403] | 1090 | (define-func gnome_icon_text_item_setxy |
---|
[15285] | 1091 | none |
---|
[18403] | 1092 | ((GnomeIconTextItem iti) |
---|
| 1093 | (int x) |
---|
| 1094 | (int y))) |
---|
[15285] | 1095 | |
---|
[18403] | 1096 | (define-func gnome_icon_text_item_select |
---|
| 1097 | none |
---|
| 1098 | ((GnomeIconTextItem iti) |
---|
| 1099 | (bool sel))) |
---|
[15285] | 1100 | |
---|
[18403] | 1101 | (define-func gnome_icon_text_item_get_text |
---|
| 1102 | string |
---|
| 1103 | ((GnomeIconTextItem iti))) |
---|
[15285] | 1104 | |
---|
[18403] | 1105 | (define-func gnome_icon_text_item_stop_editing |
---|
| 1106 | none |
---|
| 1107 | ((GnomeIconTextItem iti) |
---|
| 1108 | (bool accept))) |
---|
[15285] | 1109 | |
---|
| 1110 | |
---|
[18403] | 1111 | ;; GnomeIconList |
---|
[15764] | 1112 | |
---|
[18403] | 1113 | (define-object GnomeIconList (GnomeCanvas)) |
---|
[15764] | 1114 | |
---|
[18403] | 1115 | (define-enum GnomeIconListMode |
---|
| 1116 | (icons GNOME_ICON_LIST_ICONS) |
---|
| 1117 | (text-below GNOME_ICON_LIST_TEXT_BELOW) |
---|
| 1118 | (text-right GNOME_ICON_LIST_TEXT_RIGHT)) |
---|
[15764] | 1119 | |
---|
[18403] | 1120 | (define-func gnome_icon_list_new |
---|
| 1121 | GtkWidget |
---|
| 1122 | ((uint icon_width) |
---|
| 1123 | (GtkAdjustment adj) |
---|
| 1124 | (int flags))) |
---|
[15764] | 1125 | |
---|
[18403] | 1126 | (define-func gnome_icon_list_set_hadjustment |
---|
[15764] | 1127 | none |
---|
[18403] | 1128 | ((GnomeIconList gil) |
---|
| 1129 | (GtkAdjustment hadj))) |
---|
[15764] | 1130 | |
---|
[18403] | 1131 | (define-func gnome_icon_list_set_vadjustment |
---|
| 1132 | none |
---|
| 1133 | ((GnomeIconList gil) |
---|
| 1134 | (GtkAdjustment vadj))) |
---|
[15764] | 1135 | |
---|
[18403] | 1136 | (define-func gnome_icon_list_freeze |
---|
[15764] | 1137 | none |
---|
[18403] | 1138 | ((GnomeIconList gil))) |
---|
[15764] | 1139 | |
---|
[18403] | 1140 | (define-func gnome_icon_list_thaw |
---|
| 1141 | none |
---|
| 1142 | ((GnomeIconList gil))) |
---|
[15764] | 1143 | |
---|
[18403] | 1144 | (define-func gnome_icon_list_insert |
---|
[15764] | 1145 | none |
---|
[18403] | 1146 | ((GnomeIconList gil) |
---|
| 1147 | (int pos) |
---|
| 1148 | (string icon_filename) |
---|
| 1149 | (string text))) |
---|
[15764] | 1150 | |
---|
[18403] | 1151 | ;(define-func gnome_icon_list_insert_imlib |
---|
| 1152 | ; none |
---|
| 1153 | ; ((GnomeIconList gil) |
---|
| 1154 | ; (int pos) |
---|
| 1155 | ; (GdkImlibImage im) |
---|
| 1156 | ; (string text))) |
---|
[15764] | 1157 | |
---|
[18403] | 1158 | (define-func gnome_icon_list_append |
---|
[15764] | 1159 | none |
---|
[18403] | 1160 | ((GnomeIconList gil) |
---|
| 1161 | (string icon_filename) |
---|
| 1162 | (string text))) |
---|
[15764] | 1163 | |
---|
[18403] | 1164 | ;(define-func gnome_icon_list_append_imlib |
---|
| 1165 | ; none |
---|
| 1166 | ; ((GnomeIconList gil) |
---|
| 1167 | ; (GdkImlibImage im) |
---|
| 1168 | ; (string text))) |
---|
[15764] | 1169 | |
---|
[18403] | 1170 | (define-func gnome_icon_list_clear |
---|
[15764] | 1171 | none |
---|
[18403] | 1172 | ((GnomeIconList gil))) |
---|
[15764] | 1173 | |
---|
[18403] | 1174 | (define-func gnome_icon_list_remove |
---|
| 1175 | none |
---|
| 1176 | ((GnomeIconList gil) |
---|
| 1177 | (int pos))) |
---|
[15764] | 1178 | |
---|
[18403] | 1179 | (define-func gnome_icon_list_set_selection_mode |
---|
| 1180 | none |
---|
| 1181 | ((GnomeIconList gil) |
---|
| 1182 | (GtkSelectionMode mode))) |
---|
[15764] | 1183 | |
---|
[18403] | 1184 | (define-func gnome_icon_list_select_icon |
---|
[15285] | 1185 | none |
---|
[18403] | 1186 | ((GnomeIconList gil) |
---|
| 1187 | (int idx))) |
---|
[15285] | 1188 | |
---|
[18403] | 1189 | (define-func gnome_icon_list_unselect_icon |
---|
[15285] | 1190 | none |
---|
[18403] | 1191 | ((GnomeIconList gil) |
---|
| 1192 | (int pos))) |
---|
[15285] | 1193 | |
---|
[18403] | 1194 | (define-func gnome_icon_list_unselect_all |
---|
[15285] | 1195 | none |
---|
[18403] | 1196 | ((GnomeIconList gil))) |
---|
[15285] | 1197 | |
---|
[18403] | 1198 | (define-func gnome_icon_list_set_row_spacing |
---|
[15285] | 1199 | none |
---|
[18403] | 1200 | ((GnomeIconList gil) |
---|
| 1201 | (int pixels))) |
---|
[15285] | 1202 | |
---|
[18403] | 1203 | (define-func gnome_icon_list_set_col_spacing |
---|
[15285] | 1204 | none |
---|
[18403] | 1205 | ((GnomeIconList gil) |
---|
| 1206 | (int pixels))) |
---|
[15285] | 1207 | |
---|
[18403] | 1208 | (define-func gnome_icon_list_set_text_spacing |
---|
[15285] | 1209 | none |
---|
[18403] | 1210 | ((GnomeIconList gil) |
---|
| 1211 | (int pixels))) |
---|
[15285] | 1212 | |
---|
[18403] | 1213 | (define-func gnome_icon_list_set_icon_border |
---|
[15285] | 1214 | none |
---|
[18403] | 1215 | ((GnomeIconList gil) |
---|
| 1216 | (int pixels))) |
---|
[15285] | 1217 | |
---|
[18403] | 1218 | (define-func gnome_icon_list_set_separators |
---|
[15285] | 1219 | none |
---|
[18403] | 1220 | ((GnomeIconList gil) |
---|
| 1221 | (string sep))) |
---|
[15285] | 1222 | |
---|
[18403] | 1223 | (define-func gnome_icon_list_moveto |
---|
[15285] | 1224 | none |
---|
[18403] | 1225 | ((GnomeIconList gil) |
---|
| 1226 | (int pos) |
---|
| 1227 | (double yalign (= "0.5")))) |
---|
[15285] | 1228 | |
---|
[18403] | 1229 | (define-func gnome_icon_list_icon_is_visible |
---|
| 1230 | GtkVisibility |
---|
| 1231 | ((GnomeIconList gil) |
---|
| 1232 | (int pos))) |
---|
[15285] | 1233 | |
---|
[18403] | 1234 | (define-func gnome_icon_list_get_icon_at |
---|
| 1235 | int |
---|
| 1236 | ((GnomeIconList gil) |
---|
| 1237 | (int x) |
---|
| 1238 | (int y))) |
---|
[15285] | 1239 | |
---|
[18403] | 1240 | (define-func gnome_icon_list_get_items_per_line |
---|
| 1241 | int |
---|
| 1242 | ((GnomeIconList gil))) |
---|
[15285] | 1243 | |
---|
| 1244 | |
---|
| 1245 | ;; misc |
---|
| 1246 | |
---|
| 1247 | (define-func sgtk_gnome_init |
---|
| 1248 | bool |
---|
| 1249 | ((string app_id) |
---|
| 1250 | (string app_version)) |
---|
| 1251 | (scm-name "gnome-init")) |
---|
| 1252 | |
---|
| 1253 | |
---|
| 1254 | |
---|
| 1255 | (options |
---|
| 1256 | (includes "#include <gnome.h>") |
---|
| 1257 | (includes "#include \"rep-gnome.h\"") |
---|
| 1258 | (init-func "sgtk_gnome_init_gnomeui_glue")) |
---|