Mercurial > hg > xemacs-beta

comparison lisp/gnome-widgets.el @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents
children 7039e6323819
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
1 ;;; gnome-widgets.el --- Import GNOME functions into XEmacs
2
3 ;; Copyright (C) 2000 Free Software Foundation
4
5 ;; Maintainer: William Perry <wmperry@gnu.org>
6 ;; Keywords: extensions, dumped
7
8 ;; This file is part of XEmacs.
9
10 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA.
24
25 ;;; Synched up with: Not in FSF
26
27 ;;; Commentary:
28
29 ;; This file is dumped with XEmacs.
30
31 (eval-and-compile
32 (require 'gtk-ffi))
33
34 (gtk-import-function GtkType gnome_about_get_type)
35 (gtk-import-function GtkWidget gnome_about_new
36 (GtkString . title)
37 (GtkString . version)
38 (GtkString . copyright)
39 (GtkArrayOfString . authors)
40 (GtkString . comments)
41 (GtkString . logo))
42
43
44 (gtk-import-function GtkType gnome_app_get_type)
45
46 ;; Create a new (empty) application window. You must specify the
47 ;; application's name (used internally as an identifier). The window
48 ;; title can be left as NULL, in which case the window's title will
49 ;; not be set.
50 (gtk-import-function GtkWidget gnome_app_new
51 (GtkString . appname)
52 (GtkString . title))
53
54 ;; Constructor for language bindings; you don't normally need this.
55 (gtk-import-function nil gnome_app_construct
56 (GnomeApp . app)
57 (GtkString . appname)
58 (GtkString . title))
59
60 ;; Sets the menu bar of the application window
61 (gtk-import-function nil gnome_app_set_menus
62 (GnomeApp . app)
63 (GtkMenuBar . menubar))
64
65 ;; Sets the main toolbar of the application window
66 (gtk-import-function nil gnome_app_set_toolbar
67 (GnomeApp . app)
68 (GtkToolbar . toolbar))
69
70 ;; Sets the status bar of the application window
71 (gtk-import-function nil gnome_app_set_statusbar
72 (GnomeApp . app)
73 (GtkWidget . statusbar))
74
75 ;; Sets the status bar of the application window, but uses the given
76 ;; container widget rather than creating a new one.
77 (gtk-import-function nil gnome_app_set_statusbar_custom
78 (GnomeApp . app)
79 (GtkWidget . container)
80 (GtkWidget . statusbar))
81
82 ;; Sets the content area of the application window
83 (gtk-import-function nil gnome_app_set_contents
84 (GnomeApp . app)
85 (GtkWidget . contents))
86
87 (gtk-import-function nil gnome_app_add_toolbar
88 (GnomeApp . app)
89 (GtkToolbar . toolbar)
90 (GtkString . name)
91 (GnomeDockItemBehavior . behavior)
92 (GnomeDockPlacement . placement)
93 (gint . band_num)
94 (gint . band_position)
95 (gint . offset))
96
97 (gtk-import-function nil gnome_app_add_docked
98 (GnomeApp . app)
99 (GtkWidget . toolbar)
100 (GtkString . name)
101 (GnomeDockItemBehavior . behavior)
102 (GnomeDockPlacement . placement)
103 (gint . band_num)
104 (gint . band_position)
105 (gint . offset))
106
107 (gtk-import-function nil gnome_app_add_dock_item
108 (GnomeApp . app)
109 (GnomeDockItem . item)
110 (GnomeDockPlacement . placement)
111 (gint . band_num)
112 (gint . band_position)
113 (gint . offset))
114
115 (gtk-import-function nil gnome_app_enable_layout_config
116 (GnomeApp . app)
117 (gboolean . enable))
118
119 (gtk-import-function GnomeDock gnome_app_get_dock
120 (GnomeApp . app))
121 (gtk-import-function GnomeDockItem gnome_app_get_dock_item_by_name
122 (GnomeApp . app)
123 (GtkString . name))
124
125
126 (gtk-import-function GtkType gnome_appbar_get_type)
127
128 (gtk-import-function GtkWidget gnome_appbar_new
129 (gboolean . has_progress)
130 (gboolean . has_status)
131 (GnomePreferencesType . interactivity))
132
133 ;; Sets the status label without changing widget state; next set or push
134 ;; will destroy this permanently.
135 (gtk-import-function nil gnome_appbar_set_status
136 (GnomeAppBar . appbar)
137 (GtkString . status))
138
139 ;; What to show when showing nothing else; defaults to nothing
140 (gtk-import-function nil gnome_appbar_set_default
141 (GnomeAppBar . appbar)
142 (GtkString . default_status))
143
144 (gtk-import-function nil gnome_appbar_push
145 (GnomeAppBar . appbar)
146 (GtkString . status))
147
148 ;; OK to call on empty stack
149 (gtk-import-function nil gnome_appbar_pop
150 (GnomeAppBar . appbar))
151
152 ;; Nuke the stack.
153 (gtk-import-function nil gnome_appbar_clear_stack
154 (GnomeAppBar . appbar))
155
156 ;; pure sugar - with a bad name, in light of the get_progress name
157 ;; which is not the opposite of set_progress. Maybe this function
158 ;; should die
159 (gtk-import-function nil gnome_appbar_set_progress
160 (GnomeAppBar . appbar)
161 (gfloat . percentage))
162
163 ;; use GtkProgress functions on returned value
164 (gtk-import-function GtkProgress gnome_appbar_get_progress
165 (GnomeAppBar . appbar))
166
167 ;; Reflect the current state of stack/default. Useful to force a set_status
168 ;; to disappear.
169 (gtk-import-function nil gnome_appbar_refresh
170 (GnomeAppBar . appbar))
171
172 ;; Put a prompt in the appbar and wait for a response. When the
173 ;; user responds or cancels, a user_response signal is emitted.
174 (gtk-import-function nil gnome_appbar_set_prompt
175 (GnomeAppBar . appbar)
176 (GtkString . prompt)
177 (gboolean . modal))
178
179 ;; Remove any prompt
180 (gtk-import-function nil gnome_appbar_clear_prompt
181 (GnomeAppBar . appbar))
182
183 ;; Get the response to the prompt, if any. Result must be g_free'd.
184 (gtk-import-function GtkString gnome_appbar_get_response
185 (GnomeAppBar . appbar))
186
187
188 (gtk-import-function GtkType gnome_calculator_get_type)
189 (gtk-import-function GtkWidget gnome_calculator_new)
190 (gtk-import-function nil gnome_calculator_clear
191 (GnomeCalculator . gc)
192 (gboolean . reset))
193
194 (gtk-import-function nil gnome_calculator_set
195 (GnomeCalculator . gc)
196 (gdouble . result))
197
198
199 ;; Standard Gtk function
200 (gtk-import-function GtkType gnome_color_picker_get_type)
201
202 ;; Creates a new color picker widget
203 (gtk-import-function GtkWidget gnome_color_picker_new)
204
205 ;; Set/get the color in the picker. Values are in [0.0, 1.0]
206 (gtk-import-function nil gnome_color_picker_set_d
207 (GnomeColorPicker . cp)
208 (gdouble . r)
209 (gdouble . g)
210 (gdouble . b)
211 (gdouble . a))
212
213 ;; #### BILL!!! Need multiple return values
214 ;; void gnome_color_picker_get_d (GnomeColorPicker *cp, gdouble *r, gdouble *g, gdouble *b, gdouble *a)
215
216 ;; Set/get the color in the picker. Values are in [0, 255]
217 (gtk-import-function nil gnome_color_picker_set_i8
218 (GnomeColorPicker . cp)
219 (guint . r)
220 (guint . g)
221 (guint . b)
222 (guint . a))
223
224 ;; #### BILL!!! Need multiple return values
225 ;; void gnome_color_picker_get_i8 (GnomeColorPicker *cp, guint8 *r, guint8 *g, guint8 *b, guint8 *a);
226
227 ;; Set/get the color in the picker. Values are in [0, 65535]
228 (gtk-import-function nil gnome_color_picker_set_i16
229 (GnomeColorPicker . cp)
230 (guint . r)
231 (guint . g)
232 (guint . b)
233 (guint . a))
234
235 ;; #### BILL!!! Need multiple return values
236 ;; void gnome_color_picker_get_i16 (GnomeColorPicker *cp, gushort *r, gushort *g, gushort *b, gushort *a);
237
238 ;; Sets whether the picker should dither the color sample or just paint a solid rectangle
239 (gtk-import-function nil gnome_color_picker_set_dither
240 (GnomeColorPicker . cp)
241 (gboolean . dither))
242
243 ;; Sets whether the picker should use the alpha channel or not
244 (gtk-import-function nil gnome_color_picker_set_use_alpha
245 (GnomeColorPicker . cp)
246 (gboolean . use_alpha))
247
248 ;; Sets the title for the color selection dialog
249 (gtk-import-function nil gnome_color_picker_set_title
250 (GnomeColorPicker . cp)
251 (GtkString . title))
252
253
254 (gtk-import-function GtkType gnome_date_edit_get_type)
255 (gtk-import-function GtkWidget gnome_date_edit_new
256 (time_t . the_time)
257 (gboolean . show_time)
258 (gboolean . use_24_format))
259
260 (gtk-import-function GtkWidget gnome_date_edit_new_flags
261 (time_t . the_time)
262 (GnomeDateEditFlags . flags))
263
264 (gtk-import-function nil gnome_date_edit_set_time
265 (GnomeDateEdit . gde)
266 (time_t . the_time))
267
268 (gtk-import-function nil gnome_date_edit_set_popup_range
269 (GnomeDateEdit . gde)
270 (guint . low_hour)
271 (guint . up_hour))
272
273 (gtk-import-function 'time_t gnome_date_edit_get_date
274 (GnomeDateEdit . gde))
275
276 (gtk-import-function nil gnome_date_edit_set_flags
277 (GnomeDateEdit . gde)
278 (GnomeDateEditFlags . flags))
279
280 (gtk-import-function GnomeDateEditFlags gnome_date_edit_get_flags
281 (GnomeDateEdit . gde))
282
283
284 (gtk-import-function GtkType gnome_dentry_edit_get_type)
285
286 ;; create a new dentry and get the children using the below macros
287 ;; or use the utility new_notebook below
288 (gtk-import-function GtkObject gnome_dentry_edit_new)
289
290 ;;#define gnome_dentry_edit_child1(d) (GNOME_DENTRY_EDIT(d)->child1)
291 ;;#define gnome_dentry_edit_child2(d) (GNOME_DENTRY_EDIT(d)->child2)
292
293 ;; Create a new edit in this notebook - appends two pages to the
294 ;; notebook.
295 (gtk-import-function GtkObject gnome_dentry_edit_new_notebook
296 (GtkNotebook . notebook))
297
298 (gtk-import-function nil gnome_dentry_edit_clear
299 (GnomeDEntryEdit . dee))
300
301 ;; The GnomeDEntryEdit does not store a dentry, and it does not keep
302 ;; track of the location field of GnomeDesktopEntry which will always
303 ;; be NULL.
304
305 ;; Make the display reflect dentry at path
306 (gtk-import-function nil gnome_dentry_edit_load_file
307 (GnomeDEntryEdit . dee)
308 (GtkString . path))
309
310 ;; Copy the contents of this dentry into the display
311 '(gtk-import-function nil gnome_dentry_edit_set_dentry
312 (GnomeDEntryEdit . dee)
313 (GnomeDesktopEntry . dentry))
314
315 ;; Generate a dentry based on the contents of the display
316 '(gtk-import-function GnomeDesktopEntry gnome_dentry_edit_get_dentry
317 (GnomeDEntryEdit . dee))
318
319 ;; Return an allocated string, you need to g_free it.
320 (gtk-import-function GtkString gnome_dentry_edit_get_icon
321 (GnomeDEntryEdit . dee))
322 (gtk-import-function GtkString gnome_dentry_edit_get_name
323 (GnomeDEntryEdit . dee))
324
325 ;; These are accessor functions for the widgets that make up the
326 ;; GnomeDEntryEdit widget.
327 (gtk-import-function GtkWidget gnome_dentry_get_name_entry (GnomeDEntryEdit . dee))
328 (gtk-import-function GtkWidget gnome_dentry_get_comment_entry (GnomeDEntryEdit . dee))
329 (gtk-import-function GtkWidget gnome_dentry_get_exec_entry (GnomeDEntryEdit . dee))
330 (gtk-import-function GtkWidget gnome_dentry_get_tryexec_entry (GnomeDEntryEdit . dee))
331 (gtk-import-function GtkWidget gnome_dentry_get_doc_entry (GnomeDEntryEdit . dee))
332 (gtk-import-function GtkWidget gnome_dentry_get_icon_entry (GnomeDEntryEdit . dee))
333
334
335 ;; The GtkWidget * return values were added in retrospect; sometimes
336 ;; you might want to connect to the "close" signal of the dialog, or
337 ;; something, the return value makes the functions more
338 ;; flexible. However, there is nothing especially guaranteed about
339 ;; these dialogs except that they will be dialogs, so don't count on
340 ;; anything.
341
342 ;; A little OK box
343 (gtk-import-function GtkWidget gnome_ok_dialog (GtkString . message))
344 (gtk-import-function GtkWidget gnome_ok_dialog_parented
345 (GtkString . message)
346 (GtkWindow . parent))
347
348 ;; Operation failed fatally. In an OK dialog.
349 (gtk-import-function GtkWidget gnome_error_dialog '(GtkString . error))
350 (gtk-import-function GtkWidget gnome_error_dialog_parented
351 (GtkString . error)
352 (GtkWindow . parent))
353
354 ;; Just a warning.
355 (gtk-import-function GtkWidget gnome_warning_dialog '(GtkString . warning))
356 (gtk-import-function GtkWidget gnome_warning_dialog_parented
357 (GtkString . warning)
358 (GtkWindow . parent))
359
360 ;;;/* Look in gnome-types.h for the callback types. */
361
362 ;;;/* Ask a yes or no question, and call the callback when it's answered. */
363 ;;;GtkWidget * gnome_question_dialog (const gchar * question,
364 ;;; GnomeReplyCallback callback,
365 ;;; gpointer data);
366
367 ;;;GtkWidget * gnome_question_dialog_parented (const gchar * question,
368 ;;; GnomeReplyCallback callback,
369 ;;; gpointer data,
370 ;;; GtkWindow * parent);
371
372 ;;;GtkWidget * gnome_question_dialog_modal (const gchar * question,
373 ;;; GnomeReplyCallback callback,
374 ;;; gpointer data);
375
376 ;;;GtkWidget * gnome_question_dialog_modal_parented (const gchar * question,
377 ;;; GnomeReplyCallback callback,
378 ;;; gpointer data,
379 ;;; GtkWindow * parent);
380
381
382 ;;;/* OK-Cancel question. */
383 ;;;GtkWidget * gnome_ok_cancel_dialog (const gchar * message,
384 ;;; GnomeReplyCallback callback,
385 ;;; gpointer data);
386
387 ;;;GtkWidget * gnome_ok_cancel_dialog_parented (const gchar * message,
388 ;;; GnomeReplyCallback callback,
389 ;;; gpointer data,
390 ;;; GtkWindow * parent);
391
392 ;;;GtkWidget * gnome_ok_cancel_dialog_modal (const gchar * message,
393 ;;; GnomeReplyCallback callback,
394 ;;; gpointer data);
395
396 ;;;GtkWidget * gnome_ok_cancel_dialog_modal_parented (const gchar * message,
397 ;;; GnomeReplyCallback callback,
398 ;;; gpointer data,
399 ;;; GtkWindow * parent);
400
401
402 (gtk-import-function GtkType gnome_file_entry_get_type)
403 (gtk-import-function GtkWidget gnome_file_entry_new
404 (GtkString . history_id)
405 (GtkString . browse_dialog_title))
406
407 (gtk-import-function nil gnome_file_entry_construct
408 (GnomeFileEntry . fentry)
409 (GtkString . history_id)
410 (GtkString . browse_dialog_title))
411
412 (gtk-import-function GtkWidget gnome_file_entry_gnome_entry
413 (GnomeFileEntry .fentry))
414
415 (gtk-import-function GtkWidget gnome_file_entry_gtk_entry
416 (GnomeFileEntry . fentry))
417
418 (gtk-import-function nil gnome_file_entry_set_title
419 (GnomeFileEntry . fentry)
420 (GtkString . browse_dialog_title))
421
422 ;; set default path for the browse dialog
423 (gtk-import-function nil gnome_file_entry_set_default_path
424 (GnomeFileEntry . fentry)
425 (GtkString . path))
426
427 ;; sets up the file entry to be a directory picker rather then a file picker
428 (gtk-import-function nil gnome_file_entry_set_directory
429 (GnomeFileEntry . fentry)
430 (gboolean . directory_entry))
431
432 ;; returns a filename which is a full path with WD or the default
433 ;; directory prepended if it's not an absolute path, returns
434 ;; NULL on empty entry or if the file doesn't exist and that was
435 ;; a requirement
436 (gtk-import-function GtkString gnome_file_entry_get_full_path
437 (GnomeFileEntry . fentry)
438 (gboolean . file_must_exist))
439
440 ;; set modality of the file browse dialog, only applies for the
441 ;; next time a dialog is created
442 (gtk-import-function nil gnome_file_entry_set_modal
443 (GnomeFileEntry . fentry)
444 (gboolean . is_modal))
445
446
447 ;; Standard Gtk function
448 (gtk-import-function GtkType gnome_font_picker_get_type)
449
450 ;; Creates a new font picker widget
451 (gtk-import-function GtkWidget gnome_font_picker_new)
452
453 ;; Sets the title for the font selection dialog
454 (gtk-import-function nil gnome_font_picker_set_title
455 (GnomeFontPicker . gfp)
456 (GtkString . title))
457
458 ;; Button mode
459 (gtk-import-function GnomeFontPickerMode gnome_font_picker_get_mode
460 (GnomeFontPicker . gfp))
461
462 (gtk-import-function nil gnome_font_picker_set_mode
463 (GnomeFontPicker . gfp)
464 (GnomeFontPickerMode . mode))
465
466 ;; With GNOME_FONT_PICKER_MODE_FONT_INFO
467 ;; If use_font_in_label is true, font name will be writen using font choosed by user and
468 ;; using size passed to this function
469 (gtk-import-function nil gnome_font_picker_fi_set_use_font_in_label
470 (GnomeFontPicker . gfp)
471 (gboolean . use_font_in_label)
472 (gint . size))
473
474 (gtk-import-function nil gnome_font_picker_fi_set_show_size
475 (GnomeFontPicker . gfp)
476 (gboolean . show_size))
477
478 ;; With GNOME_FONT_PICKER_MODE_USER_WIDGET
479 (gtk-import-function nil gnome_font_picker_uw_set_widget
480 (GnomeFontPicker . gfp)
481 (GtkWidget . widget))
482
483 ;; Functions to interface with GtkFontSelectionDialog
484 (gtk-import-function GtkString gnome_font_picker_get_font_name
485 (GnomeFontPicker . gfp))
486
487 ;;;GdkFont* gnome_font_picker_get_font (GnomeFontPicker *gfp);
488
489 (gtk-import-function gboolean gnome_font_picker_set_font_name
490 (GnomeFontPicker . gfp)
491 (GtkString . fontname))
492
493 (gtk-import-function GtkString gnome_font_picker_get_preview_text
494 (GnomeFontPicker . gfp))
495
496 (gtk-import-function nil gnome_font_picker_set_preview_text
497 (GnomeFontPicker . gfp)
498 (GtkString . text))
499
500
501 (gtk-import-function GtkType gnome_href_get_type)
502 (gtk-import-function GtkWidget gnome_href_new
503 (GtkString . url)
504 (GtkString . label))
505
506 (gtk-import-function nil gnome_href_set_url
507 (GnomeHRef . href)
508 (GtkString . url))
509 (gtk-import-function GtkString gnome_href_get_url
510 (GnomeHRef . href))
511
512 (gtk-import-function nil gnome_href_set_label
513 (GnomeHRef . href)
514 (GtkString . label))
515
516 (gtk-import-function GtkString gnome_href_get_label
517 (GnomeHRef . href))
518
519
520 ;; Stock icons, buttons, and menu items.
521
522 ;; A short description:
523
524 ;; These functions provide an applications programmer with default
525 ;; icons for toolbars, menu pixmaps, etc. One such `icon' should have
526 ;; at least three pixmaps to reflect it's state. There is a `regular'
527 ;; pixmap, a `disabled' pixmap and a `focused' pixmap. You can get
528 ;; either each of these pixmaps by calling gnome_stock_pixmap or you
529 ;; can get a widget by calling gnome_stock_pixmap_widget. This widget
530 ;; is a container which gtk_widget_shows the pixmap, that is
531 ;; reflecting the current state of the widget. If for example you
532 ;; gtk_container_add this widget to a button, which is currently not
533 ;; sensitive, the widget will just show the `disabled' pixmap. If the
534 ;; state of the button changes to sensitive, the widget will change to
535 ;; the `regular' pixmap. The `focused' pixmap will be shown, when the
536 ;; mouse pointer enters the widget.
537
538 ;; To support themability, we use (char *) to call those functions. A
539 ;; new theme might register new icons by calling
540 ;; gnome_stock_pixmap_register, or may change existing icons by
541 ;; calling gnome_stock_pixmap_change. An application should check (by
542 ;; calling gnome_stock_pixmap_checkfor), if the current theme supports
543 ;; an uncommon icon, before using it. The only icons an app can rely
544 ;; on, are those defined in this header file.
545
546 ;; We now have stock buttons too. To use them, just replace any
547 ;; gtk_button_new{_with_label} with
548 ;; gnome_stock_button(GNOME_STOCK_BUTTON_...). This function returns
549 ;; a GtkButton with a gettexted default text and an icon.
550
551 ;; There's an additional feature, which might be interesting. If an
552 ;; application calls gnome_stock_pixmap_register and uses it by
553 ;; calling gnome_stock_pixmap_widget, it doesn't have to care about
554 ;; the state_changed signal to display the appropriate pixmap
555 ;; itself. Additionally gnome-stock generates a disabled version of a
556 ;; pixmap automatically, when no pixmap for a disabled state is
557 ;; provided.
558
559
560 ;; State:
561
562 ;; currently implemented:
563 ;; - gnome_stock_pixmap
564 ;; - gnome_stock_pixmap_widget
565 ;; - gnome_stock_pixmap_checkfor
566 ;; - GnomeStockPixmapWidget
567 ;; - gnome_stock_button
568 ;; - gnome_stock_pixmap_register
569
570 ;; not implemented:
571 ;; - gnome_stock_pixmap_change
572
573 ;; The names of `well known' icons. I define these strings mainly to
574 ;; prevent errors due to typos.
575
576 (defvar gnome-stock-pixmaps '(
577 (new . "New")
578 (open . "Open")
579 (close . "Close")
580 (revert . "Revert")
581 (save . "Save")
582 (save-as . "Save As")
583 (cut . "Cut")
584 (copy . "Copy")
585 (paste . "Paste")
586 (clear . "Clear")
587 (properties . "Properties")
588 (preferences . "Preferences")
589 (help . "Help")
590 (scores . "Scores")
591 (print . "Print")
592 (search . "Search")
593 (srchrpl . "Search/Replace")
594 (back . "Back")
595 (forward . "Forward")
596 (first . "First")
597 (last . "Last")
598 (home . "Home")
599 (stop . "Stop")
600 (refresh . "Refresh")
601 (undo . "Undo")
602 (redo . "Redo")
603 (timer . "Timer")
604 (timer-stop . "Timer Stopped")
605 (mail . "Mail")
606 (mail-rcv . "Receive Mail")
607 (mail-snd . "Send Mail")
608 (mail-rpl . "Reply to Mail")
609 (mail-fwd . "Forward Mail")
610 (mail-new . "New Mail")
611 (trash . "Trash")
612 (trash-full . "Trash Full")
613 (undelete . "Undelete")
614 (spellcheck . "Spellchecker")
615 (mic . "Microphone")
616 (line-in . "Line In")
617 (cdrom . "Cdrom")
618 (volume . "Volume")
619 (midi . "Midi")
620 (book-red . "Book Red")
621 (book-green . "Book Green")
622 (book-blue . "Book Blue")
623 (BOOK-YELLOW . "Book Yellow")
624 (BOOK-OPEN . "Book Open")
625 (ABOUT . "About")
626 (QUIT . "Quit")
627 (MULTIPLE . "Multiple")
628 (NOT . "Not")
629 (CONVERT . "Convert")
630 (JUMP-TO . "Jump To")
631 (UP . "Up")
632 (DOWN . "Down")
633 (TOP . "Top")
634 (BOTTOM . "Bottom")
635 (ATTACH . "Attach")
636 (INDEX . "Index")
637 (FONT . "Font")
638 (EXEC . "Exec")
639
640 (ALIGN-LEFT . "Left")
641 (ALIGN-RIGHT . "Right")
642 (ALIGN-CENTER . "Center")
643 (ALIGN-JUSTIFY . "Justify")
644
645 (TEXT-BOLD . "Bold")
646 (TEXT-ITALIC . "Italic")
647 (TEXT-UNDERLINE . "Underline")
648 (TEXT-STRIKEOUT . "Strikeout")
649
650 (TEXT-INDENT . "Text Indent")
651 (TEXT-UNINDENT . "Text Unindent")
652
653 (EXIT . "Quit")
654
655 (COLORSELECTOR . "Color Select")
656
657 (ADD . "Add")
658 (REMOVE . "Remove")
659
660 (TABLE-BORDERS . "Table Borders")
661 (TABLE-FILL . "Table Fill")
662
663 (TEXT-BULLETED-LIST . "Text Bulleted List")
664 (TEXT-NUMBERED-LIST . "Text Numbered List")
665 ))
666
667 ;; The basic pixmap version of an icon.
668
669 ;;#define GNOME_STOCK_PIXMAP_REGULAR "regular"
670 ;;#define GNOME_STOCK_PIXMAP_DISABLED "disabled"
671 ;;#define GNOME_STOCK_PIXMAP_FOCUSED "focused"
672
673 (defvar gnome-stock-pixmap-widget-new nil)
674
675 (defun gnome-stock-pixmap-widget-new (window symbol)
676 "Load a stock pixmap named SYMBOL using WINDOW as the parent."
677 (if (not gnome-stock-pixmap-widget-new)
678 (setq gnome-stock-pixmap-widget-new (gtk-import-function-internal
679 'GtkWidget
680 "gnome_stock_pixmap_widget_new"
681 '(GtkWidget GtkString))))
682 (let ((translation (assq symbol gnome-stock-pixmaps)))
683 (if (not translation)
684 (error "Unknown stock pixmap: %S" symbol))
685 (gtk-call-function gnome-stock-pixmap-widget-new (list window (cdr translation)))))
686
687 (gtk-import-function GtkType gnome_stock_get_type)
688 (gtk-import-function GtkWidget gnome_stock_new)
689 (gtk-import-function GtkWidget gnome_stock_new_with_icon '(GtkString . icon))
690 (gtk-import-function gboolean gnome_stock_set_icon
691 (GnomeStock . stock)
692 (GtkString . icon))
693
694 ;; just fetch a GnomeStock(PixmapWidget)
695 ;; It is possible to specify a filename instead of an icon name. Gnome stock
696 ;; will use gnome_pixmap_file to find the pixmap and return a GnomeStock widget
697 ;; from that file.
698 (gtk-import-function GtkWidget gnome_stock_pixmap_widget
699 (GtkWidget . window)
700 (GtkString . icon))
701
702 ;; This function loads that file scaled to the specified size. Unlike
703 ;; gnome_pixmap_new_from_file_at_size this function uses antializing and stuff
704 ;; to scale the pixmap
705 (gtk-import-function GtkWidget gnome_stock_pixmap_widget_at_size
706 (GtkWidget . window)
707 (GtkString . icon)
708 (guint . width)
709 (guint . height))
710
711 (gtk-import-function nil gnome_stock_pixmap_widget_set_icon
712 (GnomeStock . widget)
713 (GtkString . icon))
714
715 ;;;gint gnome_stock_pixmap_register (const char *icon,
716 ;;; const char *subtype,
717 ;;; GnomeStockPixmapEntry *entry);
718
719 ;; change an existing entry. returns non-zero on success
720 ;;;gint gnome_stock_pixmap_change (const char *icon,
721 ;;; const char *subtype,
722 ;;; GnomeStockPixmapEntry *entry);
723
724 ;; check for the existance of an entry. returns the entry if it
725 ;; exists, or NULL otherwise
726 ;;;GnomeStockPixmapEntry *gnome_stock_pixmap_checkfor (const char *icon,
727 ;;; const char *subtype);
728
729 ;; buttons
730
731 (defvar gnome-stock-buttons '((ok . "Button_Ok")
732 (cancel . "Button_Cancel")
733 (yes . "Button_Yes")
734 (no . "Button_No")
735 (close . "Button_Close")
736 (apply . "Button_Apply")
737 (help . "Button_Help")
738 (next . "Button_Next")
739 (prev . "Button_Prev")
740 (up . "Button_Up")
741 (down . "Button_Down")
742 (font . "Button_Font")))
743
744 ;; this function returns a button with a pixmap (if ButtonUseIcons is enabled)
745 ;; and the provided text
746
747 (gtk-import-function GtkWidget gnome_pixmap_button
748 (GtkWidget . pixmap)
749 (GtkString . text))
750 (gtk-import-function nil gnome_button_can_default
751 (GtkButton . button)
752 (gboolean . can_default))
753
754 (defvar gnome-stock-button nil)
755
756 (defun gnome-stock-button (symbol)
757 "Returns a default button widget for dialogs."
758 (if (not gnome-stock-button)
759 (setq gnome-stock-button (gtk-import-function-internal
760 'GtkWidget "gnome_stock_button"
761 '(GtkString))))
762 (let ((translation (assq symbol gnome-stock-buttons)))
763 (if (not translation)
764 (error "Unknown stock button: %S" symbol))
765 (gtk-call-function gnome-stock-button (list (cdr translation)))))
766
767 (defun gnome-stock-or-ordinary-button (type)
768 "Returns a button widget. If the TYPE argument matches a
769 GNOME_STOCK_BUTTON_* define, then a stock button is created.
770 Otherwise, an ordinary button is created, and TYPE is given as the
771 label."
772 (if (stringp type) (setq type (intern type)))
773 (condition-case ()
774 (gnome-stock-button type)
775 (error (gtk-button-new-with-label (symbol-name type)))))
776
777 ;;/* menus */
778
779 ;;#define GNOME_STOCK_MENU_BLANK "Menu_"
780 ;;#define GNOME_STOCK_MENU_NEW "Menu_New"
781 ;;#define GNOME_STOCK_MENU_SAVE "Menu_Save"
782 ;;#define GNOME_STOCK_MENU_SAVE_AS "Menu_Save As"
783 ;;#define GNOME_STOCK_MENU_REVERT "Menu_Revert"
784 ;;#define GNOME_STOCK_MENU_OPEN "Menu_Open"
785 ;;#define GNOME_STOCK_MENU_CLOSE "Menu_Close"
786 ;;#define GNOME_STOCK_MENU_QUIT "Menu_Quit"
787 ;;#define GNOME_STOCK_MENU_CUT "Menu_Cut"
788 ;;#define GNOME_STOCK_MENU_COPY "Menu_Copy"
789 ;;#define GNOME_STOCK_MENU_PASTE "Menu_Paste"
790 ;;#define GNOME_STOCK_MENU_PROP "Menu_Properties"
791 ;;#define GNOME_STOCK_MENU_PREF "Menu_Preferences"
792 ;;#define GNOME_STOCK_MENU_ABOUT "Menu_About"
793 ;;#define GNOME_STOCK_MENU_SCORES "Menu_Scores"
794 ;;#define GNOME_STOCK_MENU_UNDO "Menu_Undo"
795 ;;#define GNOME_STOCK_MENU_REDO "Menu_Redo"
796 ;;#define GNOME_STOCK_MENU_PRINT "Menu_Print"
797 ;;#define GNOME_STOCK_MENU_SEARCH "Menu_Search"
798 ;;#define GNOME_STOCK_MENU_SRCHRPL "Menu_Search/Replace"
799 ;;#define GNOME_STOCK_MENU_BACK "Menu_Back"
800 ;;#define GNOME_STOCK_MENU_FORWARD "Menu_Forward"
801 ;;#define GNOME_STOCK_MENU_FIRST "Menu_First"
802 ;;#define GNOME_STOCK_MENU_LAST "Menu_Last"
803 ;;#define GNOME_STOCK_MENU_HOME "Menu_Home"
804 ;;#define GNOME_STOCK_MENU_STOP "Menu_Stop"
805 ;;#define GNOME_STOCK_MENU_REFRESH "Menu_Refresh"
806 ;;#define GNOME_STOCK_MENU_MAIL "Menu_Mail"
807 ;;#define GNOME_STOCK_MENU_MAIL_RCV "Menu_Receive Mail"
808 ;;#define GNOME_STOCK_MENU_MAIL_SND "Menu_Send Mail"
809 ;;#define GNOME_STOCK_MENU_MAIL_RPL "Menu_Reply to Mail"
810 ;;#define GNOME_STOCK_MENU_MAIL_FWD "Menu_Forward Mail"
811 ;;#define GNOME_STOCK_MENU_MAIL_NEW "Menu_New Mail"
812 ;;#define GNOME_STOCK_MENU_TRASH "Menu_Trash"
813 ;;#define GNOME_STOCK_MENU_TRASH_FULL "Menu_Trash Full"
814 ;;#define GNOME_STOCK_MENU_UNDELETE "Menu_Undelete"
815 ;;#define GNOME_STOCK_MENU_TIMER "Menu_Timer"
816 ;;#define GNOME_STOCK_MENU_TIMER_STOP "Menu_Timer Stopped"
817 ;;#define GNOME_STOCK_MENU_SPELLCHECK "Menu_Spellchecker"
818 ;;#define GNOME_STOCK_MENU_MIC "Menu_Microphone"
819 ;;#define GNOME_STOCK_MENU_LINE_IN "Menu_Line In"
820 ;;#define GNOME_STOCK_MENU_CDROM "Menu_Cdrom"
821 ;;#define GNOME_STOCK_MENU_VOLUME "Menu_Volume"
822 ;;#define GNOME_STOCK_MENU_MIDI "Menu_Midi"
823 ;;#define GNOME_STOCK_MENU_BOOK_RED "Menu_Book Red"
824 ;;#define GNOME_STOCK_MENU_BOOK_GREEN "Menu_Book Green"
825 ;;#define GNOME_STOCK_MENU_BOOK_BLUE "Menu_Book Blue"
826 ;;#define GNOME_STOCK_MENU_BOOK_YELLOW "Menu_Book Yellow"
827 ;;#define GNOME_STOCK_MENU_BOOK_OPEN "Menu_Book Open"
828 ;;#define GNOME_STOCK_MENU_CONVERT "Menu_Convert"
829 ;;#define GNOME_STOCK_MENU_JUMP_TO "Menu_Jump To"
830 ;;#define GNOME_STOCK_MENU_UP "Menu_Up"
831 ;;#define GNOME_STOCK_MENU_DOWN "Menu_Down"
832 ;;#define GNOME_STOCK_MENU_TOP "Menu_Top"
833 ;;#define GNOME_STOCK_MENU_BOTTOM "Menu_Bottom"
834 ;;#define GNOME_STOCK_MENU_ATTACH "Menu_Attach"
835 ;;#define GNOME_STOCK_MENU_INDEX "Menu_Index"
836 ;;#define GNOME_STOCK_MENU_FONT "Menu_Font"
837 ;;#define GNOME_STOCK_MENU_EXEC "Menu_Exec"
838
839 ;;#define GNOME_STOCK_MENU_ALIGN_LEFT "Menu_Left"
840 ;;#define GNOME_STOCK_MENU_ALIGN_RIGHT "Menu_Right"
841 ;;#define GNOME_STOCK_MENU_ALIGN_CENTER "Menu_Center"
842 ;;#define GNOME_STOCK_MENU_ALIGN_JUSTIFY "Menu_Justify"
843
844 ;;#define GNOME_STOCK_MENU_TEXT_BOLD "Menu_Bold"
845 ;;#define GNOME_STOCK_MENU_TEXT_ITALIC "Menu_Italic"
846 ;;#define GNOME_STOCK_MENU_TEXT_UNDERLINE "Menu_Underline"
847 ;;#define GNOME_STOCK_MENU_TEXT_STRIKEOUT "Menu_Strikeout"
848
849 ;;#define GNOME_STOCK_MENU_EXIT GNOME_STOCK_MENU_QUIT
850
851
852 ;;/* returns a GtkMenuItem with an stock icon and text */
853 ;;GtkWidget *gnome_stock_menu_item (const char *type,
854 ;; const char *text);
855
856
857 ;; Creates a toplevel window with a shaped mask. Useful for making the DnD
858 ;; windows
859 ;; GtkWidget *gnome_stock_transparent_window (const char *icon, const char *subtype);
860
861 ;;;/*
862 ;;; * Return a GdkPixmap and GdkMask for a stock pixmap
863 ;;; */
864 ;;;void gnome_stock_pixmap_gdk (const char *icon,
865 ;;; const char *subtype,
866 ;;; GdkPixmap **pixmap,
867 ;;; GdkPixmap **mask);
868
869
870 (gtk-import-function GtkType gnome_druid_get_type)
871 (gtk-import-function GtkWidget gnome_druid_new)
872 (gtk-import-function void gnome_druid_set_buttons_sensitive
873 (GnomeDruid . druid)
874 (gboolean . back_sensitive)
875 (gboolean . next_sensitive)
876 (gboolean . cancel_sensitive))
877 (gtk-import-function void gnome_druid_set_show_finish
878 (GnomeDruid . druid)
879 (gboolean . show_finish))
880 (gtk-import-function void gnome_druid_prepend_page
881 (GnomeDruid . druid)
882 (GnomeDruidPage . page))
883 (gtk-import-function void gnome_druid_insert_page
884 (GnomeDruid . druid)
885 (GnomeDruidPage . back_page)
886 (GnomeDruidPage . page))
887 (gtk-import-function void gnome_druid_append_page
888 (GnomeDruid . druid)
889 (GnomeDruidPage . page))
890 (gtk-import-function void gnome_druid_set_page
891 (GnomeDruid . druid)
892 (GnomeDruidPage . page))
893
894 (gtk-import-function GtkType gnome_druid_page_get_type)
895 (gtk-import-function gboolean gnome_druid_page_next (GnomeDruidPage . druid_page))
896 (gtk-import-function gboolean gnome_druid_page_prepare (GnomeDruidPage . druid_page))
897 (gtk-import-function gboolean gnome_druid_page_back (GnomeDruidPage . druid_page))
898 (gtk-import-function gboolean gnome_druid_page_cancel (GnomeDruidPage . druid_page))
899 (gtk-import-function gboolean gnome_druid_page_finish (GnomeDruidPage . druid_page))
900
901
902 (gtk-import-function GtkType gnome_druid_page_start_get_type)
903 (gtk-import-function GtkWidget gnome_druid_page_start_new)
904
905 ;; #### BOGUS!
906 '(gtk-import-function GtkWidget gnome_druid_page_start_new_with_vals
907 (GtkString . title)
908 (GtkString . text)
909 (GdkImlibImage . logo)
910 (GdkImlibImage . watermark))
911
912 (gtk-import-function void gnome_druid_page_start_set_bg_color
913 (GnomeDruidPageStart . druid_page_start)
914 (GdkColor . color))
915 (gtk-import-function void gnome_druid_page_start_set_textbox_color
916 (GnomeDruidPageStart . druid_page_start)
917 (GdkColor . color))
918 (gtk-import-function void gnome_druid_page_start_set_logo_bg_color
919 (GnomeDruidPageStart . druid_page_start)
920 (GdkColor . color))
921 (gtk-import-function void gnome_druid_page_start_set_title_color
922 (GnomeDruidPageStart . druid_page_start)
923 (GdkColor . color))
924 (gtk-import-function void gnome_druid_page_start_set_text_color
925 (GnomeDruidPageStart . druid_page_start)
926 (GdkColor . color))
927 (gtk-import-function void gnome_druid_page_start_set_text
928 (GnomeDruidPageStart . druid_page_start)
929 (GtkString . text))
930 (gtk-import-function void gnome_druid_page_start_set_title
931 (GnomeDruidPageStart . druid_page_start)
932 (GtkString . title))
933
934 ;; #### BOGUS!
935 '(gtk-import-function void gnome_druid_page_start_set_logo
936 (GnomeDruidPageStart . druid_page_start)
937 (GdkImlibImage . logo_image))
938 ;; #### BOGUS!
939 '(gtk-import-function void gnome_druid_page_start_set_watermark
940 (GnomeDruidPageStart . druid_page_start)
941 (GdkImlibImage . watermark))
942
943
944 (gtk-import-function GtkType gnome_druid_page_standard_get_type)
945 (gtk-import-function GtkWidget gnome_druid_page_standard_new)
946 ;; #### BOGUS!
947 '(gtk-import-function GtkWidget gnome_druid_page_standard_new_with_vals
948 (GtkString . title)
949 (GdkImlibImage . logo))
950 (gtk-import-function void gnome_druid_page_standard_set_bg_color
951 (GnomeDruidPageStandard . druid_page_standard)
952 (GdkColor . color))
953 (gtk-import-function void gnome_druid_page_standard_set_logo_bg_color
954 (GnomeDruidPageStandard . druid_page_standard)
955 (GdkColor . color))
956 (gtk-import-function void gnome_druid_page_standard_set_title_color
957 (GnomeDruidPageStandard . druid_page_standard)
958 (GdkColor . color))
959 (gtk-import-function void gnome_druid_page_standard_set_title
960 (GnomeDruidPageStandard . druid_page_standard)
961 (GtkString . title))
962 ;; #### BOGUS!
963 '(gtk-import-function void gnome_druid_page_standard_set_logo
964 (GnomeDruidPageStandard . druid_page_standard)
965 (GdkImlibImage . logo_image))
966
967
968 (gtk-import-function GtkType gnome_druid_page_finish_get_type)
969 (gtk-import-function GtkWidget gnome_druid_page_finish_new)
970 (gtk-import-function GtkWidget gnome_druid_page_finish_new_with_vals
971 (GtkString . title)
972 (GtkString . text)
973 (GdkImlibImage . logo)
974 (GdkImlibImage . watermark))
975
976 (gtk-import-function void gnome_druid_page_finish_set_bg_color
977 (GnomeDruidPageFinish . druid_page_finish)
978 (GdkColor . color))
979 (gtk-import-function void gnome_druid_page_finish_set_textbox_color
980 (GnomeDruidPageFinish . druid_page_finish)
981 (GdkColor . color))
982 (gtk-import-function void gnome_druid_page_finish_set_logo_bg_color
983 (GnomeDruidPageFinish . druid_page_finish)
984 (GdkColor . color))
985 (gtk-import-function void gnome_druid_page_finish_set_title_color
986 (GnomeDruidPageFinish . druid_page_finish)
987 (GdkColor . color))
988 (gtk-import-function void gnome_druid_page_finish_set_text_color
989 (GnomeDruidPageFinish . druid_page_finish)
990 (GdkColor . color))
991 (gtk-import-function void gnome_druid_page_finish_set_text
992 (GnomeDruidPageFinish . druid_page_finish)
993 (GtkString . text))
994 (gtk-import-function void gnome_druid_page_finish_set_title
995 (GnomeDruidPageFinish . druid_page_finish)
996 (GtkString . title))
997 ;; #### BOGUS!
998 '(gtk-import-function void gnome_druid_page_finish_set_logo
999 (GnomeDruidPageFinish . druid_page_finish)
1000 (GdkImlibImage . logo_image))
1001 ;; #### BOGUS!
1002 '(gtk-import-function void gnome_druid_page_finish_set_watermark
1003 (GnomeDruidPageFinish . druid_page_finish)
1004 (GdkImlibImage . watermark))
1005
1006 (provide 'gnome-widgets)